Subversion Repositories Kolibri OS

Rev

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

Rev 1385 Rev 2128
Line 45... Line 45...
45
	xor	ebp,ebp
45
	xor	ebp,ebp
46
	inc	ebp
46
	inc	ebp
47
;    mov  ebp,1
47
;    mov  ebp,1
48
    call draw_window		; redraw all window
48
    call draw_window		; redraw all window
49
still:
49
still:
50
    mov  eax,23 		; wait here for event
50
    mcall 23,100		; wait here for event 1 sec.
51
    mov  ebx,100		; 1 sec.
-
 
52
    mcall
-
 
Line 53... Line 51...
53
 
51
 
54
    dec  eax		      ; redraw request ?
52
    dec  eax		      ; redraw request ?
55
    jz	 red
53
    jz	 red
56
    dec  eax		      ; key in buffer ?
54
    dec  eax		      ; key in buffer ?
Line 75... Line 73...
75
    call draw_window
73
    call draw_window
76
    jmp  still
74
    jmp  still
Line 77... Line 75...
77
 
75
 
78
 
-
 
79
  key:				; key
76
 
Line 80... Line 77...
80
    mov  eax,2			
77
  key:				; key
81
    mcall
78
    mcall 2
82
 
79
 
83
    cmp  ah,184 		; PageUp
80
    cmp  ah,184 		; PageUp
Line 191... Line 188...
191
    mcall
188
    mcall
Line 192... Line 189...
192
 
189
 
193
.nodelete:
190
.nodelete:
194
;create terminate process button
191
;create terminate process button
195
    mov   eax,8
192
    mov   eax,8
196
    mov   ebx,(15-offset_x)*65536+100-offset_y
193
    mov   ebx,(15-offset_x)*65536+121-offset_y
-
 
194
    mov   ecx,[curposy]
197
    mov   ecx,[curposy]
195
	;sub   ecx,1
198
    shl   ecx,16
196
    shl   ecx,16
199
    mov   cx,10
197
    mov   cx,10
200
    mov   edx,[index]
198
    mov   edx,[index]
201
    add   edx,11
199
    add   edx,11
Line 539... Line 537...
539
;ebp=0 - redraw only process information
537
;ebp=0 - redraw only process information
Line 540... Line 538...
540
 
538
 
541
    test ebp,ebp
539
    test ebp,ebp
Line 542... Line -...
542
    jz	 .show_process_info
-
 
543
    
-
 
544
    mov  eax,12 		   ; function 12:tell os about windowdraw
-
 
545
;    mov  ebx,1                     ; 1, start of draw
-
 
546
    xor  ebx,ebx
540
    jz	 .show_process_info
Line 547... Line 541...
547
    inc  ebx
541
    
548
    mcall		       
542
    mcall 12, 1		       
549
 
543
 
550
				   ; DRAW WINDOW
544
	; DRAW WINDOW
551
    xor  eax,eax		   ; function 0 : define and draw window
545
    xor  eax,eax				; function 0 : define and draw window
552
    mov  ebx,[winxpos]		   ; [x start] *65536 + [x size]
546
    mov  ebx,[winxpos]			; [x start] *65536 + [x size]
553
    mov  ecx,[winypos]		   ; [y start] *65536 + [y size]
547
    mov  ecx,[winypos]			; [y start] *65536 + [y size]
Line 554... Line 548...
554
    mov  edx,0x34ddffdd  ;ffffff   ; color of work area RRGGBB,8->color
548
    mov  edx,0x34ddffdd			; color of work area RRGGBB,8->color
555
    mov  edi,title		  ; WINDOW CAPTION;
549
    mov  edi,title				; WINDOW CAPTION;
556
    mcall
550
    mcall
557
 
551
 
558
				   
552
				   
559
    add  eax,4			   ; function 4 : write text to window
553
    add  eax,4					; function 4 : write text to window
Line 641... Line 635...
641
    mcall
635
    mcall
Line 642... Line 636...
642
 
636
 
643
;print application name in text box
637
;print application name in text box
Line 644... Line -...
644
;    call print_text
-
 
645
 
-
 
646
    mov  eax,12 		   ; function 12:tell os about windowdraw
638
;    call print_text
Line 647... Line 639...
647
    mov  ebx,2			   ; 2, end of draw
639
 
648
    mcall
640
    mcall 12, 2