|##########| |#MAGIC #|CLABLKKM |#PROJECT #|"IMPORTALL" |#PATHS #|"StdProject" |#FLAGS #|xx---x--x-x-xxx--x-------------- |#USERSW #|-------------------------------- |#USERMASK#|-------------------------------- |#SWITCHES#|xx---xxxxx------ |##########| DEFINITION MODULE T_Intuition IMPORT Exec; IMPORT Input; FROM Graphics IMPORT DrawModes, ViewModes; FROM Resources IMPORT ContextPtr; FROM Intuition IMPORT IntuiText, IntuiTextPtr, DrawModeSet, autoFrontPen, autoBackPen, autoDrawMode, autoLeftEdge, autoTopEdge, autoITextFont, autoNextText, BorderPtr, Border, DrawModeSet, ImagePtr, Image, GadgetPtr, PropInfoPtr, StringInfoPtr, GadgetFlags, GadgetFlagSet, ActivationFlags, ActivationFlagSet, gadgHighbits, gadgHNone, gadgHComp, GadgetType, GadgInfoPtr, GadgInfo, Gadget, boolMask, BoolInfo, PropInfoFlags, PropInfoFlagSet, knobVmin, knobHmin, maxBody, maxPot, PropInfo, BITSET, StringInfo, BorderGrp, ImageGrp, IntuiTextGrp, IDCMPFlags, IDCMPFlagSet, selectUp, selectDown, menuUp, menuDown, menuNull, noMenu, noItem, noSub, keyCodeQ, keyCodeX, keyCodeV, keyCodeB, keyCodeN, keyCodeM, cursorUp, cursorDown, cursorRight, cursorLeft, menuHot, menuCancel, menuWaiting, okOk, okAbort, okCancel, wbenchOpen, wbenchClose, altLeft, altRight, amigaLeft, amigaRight, amigaKeys, IntuiMessage, IntuiMessagePtr, ActivateWindow, ModifyIDCMP, MoveWindow, RefreshWindowFrame, SetWindowTitles, SizeWindow, WindowLimits, WindowToBack, WindowToFront, WindowFlags, WindowFlagSet, otherRefresh, NewWindow, Window, WindowPtr, IDCMPGrp, RastPortPtr, ActivateGadget, AddGadget, AddGList, ModifyProp, NewModifyProp, OffGadget, OnGadget, RefreshGadgets, RefreshGList, RemoveGadget, RemoveGList, ClearMenuStrip, ItemAddress, (*MenuNum,*) OffMenu, OnMenu, menuEnabled, miDrawn, Menu, MenuPtr, MenuItemPtr, MenuItemFlags, MenuItemFlagSet, highNone, checkWidth, commWidth, lowCheckWidth, lowCommWidth, MenuItem, LONGSET, AutoRequest, BuildSysRequest, ClearDMRequest, DisplayAlert, EndRequest, FreeSysRequest, InitRequester, Request, SetDMRequest, (*NewAlert,*) RequesterFlagSet, RequesterFlags, RequesterPtr, Requester, deadendAlert, recoveryAlert, CloseWorkbench, DisplayBeep, GetScreenData, MakeScreen, MoveScreen, OpenWorkbench, ScreenToBack, ScreenToFront, ShowTitle, WBenchToBack, WBenchToFront, ScreenFlags, ScreenFlagSet, stdScreenHeight, customScreen, NewScreen, ViewModeSet, Screen, ScreenPtr, ViewPortPtr, RastPortPtr, BitMap, BitMapPtr, ClearPointer, DrawBorder, DrawImage, IntuiTextLength, PrintIText, SetPointer, IntuiTextGrp, BorderGrp, ImageGrp, AllocRemember, FreeRemember, Remember, RememberPtr, BeginRefresh, EndRefresh, RemakeDisplay, RethinkDisplay, CurrentTime, DoubleClick, GetDefPrefs, GetPrefs, SetPrefs, filenameSize, topazSixty, PrinterPort, CustomName, AlphaP101, Brother15XL, CbmMps1000, Diab630, DiabAdvD25, DiabC150, Epson, EpsonJX80, Okimate20, QumeLP20, HpLaserjet, HpLaserjetPlus, SerParShk, SerParShkSet, Preferences, baud110, baud300, baud1200, baud2400, baud4800, baud9600, baud19200, baudMidi, pica, elite, fine, draft, letter, sixLPI, eightLPI, imagePositive, imageNegative, aspectHoriz, aspectVert, shadeGreyscale, shadeColor, usLetter, usLegal, nTractor, wTractor, custom, fanfold, single, readBits, writeBits, stopBits, bufSizeBits, buf512, buf1024, buf2048, buf4096, buf8000, buf16000, ViewAddress, ViewPortAddress, LockIBase, UnlockIBase, ReportMouse, IDCMPGrp, DisplayMode, dMountCode, eventMax, Res, resCount, Gadgets, gadgetCount, ILocks, numILocks, FatIntuiMessage, IBox, Point, PenPair, GadgetInfo, numIEvents, IntuitionBase, IntuitionBasePtr, IntuitionBaseType, pointerSize, topazEighty, shadeBW, WindowTags, ScreenTags; EXCEPTION WindowNotOpen : "Couldnīt open window"; NilPassed : "Nil passed to procedure"; ScreenNotOpen : "Screen couldnīt be opened"; GROUP IntuiTextGrp = IntuiText, IntuiTextPtr, DrawModeSet, DrawModes, autoFrontPen, autoBackPen, autoDrawMode, autoLeftEdge, autoTopEdge, autoITextFont, autoNextText; BorderGrp = BorderPtr, Border, DrawModeSet, DrawModes; ImageGrp = ImagePtr, Image; GadgetGrp = GadgetPtr, PropInfoPtr, StringInfoPtr, GadgetFlags, GadgetFlagSet, ActivationFlags, ActivationFlagSet, gadgHighbits, gadgHNone, gadgHComp, GadgetType, GadgInfoPtr, GadgInfo, Gadget, boolMask, BoolInfo, PropInfoFlags, PropInfoFlagSet, knobVmin, knobHmin, maxBody, maxPot, PropInfo, BITSET, StringInfo, BorderGrp, ImageGrp, IntuiTextGrp; IDCMPGrp = IDCMPFlags, IDCMPFlagSet, selectUp, selectDown, menuUp, menuDown, menuNull, noMenu, noItem, noSub, keyCodeQ, keyCodeX, keyCodeV, keyCodeB, keyCodeN, keyCodeM, cursorUp, cursorDown, cursorRight, cursorLeft, menuHot, menuCancel, menuWaiting, okOk, okAbort, okCancel, wbenchOpen, wbenchClose, altLeft, altRight, amigaLeft, amigaRight, amigaKeys, IntuiMessage, IntuiMessagePtr; PROCEDURE OpenWindow(REF newWindow : NewWindow; context : ContextPtr:=NIL ): WindowPtr; PROCEDURE OpenWindowTags(context : ContextPtr := NIL; tags : LIST OF WindowTags):WindowPtr; PROCEDURE CloseWindow(VAR window : WindowPtr); GROUP WindowGrp = OpenWindow, ActivateWindow, CloseWindow, ModifyIDCMP, MoveWindow, RefreshWindowFrame, SetWindowTitles, SizeWindow, WindowLimits, WindowToBack, WindowToFront, WindowFlags, WindowFlagSet, otherRefresh, (*superUnused,*) NewWindow, Window, WindowPtr, IDCMPGrp, RastPortPtr, WindowTags; GadgetProcGrp = ActivateGadget, AddGadget, AddGList, ModifyProp, NewModifyProp, OffGadget, OnGadget, RefreshGadgets, RefreshGList, RemoveGadget, RemoveGList; MenueGrp = ClearMenuStrip, ItemAddress, (*MenuNum,*) (*ItemNum,*) (*SubNum,*) OffMenu, OnMenu, (*MenuStrip,*) menuEnabled, miDrawn, Menu, MenuPtr, MenuItemPtr, MenuItemFlags, MenuItemFlagSet, highNone, checkWidth, commWidth, lowCheckWidth, lowCommWidth, MenuItem, LONGSET; ReqGrp = AutoRequest, BuildSysRequest, ClearDMRequest, DisplayAlert, EndRequest, FreeSysRequest, InitRequester, Request, SetDMRequest, (*NewAlert,*) RequesterFlagSet, RequesterFlags, RequesterPtr, Requester, deadendAlert, recoveryAlert; PROCEDURE OpenScreen(REF newScreen : NewScreen; context : ContextPtr := NIL):ScreenPtr; PROCEDURE OpenScreenTags(context : ContextPtr := NIL; tags : LIST OF ScreenTags):ScreenPtr; PROCEDURE CloseScreen(VAR screen : ScreenPtr); GROUP ScreenGrp = CloseScreen, CloseWorkbench, DisplayBeep, GetScreenData, MakeScreen, MoveScreen, OpenScreen, OpenWorkbench, ScreenToBack, ScreenToFront, ShowTitle, WBenchToBack, WBenchToFront, ScreenFlags, ScreenFlagSet, stdScreenHeight, customScreen, NewScreen, ViewModeSet, ViewModes, Screen, ScreenPtr, ViewPortPtr, RastPortPtr, BitMap, ScreenTags, BitMapPtr; GfxGrp = ClearPointer, DrawBorder, DrawImage, IntuiTextLength, PrintIText, SetPointer, IntuiTextGrp, BorderGrp, ImageGrp; MemGrp = AllocRemember, FreeRemember, Exec.MemReqSet, Exec.MemReqs, Remember, RememberPtr; RefreshGrp = BeginRefresh, EndRefresh, RemakeDisplay, RethinkDisplay; TimeGrp = CurrentTime, DoubleClick; PrefGrp = GetDefPrefs, GetPrefs, SetPrefs, filenameSize, pointerSize, topazEighty, topazSixty, PrinterPort, CustomName, AlphaP101, Brother15XL, CbmMps1000, Diab630, DiabAdvD25, DiabC150, Epson, EpsonJX80, Okimate20, QumeLP20, HpLaserjet, HpLaserjetPlus, SerParShk, SerParShkSet, Preferences, baud110, baud300, baud1200, baud2400, baud4800, baud9600, baud19200, baudMidi, pica, elite, fine, draft, letter, sixLPI, eightLPI, imagePositive, imageNegative, aspectHoriz, aspectVert, shadeBW, shadeGreyscale, shadeColor, usLetter, usLegal, nTractor, wTractor, custom, fanfold, single, readBits, writeBits, stopBits, bufSizeBits, buf512, buf1024, buf2048, buf4096, buf8000, buf16000; ViewGrp = ViewAddress, ViewPortAddress; LockGrp = LockIBase, UnlockIBase; IntuiIOGrp = ReportMouse, IDCMPGrp, Exec.MsgGrp, Input.EventGrp; All = IntuiTextGrp, BorderGrp, ImageGrp, GadgetGrp, IDCMPGrp, WindowGrp, GadgetProcGrp, MemGrp, GfxGrp, ReqGrp, MenueGrp, ReqGrp, GadgetProcGrp, MenueGrp, ScreenGrp, RefreshGrp, TimeGrp, PrefGrp, ViewGrp, LockGrp, IntuiIOGrp, DisplayMode, dMountCode, eventMax, Res, resCount, Gadgets, gadgetCount, ILocks, numILocks, FatIntuiMessage, IBox, Point, PenPair, GadgetInfo, numIEvents, IntuitionBase, IntuitionBasePtr, IntuitionBaseType; END T_Intuition.