mim/development/mim/vax/vs/vstypes.mud

   1 <DEFINITIONS "VSTYPES">
   2
   3 <USE "NEWSTRUC" "NETBASE">
   4
   5 <INCLUDE "VSUTYPES">
   6
   7 <NEWSTRUC VSW VECTOR
   8           VW-VS100 VS
   9           VW-ID FIX
  10           VW-PARENT <OR FALSE VSCHAN>
  11           VW-KIDS <LIST [REST VSCHAN]>
  12           VW-WIDTH FIX
  13           VW-HEIGHT FIX
  14           VW-X FIX
  15           VW-Y FIX
  16           VW-CFONT <OR FONT FALSE>
  17           VW-TEXT-OP FIX
  18           VW-BG FIX
  19           VW-BORDER FIX
  20           VW-BWIDTH FIX
  21           VW-OBUF <OR FALSE STRING>
  22           VW-TOBUF <OR FALSE STRING>
  23           VW-OCT FIX
  24           VW-OX FIX
  25           VW-OY FIX
  26           VW-OUTMODE FIX
  27           VW-CURSOR <OR FALSE ATOM>
  28           VW-CURS-DESC <OR FALSE ATOM CURSOR>
  29           VW-MENU-WINDS <LIST [REST MENU-WINDOW]>
  30           VW-HIGHLIGHT <OR FALSE FIX>  ;"-1 is inverse video, false is none"
  31           VW-HIGHX <OR FALSE FIX>      ;"FIX is X to start highlighting at"
  32           VW-INPUTS FIX                ;"Bits to select-input"
  33           VW-MCURS-DESC <OR FALSE ATOM CURSOR>  ;"not used, apparently"
  34           VW-SAVE <OR FALSE FIX>
  35           VW-MOUSE-DESC <OR FALSE ATOM CURSOR>
  36           VW-FUNCTION <OR ATOM APPLICABLE FALSE>
  37           VW-SCALE <OR FALSE SCALE>
  38           VW-REAL <OR VSCHAN FALSE>   ;"Window that this is an icon of"
  39           VW-ICON <OR VSCHAN FALSE>    ;"Icon for this window"
  40           VW-REDISPLAY <OR WINDOW-EVENT FALSE>>
  41
  42 <NEWSTRUC SCALE VECTOR
  43           S-TOP FLOAT
  44           S-LEFT FLOAT
  45           S-HEIGHT <OR FLOAT FALSE>
  46           S-WIDTH <OR FLOAT FALSE>
  47           S-WSCALE FLOAT
  48           S-HSCALE FLOAT>
  49
  50 <NEWSTRUC CURSOR VECTOR
  51           C-RASTER FIX
  52           C-MASK FIX
  53           C-HEIGHT FIX
  54           C-WIDTH FIX
  55           C-TOP FIX
  56           C-LEFT FIX
  57           C-REF FIX
  58           C-DISPLAY FIX>
  59
  60 <NEWSTRUC VS VECTOR
  61           VS-CHANNEL <CHANNEL 'NETWORK>
  62           VS-WHICH FIX
  63           VS-HOST <OR FIX FALSE>
  64           VS-TOPCHAN <OR FALSE VSCHAN>
  65           VS-SPARE ANY                 ;"Used to be VS-KIDS"
  66           VS-ALL <LIST [REST FIX VSCHAN]>       ;"All windows"
  67           VS-FONTS <LIST [REST FIX FONT]>
  68           VS-BLACK FIX
  69           VS-WHITE FIX
  70           VS-GRAY FIX
  71           VS-REQ FIX
  72           VS-BUFFER <OR STRING FALSE>
  73           VS-BCT FIX
  74           VS-BUFFER-TOP <OR STRING FALSE>
  75           VS-IBUFFER LIST
  76           VS-ILIST LIST
  77           VS-MAPNAME <OR FALSE STRING ATOM>
  78           VS-MAPS <OR FALSE
  79                       <VECTOR [2 <VECTOR FIX <VECTOR [REST <OR FALSE KEY>]>>]>>
  80           VS-LAST-MOUSE <OR FALSE MOUSE-EVENT>>
  81
  82 <NEWSTRUC FONT VECTOR
  83           FONT-NAME STRING
  84           FONT-ID FIX
  85           FONT-HEIGHT FIX
  86           FONT-WIDTH FIX
  87           FONT-BASE FIX
  88           FONT-FIXED? <OR ATOM FALSE>
  89           FONT-FIRST FIX
  90           FONT-CHARS <OR FALSE <UVECTOR [REST FIX]>>>
  91
  92 <NEWSTRUC KEY UVECTOR
  93           KD-NORM FIX
  94           KD-SHIFT FIX
  95           KD-LOCK FIX
  96           KD-CTRL FIX
  97           KD-CS FIX>
  98
  99 <END-DEFINITIONS>