paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 02:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

AJ:switched to gtk_widget_newv to work around array of const

Browse Source 
git-svn-id: trunk@1367 -
This commit is contained in:
lazarus 2002-02-09 01:48:20 +00:00
parent fbe5199bb0
commit bda9104ee5
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/gtk/gtkwinapiwindow.pp
View File

@ -614,13 +614,16 @@ end;
function GTKAPIWidget_new: PGTKWidget; function GTKAPIWidget_new: PGTKWidget;
var var
APIWidget: PGTKAPIWidget; APIWidget: PGTKAPIWidget;
Args : array[0..1] of TGTKArg;
begin begin
Result := gtk_widget_new( Args[0].thetype := GTK_ADJUSTMENT_TYPE;
GTKAPIWidget_GetType, Args[0].name := 'hadjustment';
'hadjustment', [nil, Args[0].d.object_data := nil;
'vadjustment', nil, Args[1].thetype := GTK_ADJUSTMENT_TYPE;
nil] Args[1].name := 'vadjustment';
); Args[1].d.object_data := nil;
Result := gtk_widget_newv(GTKAPIWidget_GetType, Length(Args), @Args[0]);
// create client widget // create client widget
APIWidget := PGTKAPIWidget(Result); APIWidget := PGTKAPIWidget(Result);
@ -712,6 +715,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.33 2002/10/20 22:57:18 lazarus
AJ:switched to gtk_widget_newv to work around array of const
Revision 1.32 2002/06/12 12:35:45 lazarus Revision 1.32 2002/06/12 12:35:45 lazarus
MG: fixed apiwidget warnings/criticals MG: fixed apiwidget warnings/criticals