Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / development / mim / vax / vs / vsutypes.mud

diff --git a/mim/development/mim/vax/vs/vsutypes.mud b/mim/development/mim/vax/vs/vsutypes.mud
new file mode 100644 (file)
index 0000000..a71266a
--- /dev/null
+++ b/mim/development/mim/vax/vs/vsutypes.mud
@@ -0,0 +1,40 @@
+<DEFINITIONS "VSUTYPES">
+
+<USE "NEWSTRUC">
+
+<PUT-DECL VSCHAN '<CHANNEL 'VS100!-VS100!-PACKAGE>>
+
+<NEWSTRUC MOUSE-EVENT VECTOR
+         ME-KIND FIX
+         ME-STATE FIX
+         ME-X FIX
+         ME-Y FIX
+         ME-TIME FIX
+         ME-WINDOW VSCHAN
+         ME-SUBWINDOW <OR FALSE FIX MENU-WINDOW>
+         ME-LOCATOR FIX
+         ME-CELL LIST>
+
+<NEWSTRUC WINDOW-EVENT VECTOR
+         WE-KIND FIX
+         WE-WINDOW VSCHAN
+         WE-SUBWINDOW <OR FALSE FIX MENU-WINDOW>
+         WE-CHANGES <LIST [REST WE-RECTANGLE]>
+         WE-CELL LIST
+         WE-OLDH FIX
+         WE-OLDW FIX>
+
+<NEWSTRUC WE-RECTANGLE UVECTOR
+         REC-TOP FIX
+         REC-LEFT FIX
+         REC-WIDTH FIX
+         REC-HEIGHT FIX>
+
+<NEWSTRUC MENU-WINDOW VECTOR
+         MW-ID FIX
+         MW-HEIGHT FIX
+         MW-WIDTH FIX
+         MW-OBJ ANY
+         MW-BITS FIX>
+
+<END-DEFINITIONS>