paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:36:14 +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

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

@ -614,14 +614,17 @@ end;
function GTKAPIWidget_new: PGTKWidget;
var
APIWidget: PGTKAPIWidget;
Args : array[0..1] of TGTKArg;
begin
Result := gtk_widget_new(
GTKAPIWidget_GetType,
'hadjustment', [nil,
'vadjustment', nil,
nil]
);
Args[0].thetype := GTK_ADJUSTMENT_TYPE;
Args[0].name := 'hadjustment';
Args[0].d.object_data := nil;
Args[1].thetype := GTK_ADJUSTMENT_TYPE;
Args[1].name := 'vadjustment';
Args[1].d.object_data := nil;
Result := gtk_widget_newv(GTKAPIWidget_GetType, Length(Args), @Args[0]);
// create client widget
APIWidget := PGTKAPIWidget(Result);
APIWidget^.Client := GTKAPIWidgetClient_New;
@ -712,6 +715,9 @@ end.
{ =============================================================================
$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
MG: fixed apiwidget warnings/criticals