\ AMIGA JForth Include file. include? :struct ju:c_struct decimal EXISTS? INTUITION_INTUITIONBASE_H NOT .IF 1 constant INTUITION_INTUITIONBASE_H .THEN include? EXEC_TYPES_H ji:exec/types.j include? EXEC_LIBRARIES_H ji:exec/libraries.j include? INTUITION_INTUITION_H ji:intuition/intuition.j include? EXEC_INTERRUPTS_H ji:exec/interrupts.j EXISTS? INTUITIONPRIVATE .IF $ 0002 constant DMODECOUNT $ 0000 constant HIRESPICK $ 0001 constant LOWRESPICK 10 constant EVENTMAX 2 constant RESCOUNT 0 constant HIRESGADGET 1 constant LOWRESGADGET 8 constant GADGETCOUNT 0 constant UPFRONTGADGET 1 constant DOWNBACKGADGET 2 constant SIZEGADGET 3 constant CLOSEGADGET 4 constant DRAGGADGET 5 constant SUPFRONTGADGET 6 constant SDOWNBACKGADGET 7 constant SDRAGGADGET 0 constant ISTATELOCK 1 constant LAYERINFOLOCK 2 constant GADGETSLOCK 3 constant LAYERROMLOCK 4 constant VIEWLOCK 5 constant IBASELOCK 6 constant RPLOCK 7 constant NUMILOCKS :STRUCT FatIntuiMessage ( ???? bad field ) ULONG fim_PrevKeys ;STRUCT :STRUCT IBox SHORT ibx_Left SHORT ibx_Top SHORT ibx_Width SHORT ibx_Height ;STRUCT :STRUCT Point SHORT pnt_X SHORT pnt_Y ;STRUCT :STRUCT PenPair UBYTE pp_DetailPen UBYTE pp_BlockPen ;STRUCT :STRUCT GListEnv APTR ge_Screen APTR ge_Window APTR ge_Requester APTR ge_RastPort APTR ge_Layer APTR ge_GZZLayer STRUCT PenPair ge_Pens STRUCT IBox ge_Domain STRUCT IBox ge_GZZdims ;STRUCT :STRUCT GadgetInfo APTR gi_Environ APTR gi_Gadget STRUCT IBox gi_Box STRUCT IBox gi_Container APTR gi_Layer STRUCT IBox gi_NewKnob ;STRUCT .THEN :STRUCT IntuitionBase STRUCT Library ib_LibNode STRUCT View ib_ViewLord APTR ib_ActiveWindow APTR ib_ActiveScreen APTR ib_FirstScreen ULONG ib_Flags SHORT ib_MouseY SHORT ib_MouseX ULONG ib_Seconds ULONG ib_Micros EXISTS? INTUITIONPRIVATE .IF SHORT ib_MinXMouse SHORT ib_MaxXMouse SHORT ib_MinYMouse SHORT ib_MaxYMouse ULONG ib_StartSecs ULONG ib_StartMicros APTR ib_SysBase APTR ib_GfxBase APTR ib_LayersBase APTR ib_ConsoleDevice APTR ib_APointer BYTE ib_APtrHeight BYTE ib_APtrWidth BYTE ib_AXOffset BYTE ib_AYOffset USHORT ib_MenuDrawn USHORT ib_MenuSelected USHORT ib_OptionList STRUCT RastPort ib_MenuRPort STRUCT TmpRas ib_MenuTmpRas STRUCT ClipRect ib_ItemCRect STRUCT ClipRect ib_SubCRect STRUCT BitMap ib_IBitMap STRUCT BitMap ib_SBitMap STRUCT IOStdReq ib_InputRequest STRUCT Interrupt ib_InputInterrupt APTR ib_EventKey APTR ib_IEvents 4 constant NUM_IEVENTS SHORT ib_EventCount NUM_IEVENTS 2 * BYTES ib_IEBuffer APTR ib_ActiveGadget APTR ib_ActivePInfo APTR ib_ActiveImage STRUCT GListEnv ib_GadgetEnv STRUCT GadgetInfo ib_GadgetInfo STRUCT Point ib_KnobOffset APTR ib_getOKWindow APTR ib_getOKMessage USHORT ib_setWExcept USHORT ib_GadgetReturn USHORT ib_StateReturn APTR ib_RP STRUCT TmpRas ib_ITmpRas APTR ib_OldClipRegion STRUCT Point ib_OldScroll STRUCT IBox ib_IFrame SHORT ib_hthick SHORT ib_vthick APTR frameChange APTR sizeDrag STRUCT Point ib_FirstPt STRUCT Point ib_OldPt GADGETCOUNT RESCOUNT * 4 * BYTES ib_SysGadgets RESCOUNT 4 * BYTES ib_CheckImage RESCOUNT 4 * BYTES ib_AmigaIcon .THEN \ %? Forced .THEN to prevent nesting!!! EXISTS? OLDPATTERN .IF 3 2 * BYTES ib_apattern 4 2 * BYTES ib_bpattern .ELSE 8 2 * BYTES ib_apattern 4 2 * BYTES ib_bpattern .THEN EXISTS? INTUITIONPRIVATE .IF APTR ib_IPointer BYTE ib_IPtrHeight BYTE ib_IPtrWidth BYTE ib_IXOffset BYTE ib_IYOffset LONG ib_DoubleSeconds LONG ib_DoubleMicros DMODECOUNT BYTES ib_WBorLeft DMODECOUNT BYTES ib_WBorTop DMODECOUNT BYTES ib_WBorRight DMODECOUNT BYTES ib_WBorBottom DMODECOUNT BYTES ib_BarVBorder DMODECOUNT BYTES ib_BarHBorder DMODECOUNT BYTES ib_MenuVBorder DMODECOUNT BYTES ib_MenuHBorder USHORT ib_color0 USHORT ib_color1 USHORT ib_color2 USHORT ib_color3 USHORT ib_color17 USHORT ib_color18 USHORT ib_color19 STRUCT TextAttr ib_SysFont APTR ib_Preferences APTR ib_Echoes SHORT ib_ViewInitX SHORT ib_ViewInitY SHORT ib_CursorDX SHORT ib_CursorDY APTR ib_KeyMap SHORT ib_MouseYMinimum SHORT ib_ErrorX SHORT ib_ErrorY STRUCT timerequest ib_IOExcess SHORT ib_HoldMinYMouse APTR ib_WBPort APTR ib_iqd_FNKUHDPort STRUCT IntuiMessage ib_WBMessage APTR ib_HitScreen APTR ib_SimpleSprite APTR ib_AttachedSSprite SHORT ib_GotSprite1 STRUCT List ib_SemaphoreList \ NUMILOCKS 2 * BYTES ib_ISemaphore sizeof() SignalSemaphore NUMILOCKS * BYTES ISemaphore SHORT ib_MaxDisplayHeight SHORT ib_MaxDisplayRow SHORT ib_MaxDisplayWidth 7 4 * BYTES ib_Reserved .THEN ( %M ) ;STRUCT \ .THEN