Rev 178 | Rev 267 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
259 | mikedld | 1 | |
2 | X dd ? |
||
3 | Y dd ? |
||
4 | ends |
||
5 | |||
6 | |||
7 | Left dd ? |
||
8 | Top dd ? |
||
9 | Right dd ? |
||
10 | Bottom dd ? |
||
11 | ends |
||
12 | |||
13 | |||
14 | Top dd ? |
||
15 | Size dd ? |
||
16 | ends |
||
17 | |||
18 | |||
19 | FilePath db PATHL dup(?) |
||
20 | FileName dd ? |
||
21 | Data dd ? |
||
22 | Bounds RECT |
||
23 | Caret POINT |
||
24 | SelStart POINT |
||
25 | Lines dd ? |
||
26 | Columns dd ? |
||
27 | TopLeft POINT |
||
28 | VScroll SCROLLBAR |
||
29 | HScroll SCROLLBAR |
||
30 | Gutter.Width dd ? |
||
31 | Gutter.Visible db ? |
||
32 | AsmMode db ? |
||
33 | Modified db ? |
||
34 | db ? |
||
35 | ends |
||
36 | |||
37 | |||
38 | Editor EDITOR |
||
39 | ends |
||
40 | |||
41 | |||
42 | Bounds RECT |
||
43 | Items dd ? |
||
44 | Items.Count dd ? |
||
45 | Current TABITEM |
||
46 | Current.Ptr dd ? |
||
47 | Style db ? |
||
48 | db 3 dup(?) |
||
49 | ends |
||
50 | |||
51 | |||
52 | |||
53 | |||
178 | heavyiron | 54 | POPUP: |
55 | .actions dd ? |
||
56 | .data dd ? |
||
57 | .acc_ofs dd ? |
||
58 | .size: |
||
59 | .height dw ? |
||
60 | .width dw ? |
||
61 | .pos: |
||
62 | .y dw ? |
||
63 | .x dw ? |
||
64 | end virtual |
||
65 | |||
66 | |||
67 | { |
||
68 | common |
||
69 | local s1,s2,m1,m2,c1,c2 |
||
70 | m1 = 0 |
||
71 | m2 = 0 |
||
72 | c1 = 0 |
||
73 | c2 = 0 |
||
74 | if used _name |
||
75 | dd _name#.actions |
||
76 | dd _name#.data |
||
77 | dd ? |
||
78 | dw ? ; height |
||
79 | dw ? ; width |
||
80 | dw ? ; y |
||
81 | dw ? ; x |
||
82 | _name: |
||
83 | forward |
||
84 | if (lang eq _lang) | (_lang eq @!) |
||
259 | mikedld | 85 | db 1 |
178 | heavyiron | 86 | end if |
87 | common |
||
88 | .data: |
||
89 | forward |
||
90 | if (lang eq _lang) | (_lang eq @!) |
||
259 | mikedld | 91 | if _title eq '-' |
178 | heavyiron | 92 | db 1,'-' |
93 | c2 = c2+1 |
||
94 | else |
||
95 | virtual at 0 |
||
96 | db _title |
||
97 | s1 = $ |
||
98 | end virtual |
||
99 | if m1 < s1 |
||
100 | m1 = s1 |
||
101 | end if |
||
102 | virtual at 0 |
||
103 | db _accel |
||
104 | s2 = $ |
||
105 | end virtual |
||
106 | if m2 < s2 |
||
107 | m2 = s2 |
||
108 | end if |
||
109 | db s1,_title,s2,_accel |
||
110 | c1 = c1+1 |
||
111 | end if |
||
112 | end if |
||
113 | common |
||
114 | db 0 |
||
115 | align 4 |
||
116 | .actions: |
||
117 | forward |
||
118 | if (lang eq _lang) | (_lang eq @!) |
||
259 | mikedld | 119 | if (_action eq ) |
120 | dd 0 |
||
121 | else |
||
122 | dd _name#.#_action |
||
123 | end if |
||
124 | end if |
||
178 | heavyiron | 125 | common |
126 | .size = $-_name+20 |
||
127 | .max_title = m1 |
||
128 | .max_accel = m2 |
||
129 | .cnt_item = c1 |
||
130 | .cnt_sep = c2 |
||
131 | if (m2 = 0) |
||
132 | m2 = -2 |
||
133 | end if |
||
134 | store word (m1*6+m2*6+6*8) at _name+POPUP.width |
||
135 | store word (c1*POP_IHEIGHT+c2*4+4) at _name+POPUP.height |
||
136 | store dword (((m1+2)*6-1)*65536) at _name+POPUP.acc_ofs |
||
137 | end if |
||
138 | } |
||
139 | |||
140 | |||
141 | { |
||
142 | common |
||
143 | local s,m,c,x |
||
144 | m = 0 |
||
145 | c = 0 |
||
146 | x = 2 |
||
147 | if used _name |
||
148 | _name: |
||
149 | forward |
||
150 | if lang eq _lang |
||
151 | virtual at 0 |
||
152 | db _title |
||
153 | s = $ |
||
154 | end virtual |
||
155 | if m < s |
||
156 | m = s |
||
157 | end if |
||
158 | dw (s+2)*6,x,ATOPH-1,0 |
||
159 | db s,_title |
||
160 | c = c+1 |
||
161 | x = x + (s+2)*6 |
||
162 | end if |
||
163 | common |
||
164 | db 0 |
||
165 | align 4 |
||
166 | .popups: |
||
167 | forward |
||
168 | if lang eq _lang |
||
169 | dd _popup |
||
170 | end if |
||
171 | common |
||
172 | align 4 |
||
173 | .onshow: |
||
174 | forward |
||
175 | if lang eq _lang |
||
176 | dd _onshow |
||
177 | end if |
||
178 | common |
||
179 | .size = $-_name |
||
180 | .max_title = m |
||
181 | .cnt_item = c |
||
182 | .width = x-7 |
||
183 | end if |
||
184 | } |
||
185 | |||
186 | |||
187 | |||
188 | |||
189 | OPTS_AUTOBRACES = 00000010b |
||
190 | OPTS_AUTOINDENT = 00000100b |
||
191 | OPTS_SMARTTAB = 00001000b |
||
192 | OPTS_OPTIMSAVE = 00010000b |
||
193 | OPTS_LINENUMS = 00100000b |
||
194 | |||
195 | |||
196 | |||
197 | |||
198 | KM_CTRL = 0x00020000 |
||
199 | KM_ALT = 0x00040000 |
||
200 | |||
201 | |||
202 | KM_ALTSHIFT = 0x00050000 |
||
203 | KM_CTRLALT = 0x00060000 |
||
204 | |||
205 | |||
206 | |||
207 | |||
208 | |||
209 | |||
210 | KEY_SNAPSHOT = 0x00000137 |
||
211 | KEY_PAUSE = 0x0000021D |
||
212 | |||
213 | |||
214 | KEY_F2 = 0x0000003C |
||
215 | KEY_F3 = 0x0000003D |
||
216 | KEY_F4 = 0x0000003E |
||
217 | KEY_F5 = 0x0000003F |
||
218 | KEY_F6 = 0x00000040 |
||
219 | KEY_F7 = 0x00000041 |
||
220 | KEY_F8 = 0x00000042 |
||
221 | KEY_F9 = 0x00000043 |
||
222 | KEY_F10 = 0x00000044 |
||
223 | KEY_F11 = 0x00000057 |
||
224 | KEY_F12 = 0x00000058 |
||
225 | |||
226 | |||
227 | KEY_MINUS = 0x0000000C |
||
228 | KEY_EQUAL = 0x0000000D |
||
229 | KEY_BACKSPACE = 0x0000000E |
||
230 | KEY_TAB = 0x0000000F |
||
231 | KEY_SQBRACE1 = 0x0000001A |
||
232 | KEY_SQBRACE2 = 0x0000001B |
||
233 | KEY_SLASH1 = 0x00000035 |
||
234 | KEY_SLASH2 = 0x0000002B |
||
235 | KEY_SEMICOLON = 0x00000027 |
||
236 | KEY_QUOTE = 0x00000028 |
||
237 | KEY_COMMA = 0x00000033 |
||
238 | KEY_DOT = 0x00000034 |
||
239 | KEY_SPACE = 0x00000039 |
||
240 | |||
241 | |||
242 | KEY_2 = 0x00000003 |
||
243 | KEY_3 = 0x00000004 |
||
244 | KEY_4 = 0x00000005 |
||
245 | KEY_5 = 0x00000006 |
||
246 | KEY_6 = 0x00000007 |
||
247 | KEY_7 = 0x00000008 |
||
248 | KEY_8 = 0x00000009 |
||
249 | KEY_9 = 0x0000000A |
||
250 | KEY_0 = 0x0000000B |
||
251 | |||
252 | |||
253 | KEY_B = 0x00000030 |
||
254 | KEY_C = 0x0000002E |
||
255 | KEY_D = 0x00000020 |
||
256 | KEY_E = 0x00000012 |
||
257 | KEY_F = 0x00000021 |
||
258 | KEY_G = 0x00000022 |
||
259 | KEY_H = 0x00000023 |
||
260 | KEY_I = 0x00000017 |
||
261 | KEY_J = 0x00000024 |
||
262 | KEY_K = 0x00000025 |
||
263 | KEY_L = 0x00000026 |
||
264 | KEY_M = 0x00000032 |
||
265 | KEY_N = 0x00000031 |
||
266 | KEY_O = 0x00000018 |
||
267 | KEY_P = 0x00000019 |
||
268 | KEY_Q = 0x00000010 |
||
269 | KEY_R = 0x00000013 |
||
270 | KEY_S = 0x0000001F |
||
271 | KEY_T = 0x00000014 |
||
272 | KEY_U = 0x00000016 |
||
273 | KEY_V = 0x0000002F |
||
274 | KEY_W = 0x00000011 |
||
275 | KEY_X = 0x0000002D |
||
276 | KEY_Y = 0x00000015 |
||
277 | KEY_Z = 0x0000002C |
||
278 | |||
279 | |||
280 | KEY_SCRLK = 0x00000046 |
||
281 | KEY_NUMLK = 0x00000069 |
||
282 | |||
283 | |||
284 | KEY_NUMRETURN = 0x0000011C |
||
285 |