Subversion Repositories Kolibri OS

Rev

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

Rev 5722 Rev 5750
Line 11... Line 11...
11 
;;             Version 2, June 1991                                ;;
 11 
;;             Version 2, June 1991                                ;;
12 
;;                                                                 ;;
 12 
;;                                                                 ;;
13 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 13 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 14... Line 14...
14 
 
 14 
 
- 
 
 15 
draw_gui:
- 
 
 16 
        mcall   67, 160, 160, 330, 100          ; resize and move the window
- 
 
 17 
        mcall   66, 1, 0                        ; switch keyboard to ascii mode
15 
draw_gui:
 18 
  .first_time:
Line 16... Line 19...
16 
        mcall   40, EVM_MOUSE + EVM_MOUSE_FILTER + EVM_REDRAW + EVM_BUTTON + EVM_KEY
 19 
        mcall   40, EVM_MOUSE + EVM_MOUSE_FILTER + EVM_REDRAW + EVM_BUTTON + EVM_KEY
17 
 
 20 
 
18 
  .redraw:
 21 
  .redraw:
Line 151... Line 154...
151 
        mov     edx, okstr
 154 
        mov     edx, okstr
152 
        mov     esi, okstr_e-okstr
 155 
        mov     esi, okstr_e-okstr
153 
        mcall   4                               ; OK button text
 156 
        mcall   4                               ; OK button text
Line 154... Line 157...
154 
 
 157 
 
155 
  .redraw_done:
 158 
  .redraw_done:
156 
        mov     [update_gui], 0
 159 
        and     [work], not WORK_GUI
Line 157... Line 160...
157 
        mcall   12, 2
 160 
        mcall   12, 2
158 
 
 161 
 
159 
  .loop:
 162 
  .loop:
160 
        cmp     [update_gui], 0
 163 
        test    [work], WORK_GUI
161 
        jne     .redraw
 164 
        jnz     .redraw
Line 162... Line 165...
162 
        cmp     [status], STATUS_CONNECTED
 165 
        cmp     [status], STATUS_CONNECTED
163 
        je      .connected
 166 
        je      .connected
Line 225... Line 228...
225 
        call    open_connection
 228 
        call    open_connection
226 
        jmp     .loop
 229 
        jmp     .loop
Line 227... Line 230...
227 
 
 230 
 
228 
  .login:
 231 
  .login:
229 
        mov     [status], STATUS_LOGIN
 232 
        mov     [status], STATUS_LOGIN
230 
        inc     [update_gui]
 233 
        or      [work], WORK_GUI
Line 231... Line 234...
231 
        jmp     .loop
 234 
        jmp     .loop
232 
 
 235 
 
233 
  .cancel:
 236 
  .cancel:
- 
 
 237 
        mcall   18, 18, [thread_id]             ; kill thread
- 
 
 238 
  .ok:
- 
 
 239 
        cmp     [status], STATUS_LIB_ERR
234 
        mcall   18, 18, [thread_id]             ; kill thread
 240 
        je      .close
235 
  .ok:
 241 
 
236 
        and     [URLbox.flags], not ed_disabled
 242 
        and     [URLbox.flags], not ed_disabled
237 
        mov     [USERbox.size], 0
 243 
        mov     [USERbox.size], 0
238 
        mov     [PASSbox.size], 0
 244 
        mov     [PASSbox.size], 0
- 
 
 245 
        mov     [status], STATUS_CONNECT
- 
 
 246 
        mov     [name.dash], 0
239 
        mov     [status], STATUS_CONNECT
 247 
        mcall   71, 1, name                     ; reset window caption
Line 240... Line 248...
240 
        inc     [update_gui]
 248 
        or      [work], WORK_GUI
241 
        jmp     .loop
 249 
        jmp     .loop
242 
 
 250 
 
Line 267... Line 275...
267 
        cmp     eax, -1
 275 
        cmp     eax, -1
268 
        jne     @f
 276 
        jne     @f
269 
        mov     [status], STATUS_THREAD_ERR
 277 
        mov     [status], STATUS_THREAD_ERR
270 
  @@:
 278 
  @@:
271 
        mov     [thread_id], eax
 279 
        mov     [thread_id], eax
272 
        inc     [update_gui]
 280 
        or      [work], WORK_GUI
Line 273... Line 281...
273 
 
 281 
 
274 
        ret
 282 
        ret