Subversion Repositories Kolibri OS

Rev

Rev 629 | 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
 
297 mikedld 14
  width  dw ?
15
  x	 dw ?
16
  height dw ?
17
  y	 dw ?
18
  sel.x  db ?
19
  pos.x  db ?
20
  ofs.x  db ?
21
  length db ?
22
  text	 rb 255
23
ends
24
25
 
259 mikedld 26
  Top  dd ?
27
  Size dd ?
28
ends
29
30
 
31
  FilePath	 db PATHL dup(?)
32
  FileName	 dd ?
33
  Bounds	 RECT
34
  Lines 	 dd ?
267 mikedld 35
  Lines.Size	 dd ?
280 mikedld 36
  Lines.Count	 dd ?
267 mikedld 37
  Columns.Count  dd ?
38
  Caret 	 POINT
259 mikedld 39
  SelStart	 POINT
40
  TopLeft	 POINT
41
  VScroll	 SCROLLBAR
42
  HScroll	 SCROLLBAR
43
  Gutter.Width	 dd ?
44
  Gutter.Visible db ?
45
  AsmMode	 db ?
46
  Modified	 db ?
47
		 db ?
48
ends
49
50
 
987 mikedld 51
  Size	dd ?
52
  Flags dw ?
53
ends
54
55
 
56
EDITOR_LINE_FLAG_SAVED	  = 0x0002
57
58
 
259 mikedld 59
  Editor EDITOR
60
ends
61
62
 
63
  Bounds	RECT
267 mikedld 64
  Items 	dd ?
65
  Items.Count	dd ?
66
  Items.Left	dd ?
67
  Current	TABITEM
68
  Current.Ptr	dd ?
69
  Default.Ptr	dd ?
280 mikedld 70
  Buttons.First dd ?
267 mikedld 71
  Buttons.Last	dd ?
72
  Style 	db ?
73
		db 3 dup(?)
74
ends
259 mikedld 75
76
 
77
 
78
 
178 heavyiron 79
 POPUP:
80
  .actions dd ?
81
  .data    dd ?
82
  .acc_ofs dd ?
83
 .size:
84
  .height  dw ?
85
  .width   dw ?
86
 .pos:
87
  .y	   dw ?
88
  .x	   dw ?
89
end virtual
90
91
 
92
{
93
  common
94
    local s1,s2,m1,m2,c1,c2
95
    m1 = 0
96
    m2 = 0
97
    c1 = 0
98
    c2 = 0
99
    if used _name
100
      dd _name#.actions
101
      dd _name#.data
102
      dd ?
103
      dw ?		; height
104
      dw ?		; width
105
      dw ?		; y
106
      dw ?		; x
107
      _name:
108
  forward
109
      if (lang eq _lang) | (_lang eq @!)
259 mikedld 110
	db 1
178 heavyiron 111
      end if
112
  common
113
      .data:
114
  forward
115
      if (lang eq _lang) | (_lang eq @!)
259 mikedld 116
	if _title eq '-'
178 heavyiron 117
	  db 1,'-'
118
	  c2 = c2+2
629 mikedld 119
	else
178 heavyiron 120
	  virtual at 0
121
	    db _title
122
	    s1 = $
123
	  end virtual
124
	  if m1 < s1
125
	    m1 = s1
126
	  end if
127
	  virtual at 0
128
	    db _accel
129
	    s2 = $
130
	  end virtual
131
	  if m2 < s2
132
	    m2 = s2
133
	  end if
134
	  db s1,_title,s2,_accel
135
	  c1 = c1+1
136
	end if
137
      end if
138
  common
139
      db 0
140
      align 4
141
      .actions:
142
  forward
143
      if (lang eq _lang) | (_lang eq @!)
259 mikedld 144
	if (_action eq )
145
	  dd 0
146
	else
147
	  dd _name#.#_action
148
	end if
149
      end if
178 heavyiron 150
  common
151
      .size	 = $-_name+20
152
      .max_title = m1
153
      .max_accel = m2
154
      .cnt_item  = c1
155
      .cnt_sep	 = c2
156
      if (m2 = 0)
157
	m2 = -2
158
      end if
159
      store word (m1*6+m2*6+6*8) at _name+POPUP.width
160
      store word (c1*POP_IHEIGHT+c2*POP_SHEIGHT+4) at _name+POPUP.height
629 mikedld 161
      store dword (((m1+2)*6-1)*65536) at _name+POPUP.acc_ofs
178 heavyiron 162
    end if
163
}
164
165
 
166
{
167
  common
168
    local s,m,c,x
169
    m = 0
170
    c = 0
171
    x = 2
172
    if used _name
173
      _name:
174
  forward
175
      if lang eq _lang
176
	virtual at 0
177
	  db _title
178
	  s = $
179
	end virtual
180
	if m < s
181
	  m = s
182
	end if
183
	dw (s+2)*6,x,ATOPH-1,0
184
	db s,_title
185
	c = c+1
186
	x = x + (s+2)*6
187
      end if
188
  common
189
      db 0
190
      align 4
191
      .popups:
192
  forward
193
      if lang eq _lang
194
	dd _popup
195
      end if
196
  common
197
      align 4
198
      .onshow:
199
  forward
200
      if lang eq _lang
201
	dd _onshow
202
      end if
203
  common
204
      .size	 = $-_name
205
      .max_title = m
206
      .cnt_item  = c
207
      .width	 = x-7
208
    end if
209
}
210
211
 
267 mikedld 212
213
 
214
MEV_LUP   = 2
215
MEV_RDOWN = 3
216
MEV_RUP   = 4
217
MEV_WHEEL = 5
617 mikedld 218
MEV_MOVE  = 6
219
267 mikedld 220
 
178 heavyiron 221
222
 
223
KM_CTRL 	= 0x00020000
224
KM_ALT		= 0x00040000
225
226
 
227
KM_ALTSHIFT	= 0x00050000
228
KM_CTRLALT	= 0x00060000
229
230
 
231
232
 
233
234
 
235
KEY_SNAPSHOT	= 0x00000137
236
KEY_PAUSE	= 0x0000021D
237
238
 
239
KEY_F2		= 0x0000003C
240
KEY_F3		= 0x0000003D
241
KEY_F4		= 0x0000003E
242
KEY_F5		= 0x0000003F
243
KEY_F6		= 0x00000040
244
KEY_F7		= 0x00000041
245
KEY_F8		= 0x00000042
246
KEY_F9		= 0x00000043
247
KEY_F10 	= 0x00000044
248
KEY_F11 	= 0x00000057
249
KEY_F12 	= 0x00000058
250
251
 
252
KEY_MINUS	= 0x0000000C
253
KEY_EQUAL	= 0x0000000D
254
KEY_BACKSPACE	= 0x0000000E
255
KEY_TAB 	= 0x0000000F
256
KEY_SQBRACE1	= 0x0000001A
257
KEY_SQBRACE2	= 0x0000001B
258
KEY_SLASH1	= 0x00000035
259
KEY_SLASH2	= 0x0000002B
260
KEY_SEMICOLON	= 0x00000027
261
KEY_QUOTE	= 0x00000028
262
KEY_COMMA	= 0x00000033
263
KEY_DOT 	= 0x00000034
264
KEY_SPACE	= 0x00000039
265
266
 
267
KEY_2		= 0x00000003
268
KEY_3		= 0x00000004
269
KEY_4		= 0x00000005
270
KEY_5		= 0x00000006
271
KEY_6		= 0x00000007
272
KEY_7		= 0x00000008
273
KEY_8		= 0x00000009
274
KEY_9		= 0x0000000A
275
KEY_0		= 0x0000000B
276
277
 
278
KEY_B		= 0x00000030
279
KEY_C		= 0x0000002E
280
KEY_D		= 0x00000020
281
KEY_E		= 0x00000012
282
KEY_F		= 0x00000021
283
KEY_G		= 0x00000022
284
KEY_H		= 0x00000023
285
KEY_I		= 0x00000017
286
KEY_J		= 0x00000024
287
KEY_K		= 0x00000025
288
KEY_L		= 0x00000026
289
KEY_M		= 0x00000032
290
KEY_N		= 0x00000031
291
KEY_O		= 0x00000018
292
KEY_P		= 0x00000019
293
KEY_Q		= 0x00000010
294
KEY_R		= 0x00000013
295
KEY_S		= 0x0000001F
296
KEY_T		= 0x00000014
297
KEY_U		= 0x00000016
298
KEY_V		= 0x0000002F
299
KEY_W		= 0x00000011
300
KEY_X		= 0x0000002D
301
KEY_Y		= 0x00000015
302
KEY_Z		= 0x0000002C
303
304
 
305
KEY_SCRLK	= 0x00000046
306
KEY_NUMLK	= 0x00000069
307
308
 
309
KEY_NUMRETURN	= 0x0000011C
310
311
 
312
KEY_RCONTROL	= 0x0000011D
313
KEY_LSHIFT	= 0x0000002A
314
KEY_RSHIFT	= 0x00000036
315
KEY_LALT	= 0x00000038
316
KEY_RALT	= 0x00000138
317
318
 
319
KEY_RWIN	= 0x0000015C
320
KEY_APPS	= 0x0000015D
321
322
 
323
KEY_DELETE	= 0x00000153
324
KEY_HOME	= 0x00000147
325
KEY_END 	= 0x0000014F
326
KEY_PAGEUP	= 0x00000149
327
KEY_PAGEDOWN	= 0x00000151
328
KEY_UP		= 0x00000148
329
KEY_LEFT	= 0x0000014B
330
KEY_RIGHT	= 0x0000014D
331
KEY_DOWN	= 0x00000150
332
333
 
334
KEY_MULTIPLY	= 0x00000037
335
KEY_SUBTRACT	= 0x0000004A
336
KEY_ADD 	= 0x0000004E
337
KEY_SEPARATOR	= 0x00000053
338
339
 
340
KEY_NUM2	= 0x00000050
341
KEY_NUM3	= 0x00000051
342
KEY_NUM4	= 0x0000004B
343
KEY_NUM5	= 0x0000004C
344
KEY_NUM6	= 0x0000004D
345
KEY_NUM7	= 0x00000047
346
KEY_NUM8	= 0x00000048
347
KEY_NUM9	= 0x00000049
348
KEY_NUM0	= 0x00000052
349
350
 
351
352
 
353
KEY_MYPICTURES	= 0x00000164
354
KEY_MYMUSIC	= 0x0000013C
355
KEY_MUTE	= 0x00000120
356
KEY_PLAYPAUSE	= 0x00000122
357
KEY_STOP	= 0x00000124
358
KEY_VOLUMEUP	= 0x00000130
359
KEY_VOLUMEDOWN	= 0x0000013E
360
KEY_PREVSONG	= 0x00000110
361
KEY_NEXTSONG	= 0x00000119
362
KEY_MEDIA	= 0x0000016D
363
KEY_MAIL	= 0x0000016C
364
KEY_WEBHOME	= 0x00000132
365
KEY_MESSENGER	= 0x00000105
366
367
 
368
KEY_LOGOFF	= 0x00000116
369
KEY_SLEEP	= 0x0000015F
370