Subversion Repositories Kolibri OS

Rev

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

Rev 7464 Rev 7465
Line 31... Line 31...
31 
 
 31 
 
32 
  .redraw:
 32 
  .redraw:
33 
        call    .draw
 33 
        call    .draw
Line -... Line 34...
- 
 
 34 
        jmp     .still
- 
 
 35
- 
 
 36 
  .draw_editboxes:
- 
 
 37 
        stdcall [edit_box_draw], edit_usr
- 
 
 38 
        stdcall [edit_box_draw], edit_pass
- 
 
 39 
        stdcall [edit_box_draw], edit_server
- 
 
 40 
        stdcall [edit_box_draw], edit_port
- 
 
 41 
        stdcall [edit_box_draw], edit_path
Line 34... Line 42...
34 
        jmp     .still
 42 
		ret
35 
 
 43 
 
36 
 
 44 
 
37 
  align 4
 45 
  align 4
Line 38... Line -...
38 
  .draw:
 - 
 
39 
        mcall   12, 1
 46 
  .draw:
40 
        mcall   0, , , 0x34000000+SYS_COL, 0x805080DD, str_title
 - 
 
41 
 
 - 
 
42 
        stdcall [edit_box_draw], edit_usr
 - 
 
Line 43... Line 47...
43 
        stdcall [edit_box_draw], edit_pass
 47 
        mcall   12, 1
44 
        stdcall [edit_box_draw], edit_server
 48 
        mcall   0, , , 0x34000000+SYS_COL, 0x805080DD, str_title
Line 45... Line 49...
45 
        stdcall [edit_box_draw], edit_port
 49 
 
Line 113... Line 117...
113
117
114 
  .exit:
 118 
  .exit:
Line 115... Line 119...
115 
        jmp     gui.exit
 119 
        jmp     gui.exit
- 
 
 120 
 
- 
 
 121 
  .tab:
- 
 
 122 
        test word [edit_usr.flags],ed_focus
- 
 
 123 
		je @f
116 
 
 124 
		sub     word [edit_usr.flags],ed_focus
- 
 
 125 
		add     word [edit_pass.flags],ed_focus
- 
 
 126 
		jmp     .tab_end
- 
 
 127 
  @@:
- 
 
 128 
        test word [edit_pass.flags],ed_focus
- 
 
 129 
		je @f
- 
 
 130 
		sub     word [edit_pass.flags],ed_focus
- 
 
 131 
		add     word [edit_server.flags],ed_focus
- 
 
 132 
		jmp     .tab_end
- 
 
 133 
  @@:
- 
 
 134 
        test word [edit_server.flags],ed_focus
- 
 
 135 
		je @f
- 
 
 136 
		sub     word [edit_server.flags],ed_focus
- 
 
 137 
		add     word [edit_port.flags],ed_focus
- 
 
 138 
		jmp     .tab_end
- 
 
 139 
  @@:
- 
 
 140 
        test word [edit_port.flags],ed_focus
- 
 
 141 
		je @f
- 
 
 142 
		sub     word [edit_port.flags],ed_focus
- 
 
 143 
		add     word [edit_path.flags],ed_focus
- 
 
 144 
		jmp     .tab_end
- 
 
 145 
  @@:
- 
 
 146 
        test word [edit_path.flags],ed_focus
- 
 
 147 
		je @f
- 
 
 148 
		sub     word [edit_path.flags],ed_focus
- 
 
 149 
		add     word [edit_usr.flags],ed_focus
- 
 
 150 
		;jmp     .tab_end
- 
 
 151
117 
  .tab:
 152 
	.tab_end:
Line -... Line 153...
- 
 
 153 
	    call    .draw_editboxes
- 
 
 154 
        jmp     .still
- 
 
 155 
 
Line 118... Line 156...
118 
        ;TODO
 156 
;=========================================================
119 
        jmp     .still
 157 
;DATA AREA
120 
 
 158 
;=========================================================
121 
 
 159