home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / P_FOTRAN.LZH / DEMOS.FOR / GEMCONST.FOR < prev    next >
Text File  |  1987-12-31  |  6KB  |  154 lines

  1. *     Prospero Fortran GEM constants
  2. *     6 Aug 1987
  3.  
  4. *     {GEM messages}
  5.       INTEGER*4 MN_SELECTED, WM_REDRAW,  WM_TOPPED,  WM_CLOSED,
  6.      -          WM_FULLED, WM_ARROWED, WM_HSLID, WM_VSLID, WM_SIZED,
  7.      -          WM_MOVED, WM_NEWTOP, WM_UNTOPPED, AC_OPEN, AC_CLOSE
  8.  
  9.       PARAMETER (MN_SELECTED = 10)
  10.       PARAMETER (WM_REDRAW   = 20)
  11.       PARAMETER (WM_TOPPED   = 21)
  12.       PARAMETER (WM_CLOSED   = 22)
  13.       PARAMETER (WM_FULLED   = 23)
  14.       PARAMETER (WM_ARROWED  = 24)
  15.       PARAMETER (WM_HSLID    = 25)
  16.       PARAMETER (WM_VSLID    = 26)
  17.       PARAMETER (WM_SIZED    = 27)
  18.       PARAMETER (WM_MOVED    = 28)
  19.       PARAMETER (WM_NEWTOP   = 29)
  20.       PARAMETER (WM_UNTOPPED = 30)     ! { Not applicable to GEM 1.1 }
  21.       PARAMETER (AC_OPEN     = 40)
  22.       PARAMETER (AC_CLOSE    = 41)
  23.     
  24. *     {Event types for evnt_multi   (bit significant values) }
  25.       INTEGER*4 MU_KEYBD, MU_BUTTON, MU_M1, MU_M2, MU_MESAG, MU_TIMER    = 0020h)
  26.       PARAMETER (MU_KEYBD    = $0001)
  27.       PARAMETER (MU_BUTTON   = $0002)
  28.       PARAMETER (MU_M1       = $0004)
  29.       PARAMETER (MU_M2       = $0008)
  30.       PARAMETER (MU_MESAG    = $0010)
  31.       PARAMETER (MU_TIMER    = $0020)
  32.  
  33. *     {Bit significant values for ob_state word}
  34.       INTEGER*4 NORMAL, SELECTED, CROSSED, CHECKED, DISABLED,
  35.      -          OUTLINED, SHADOWED, DRAW3D, WHITEBAK
  36.       PARAMETER (NORMAL      = $0000)   ! { Useful for all bitmaps }
  37.       PARAMETER (SELECTED    = $0001)
  38.       PARAMETER (CROSSED     = $0002)
  39.       PARAMETER (CHECKED     = $0004)
  40.       PARAMETER (DISABLED    = $0008)
  41.       PARAMETER (OUTLINED    = $0010)
  42.       PARAMETER (SHADOWED    = $0020)
  43.       PARAMETER (DRAW3D      = $0040)   ! { Not applicable to GEM 1.1 }
  44.       PARAMETER (WHITEBAK    = $0080)   ! { Not applicable to GEM 1.1 }
  45.  
  46. *     {Bit significant values for ob_flags word}
  47.       INTEGER*4 NONE, SELECTABLE, DEFAULT, EXIT, EDITABLE, RBUTTON, 
  48.      -          LASTOB, TOUCHEXIT, HIDETREE, INDIRECT
  49.       PARAMETER (NONE        = $0000)
  50.       PARAMETER (SELECTABLE  = $0001)
  51.       PARAMETER (DEFAULT     = $0002)
  52.       PARAMETER (EXIT        = $0004)
  53.       PARAMETER (EDITABLE    = $0008)
  54.       PARAMETER (RBUTTON     = $0010)
  55.       PARAMETER (LASTOB      = $0020)
  56.       PARAMETER (TOUCHEXIT   = $0040)
  57.       PARAMETER (HIDETREE    = $0080)
  58.       PARAMETER (INDIRECT    = $0100)
  59.  
  60. *     {Object types}
  61.       INTEGER*4 G_BOX, G_TEXT, G_BOXTEXT, G_IMAGE, G_PROGDEF, G_IBOX,
  62.      -          G_BUTTON, G_BOXCHAR, G_STRING, G_FTEXT, G_FBOXTEXT,
  63.      -          G_ICON, G_TITLE
  64.       PARAMETER (G_BOX       = 20)
  65.       PARAMETER (G_TEXT      = 21)
  66.       PARAMETER (G_BOXTEXT   = 22)
  67.       PARAMETER (G_IMAGE     = 23)
  68.       PARAMETER (G_PROGDEF   = 24)
  69.       PARAMETER (G_IBOX      = 25)
  70.       PARAMETER (G_BUTTON    = 26)
  71.       PARAMETER (G_BOXCHAR   = 27)
  72.       PARAMETER (G_STRING    = 28)
  73.       PARAMETER (G_FTEXT     = 29)
  74.       PARAMETER (G_FBOXTEXT  = 30)
  75.       PARAMETER (G_ICON      = 31)
  76.       PARAMETER (G_TITLE     = 32)
  77.  
  78. *     {Object header offsets}
  79.       INTEGER*4 ob_next, ob_head, ob_tail, ob_type, ob_flags, ob_state,
  80.      -          ob_spec, ob_x, ob_y, ob_width, ob_height
  81.       PARAMETER (ob_next     = 0)
  82.       PARAMETER (ob_head     = 2)
  83.       PARAMETER (ob_tail     = 4)
  84.       PARAMETER (ob_type     = 6)
  85.       PARAMETER (ob_flags    = 8)
  86.       PARAMETER (ob_state    = 10)
  87.       PARAMETER (ob_spec     = 12)
  88.       PARAMETER (ob_x        = 16)
  89.       PARAMETER (ob_y        = 18)
  90.       PARAMETER (ob_width    = 20)
  91.       PARAMETER (ob_height   = 22)
  92.  
  93. *     {Function codes for objc_edit}
  94.       INTEGER*4 ED_START, ED_INIT, ED_CHAR, ED_END
  95.       PARAMETER (ED_START    = 0)
  96.       PARAMETER (ED_INIT     = 1)
  97.       PARAMETER (ED_CHAR     = 2)
  98.       PARAMETER (ED_END      = 3)
  99.  
  100. *     {Function codes for form_dial}
  101.       INTEGER*4 FMD_START, FMD_GROW, FMD_SHRINK, FMD_FINISH
  102.       PARAMETER (FMD_START   = 0)
  103.       PARAMETER (FMD_GROW    = 1)   ! { Not applicable to GEM 2.0 }
  104.       PARAMETER (FMD_SHRINK  = 2)   ! { Not applicable to GEM 2.0 }
  105.       PARAMETER (FMD_FINISH  = 3)
  106.  
  107. *     {Bit significant values for window components}
  108.       INTEGER*4 NAME, CLOSER, FULL, MOVER, INFO, SIZE, UPARROW, 
  109.      -          DNARROW, VSLIDE, LFARROW, RTARROW, HSLIDE
  110.       PARAMETER (NAME        = $0001)
  111.       PARAMETER (CLOSER      = $0002)   ! { Known as CLOSE in 'C' }
  112.       PARAMETER (FULL        = $0004)
  113.       PARAMETER (MOVER       = $0008)   ! { Known as MOVE in 'C' }
  114.       PARAMETER (INFO        = $0010)
  115.       PARAMETER (SIZE        = $0020)
  116.       PARAMETER (UPARROW     = $0040)
  117.       PARAMETER (DNARROW     = $0080)
  118.       PARAMETER (VSLIDE      = $0100)
  119.       PARAMETER (LFARROW     = $0200)
  120.       PARAMETER (RTARROW     = $0400)
  121.       PARAMETER (HSLIDE      = $0800)
  122.  
  123. *     {Window get/set function codes}
  124.       INTEGER*4 WF_KIND, WF_NAME, WF_INFO, WF_WXYWH, WF_CXYWH,
  125.      -          WF_PXYWH, WF_FXYWH, WF_HSLIDE, WF_VSLIDE, WF_TOP, 
  126.      -          WF_FIRSTXYWH, WF_NEXTXYWH, WF_NEWDESK, WF_HSLSIZE, 
  127.      -          WF_VSLSIZE, WF_SCREEN, WF_TATTRB, WF_SIZTOP
  128.       PARAMETER (WF_KIND     = 1)
  129.       PARAMETER (WF_NAME     = 2)
  130.       PARAMETER (WF_INFO     = 3)
  131.       PARAMETER (WF_WXYWH    = 4)  ! { Known as WF_WORKXYWH in GEM 1.1 }
  132.       PARAMETER (WF_CXYWH    = 5)  ! { Known as WF_CURRXYWH in GEM 1.1 }
  133.       PARAMETER (WF_PXYWH    = 6)  ! { Known as WF_PREVXYWH in GEM 1.1 }
  134.       PARAMETER (WF_FXYWH    = 7)  ! { Known as WF_FULLXYWH in GEM 1.1 }
  135.       PARAMETER (WF_HSLIDE   = 8)
  136.       PARAMETER (WF_VSLIDE   = 9)
  137.       PARAMETER (WF_TOP      = 10)
  138.       PARAMETER (WF_FIRSTXYWH= 11)
  139.       PARAMETER (WF_NEXTXYWH = 12)
  140.       PARAMETER (WF_NEWDESK  = 14)
  141.       PARAMETER (WF_HSLSIZE  = 15)
  142.       PARAMETER (WF_VSLSIZE  = 16)
  143.       PARAMETER (WF_SCREEN   = 17)
  144.       PARAMETER (WF_TATTRB   = 18)  ! { Not provided in GEM 1.1 }
  145.       PARAMETER (WF_SIZTOP   = 19)  ! { Not provided in GEM 1.1 }
  146.  
  147. *     {Function codes for wind_update}
  148.       INTEGER*4 END_UPDATE, BEG_UPDATE, END_MCTRL, BEG_MCTRL
  149.       PARAMETER (END_UPDATE  = 0)
  150.       PARAMETER (BEG_UPDATE  = 1)
  151.       PARAMETER (END_MCTRL   = 2)
  152.       PARAMETER (BEG_MCTRL   = 3)
  153.  
  154.