mim/development/mim/vax/nvs/vsutypes.mud

   1 <DEFINITIONS "VSUTYPES">
   2
   3 <USE "NEWSTRUC">
   4
   5 <PUT-DECL VSCHAN '<CHANNEL 'VS100!-VS100!-PACKAGE>>
   6
   7 <NEWSTRUC MOUSE-EVENT VECTOR
   8           ME-KIND FIX
   9           ME-STATE FIX
  10           ME-X FIX
  11           ME-Y FIX
  12           ME-TIME FIX
  13           ME-WINDOW VSCHAN
  14           ME-SUBWINDOW <OR FALSE FIX MENU-WINDOW>
  15           ME-LOCATOR FIX
  16           ME-CELL LIST>
  17
  18 <NEWSTRUC WINDOW-EVENT VECTOR
  19           WE-KIND FIX
  20           WE-WINDOW VSCHAN
  21           WE-SUBWINDOW <OR FALSE FIX MENU-WINDOW>
  22           WE-CHANGES <LIST [REST WE-RECTANGLE]>
  23           WE-CELL LIST
  24           WE-OLDH FIX
  25           WE-OLDW FIX>
  26
  27 <NEWSTRUC WE-RECTANGLE UVECTOR
  28           REC-TOP FIX
  29           REC-LEFT FIX
  30           REC-WIDTH FIX
  31           REC-HEIGHT FIX>
  32
  33 <NEWSTRUC MENU-WINDOW VECTOR
  34           MW-ID FIX
  35           MW-HEIGHT FIX
  36           MW-WIDTH FIX
  37           MW-OBJ ANY
  38           MW-BITS FIX>
  39
  40 <END-DEFINITIONS>