paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* the win32 port supports the item factory as well

Browse Source
This commit is contained in:
florian 2000-12-07 09:25:15 +00:00
parent 9021994920
commit 32eaf705ca
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/gtk/gtk/gtkitemfactory.pp
View File

@ -72,7 +72,6 @@ type
GTK_ITEM_FACTORY=TGtkItemFactory;
GTK_ITEM_FACTORY_CLASS=TGtkItemFactoryClass;
{$ifndef gtkwin}
function GTK_ITEM_FACTORY_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_item_factory_get_type';
function GTK_IS_ITEM_FACTORY(obj:pointer):boolean;
function GTK_IS_ITEM_FACTORY_CLASS(klass:pointer):boolean;
@ -107,7 +106,6 @@ function gtk_item_factory_from_path(path:Pgchar):PGtkItemFactory;cdecl;external
procedure gtk_item_factory_create_menu_entries(n_entries:guint; entries:PGtkMenuEntry);cdecl;external gtkdll name 'gtk_item_factory_create_menu_entries';
procedure gtk_item_factories_path_delete(ifactory_path:Pgchar; path:Pgchar);cdecl;external gtkdll name 'gtk_item_factories_path_delete';
procedure gtk_item_factory_create_items_ac(ifactory:PGtkItemFactory; n_entries:guint; entries:PGtkItemFactoryEntry; callback_data:gpointer; callback_type:guint);cdecl;external gtkdll name 'gtk_item_factory_create_items_ac';
{$endif}
{$endif read_interface}
@ -138,8 +136,6 @@ procedure set_in_propagation(var a : TGtkItemFactoryItem; __in_propagation : gui
a.flag0:=a.flag0 or ((__in_propagation shl bp_TGtkItemFactoryItem_in_propagation) and bm_TGtkItemFactoryItem_in_propagation);
end;
{$ifndef gtkwin}
function GTK_IS_ITEM_FACTORY(obj:pointer):boolean;
begin
GTK_IS_ITEM_FACTORY:=(obj<>nil) and GTK_IS_ITEM_FACTORY_CLASS(PGtkTypeObject(obj)^.klass);
@ -150,17 +146,17 @@ begin
GTK_IS_ITEM_FACTORY_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ITEM_FACTORY_TYPE);
end;
{$endif}
{$endif read_implementation}
{
$Log$
Revision 1.3 2000-09-09 18:41:39 peter
Revision 1.4 2000-12-07 09:25:15 florian
* the win32 port supports the item factory as well
Revision 1.3 2000/09/09 18:41:39 peter
* fixes for gtk win32
Revision 1.2 2000/07/13 11:33:22 michael
+ removed logs
+ removed logs
}