Amiga ISO Collection/AmigaUtilCD2.iso/Programming/Pascal/MAXONPASCAL2.DMS/in.adf/INCLUDE/libraries/gadtools_Functions.h

Text File | 1994-07-25 | 705 b | 24 lines

{$if not def LIBRARIES_GADTOOLS_MACROS_H}CONST LIBRARIES_GADTOOLS_MACROS_H=0;

{ **********************************************************************
  ** KickPascal-Include-Datei "libraries/gadtools.h" zu Kickstart 3.0 **
  ** Ergänzung der Macros als Pascal FUNCTIONen                 by JS **
  ********************************************************************** }

{$if not def LIBRIRIES_GADTOOLS_H;incl "libraries/gadtools.h";endif}

Function GTMENU_USERDATA(m:p_Menu):Ptr;
Var p:^Ptr;
begin
 p:=Ptr(Long(m)+sizeof(Menu)+1);
 GTMENU_USERDATA:=p^
end;
Function GTMENUITEM_USERDATA(m:p_MenuItem):Ptr;
Var p:^Ptr;
begin
 p:=Ptr(Long(m)+sizeof(MenuItem)+1);
 GTMENUITEM_USERDATA:=p^;
end;

{$endif}