Subversion Repositories Kolibri OS

Rev

Rev 178 | Rev 267 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 178 Rev 259
Line -... Line 1...
- 
 
 1 
struct POINT
- 
 
 2 
  X dd ?
- 
 
 3 
  Y dd ?
- 
 
 4 
ends
- 
 
 5 
 
- 
 
 6 
struct RECT
- 
 
 7 
  Left	 dd ?
- 
 
 8 
  Top	 dd ?
- 
 
 9 
  Right  dd ?
- 
 
 10 
  Bottom dd ?
- 
 
 11 
ends
- 
 
 12 
 
- 
 
 13 
struct SCROLLBAR
- 
 
 14 
  Top  dd ?
- 
 
 15 
  Size dd ?
- 
 
 16 
ends
- 
 
 17 
 
- 
 
 18 
struct EDITOR
- 
 
 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 
struct TABITEM
- 
 
 38 
  Editor EDITOR
- 
 
 39 
ends
- 
 
 40 
 
- 
 
 41 
struct TABCTL
- 
 
 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 
virtual at -20
1 
virtual at -20
 54 
 POPUP:
2 
 POPUP:
 55 
  .actions dd ?
3 
  .actions dd ?
 56 
  .data    dd ?
4 
  .data    dd ?
 57 
  .acc_ofs dd ?
5 
  .acc_ofs dd ?
 58 
 .size:
Line 27... Line 80...
27 
      dw ?		; width
 80 
      dw ?		; y
28 
      dw ?		; y
 81 
      dw ?		; x
29 
      dw ?		; x
 82 
      _name:
30 
      _name:
 83 
  forward
31 
  forward
 84 
      if (lang eq _lang) | (_lang eq @!)
32 
      if (lang eq _lang)
 85 
	db 1
33 
	db 1
 86 
      end if
34 
      end if
 87 
  common
35 
  common
 88 
      .data:
36 
      .data:
 89 
  forward
37 
  forward
 90 
      if (lang eq _lang) | (_lang eq @!)
38 
      if lang eq _lang
 91 
	if _title eq '-'
39 
	if _title eq '-'
 92 
	  db 1,'-'
40 
	  db 1,'-'
 93 
	  c2 = c2+1
41 
	  c2 = c2+1
 94 
	else
42 
	else
 95 
	  virtual at 0
43 
	  virtual at 0
 96 
	    db _title
Line 61... Line 114...
61 
  common
 114 
      db 0
62 
      db 0
 115 
      align 4
63 
      align 4
 116 
      .actions:
64 
      .actions:
 117 
  forward
65 
  forward
 118 
      if (lang eq _lang) | (_lang eq @!)
66 
      if lang eq _lang
 119 
	if (_action eq )
67 
	dd _action
 120 
	  dd 0
- 
 
 121 
	else
- 
 
 122 
	  dd _name#.#_action
- 
 
 123 
	end if
- 
 
 124 
      end if
68 
      end if
 125 
  common
69 
  common
 126 
      .size	 = $-_name+20
70 
      .size	 = $-_name+20
 127 
      .max_title = m1
71 
      .max_title = m1
 128 
      .max_accel = m2
72 
      .max_accel = m2
 129 
      .cnt_item  = c1