X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2Fvax%2Fvs%2Fvsutypes.mud;fp=mim%2Fdevelopment%2Fmim%2Fvax%2Fvs%2Fvsutypes.mud;h=a71266a6eeed016a29936052f54d11b4d8d1f206;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/vax/vs/vsutypes.mud b/mim/development/mim/vax/vs/vsutypes.mud
new file mode 100644
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>