Machine-Independent MDL for TOPS-20 and VAX.
[pdp10-muddle.git] / mim / development / mim / vax / mimlib / vsudefs.mud
1 <DEFINITIONS "VSUDEFS">
2
3 <USE "NEWSTRUC">
4
5 ; "Function codes"
6 <MSETG GX-CLEAR 0>
7 <MSETG GX-AND 1>
8 <MSETG GX-AND-REVERSE 2>
9 <MSETG GX-COPY 3>
10 <MSETG GX-AND-INVERTED 4>
11 <MSETG GX-NOOP 5>
12 <MSETG GX-XOR 6>
13 <MSETG GX-OR 7>
14 <MSETG GX-NOR 8>
15 <MSETG GX-EQUIV 9>
16 <MSETG GX-INVERT 10>
17 <MSETG GX-OR-REVERSE 11>
18 <MSETG GX-COPY-INVERTED 12>
19 <MSETG GX-OR-INVERTED 13>
20 <MSETG GX-NAND 14>
21 <MSETG GX-SET 15>
22
23 ; "Drawing codes"
24 <MSETG VERTEX-RELATIVE 1>
25 <MSETG VERTEX-DONT-DRAW 2>
26 <MSETG VERTEX-CURVED 4>
27 <MSETG VERTEX-START-CLOSED 8>
28 <MSETG VERTEX-END-CLOSED 16>
29 <MSETG VERTEX-DRAW-LAST-POINT 32>
30
31 ; "Some cursors"
32 <MSETG I-BEAM-CURSOR
33        [<BYTES 255 0 255 0 24 0 24 0 24 0 24 0 24 0 24 0 24 0 24 0 24 0
34                24 0 24 0 255 0 255 0>
35         8 15 0 0]>
36 <MSETG ICONIFY-CURSOR
37        [<BYTES 0 0
38                *252* *52*
39                *124* *125*
40                *252* *52*
41                *364* *137*
42                *372* *77*
43                *364* *137*
44                *372* *77*
45                *364* *137*
46                *372* *77*
47                *364* *137*
48                *372* *77*
49                *124* *125*
50                *252* *52*
51                *124* *125*
52                0 0>
53         16 16 7 7 <>]>
54 <MSETG CROSS-CURSOR
55        [<BYTES 128 1 128 1 128 1 128 1 128 1 128 1 128 1
56                255 255 255 255
57                128 1 128 1 128 1 128 1 128 1 128 1 128 1>
58         16 16 7 7
59         <BYTES *300* 3 *300* 3 *300* 3 *300* 3 *300* 3 *300* 3 255 255
60                255 255 255 255
61                255 255 *300* 3 *300* 3 *300* 3 *300* 3 *300* 3 *300* 3>
62         ]>
63 <MSETG DEFAULT-CURSOR [T]>
64 <MSETG NULL-CURSOR [<>]>
65 <MSETG MDL-CURSOR
66        [<BYTES *321* *23* *233* *24* *225* *24* *221* *24* *321* *363*>
67         16 5 3 8]>
68
69 ; "Event stuff"
70 <MSETG ME-LEFT-PRESSED 1>
71 <MSETG ME-LEFT-RELEASED 2>
72 <MSETG ME-MIDDLE-PRESSED 4>
73 <MSETG ME-MIDDLE-RELEASED 8>
74 <MSETG ME-RIGHT-PRESSED 16>
75 <MSETG ME-RIGHT-RELEASED 32>
76 <MSETG ME-MOVED 64>
77 <MSETG ME-ENTER-WINDOW 128>
78 <MSETG ME-LEAVE-WINDOW 256>
79 <MSETG ME-PRESSED-MASK <+ ,ME-LEFT-PRESSED ,ME-MIDDLE-PRESSED ,ME-RIGHT-PRESSED>>
80 <MSETG ME-RELEASED-MASK <+ ,ME-LEFT-RELEASED ,ME-MIDDLE-RELEASED
81                            ,ME-RIGHT-RELEASED>>
82
83 <MSETG CONTROL-DOWN <LSH <HEX "4000"> -8>>
84 <MSETG META-DOWN <LSH <HEX "2000"> -8>>
85 <MSETG SHIFT-DOWN <LSH <HEX "1000"> -8>>
86 <MSETG SHIFT-LOCK-DOWN <LSH <HEX "800"> -8>>
87 <MSETG MOUSE-LEFT <LSH <HEX "400"> -8>>
88 <MSETG MOUSE-CENTER <LSH <HEX "200"> -8>>
89 <MSETG MOUSE-RIGHT <LSH <HEX "100"> -8>>
90
91 <MSETG WE-EXPOSE-WINDOW 1>
92 <MSETG WE-EXPOSE-REGION 2>
93 <MSETG WE-EXPOSE-COPY 3>
94 <MSETG WE-RESIZE-WINDOW 4>
95 <MSETG WE-UNMAP-WINDOW 5>
96
97 <END-DEFINITIONS>