home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 364b.lha / PCQ_v1.1 / Include / Intuition.i < prev    next >
Encoding:
Text File  |  1990-04-08  |  10.2 KB  |  415 lines
  1.  
  2. {
  3.     Intuition.i for PCQ Pascal
  4.  
  5.     This is some of the information you'll need to work with
  6. Intuition from PCQ.  I included most of the easy stuff having to do with
  7. windows and screens, but there is a lot more to go.
  8.     While we're at it, I'll mention that you do not need to open the
  9. Intuition library yourself.  The startup code needs the library and
  10. opens it, so these routines use that pointer.
  11. }
  12.  
  13. {$I "Include/Ports.i"}
  14.  
  15. const
  16.     SIZEVERIFY_f    = $0001;    { As the tag _f would incdicate,  }
  17.     NEWSIZE_f        = $0002;    { These are some of the Intuition }
  18.     REFRESHWINDOW_f    = $0004;    { flags.  I apologise for having  }
  19.     MOUSEBUTTONS_f    = $0008;    { to include that inconvenient    }
  20.     MOUSEMOVE_f        = $0010;    { little tag, but otherwise these }
  21.     GADGETDOWN_f    = $0020;    { get confused with Procedure and }
  22.     GADGETUP_f        = $0040;    { Function names.          }
  23.     REQSET_f        = $0080;
  24.     MENUPICK_f        = $0100;
  25.     CLOSEWINDOW_f    = $0200;
  26.     RAWKEY_f        = $0400;
  27.     REQVERIFY_f        = $0800;
  28.     REQCLEAR_f        = $1000;
  29.     MENUVERIFY_f    = $2000;
  30.     NEWPREFS_f        = $4000;
  31.     DISKINSERTED_f    = $8000;
  32.     DISKREMOVED_f    = $10000;
  33.     WBENCHMESSAGE_f    = $20000;
  34.     ACTIVEWINDOW_f    = $40000;
  35.     INACTIVEWINDOW_f    = $80000;
  36.     DELTAMOVE_f        = $100000;
  37.     VANILLAKEYS_f    = $200000;
  38.     INTUITICKS_f    = $400000;
  39.     LONELYMESSAGE_f    = $80000000;
  40.  
  41.     SCREENTYPE_f    = $00FF;
  42.     WBENCHSCREEN_f    = $0001;
  43.     CUSTOMSCREEN_f    = $000F;
  44.     SHOWTITLE_f        = $0010;
  45.     BEEPING_f        = $0020;
  46.     CUSTOMBITMAP_f    = $0040;
  47.  
  48.     WINDOWSIZING_f    = $0001;
  49.     WINDOWDRAG_f    = $0002;
  50.     WINDOWDEPTH_f    = $0004;
  51.     WINDOWCLOSE_f    = $0008;
  52.     SIZEBRIGHT_f    = $0010;
  53.     SIZEBBOTTOM_f    = $0020;
  54.     SMART_REFRESH_f    = 0;
  55.     SIMPLE_REFRESH_f    = $0040;
  56.     SUPER_BITMAP_f    = $0080;
  57.     OTHER_REFRESH_f    = $00c0;
  58.     BACKDROP_f        = $0100;
  59.     REPORTMOUSE_f    = $0200;
  60.     GIMMEZEROZERO_f    = $0400;
  61.     BORDERLESS_f    = $0800;
  62.     ACTIVATE_f        = $1000;
  63.  
  64.     SELECTUP        = $E8;
  65.     SELECTDOWN        = $68;
  66.     MENUUP        = $E9;
  67.     MENUDOWN        = $69;
  68.     ALTLEFT        = $10;
  69.     ALTRIGHT        = $20;
  70.     AMIGALEFT        = $40;
  71.     AMIGARIGHT        = $80;
  72.     AMIGAKEYS        = $C0;
  73.  
  74.     CURSORUP        = $4C;
  75.     CURSORLEFT        = $4F;
  76.     CURSORRIGHT        = $4E;
  77.     CURSORDOWN        = $4D;
  78.     KEYCODE_Q        = $10;
  79.     KEYCODE_X        = $32;
  80.     KEYCODE_N        = $36;
  81.     KEYCODE_M        = $37;
  82.     
  83. type
  84.  
  85.     IntuiMessage = record
  86.     ExecMessage : Message;
  87.     Class    : Integer;
  88.     Code    : Short;
  89.     Qualifier : Short;
  90.     IAddress : Address;
  91.     MouseX,
  92.     MouseY    : Short;
  93.     Seconds,
  94.     Micros    : Integer;
  95.     IDCMPWindow : Address;
  96.     SpecialLink : ^IntuiMessage;
  97.     end;
  98.     IntuiMessagePtr = ^IntuiMessage;
  99.  
  100.     IntuiText = record
  101.     FrontPen,
  102.     Backpen,
  103.     DrawMode,
  104.     KludgeFill  : Byte; { Kludge is just a reminder here }
  105.     LeftEdge,
  106.     TopEdge     : Short;
  107.     ITextFont   : Address;
  108.     IText       : String;
  109.     NextText    : ^IntuiText;
  110.     end;
  111.     IntuiTextPtr = ^IntuiText;
  112.  
  113.     Image = record
  114.     LeftEdge,
  115.     TopEdge,
  116.     Width,
  117.     Height,
  118.     Depth    : Short;
  119.     ImageData: Address;
  120.     PlanePick,
  121.     PlaneOnOff : Byte;
  122.     NextImage  : ^Image;
  123.     end;
  124.     ImagePtr = ^Image;
  125.  
  126.     Border = record
  127.     LeftEdge,
  128.     TopEdge    : Short;
  129.     FrontPen,
  130.     BackPen,
  131.     DrawMode,
  132.     Count    : Byte;
  133.     XY     : Address;
  134.     NextBorder : ^Border;
  135.     end;
  136.     BorderPtr = ^Border;
  137.  
  138.    { ItemFlags }
  139. const
  140.     { Flags set by the application }
  141.     CheckIt    = $0001;
  142.     ItemText    = $0002;
  143.     CommSeq    = $0004;
  144.     MenuToggle    = $0008;
  145.     ItemEnabled    = $0010;
  146.  
  147. { The special highlight flag state meanings }
  148.  
  149.     HighFlags    = $00C0;    { see definitions below }
  150.     HighImage    = $0000;    { use the "select image" }
  151.     HighComp    = $0040;    { complement the select box }
  152.     HighBox    = $0080;    { draw a box around select box to highlight }
  153.     HighNone    = $00C0;    { don't highlight }
  154.  
  155. { Flag set by both application and Intuition }
  156.  
  157.     Checked    = $0100;    { if CheckIt is set, then this => selected }
  158.  
  159. { Flags set by Intuition }
  160.  
  161.     IsDrawn    = $1000;    { this item's subitems are drawn }
  162.     HighItem    = $2000;    { this item is highlighted }
  163.     MenuToggled    = $4000;    { this item was already toggled }
  164.  
  165. type
  166.     MenuItem = record
  167.     NextItem    : ^MenuItem;
  168.     LeftEdge,
  169.     TopEdge,
  170.     Width,
  171.     Height        : Short;    { select box dimensions }
  172.     Flags        : Short;    { see constants above }
  173.     MutualExclude    : Integer;
  174.     ItemFill    : Address;    { Image, IntuiText, or Null }
  175.     SelectFill    : Address;    { Image, IntuiText, or Null }
  176.     Command        : Byte;        { if CommSeq is set }
  177.     SubItem        : ^MenuItem;
  178.     NextSelect    : Short;    { Menu # of next selected item }
  179.     end;
  180.     MenuItemPtr = ^MenuItem;
  181.  
  182.     Menu = record
  183.     NextMenu    : ^Menu;    { same level }
  184.     LeftEdge,            { position of the select box }
  185.     TopEdge,
  186.     Width,
  187.     Height        : Short;
  188.     Flags        : Short;    { see flags above }
  189.     MenuName    : String;    { text for menu header }
  190.     FirstItem    : MenuItemPtr;    { first item in chain }
  191.     JazzX,
  192.     JazzY,
  193.     BeatX,
  194.     BeatY        : Short;    { for internal use }
  195.     end;
  196.     MenuPtr = ^Menu;
  197.  
  198.     NewScreen = record
  199.     LeftEdge,
  200.     TopEdge,
  201.     Width,
  202.     Height,
  203.     Depth    : Short;
  204.     DetailPen,
  205.     BlockPen : Byte;
  206.     ViewModes : Short;
  207.     SType      : Short;    { Normally this is called 'Type', but }
  208.     Font      : Address;    { since that's a reserved word I had  }
  209.     DefaultTitle : String;    { change it                  }
  210.     Gadgets      : Address;
  211.     CustomBitMap : Address;
  212.     end;
  213.     NewScreenPtr = ^NewScreen;
  214.  
  215.     NewWindow = record
  216.     LeftEdge,
  217.     TopEdge,
  218.     Width,
  219.     Height        : Short;
  220.     DetailPen,
  221.     BlockPen    : Byte;
  222.     IDCMPFlags    : Integer;
  223.     Flags        : Integer;
  224.     FirstGadget    : Address;
  225.     CheckMark    : Address;
  226.     Title        : String;
  227.     Screen        : Address;
  228.     BitMap        : Address;
  229.     MinWidth,
  230.     MinHeight,
  231.     MaxWidth,
  232.     MaxHeight    : Short;
  233.     WType        : Short; { This also had to be changed }
  234.     end;
  235.     NewWindowPtr = ^NewWindow;
  236.  
  237.     Window = record
  238.     NextWindow    : ^Window;
  239.     LeftEdge,
  240.     TopEdge,
  241.     Width,
  242.     Height        : Short;
  243.     MouseY,
  244.     MouseX        : Short;
  245.     MinWidth,
  246.     MinHeight,
  247.     MaxWidth,
  248.     MaxHeight    : Short;
  249.     Flags        : Integer;
  250.     MenuStrip    : MenuPtr;
  251.     Title        : String;
  252.     FirstRequest    : Address;
  253.     DMRequest    : Address;
  254.     ReqCount    : Short;
  255.     WScreen        : Address;
  256.     RPort        : Address;
  257.     BorderLeft,
  258.     BorderTop,
  259.     BorderRight,
  260.     BorderBottom    : Byte;
  261.     BorderRPort    : Address;
  262.     FirstGadget    : Address;
  263.     Parent,
  264.     Descendant    : ^Window;
  265.     Pointer        : Address;
  266.     PtrHeight,
  267.     PtrWidth    : Byte;
  268.     XOffset,
  269.     YOffset        : Byte;
  270.     IDCMPFlags    : Integer;
  271.     UserPort,
  272.     WindowPort    : MsgPortPtr;
  273.     MessageKey    : Address;
  274.     DetailPen,
  275.     BlockPen    : Byte;
  276.     CheckMark    : Address;
  277.     ScreenTitle    : String;
  278.     GZZMouseX,
  279.     GZZMouseY,
  280.     GZZWidth,
  281.     GZZHeight    : Short;
  282.     ExtData        : Address;
  283.     UserData    : Integer;
  284.     WLayer        : Address;
  285.     IFont        : Address;
  286.     end;
  287.     WindowPtr = ^Window;
  288.  
  289.  
  290. Function AddGadget(w : WindowPtr; g : Address; p : Integer) : Integer;
  291.     External;
  292. Function AllocRemember(r : Address; s, f : Integer) : Address;
  293.     External;
  294. Function AutoRequest(w : WindowPtr; b, p, n : IntuiTextPtr;
  295.             pf, nf, x, y : Integer) : Boolean;
  296.     External;
  297. Procedure BeginRefresh(w : WindowPtr);
  298.     External;
  299. Function BuildSysRequest(w : WindowPtr; b, p, n : IntuiTextPtr;
  300.             f, x, y : Integer) : Address;
  301.     External;
  302. Function ClearDMRequest(w : WindowPtr) : Boolean;
  303.     External;
  304. Procedure ClearMenuStrip(w : WindowPtr);
  305.     External;
  306. Procedure ClearPointer(w : WindowPtr);
  307.     External;
  308. Procedure CloseScreen(s : Address);
  309.     External;
  310. Procedure CloseWindow(w : WindowPtr);
  311.     External;
  312. Function CloseWorkBench() : Boolean;
  313.     External;
  314. Procedure CurrentTime(var s, m : Integer);
  315.     External;
  316. { Note the use of VAR above to do the same work as the & (address)
  317.   prefix in C. }
  318. Function DisplayAlert(n : Integer; s: String; h: Integer): Boolean;
  319.     External;
  320. Procedure DisplayBeep(s : Address);
  321.     External;
  322. Function DoubleClick(ss, sm, cs, cm : Integer) : Boolean;
  323.     External;
  324. Procedure DrawBorder(r : Address; b : BorderPtr; x, y : Integer);
  325.     External;
  326. Procedure DrawImage(r : Address; i : ImagePtr; x, y : Integer);
  327.     External;
  328. Procedure EndRefresh(w : WindowPtr; c : Boolean);
  329.     External;
  330. Procedure EndRequest(r : Address; w : WindowPtr);
  331.     External;
  332. Procedure FreeRemember(k : Address; r : Boolean);
  333.     External;
  334. Procedure FreeSysRequest(w : WindowPtr);
  335.     External;
  336. Function GetDefPrefs(p : Address; s : Integer) : Address;
  337.     External;
  338. Function GetPrefs(p : Address; s : Integer) : Address;
  339.     External;
  340. Procedure InitRequester(r : Address);
  341.     External;
  342. Function IntuiTextLength(i : IntuiTextPtr) : Integer;
  343.     External;
  344. Function ItemAddress(m : MenuPtr; n : Integer) : MenuItemPtr;
  345.     External;
  346. Procedure MakeScreen(s : Address);
  347.     External;
  348. Procedure ModifyIDCMP(w : WindowPtr; i : Integer);
  349.     External;
  350. Procedure ModifyProp(p : Address; w : WindowPtr; r : Address;
  351.             f, hp, vp, hb, vb : Integer);
  352.     External;
  353. Procedure MoveScreen(s : Address; x, y : Integer);
  354.     External;
  355. Procedure MoveWindow(w : WindowPtr; x, y : Integer);
  356.     External;
  357. Procedure OffGadget(g : Address; w : WindowPtr; r : Address);
  358.     External;
  359. Procedure OffMenu(w : WindowPtr; n : Integer);
  360.     External;
  361. Procedure OnGadget(g : Address; w : WindowPtr; r : Address);
  362.     External;
  363. Procedure OnMenu(w : WindowPtr; n : Integer);
  364.     External;
  365. Function OpenScreen(ns : NewScreenPtr) : Address;
  366.     External;
  367. Function OpenWindow(nw : NewWindowPtr): WindowPtr;
  368.     External;
  369. Function OpenWorkBench() : Boolean;
  370.     External;
  371. Procedure PrintIText(r : Address; i : IntuiTextPtr; x, y : Integer);
  372.     External;
  373. Procedure RefreshGadgets(g : Address; w : WindowPtr; r : Address);
  374.     External;
  375. Procedure RemakeDisplay;
  376.     External;
  377. Function RemoveGadget(w : WindowPtr; g : Address) : Integer;
  378.     External;
  379. Procedure ReportMouse(w : WindowPtr; b : Boolean);
  380.     External;
  381. Function Request(r : Address; w : WindowPtr) : Boolean;
  382.     External;
  383. Procedure RethinkDisplay;
  384.     External;
  385. Procedure ScreenToBack(s : Address);
  386.     External;
  387. Procedure ScreenToFront(s : Address);
  388.     External;
  389. Function SetDMRequest(w : WindowPtr; r : Address) : Boolean;
  390.     External;
  391. Procedure SetMenuStrip(w : WindowPtr; m : MenuPtr);
  392.     External;
  393. Procedure SetPointer(w : WindowPtr; p : Address; ys, xs, xo, yo : Integer);
  394.     External;
  395. Procedure SetWindowTitles(w : WindowPtr; t, s : String);
  396.     External;
  397. Procedure ShowTitle(s : Address; b : Boolean);
  398.     External;
  399. Procedure SizeWindow(w : WindowPtr; x, y : Integer);
  400.     External;
  401. Function ViewAddress() : Address;
  402.     External;
  403. Function ViewPortAddress(w : WindowPtr): Address;
  404.     External;
  405. Procedure WBenchToBack;
  406.     External;
  407. Procedure WBenchToFront;
  408.     External;
  409. Function WindowLimits(w : WindowPtr; mx, my, nx, ny : Integer): Boolean;
  410.     External;
  411. Procedure WindowToBack(w : WindowPtr);
  412.     External;
  413. Procedure WindowToFront(w : WindowPtr);
  414.     External;
  415.