|
@@ -1,10 +1,10 @@
|
|
|
{$IfDef read_interface}
|
|
|
|
|
|
type
|
|
|
- TGnomeMDIChildViewCreator = TGtkWidget;
|
|
|
- TGnomeMDIChildMenuCreator = TGList;
|
|
|
- TGnomeMDIChildConfigFunc = gchar;
|
|
|
- TGnomeMDIChildLabelFunc = TGtkWidget;
|
|
|
+ TGnomeMDIChildViewCreator = Function : PGtkWidget; cdecl;
|
|
|
+ TGnomeMDIChildMenuCreator = Function : PGList; cdecl;
|
|
|
+ TGnomeMDIChildConfigFunc = Function : Pgchar; cdecl;
|
|
|
+ TGnomeMDIChildLabelFunc = Function : PGtkWidget; cdecl;
|
|
|
|
|
|
PGnomeMDIChild = ^TGnomeMDIChild;
|
|
|
TGnomeMDIChild = record
|
|
@@ -55,4 +55,4 @@ begin
|
|
|
GNOME_IS_MDI_CHILD_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_MDI_CHILD);
|
|
|
end;
|
|
|
|
|
|
-{$Endif read_implementation}
|
|
|
+{$Endif read_implementation}
|