home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / dev / asm / tbsource / questions / versions / 0.99d / qv99d.lzh / Questions2.0.i < prev    next >
Encoding:
Text File  |  1991-09-22  |  16.2 KB  |  498 lines
  1. ;
  2. ;Here are the 2.0 stuff needed
  3. ;
  4.  
  5.         INCLUDE    "FH1:Language/Include2.0/GadTools.xref"
  6.         INCLUDE    "FH1:Language/Include2.0/Intuition.xref"
  7.  
  8. UTILITY_TAGITEM_I SET    1    ;No errors thanks
  9.  
  10. ZOOMED        EQU $10000000    ; identifies "zoom state"
  11.  
  12. ;utility/tagitem.i
  13.  
  14.  
  15. ; =======================================================================
  16. ; ====    TagItem    ==========================================================
  17. ; =======================================================================
  18. ; This data type may propagate through the system for more general use.
  19. ; In the meantime, it is used as a general mechanism of extensible data
  20. ; arrays for parameter specification and property inquiry (coming soon
  21. ; to a display controller near you).
  22. ; 
  23. ; In practice, an array (or chain of arrays) of TagItems is used.
  24.  
  25.  STRUCTURE    TagItem,0
  26.     ULONG    ti_Tag        ; identifies the type of this item
  27.     ULONG    ti_Data        ; type-specific data, can be a pointer
  28.     LABEL    ti_SIZEOF
  29.  
  30. ; ----    system tag values -----------------------------
  31. TAG_DONE   EQU    0    ; terminates array of TagItems. ti_Data unused
  32. TAG_IGNORE EQU    1    ; ignore this item, not end of array
  33. TAG_MORE   EQU    2    ; ti_Data is pointer to another array of TagItems
  34.             ; note that this tag terminates the current array
  35.  
  36. ; ----    user tag identification -----------------------
  37. TAG_USER  EQU    $80000000    ; differentiates user tags from system tags
  38.  
  39. ; until further notice, tag bits 16-30 are RESERVED and should be zero.
  40. ; Also, the value (TAG_USER | 0) should never be used as a tag value.
  41.  
  42.  
  43. ;exec/types.i
  44.  
  45. **
  46. ** Enumerated variables.  Use ENUM to set a base number, and EITEM to assign
  47. ** incrementing values.  ENUM can be used to set a new base at any time.
  48. **
  49. ENUM        MACRO   ;[new base]
  50.         IFC     '\1',''
  51. EOFFSET        SET        0        ; Default to zero
  52.         ENDC
  53.         IFNC    '\1',''
  54. EOFFSET        SET     \1
  55.         ENDC
  56.         ENDM
  57.  
  58. EITEM        MACRO   ;label
  59. \1        EQU     EOFFSET
  60. EOFFSET     SET     EOFFSET+1
  61.         ENDM
  62.  
  63.  
  64. ;Intuition/intuition.i
  65. ;Window stuff
  66.  
  67.     ENUM TAG_USER+100
  68.  
  69.     ; these tags simply override NewWindow parameters
  70.     EITEM WA_Left
  71.     EITEM WA_Top
  72.     EITEM WA_Width
  73.     EITEM WA_Height
  74.     EITEM WA_DetailPen
  75.     EITEM WA_BlockPen
  76.     EITEM WA_IDCMP
  77.     EITEM WA_Flags    ; not implemented at present
  78.     EITEM WA_Gadgets
  79.     EITEM WA_Checkmark
  80.     EITEM WA_Title
  81.     EITEM WA_ScreenTitle    ; means you don't have to call SetWindowTitles
  82.                  ; after you open your window
  83.  
  84.     EITEM WA_CustomScreen
  85.     EITEM WA_SuperBitMap    ; also implies SUPER_BITMAP property
  86.     EITEM WA_MinWidth
  87.     EITEM WA_MinHeight
  88.     EITEM WA_MaxWidth
  89.     EITEM WA_MaxHeight
  90.  
  91.     ; The following are specifications for new features
  92.  
  93.     EITEM WA_InnerWidth
  94.     EITEM WA_InnerHeight ; You can specify the dimensions of the interior
  95.              ; region of your window, independent of what
  96.              ; the border widths will be.  These are
  97.              ; *supposed* to imply the EITEM WA_AutoAdjust property,
  98.              ; but there is a bug report that says they don't.
  99.  
  100.  
  101.     EITEM WA_PubScreenName    ; declares that you want the window to open as
  102.              ; a visitor on the public screen whose name is
  103.              ; pointed to by (UBYTE *) ti_Data
  104.  
  105.     EITEM WA_PubScreen    ; open as a visitor window on the public screen
  106.             ; whose address is in (struct Screen *) ti_Data.
  107.             ; To insure that this screen remains open, you
  108.             ; should either be the screen's owner, have a
  109.             ; window open on the screen, or use LockPubScreen().
  110.  
  111.     EITEM WA_PubScreenFallBack    ; A Boolean, specifies whether a visitor window
  112.              ; should "fall back" to the default public screen
  113.              ; (or Workbench) if the named public screen isn't
  114.              ; available
  115.  
  116.     EITEM WA_WindowName    ; not implemented
  117.     EITEM WA_Colors    ; a ColorSpec array for colors to be set
  118.             ; when this window is active.  This is not
  119.             ; implemented, and may not be, since the default
  120.             ; values to restore would be hard to track.
  121.             ; We'd like to at least support per-window colors
  122.             ; for the mouse pointer sprite.
  123.  
  124.     EITEM WA_Zoom    ; ti_Data points to an array of four WORD's,
  125.             ; the initial Left/Top/Width/Height values of
  126.             ; the "alternate" zoom position/dimensions.
  127.             ; It also specifies that you want a Zoom gadget
  128.             ; for your window, whether or not you have a
  129.             ; sizing gadget.
  130.  
  131.     EITEM WA_MouseQueue    ; ti_Data contains initial value for the mouse
  132.             ; message backlog limit for this window.
  133.  
  134.     EITEM WA_BackFill    ; unimplemented at present: provides a "backfill
  135.             ; hook" for your window's layer.
  136.  
  137.     EITEM WA_RptQueue    ; initial value of repeat key backlog limit
  138.  
  139.     ; These Boolean tag items are alternatives to the NewWindow.Flags
  140.     ; boolean flags with similar names.
  141.  
  142.     EITEM WA_SizeGadget
  143.     EITEM WA_DragBar
  144.     EITEM WA_DepthGadget
  145.     EITEM WA_CloseGadget
  146.     EITEM WA_Backdrop
  147.     EITEM WA_ReportMouse
  148.     EITEM WA_NoCareRefresh
  149.     EITEM WA_Borderless
  150.     EITEM WA_Activate
  151.     EITEM WA_RMBTrap
  152.     EITEM WA_WBenchWindow    ; PRIVATE!!
  153.     EITEM WA_SimpleRefresh    ; only specify if TRUE
  154.     EITEM WA_SmartRefresh    ; only specify if TRUE
  155.     EITEM WA_SizeBRight
  156.     EITEM WA_SizeBBottom
  157.  
  158.     ; New Boolean properties
  159.     EITEM WA_AutoAdjust    ; shift or squeeze the window's position and
  160.             ; dimensions to fit it on screen.
  161.  
  162.     EITEM WA_GimmeZeroZero    ; equiv. to NewWindow.Flags GIMMEZEROZERO
  163.  
  164.         INCLUDE    "FH1:Language/Include2.0/Intuition/gadgetclass.i"
  165.         INCLUDE    "FH1:Language/Include2.0/libraries/gadtools.i"
  166.  
  167. ;intuition/screens.i
  168.  
  169. ; ========================================================================
  170. ; === DrawInfo =========================================================
  171. ; ========================================================================
  172.  
  173. * This is a packet of information for graphics rendering.  It originates
  174. * with a Screen, and is gotten using GetScreenDrawInfo( screen );
  175.  
  176. * If you find dri_Version >= RT_VERSION, you know this structure
  177. * has at least the fields defined in this version of the include file
  178.  
  179. DRI_VERSION    EQU    1
  180.  
  181.  STRUCTURE DrawInfo,0
  182.     UWORD    dri_Version     ; will be  DRI_VERSION
  183.     UWORD    dri_NumPens     ; guaranteed to be >= numDrIPens
  184.     APTR    dri_Pens     ; pointer to pen array
  185.     APTR    dri_Font     ; screen default font
  186.     UWORD    dri_Depth     ; (initial) depth of screen bitmap
  187.     ; from DisplayInfo database for initial display mode
  188.     UWORD    dri_ResolutionX
  189.     UWORD    dri_ResolutionY
  190.     ULONG    dri_Flags
  191.    STRUCT    dri_longreserved,28
  192.  
  193. DRIF_NEWLOOK    EQU    $00000001 ; specified SA_Pens, full treatment
  194. DRIB_NEWLOOK    EQU    0
  195.  
  196.     ; rendering pen number indexes into DrawInfo.dri_Pens[]
  197.     ENUM
  198.     EITEM    detailPen    ; compatible Intuition rendering pens
  199.     EITEM    blockPen,
  200.     EITEM    textPen        ; text on background (pen = 0)
  201.     EITEM    shinePen    ; bright edge on bas-relief
  202.     EITEM    shadowPen    ; dark edge
  203.     EITEM    hifillPen    ; active window fill
  204.     EITEM    hifilltextPen    ; text over hifillPen
  205.     EITEM    backgroundPen    ; always color 0
  206.     EITEM    hilighttextPen    ; highlighted text, against backgroundPen
  207.     EITEM    numDrIPens
  208.  
  209. NS_EXTENDED    EQU    $1000    ; means ns_Extenion is valid
  210. AUTOSCROLL    EQU    $4000    ; automatic scrolling of large raster
  211.  
  212. * Screen attribute tag ID's.  These are used in the ti_Tag field of
  213. * TagItem arrays passed to OpenScreenTagList() (or in the outmoded
  214. * ExtNewScreen.Extension field).
  215.  
  216. * these are the modernized versions of the screen attribute tags.
  217. * Please use these.
  218.  
  219.  ENUM TAG_USER+33
  220. * 
  221. *   these items specify items equivalent to fields in NewScreen
  222.     EITEM SA_Left    ; traditional screen positions    and dimensions
  223.     EITEM SA_Top
  224.     EITEM SA_Width
  225.     EITEM SA_Height
  226.     EITEM SA_Depth    ; screen bitmap depth
  227.     EITEM SA_DetailPen    ; serves as default for windows, too
  228.     EITEM SA_BlockPen
  229.     EITEM SA_Title    ; default screen title
  230.  
  231.     EITEM SA_Colors    ; ti_Data is an array of struct ColorSpec, 
  232.             ; terminated by ColorIndex = -1.  Specifies 
  233.             ; initial screen palette colors.
  234.  
  235.     EITEM SA_ErrorCode    ; ti_Data points to LONG error code (values below)
  236.     EITEM SA_Font    ; equiv. to NewScreen.Font
  237.     EITEM SA_SysFont    ; Selects one of the preferences system fonts:
  238.             ;    0 - old DefaultFont, fixed-width
  239.             ;    1 - WB Screen preferred font
  240.  
  241.  
  242.     EITEM SA_Type    ; equiv. to NewScreen.Type
  243.     EITEM SA_BitMap    ; ti_Data is pointer to custom BitMap.  This
  244.             ; implies type of CUSTOMBITMAP    
  245.  
  246.     EITEM SA_PubName    ; presence of this tag means that the screen
  247.             ; is to be a public screen.  Please specify
  248.             ; BEFORE the two tags below
  249.  
  250.     EITEM SA_PubSig
  251.     EITEM SA_PubTask    ; Task ID and signal for being notified that
  252.             ; the last window has closed on a public screen.
  253.  
  254.  
  255.     EITEM SA_DisplayID    ; ti_Data is new extended display ID from 
  256.             ; <graphics/displayinfo.h>.
  257.  
  258.     EITEM SA_DClip    ; ti_Data points to a rectangle which defines
  259.             ; screen display clip region
  260.  
  261.     EITEM SA_Overscan    ; was S_STDDCLIP.  Set to one of the OSCAN_
  262.             ; specifiers below to get a system standard
  263.             ; overscan region for your display clip,
  264.             ; screen dimensions (unless otherwise specified),
  265.             ; and automatically centered position (partial
  266.             ; support only so far).
  267.  
  268.     EITEM SA_Obsolete1    ; obsolete S_MONITORNAME
  269.  
  270. *   booleans *
  271.     EITEM SA_ShowTitle    ; boolean equivalent to flag SHOWTITLE
  272.     EITEM SA_Behind    ; boolean equivalent to flag SCREENBEHIND
  273.     EITEM SA_Quiet    ; boolean equivalent to flag SCREENQUIET
  274.     EITEM SA_AutoScroll    ; boolean equivalent to flag AUTOSCROLL
  275.     EITEM SA_Pens    ; array as in DrawInfo, terminated by -1
  276.     EITEM SA_FullPalette ; boolean: initialize color table to entire
  277.                 ;  preferences palette (32 for V36), rather
  278.              ; than compatible pens 0-3, 17-19, with
  279.              ; remaining palette as returned by GetColorMap()
  280.  
  281.  
  282. * OpenScreen error codes, which are returned in the (optional) LONG
  283. * pointed to by ti_Data for the SA_ErrorCode tag item
  284.  
  285. OSERR_NOMONITOR    EQU    (1)    ; named monitor spec not available
  286. OSERR_NOCHIPS    EQU    (2)    ; you need newer custom chips    
  287. OSERR_NOMEM    EQU    (3)    ; couldn't get normal memory
  288. OSERR_NOCHIPMEM    EQU    (4)    ; couldn't get chipmem
  289. OSERR_PUBNOTUNIQUE    EQU (5)    ; public screen name already used
  290. OSERR_UNKNOWNMODE    EQU (6)    ; don't recognize mode asked for
  291.  
  292. ; For compatibility reasons, we need a new structure for extending
  293. ; NewScreen.  Use this structure is you need to use the new Extension
  294. ; field.
  295. ; NOTE WELL: this structure may be extended again in the future.
  296. ;Writing code which depends on its size is not allowed.
  297.  
  298.  STRUCTURE ExtNewScreen,ns_SIZEOF
  299.  
  300.     APTR ens_Extension        ; struct TagItem *
  301.                 ; more specification data, scanned if
  302.                 ; NS_EXTENDED is set in ns_Type
  303.  
  304.  LABEL    ens_SIZEOF
  305.  
  306. * === Overscan Types ===
  307. OSCAN_TEXT    EQU    1    ; entirely visible
  308. OSCAN_STANDARD    EQU    2    ; just past edges
  309. OSCAN_MAX    EQU    3    ; as much as possible
  310. OSCAN_VIDEO    EQU    4    ; even more than is possible
  311.  
  312.  
  313. * === Public Shared Screen Node ===
  314.  
  315. * This is the representative of a public shared screen.
  316. * This is an internal data structure, but some functions may
  317. * present a copy of it to the calling application.  In that case,
  318. * be aware that the screen pointer of the structure can NOT be
  319. * used safely, since there is no guarantee that the referenced
  320. * screen will remain open and a valid data structure.
  321.  
  322.  STRUCTURE PubScreenNode,LN_SIZE
  323.     APTR    psn_Screen    ; pointer to screen itself
  324.     UWORD    psn_Flags    ; below
  325.     WORD    psn_Size    ; includes name buffer size
  326.     WORD    psn_VisitorCount ; how many visitor windows
  327.     APTR    psn_SigTask    ; who to signal when visitors gone
  328.     UBYTE    psn_SigBit    ; which signal
  329.     UBYTE    psn_Pad1    ; word align
  330.  LABEL        psn_SIZEOF
  331.  
  332. * psn_Flags values
  333. PSNF_PRIVATE    EQU    $0001
  334.  
  335. MAXPUBSCREENNAME EQU    139    ; names no longer, please
  336.  
  337. ; pub screen modes
  338. SHANGHAI    EQU    $0001    ; put workbench windows on pub screen
  339. POPPUBSCREEN    EQU    $0002    ; pop pub screen to front when visitor opens
  340.  
  341. **
  342. **  $Filename: intuition/imageclass.i $
  343. **  $Release: 2.0 release 1 $
  344. **  $Revision: 1.1 $
  345. **  $Date: 90/07/12 $
  346. **
  347. **  Definitions for the image classes
  348. **
  349. **  (C) Copyright 1985,1986,1987,1988,1989,1990 Commodore-Amiga, Inc.
  350. **        All Rights Reserved
  351. **
  352.  
  353. CUSTOMIMAGEDEPTH    EQU (-1)
  354. * if image.Depth is this, it's a new Image class object
  355.  
  356. ******************************************************
  357. IMAGE_ATTRIBUTES    EQU (TAG_USER+$20000)
  358.  
  359. IA_LEFT        EQU (IMAGE_ATTRIBUTES+$0001)
  360. IA_TOP        EQU (IMAGE_ATTRIBUTES+$0002)
  361. IA_WIDTH    EQU (IMAGE_ATTRIBUTES+$0003)
  362. IA_HEIGHT    EQU (IMAGE_ATTRIBUTES+$0004)
  363. IA_FGPEN    EQU (IMAGE_ATTRIBUTES+$0005)
  364.             ; IA_FGPEN also means "PlanePick"
  365. IA_BGPEN    EQU (IMAGE_ATTRIBUTES+$0006)
  366.             ; IA_BGPEN also means "PlaneOnOff"
  367. IA_DATA        EQU (IMAGE_ATTRIBUTES+$0007)
  368.             ; bitplanes, for classic image,
  369.             ; other image classes may use it for other things
  370. IA_LINEWIDTH    EQU (IMAGE_ATTRIBUTES+$0008)
  371. IA_PENS        EQU (IMAGE_ATTRIBUTES+$000E)
  372.             ; pointer to UWORD pens[],
  373.             ; ala DrawInfo.Pens, MUST be
  374.             ; terminated by ~0.  Some classes can
  375.             ; choose to have this, or SYSIA_DrawInfo,
  376.             ; or both.
  377. IA_RESOLUTION    EQU (IMAGE_ATTRIBUTES+$000F)
  378.             ; packed uwords for x/y resolution into a longword
  379.             ; ala DrawInfo.Resolution
  380.  
  381. * see class documentation to learn which 
  382. * classes recognize these
  383. IA_APATTERN    EQU (IMAGE_ATTRIBUTES+$0010)
  384. IA_APATSIZE    EQU (IMAGE_ATTRIBUTES+$0011)
  385. IA_MODE        EQU (IMAGE_ATTRIBUTES+$0012)
  386. IA_FONT        EQU (IMAGE_ATTRIBUTES+$0013)
  387. IA_OUTLINE    EQU (IMAGE_ATTRIBUTES+$0014)
  388. IA_RECESSED    EQU (IMAGE_ATTRIBUTES+$0015)
  389. IA_DOUBLEEMBOSS    EQU (IMAGE_ATTRIBUTES+$0016)
  390. IA_EDGESONLY    EQU (IMAGE_ATTRIBUTES+$0017)
  391.  
  392. * "sysiclass" attributes
  393. SYSIA_Size    EQU (IMAGE_ATTRIBUTES+$000B)
  394.             ; EQU's below
  395. SYSIA_Depth    EQU (IMAGE_ATTRIBUTES+$000C)
  396.             ; this is unused by Intuition.  SYSIA_DrawInfo
  397.             ; is used instead for V36
  398. SYSIA_Which    EQU (IMAGE_ATTRIBUTES+$000D)
  399.             ; see EQU's below
  400. SYSIA_DrawInfo    EQU (IMAGE_ATTRIBUTES+$0018)
  401.             ; pass to sysiclass, please
  402.  
  403. *  obsolete: don't use these, use IA_PENS
  404. SYSIA_Pens    EQU IA_PENS
  405. IA_SHADOWPEN    EQU (IMAGE_ATTRIBUTES+$0009)
  406. IA_HIGHLIGHTPEN    EQU (IMAGE_ATTRIBUTES+$000A)
  407.  
  408. * next attribute: (IMAGE_ATTRIBUTES+$0019)
  409. ******************************************************
  410.  
  411. * data values for SYSIA_Size
  412. SYSISIZE_MEDRES    EQU (0)
  413. SYSISIZE_LOWRES    EQU (1)
  414. SYSISIZE_HIRES    EQU (2)
  415.  
  416. *
  417. * SYSIA_Which tag data values:
  418. * Specifies which system gadget you want an image for.
  419. * Some numbers correspond to internal Intuition #defines
  420. DEPTHIMAGE    EQU ($00)
  421. ZOOMIMAGE    EQU ($01)
  422. SIZEIMAGE    EQU ($02)
  423. CLOSEIMAGE    EQU ($03)
  424. SDEPTHIMAGE    EQU ($05)        ; screen depth gadget
  425. LEFTIMAGE    EQU ($0A)
  426. UPIMAGE        EQU ($0B)
  427. RIGHTIMAGE    EQU ($0C)
  428. DOWNIMAGE    EQU ($0D)
  429. CHECKIMAGE    EQU ($0E)
  430. MXIMAGE        EQU ($0F)    ; mutual exclude "button"
  431.  
  432. * image message id's
  433. IM_DRAW        EQU ($0202)    ; draw yourself, with "state"
  434. IM_HITTEST    EQU ($0203)    ; return TRUE if click hits image
  435. IM_ERASE    EQU ($0204)    ; erase yourself
  436. IM_MOVE        EQU ($0205)    ; draw new and erase old, smoothly
  437.  
  438. IM_DRAWFRAME    EQU ($0206)    ; draw with specified dimensions
  439. IM_FRAMEBOX    EQU ($0207)    ; get recommended frame around some box
  440. IM_HITFRAME    EQU ($0208)    ; hittest with dimensions
  441. IM_ERASEFRAME    EQU ($0209)    ; hittest with dimensions
  442.  
  443. * image draw states or styles, for IM_DRAW
  444. IDS_NORMAL        EQU (0)
  445. IDS_SELECTED        EQU (1)    ; for selected gadgets
  446. IDS_DISABLED        EQU (2)    ; for disabled gadgets
  447. IDS_BUSY        EQU (3)    ; for future functionality
  448. IDS_INDETERMINATE    EQU (4)    ; for future functionality
  449. IDS_INACTIVENORMAL    EQU (5)    ; normal, in inactive window border
  450. IDS_INACTIVESELECTED    EQU (6)    ; selected, in inactive border
  451. IDS_INACTIVEDISABLED    EQU (7)    ; disabled, in inactive border
  452.  
  453. * oops, please forgive spelling error by jimm
  454. IDS_INDETERMINANT EQU IDS_INDETERMINATE
  455.  
  456. * IM_FRAMEBOX
  457.  STRUCTURE impFrameBox,4        ; starts with ULONG MethodID
  458.     APTR    impf_ContentsBox    ; input: relative box of contents
  459.     APTR    impf_FrameBox    ; output: rel. box of encl frame
  460.     APTR    impf_DrInfo
  461.     LONG    impf_FrameFlags
  462.  
  463. ; Make do with the dimensions of FrameBox provided.
  464. FRAMEB_SPECIFY    EQU (0)
  465. FRAMEF_SPECIFY    EQU (1)
  466.  
  467.  
  468. * IM_DRAW, IM_DRAWFRAME
  469.  STRUCTURE impDraw,4        ; starts with ULONG MethodID
  470.     APTR    impd_RPort
  471.     WORD    impd_OffsetX
  472.     WORD    impd_OffsetY
  473.     ULONG    impd_State
  474.     APTR    impd_DrInfo
  475.     ; these parameters only valid for IM_DRAWFRAME
  476.     WORD    impd_DimensionsWidth
  477.     WORD    impd_DimensionsHeight
  478.  
  479. * IM_ERASE, IM_ERASEFRAME
  480. * NOTE: This is a subset of impDraw
  481.  STRUCTURE impErase,4        ; starts with ULONG MethodID
  482.     APTR    impe_RPort
  483.     WORD    impe_OffsetX
  484.     WORD    impe_OffsetY
  485.     ; these parameters only valid for IM_ERASEFRAME
  486.     WORD    impe_DimensionsWidth
  487.     WORD    impe_DimensionsHeight
  488.  
  489. * IM_HITTEST, IM_HITFRAME
  490.  STRUCTURE impHitTest,4        ; starts with ULONG MethodID
  491.     ; these parameters only valid for IM_ERASEFRAME
  492.     WORD    imph_PointX
  493.     WORD    imph_PointY
  494.     ; these parameters only valid for IM_HITFRAME
  495.     WORD    imph_DimensionsWidth
  496.     WORD    imph_DimensionsHeight
  497.  
  498.