home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / T_Intuition.def < prev    next >
Text File  |  1994-05-25  |  15KB  |  277 lines
  1. |##########|
  2. |#MAGIC   #|CLABLKKM
  3. |#PROJECT #|"IMPORTALL"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x-x-xxx--x--------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE T_Intuition
  11.  
  12. IMPORT Exec;
  13. IMPORT Input;
  14.  
  15. FROM Graphics  IMPORT DrawModes, ViewModes;
  16.  
  17. FROM Resources IMPORT ContextPtr;
  18.  
  19. FROM Intuition IMPORT
  20.                   IntuiText,          IntuiTextPtr,       DrawModeSet,
  21.                   autoFrontPen,       autoBackPen,        autoDrawMode,
  22.                   autoLeftEdge,       autoTopEdge,        autoITextFont,
  23.                   autoNextText,       BorderPtr,          Border,
  24.                   DrawModeSet,        ImagePtr,           Image,
  25.                   GadgetPtr,          PropInfoPtr,        StringInfoPtr,
  26.                   GadgetFlags,        GadgetFlagSet,      ActivationFlags,
  27.                   ActivationFlagSet,  gadgHighbits,       gadgHNone,
  28.                   gadgHComp,          GadgetType,
  29.                   GadgInfoPtr,        GadgInfo,           Gadget,
  30.                   boolMask,           BoolInfo,           PropInfoFlags,
  31.                   PropInfoFlagSet,    knobVmin,           knobHmin,
  32.                   maxBody,            maxPot,             PropInfo,
  33.                   BITSET,             StringInfo,         BorderGrp,
  34.                   ImageGrp,           IntuiTextGrp,       IDCMPFlags,
  35.                   IDCMPFlagSet,       selectUp,           selectDown,
  36.                   menuUp,             menuDown,           menuNull,
  37.                   noMenu,             noItem,             noSub,
  38.                   keyCodeQ,           keyCodeX,           keyCodeV,
  39.                   keyCodeB,           keyCodeN,           keyCodeM,
  40.                   cursorUp,           cursorDown,         cursorRight,
  41.                   cursorLeft,         menuHot,            menuCancel,
  42.                   menuWaiting,        okOk,               okAbort,
  43.                   okCancel,           wbenchOpen,         wbenchClose,
  44.                   altLeft,            altRight,           amigaLeft,
  45.                   amigaRight,         amigaKeys,          IntuiMessage,
  46.                   IntuiMessagePtr,    ActivateWindow,     ModifyIDCMP,
  47.                   MoveWindow,         RefreshWindowFrame, SetWindowTitles,
  48.                   SizeWindow,         WindowLimits,       WindowToBack,
  49.                   WindowToFront,      WindowFlags,        WindowFlagSet,
  50.                   otherRefresh,       NewWindow,
  51.                   Window,             WindowPtr,          IDCMPGrp,
  52.                   RastPortPtr,        ActivateGadget,     AddGadget,
  53.                   AddGList,           ModifyProp,         NewModifyProp,
  54.                   OffGadget,          OnGadget,           RefreshGadgets,
  55.                   RefreshGList,       RemoveGadget,       RemoveGList,
  56.                   ClearMenuStrip,     ItemAddress,        (*MenuNum,*)
  57.                   OffMenu,
  58.                   OnMenu,             menuEnabled,
  59.                   miDrawn,            Menu,               MenuPtr,
  60.                   MenuItemPtr,        MenuItemFlags,      MenuItemFlagSet,
  61.                   highNone,           checkWidth,         commWidth,
  62.                   lowCheckWidth,      lowCommWidth,       MenuItem,
  63.                   LONGSET,            AutoRequest,        BuildSysRequest,
  64.                   ClearDMRequest,     DisplayAlert,       EndRequest,
  65.                   FreeSysRequest,     InitRequester,      Request,
  66.                   SetDMRequest,       (*NewAlert,*)       RequesterFlagSet,
  67.                   RequesterFlags,     RequesterPtr,       Requester,
  68.                   deadendAlert,       recoveryAlert,
  69.                   CloseWorkbench,     DisplayBeep,        GetScreenData,
  70.                   MakeScreen,         MoveScreen,         OpenWorkbench,
  71.                   ScreenToBack,       ScreenToFront,      ShowTitle,
  72.                   WBenchToBack,       WBenchToFront,      ScreenFlags,
  73.                   ScreenFlagSet,      stdScreenHeight,    customScreen,
  74.                   NewScreen,          ViewModeSet,        Screen,
  75.                   ScreenPtr,          ViewPortPtr,        RastPortPtr,
  76.                   BitMap,             BitMapPtr,          ClearPointer,
  77.                   DrawBorder,         DrawImage,          IntuiTextLength,
  78.                   PrintIText,         SetPointer,         IntuiTextGrp,
  79.                   BorderGrp,          ImageGrp,           AllocRemember,
  80.                   FreeRemember,       Remember,           RememberPtr,
  81.                   BeginRefresh,       EndRefresh,         RemakeDisplay,
  82.                   RethinkDisplay,     CurrentTime,        DoubleClick,
  83.                   GetDefPrefs,        GetPrefs,           SetPrefs,
  84.                   filenameSize,       topazSixty,         PrinterPort,
  85.                   CustomName,         AlphaP101,          Brother15XL,
  86.                   CbmMps1000,         Diab630,            DiabAdvD25,
  87.                   DiabC150,           Epson,              EpsonJX80,
  88.                   Okimate20,          QumeLP20,           HpLaserjet,
  89.                   HpLaserjetPlus,     SerParShk,          SerParShkSet,
  90.                   Preferences,        baud110,            baud300,
  91.                   baud1200,           baud2400,           baud4800,
  92.                   baud9600,           baud19200,          baudMidi,
  93.                   pica,               elite,              fine,
  94.                   draft,              letter,             sixLPI,
  95.                   eightLPI,           imagePositive,      imageNegative,
  96.                   aspectHoriz,        aspectVert,         shadeGreyscale,
  97.                   shadeColor,         usLetter,           usLegal,
  98.                   nTractor,           wTractor,           custom,
  99.                   fanfold,            single,             readBits,
  100.                   writeBits,          stopBits,           bufSizeBits,
  101.                   buf512,             buf1024,            buf2048,
  102.                   buf4096,            buf8000,            buf16000,
  103.                   ViewAddress,        ViewPortAddress,    LockIBase,
  104.                   UnlockIBase,        ReportMouse,        IDCMPGrp,
  105.                   DisplayMode,        dMountCode,         eventMax,
  106.                   Res,                resCount,           Gadgets,
  107.                   gadgetCount,        ILocks,             numILocks,
  108.                   FatIntuiMessage,    IBox,               Point,
  109.                   PenPair,
  110.                   GadgetInfo,         numIEvents,         IntuitionBase,
  111.                   IntuitionBasePtr,   IntuitionBaseType,  pointerSize,
  112.                   topazEighty,                            shadeBW,
  113.                   WindowTags,         ScreenTags;
  114.  
  115.  
  116. EXCEPTION
  117.   WindowNotOpen   : "Couldn´t open window";
  118.   NilPassed       : "Nil passed to procedure";
  119.   ScreenNotOpen   : "Screen couldn´t be opened";
  120.  
  121. GROUP
  122.   IntuiTextGrp  = IntuiText,          IntuiTextPtr,       DrawModeSet,
  123.                   DrawModes,          autoFrontPen,       autoBackPen,
  124.                   autoDrawMode,       autoLeftEdge,       autoTopEdge,
  125.                   autoITextFont,      autoNextText;
  126.  
  127.   BorderGrp     = BorderPtr,          Border,             DrawModeSet,
  128.                   DrawModes;
  129.  
  130.   ImageGrp      = ImagePtr,           Image;
  131.  
  132.   GadgetGrp     = GadgetPtr,          PropInfoPtr,        StringInfoPtr,
  133.                   GadgetFlags,        GadgetFlagSet,      ActivationFlags,
  134.                   ActivationFlagSet,  gadgHighbits,       gadgHNone,
  135.                   gadgHComp,          GadgetType,
  136.                   GadgInfoPtr,        GadgInfo,           Gadget,
  137.                   boolMask,           BoolInfo,           PropInfoFlags,
  138.                   PropInfoFlagSet,    knobVmin,           knobHmin,
  139.                   maxBody,            maxPot,             PropInfo,
  140.                   BITSET,             StringInfo,         BorderGrp,
  141.                   ImageGrp,           IntuiTextGrp;
  142.  
  143.   IDCMPGrp      = IDCMPFlags,         IDCMPFlagSet,       selectUp,
  144.                   selectDown,         menuUp,             menuDown,
  145.                   menuNull,           noMenu,             noItem,
  146.                   noSub,              keyCodeQ,           keyCodeX,
  147.                   keyCodeV,           keyCodeB,           keyCodeN,
  148.                   keyCodeM,           cursorUp,           cursorDown,
  149.                   cursorRight,        cursorLeft,         menuHot,
  150.                   menuCancel,         menuWaiting,        okOk,
  151.                   okAbort,            okCancel,           wbenchOpen,
  152.                   wbenchClose,        altLeft,            altRight,
  153.                   amigaLeft,          amigaRight,         amigaKeys,
  154.                   IntuiMessage,       IntuiMessagePtr;
  155.  
  156.  
  157. PROCEDURE OpenWindow(REF newWindow : NewWindow;
  158.                          context   : ContextPtr:=NIL ): WindowPtr;
  159.  
  160. PROCEDURE OpenWindowTags(context : ContextPtr := NIL;
  161.                          tags    : LIST OF WindowTags):WindowPtr;
  162.  
  163. PROCEDURE CloseWindow(VAR window : WindowPtr);
  164.  
  165.  
  166. GROUP
  167.   WindowGrp     = OpenWindow,         ActivateWindow,     CloseWindow,
  168.                   ModifyIDCMP,        MoveWindow,         RefreshWindowFrame,
  169.                   SetWindowTitles,    SizeWindow,         WindowLimits,
  170.                   WindowToBack,       WindowToFront,      WindowFlags,
  171.                   WindowFlagSet,      otherRefresh,       (*superUnused,*)
  172.                   NewWindow,          Window,             WindowPtr,
  173.                   IDCMPGrp,           RastPortPtr,        WindowTags;
  174.  
  175.  
  176.   GadgetProcGrp = ActivateGadget,     AddGadget,          AddGList,
  177.                   ModifyProp,         NewModifyProp,      OffGadget,
  178.                   OnGadget,           RefreshGadgets,     RefreshGList,
  179.                   RemoveGadget,                           RemoveGList;
  180.  
  181.  
  182.   MenueGrp      = ClearMenuStrip,     ItemAddress,        (*MenuNum,*)
  183.                   (*ItemNum,*)        (*SubNum,*)         OffMenu,
  184.                   OnMenu,             (*MenuStrip,*)      menuEnabled,
  185.                   miDrawn,            Menu,               MenuPtr,
  186.                   MenuItemPtr,        MenuItemFlags,      MenuItemFlagSet,
  187.                   highNone,           checkWidth,         commWidth,
  188.                   lowCheckWidth,      lowCommWidth,       MenuItem,
  189.                   LONGSET;
  190.  
  191.   ReqGrp        = AutoRequest,        BuildSysRequest,    ClearDMRequest,
  192.                   DisplayAlert,       EndRequest,         FreeSysRequest,
  193.                   InitRequester,      Request,            SetDMRequest,
  194.                   (*NewAlert,*)       RequesterFlagSet,   RequesterFlags,
  195.                   RequesterPtr,       Requester,
  196.                   deadendAlert,                           recoveryAlert;
  197.  
  198. PROCEDURE OpenScreen(REF newScreen : NewScreen;
  199.                          context   : ContextPtr := NIL):ScreenPtr;
  200.  
  201. PROCEDURE OpenScreenTags(context   : ContextPtr := NIL;
  202.                          tags      : LIST OF ScreenTags):ScreenPtr;
  203.  
  204. PROCEDURE CloseScreen(VAR screen : ScreenPtr);
  205.  
  206.  
  207. GROUP
  208.  
  209.   ScreenGrp     = CloseScreen,        CloseWorkbench,     DisplayBeep,
  210.                   GetScreenData,      MakeScreen,         MoveScreen,
  211.                   OpenScreen,         OpenWorkbench,      ScreenToBack,
  212.                   ScreenToFront,      ShowTitle,          WBenchToBack,
  213.                   WBenchToFront,      ScreenFlags,        ScreenFlagSet,
  214.                   stdScreenHeight,    customScreen,       NewScreen,
  215.                   ViewModeSet,        ViewModes,          Screen,
  216.                   ScreenPtr,          ViewPortPtr,        RastPortPtr,
  217.                   BitMap,             ScreenTags,         BitMapPtr;
  218.  
  219.   GfxGrp        = ClearPointer,       DrawBorder,         DrawImage,
  220.                   IntuiTextLength,    PrintIText,         SetPointer,
  221.                   IntuiTextGrp,       BorderGrp,          ImageGrp;
  222.  
  223.   MemGrp        = AllocRemember,      FreeRemember,       Exec.MemReqSet,
  224.                   Exec.MemReqs,       Remember,           RememberPtr;
  225.  
  226.   RefreshGrp    = BeginRefresh,       EndRefresh,         RemakeDisplay,
  227.                   RethinkDisplay;
  228.  
  229.   TimeGrp       = CurrentTime,        DoubleClick;
  230.  
  231.   PrefGrp       = GetDefPrefs,        GetPrefs,           SetPrefs,
  232.                   filenameSize,       pointerSize,        topazEighty,
  233.                   topazSixty,         PrinterPort,        CustomName,
  234.                   AlphaP101,          Brother15XL,        CbmMps1000,
  235.                   Diab630,            DiabAdvD25,         DiabC150,
  236.                   Epson,              EpsonJX80,          Okimate20,
  237.                   QumeLP20,           HpLaserjet,         HpLaserjetPlus,
  238.                   SerParShk,          SerParShkSet,       Preferences,
  239.                   baud110,            baud300,            baud1200,
  240.                   baud2400,           baud4800,           baud9600,
  241.                   baud19200,          baudMidi,           pica,
  242.                   elite,              fine,               draft,
  243.                   letter,             sixLPI,             eightLPI,
  244.                   imagePositive,      imageNegative,      aspectHoriz,
  245.                   aspectVert,         shadeBW,            shadeGreyscale,
  246.                   shadeColor,         usLetter,           usLegal,
  247.                   nTractor,           wTractor,           custom,
  248.                   fanfold,            single,             readBits,
  249.                   writeBits,          stopBits,           bufSizeBits,
  250.                   buf512,             buf1024,            buf2048,
  251.                   buf4096,            buf8000,            buf16000;
  252.  
  253.   ViewGrp       = ViewAddress,        ViewPortAddress;
  254.  
  255.   LockGrp       = LockIBase,          UnlockIBase;
  256.  
  257.   IntuiIOGrp    = ReportMouse,        IDCMPGrp,           Exec.MsgGrp,
  258.                   Input.EventGrp;
  259.  
  260.  
  261.   All           = IntuiTextGrp,       BorderGrp,          ImageGrp,
  262.                   GadgetGrp,          IDCMPGrp,           WindowGrp,
  263.                   GadgetProcGrp,      MemGrp,             GfxGrp,
  264.                   ReqGrp,             MenueGrp,           ReqGrp,
  265.                   GadgetProcGrp,      MenueGrp,           ScreenGrp,
  266.                   RefreshGrp,         TimeGrp,            PrefGrp,
  267.                   ViewGrp,            LockGrp,            IntuiIOGrp,
  268.                   DisplayMode,        dMountCode,         eventMax,
  269.                   Res,                resCount,           Gadgets,
  270.                   gadgetCount,        ILocks,             numILocks,
  271.                   FatIntuiMessage,    IBox,               Point,
  272.                   PenPair,
  273.                   GadgetInfo,         numIEvents,         IntuitionBase,
  274.                   IntuitionBasePtr,                       IntuitionBaseType;
  275.  
  276. END T_Intuition.
  277.