Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1101 Lrz 1 
;---------------------------------------------------------------------
2 
thread3:
3 
 
4 
     call draw_window3
5 
 
6 
still3:
7 
 
8 
    mov  eax,10 		; wait here for event
9 
    mcall
10 
 
11 
    cmp  eax,1			; redraw request ?
12 
    je	 thread3
13 
    cmp  eax,2			; key in buffer ?
14 
    je	 key3
15 
    cmp  eax,3			; button in buffer ?
16 
    je	 button3
17 
 
18 
    jmp  still3
19 
 
20 
  key3:
21 
    mcall
22 
    cmp  ah,27
23 
    je	 close3
24 
    jmp  still3
25 
 
26 
 
27 
  button3:			 ; button
28 
    mov  eax,17 		; get id
29 
    mcall
30 
 
31 
    cmp  ah,1			; button id=1 ?
32 
	je   close3
33 
	cmp  ah,2
34 
    jne  noclose3
35 
  close3:
36 
    mov  eax,-1 		; close this program
37 
    mcall
38 
  noclose3:
39 
     jmp  still3
40 
 
41 
 
42 
 
43 
 
44 
;   *********************************************
45 
;   *******  WINDOW DEFINITIONS AND DRAW ********
46 
;   *********************************************
47 
 
48 
 
49 
draw_window3:
50 
 
51 
 
52 
    mov  eax,12 		   ; function 12:tell os about windowdraw
53 
    mov  ebx,1			   ; 1, start of draw
54 
    mcall
55 
 
56 
				   ; DRAW WINDOW
57 
    xor  eax,eax		   ; function 0 : define and draw window
58 
    mov  ebx,100*65536+200	   ; [x start] *65536 + [x size]
59 
    mov  ecx,100*65536+100	   ; [y start] *65536 + [y size]
60 
    mov  edx,0x03eeeeee 	   ; color of work area RRGGBB,8->color gl
61 
    mcall
62 
 
63 
    mcall 4,<10,40>,0x80000000,header_1
64 
 
65 
    mov  ebx,70*65536+40
66 
    mov  ecx,70*65536+20
67 
    mov  edx,2
68 
    mov  esi,0xdddddd
69 
    mcall 8
70 
 
71 
    add  ebx,15 shl 16
72 
	shr  ecx,16
73 
	mov  bx,cx
74 
	add  ebx,6
75 
 
76 
	mov  ecx,0
77 
    mov  edx, ok_btn
78 
    mov  esi,2
79 
    mcall 4
80 
 
81 
				   ; WINDOW LABEL
82 
    mcall 71,1, labelt3
83 
 
84 
    mov  eax,12 		   ; function 12:tell os about windowdraw
85 
    mov  ebx,2			   ; 2, end of draw
86 
    mcall
87 
 
88 
    ret
89 
;---------------------------------------------------------------------