WebSVN – Kolibri OS – Diff – /programs/system/menu/trunk/menu.asm


;******************************************************************************
;   MAIN MENU by lisovin@26.ru
;   Some parts of code rewritten by Ivan Poddubny 
;
;   Compile with FASM for Menuet
;******************************************************************************
  include "lang.inc"
  include "..\..\..\macros.inc"
 
  BTN_HEIGHT  = 22
  TXT_Y       = (BTN_HEIGHT)/2-5
 
  use32
  org	  0x0
  db	 'MENUET01'	    ; 8 byte id
  dd	 0x01		  ; header version
  dd	 START		   ; start of code
  dd	 I_END		   ; size of image
  dd	 0x20000	 ; memory for app
  dd	 0x20000-1	     ; esp
  dd	 0x0 , 0x0	   ; I_Param , I_Icon
;******************************************************************************
;include "DEBUG.INC"             ; debug macros
START:		       ; start of execution
 
     mov  eax, 48	  ; load system colors
     mov  ebx, 3
     mov  ecx, sc
     mov  edx, sizeof.system_colors
     mcall
 
     mov  eax, 70	  ; load MENU.DAT
     mov  ebx, fileinfo
     mcall
     test eax, eax	   ; error ?
     jz  @f
     cmp  eax,6
     jnz  close
  @@:
     test ebx, ebx	   ; length = 0 ?
     jz   close
     mov  ecx, ebx
     mov  edi, mem_end
  newsearch:
     mov  al, '#'
     cld
     repne scasb
     test ecx, ecx	   ; if not found
     jz   close
     call get_number
     test ebx, ebx
     jnz  .number
     cmp  al, '#'
     je   search_end
   .number:
     shl  ebx, 4
     add  ebx, menu_data     ; pointer to process table
     mov  [ebx], edi
     inc  [processes]
     jmp  newsearch
  search_end:
     mov  [end_pointer], edi
     mov  ebx, [processes]
     dec  ebx
     shl  ebx, 4
     add  ebx, menu_data
  newprocess:
     xor  edx, edx
     mov  ecx, edi
     sub  ecx, [ebx]
     mov  al, 10
  newsearch1:
     std
     repne scasb
     test ecx, ecx
     je   endprocess
     cmp  [edi], byte 13
     jne  newsearch1
     inc  edx
     jmp  newsearch1
  endprocess:
     mov  esi, ebx
     add  esi, 4
     dec  edx
     mov  [esi], dl
     cmp  ebx, menu_data
     jbe  search_end1
     sub  ebx, 16
     jmp  newprocess
  search_end1:
     mov  eax, 14
     mcall
     sub  ax, 20
     mov  [menu_data + y_end],	    ax
     mov  [menu_data + x_start],  5
     mov  al, [menu_data + rows]
     mov  [menu_data + cur_sel],  al	 ; clear selection
     mov  [menu_data + prev_sel], al
 
     mov  [buffer], 0
  thread:
     mov  eax, [buffer]      ; identifier
     shl  eax, 4
     add  eax, menu_data
     mov  edi, eax
 
     mov  eax, 40	  ; set event mask
     mov  ebx, 100111b	       ; mouse + button + key + redraw
     mcall
 
     call draw_window
 
still:
    mov  eax, 23	 ; wait here for event
    mov  ebx, 5
    mcall
 
    test [close_now], 1      ; is close flag set?
    jnz  close
 
    cmp  eax, 1 	 ; redraw request ?
    je	   red
    cmp  eax, 2 	 ; key pressed ?
    je	   key
    cmp  eax, 3 	 ; button in buffer ?
    je	   button
    cmp  eax, 6 	 ; mouse event ?
    je	   mouse
 
    cmp  edi, menu_data
    je	   still	     ; if main process-ignored
 
  movzx  ebx, [edi + parent]	 ; parent id
    shl  ebx, 4
    add  ebx, menu_data      ; ebx = base of parent info
    call backconvert	     ; get my id in al
    cmp  al, [ebx + child]    ; if I'm not child of my parent, I shall die :)
    jne  close
 
    jmp  still
 
 
  red:		       ; redraw
    call draw_window
    jmp  still
 
 
  key:
;   mov  eax, 2
    mcall
 
    mov  al,  [edi + rows]     ; number of buttons
 
    cmp  ah,  178	  ; KEY_UP
    jne  .noup
 
    mov  ah,  [edi+cur_sel]
    mov  [edi+prev_sel], ah
    dec  byte [edi+cur_sel]
    jnz  redrawbut
    mov  [edi+cur_sel], al
    jmp  redrawbut
 
 
  .noup:
    cmp  ah, 177	 ; KEY_DOWN
    jne  .nodn
 
    mov  ah, [edi + cur_sel]
    mov  [edi + prev_sel], ah
    inc  [edi + cur_sel]
    cmp  [edi + cur_sel], al
    jna  redrawbut
    mov  [edi + cur_sel], 1
    jmp  redrawbut
 
  .nodn:
    cmp  ah, 13 	 ; ENTER
    jne  .noenter
    mov  ah, [edi + cur_sel]
    jmp  button1
 
  .noenter:
    cmp  ah, 27 	 ; ESC
    jne  still
    jmp  close
 
;           include "DEBUG.INC"
 
  button:	      ; BUTTON HANDLER
    mov  eax, 17	 ; get id
    mcall
 
  button1:
    mov  esi, edi
    push edi
    mov  edi, [edi + pointer]
 
; print "hello"
    mov  al, [esi + cur_sel]
    mov  [esi + prev_sel], al
    mov  [esi + cur_sel], ah
    pushad
    mov edi, esi
;    dph eax
    call draw_only_needed_buttons
    popad
 
    ; look for the next line  times;  = button_id
    push eax
  .next_string:
    call searchstartstring
    dec  ah
    jnz  .next_string
    pop  eax
 
    mov  ecx, 40
    mov  al, '/'
    cld
  repne  scasb
    test ecx, ecx	  ; if '/' not found
    je	   searchexit
 
    cmp  [edi], byte '@'     ; check for submenu
    je	   runthread
 
    dec  edi
    push edi		 ; pointer to start of filename
    call searchstartstring   ; search for next string
    sub  edi, 2 	 ; to last byte of string
 
    mov  ecx, edi
    pop  esi
    sub  ecx, esi
    inc  ecx		 ; length of filename
    mov  edi, fileinfo_start.name
    rep  movsb		   ; copy string
    mov  byte [edi], 0	       ; store terminator
    mov  eax, 70	 ; start program
    mov  ebx, fileinfo_start
    mcall
;    mcall 5,100
    or	   [close_now], 1      ; set close flag
    pop  edi
    mov  [mousemask], 0
    jmp  close
 
  searchexit:
    pop  edi
    jmp  still
 
 
  runthread:
    inc  edi
 
    push eax
    call get_number	     ; get number of this process
    pop  eax
 
    test ebx, ebx	   ; returned zero - main menu or not number
    jz	   searchexit
 
    mov  al, bl
 
    mov  ebx, [processes]
    dec  bl
    cmp  al, bl
    ja	   searchexit	       ; such process doesnt exist
    cmp  al, [esi + child]
    je	   searchexit	       ; such process already exists
 
    mov  [esi + child], al    ; this is my child
    mov  cx, [esi + x_start]
    add  cx, 141	  ; new x_start in cx
  movzx  edx, al
    shl  edx, 4
    add  edx, menu_data       ; edx points to child's base address
    mov  [edx + x_start], cx  ; xstart for new thread
    mov  cx,  [esi + y_end]   ; y_end in cx
    mov  bl,  [esi + rows]    ; number of buttons in bl
    sub  bl,  ah	  ; number of btn from bottom
  movzx  eax, al
    mov  [buffer], eax		; thread id in buffer
  movzx  ebx, bl
    push edx
    mov  eax, BTN_HEIGHT
    mul  ebx
    sub  cx,  ax	  ; new y_end for new thread
    pop  edx
    mov  [edx + y_end], cx    ; store y_end
    mov  edi, esi
    call backconvert	      ; get number of this process (al)
    mov  [edx + parent], al   ; store number of parent process
    mov  al, [edx + rows]
    mov  [edx + cur_sel], al  ; clear current selected element
    mov  [edx + prev_sel], al ; clear previous selected element
    mov  [edx + child], 0
 
    cmp  [thread_stack], 0x1e000
    jne  thread_stack_not_full
    mov  [thread_stack], 0xE000
 
thread_stack_not_full:
    add  [thread_stack], 0x2000 ; start new thread
    mov  eax, 51
    mov  ebx, 1
    mov  ecx, thread
    mov  edx, [thread_stack]
    mcall
 
    jmp  searchexit
 
 
 mouse: 	      ; MOUSE EVENT HANDLER
    mov  eax, 37
    mov  ebx, 2
    mcall
    test eax, eax	   ; check buttons state
    jnz  click
    mov  eax, 37
    mov  ebx, 1
    mcall
    ror  eax, 16	  ; eax = [ Y | X ] relative to window
    cmp  ax,  140	   ; pointer in window?
    ja	   noinwindow
;  in window 
 
    shr  eax, 16	  ; eax = [ 0 | Y ]
    xor  edx, edx
    mov  ebx, BTN_HEIGHT
    div  ebx
    inc  eax		  ; number of "button" in eax
  movzx  ebx, [edi + rows]    ; total strings in ebx
    cmp  eax, ebx
    ja	   noinwindow
    cmp  [edi + cur_sel], al
    je	   noredrawbut
    mov  bl, [edi + cur_sel]
 
   ;;;;;;
    cmp  [edi + child], 0
    jne  noredrawbut
   ;;;;;;
 
    mov  [edi + cur_sel], al
    mov  [edi + prev_sel], bl
  redrawbut:
    call draw_only_needed_buttons
  noredrawbut:
    call backconvert
    bts  [mousemask], eax
    jmp  still
  noinwindow:
    call backconvert
    btr  [mousemask], eax
    jmp  still
  click:
    cmp  [mousemask], 0  ; not in a window (i.e. menu)
    je	   close
    jmp  still
 
 
  close:
        movzx   ebx, [edi+parent]       ; parent id
        shl     ebx, 4
        add     ebx, menu_data          ; ebx = base of parent info
        call    backconvert
        cmp     [ebx + child], al       ; if i am the child of my parent...
        jnz     @f
        mov     [ebx + child], -1       ; ...my parent now has no children
@@:
        or      eax, -1                 ; close this thread
        mov     [edi + child], al       ; my child is not mine
        mcall
 
 
  backconvert:		  ; convert from pointer to process id
    mov  eax, edi
    sub  eax, menu_data
    shr  eax, 4
    ret
 
 
;==================================
; get_number
;    load number from [edi] to ebx
;==================================
  get_number:
    push edi
 
    xor  eax, eax
    xor  ebx, ebx
 
   .get_next_char:
    mov  al, [edi]
    inc  edi
    cmp  al, '0'
    jb	   .finish
    cmp  al, '9'
    ja	   .finish
    sub  al, '0'
    imul ebx, 10
    add  ebx, eax
    jmp  .get_next_char
 
   .finish:
    pop  edi
    ret
 
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window:
 
    mov  eax, 12	   ; function 12:tell os about windowdraw
    mov  ebx, 1 	   ; 1, start of draw
    mcall
 
  movzx  ebx, [edi + rows]
   imul  eax, ebx, BTN_HEIGHT	    ; eax = height of window
  movzx  ecx, [edi + y_end]
    sub  ecx, eax	    ; ecx = Y_START
    shl  ecx, 16
    add  ecx, eax	    ; ecx = [ Y_START | Y_SIZE ]
    dec  ecx
  movzx  ebx, [edi + x_start]
    shl  ebx, 16
    mov  bx,  140	    ; ebx = [ X_START | X_SIZE ]
    xor  eax, eax	    ; function 0 : define and draw window
    mov  edx, 0x01000000       ; color of work area RRGGBB,8->color gl
    mov  esi, edx	    ; unmovable window
    mcall
 
    call draw_all_buttons
 
    mov  eax,12
    mov  ebx,2
    mcall
 
    ret
 
 
 draw_all_buttons:
    xor  edx, edx
  .new_button:
    call draw_one_button
    inc  edx
    cmp  dl, [edi + rows]
    jb	   .new_button
 
    ret
 
 
 draw_only_needed_buttons:
    xor  edx, edx
    mov  dl, [edi + cur_sel]
    dec  dl
    call draw_one_button
    mov  dl, [edi + prev_sel]
    dec  dl
    call draw_one_button
    ret
 
 
 draw_one_button:
 ; receives number of button in dl
    push edx;ad
 
    mov  eax, 8
    mov  ebx, 140
  movzx  ecx, dl
    imul ecx, BTN_HEIGHT
    shl  ecx, 16
    add  ecx, BTN_HEIGHT-1
;   edx = button identifier
    mov  esi, [sc.work]
    cmp  esi, 0xdfdfdf
    jb   nocorrect
    sub  esi, 0x1b1b1b
  nocorrect: 
    inc  dl
    cmp  [edi + cur_sel], dl
    jne  .nohighlight
    add  esi, 0x1a1a1a
  .nohighlight:
    or	   edx, 0x20000000
    mcall
    movzx edx, dl
 
    dec  dl
    imul ebx, edx, BTN_HEIGHT
    add  ebx, (4 shl 16) + TXT_Y
 
  movzx  ecx, dl
    inc  ecx
    mov  edx, [edi + pointer]
  .findline:
    cmp  byte [edx], 13
    je	   .linefound
    inc  edx
    jmp  .findline
  .linefound:
    inc  edx
    cmp  byte [edx], 10
    jne  .findline
    dec  ecx
    jnz  .findline
 
    mov  ecx, [sc.work_text]
    mov  eax, 4
    mov  esi, 21
    mcall
 
    pop  edx;ad
    ret
 
 
 searchstartstring:
    mov  ecx, 40
    mov  al, 13
    cld
  repne  scasb
    cmp  byte [edi], 10
    jne  searchstartstring
    ret
 
 
;*** DATA AREA ****************************************************************
 
thread_stack   dd   0xE000
processes      dd   0
 
fileinfo:
 .subfunction	 dd   0 	      ; 0=READ
 .start 	 dd   0 	      ; start byte
 .size_high	 dd   0 	      ; rezerved
 .size		 dd   0x10000-mem_end ; blocks to read
 .return	 dd   mem_end	      ; return data pointer
 .name:
     db   '/sys/MENU.DAT',0   ; ASCIIZ dir & filename
 
fileinfo_start:
 .subfunction	 dd   7 	 ; 7=START APPLICATION
 .flags 	 dd   0 	 ; flags
 .params	 dd   0x0	 ; nop
 .rezerved	 dd   0x0	 ; nop
 .rezerved_1	 dd   0x0	 ; nop
 .name:
   times 50 db ' '
 
I_END:
 
close_now      dd ?   ; close all processes immediately
end_pointer    dd ?
buffer		 dd ?
mousemask      dd ?   ; mask for mouse pointer location
 
sc system_colors
 
menu_data:
  rb 0x4000  ;x10000
 
virtual at 0	      ; PROCESSES TABLE (located at menu_data)
  pointer      dd ?   ; +0    pointer in file
  rows		 db ?	; +4    numer of strings
  x_start      dw ?   ; +5    x start
  y_end        dw ?   ; +7    y end
  child        db ?   ; +9    id of child menu
  parent       db ?   ; +10   id of parent menu
  cur_sel      db ?   ; +11   current selection
  prev_sel     db ?   ; +12   previous selection
  rb	       16-$+1 ; [16 bytes per element]
end virtual
 
mem_end:

Rev 529	Rev 728
1	;******************************************************************************	1	;******************************************************************************
2	; MAIN MENU by lisovin@26.ru	2	; MAIN MENU by lisovin@26.ru
3	; Some parts of code rewritten by Ivan Poddubny	3	; Some parts of code rewritten by Ivan Poddubny
4	;	4	;
5	; Compile with FASM for Menuet	5	; Compile with FASM for Menuet
6	;******************************************************************************	6	;******************************************************************************
7	include "lang.inc"	7	include "lang.inc"
8	include "..\..\..\macros.inc"	8	include "..\..\..\macros.inc"
9		9
10	BTN_HEIGHT = 22	10	BTN_HEIGHT = 22
11	TXT_Y = (BTN_HEIGHT)/2-5	11	TXT_Y = (BTN_HEIGHT)/2-5
12		12
13	use32	13	use32
14	org 0x0	14	org 0x0
15	db 'MENUET01' ; 8 byte id	15	db 'MENUET01' ; 8 byte id
16	dd 0x01 ; header version	16	dd 0x01 ; header version
17	dd START ; start of code	17	dd START ; start of code
18	dd I_END ; size of image	18	dd I_END ; size of image
19	dd 0x20000 ; memory for app	19	dd 0x20000 ; memory for app
20	dd 0x20000-1 ; esp	20	dd 0x20000-1 ; esp
21	dd 0x0 , 0x0 ; I_Param , I_Icon	21	dd 0x0 , 0x0 ; I_Param , I_Icon
22	;******************************************************************************	22	;******************************************************************************
23	;include "DEBUG.INC" ; debug macros	23	;include "DEBUG.INC" ; debug macros
24	START: ; start of execution	24	START: ; start of execution
25		25
26	mov eax, 48 ; load system colors	26	mov eax, 48 ; load system colors
27	mov ebx, 3	27	mov ebx, 3
28	mov ecx, sc	28	mov ecx, sc
29	mov edx, sizeof.system_colors	29	mov edx, sizeof.system_colors
30	mcall	30	mcall
31		31
32	mov eax, 70 ; load MENU.DAT	32	mov eax, 70 ; load MENU.DAT
33	mov ebx, fileinfo	33	mov ebx, fileinfo
34	mcall	34	mcall
35	test eax, eax ; error ?	35	test eax, eax ; error ?
36	jz @f	36	jz @f
37	cmp eax,6	37	cmp eax,6
38	jnz close	38	jnz close
39	@@:	39	@@:
40	test ebx, ebx ; length = 0 ?	40	test ebx, ebx ; length = 0 ?
41	jz close	41	jz close
42	mov ecx, ebx	42	mov ecx, ebx
43	mov edi, mem_end	43	mov edi, mem_end
44	newsearch:	44	newsearch:
45	mov al, '#'	45	mov al, '#'
46	cld	46	cld
47	repne scasb	47	repne scasb
48	test ecx, ecx ; if not found	48	test ecx, ecx ; if not found
49	jz close	49	jz close
50	call get_number	50	call get_number
51	test ebx, ebx	51	test ebx, ebx
52	jnz .number	52	jnz .number
53	cmp al, '#'	53	cmp al, '#'
54	je search_end	54	je search_end
55	.number:	55	.number:
56	shl ebx, 4	56	shl ebx, 4
57	add ebx, menu_data ; pointer to process table	57	add ebx, menu_data ; pointer to process table
58	mov [ebx], edi	58	mov [ebx], edi
59	inc [processes]	59	inc [processes]
60	jmp newsearch	60	jmp newsearch
61	search_end:	61	search_end:
62	mov [end_pointer], edi	62	mov [end_pointer], edi
63	mov ebx, [processes]	63	mov ebx, [processes]
64	dec ebx	64	dec ebx
65	shl ebx, 4	65	shl ebx, 4
66	add ebx, menu_data	66	add ebx, menu_data
67	newprocess:	67	newprocess:
68	xor edx, edx	68	xor edx, edx
69	mov ecx, edi	69	mov ecx, edi
70	sub ecx, [ebx]	70	sub ecx, [ebx]
71	mov al, 10	71	mov al, 10
72	newsearch1:	72	newsearch1:
73	std	73	std
74	repne scasb	74	repne scasb
75	test ecx, ecx	75	test ecx, ecx
76	je endprocess	76	je endprocess
77	cmp [edi], byte 13	77	cmp [edi], byte 13
78	jne newsearch1	78	jne newsearch1
79	inc edx	79	inc edx
80	jmp newsearch1	80	jmp newsearch1
81	endprocess:	81	endprocess:
82	mov esi, ebx	82	mov esi, ebx
83	add esi, 4	83	add esi, 4
84	dec edx	84	dec edx
85	mov [esi], dl	85	mov [esi], dl
86	cmp ebx, menu_data	86	cmp ebx, menu_data
87	jbe search_end1	87	jbe search_end1
88	sub ebx, 16	88	sub ebx, 16
89	jmp newprocess	89	jmp newprocess
90	search_end1:	90	search_end1:
91	mov eax, 14	91	mov eax, 14
92	mcall	92	mcall
93	sub ax, 20	93	sub ax, 20
94	mov [menu_data + y_end], ax	94	mov [menu_data + y_end], ax
95	mov [menu_data + x_start], 5	95	mov [menu_data + x_start], 5
96	mov al, [menu_data + rows]	96	mov al, [menu_data + rows]
97	mov [menu_data + cur_sel], al ; clear selection	97	mov [menu_data + cur_sel], al ; clear selection
98	mov [menu_data + prev_sel], al	98	mov [menu_data + prev_sel], al
99		99
100	mov [buffer], 0	100	mov [buffer], 0
101	thread:	101	thread:
102	mov eax, [buffer] ; identifier	102	mov eax, [buffer] ; identifier
103	shl eax, 4	103	shl eax, 4
104	add eax, menu_data	104	add eax, menu_data
105	mov edi, eax	105	mov edi, eax
106		106
107	mov eax, 40 ; set event mask	107	mov eax, 40 ; set event mask
108	mov ebx, 100111b ; mouse + button + key + redraw	108	mov ebx, 100111b ; mouse + button + key + redraw
109	mcall	109	mcall
110		110
111	call draw_window	111	call draw_window
112		112
113	still:	113	still:
114	mov eax, 23 ; wait here for event	114	mov eax, 23 ; wait here for event
115	mov ebx, 5	115	mov ebx, 5
116	mcall	116	mcall
117		117
118	test [close_now], 1 ; is close flag set?	118	test [close_now], 1 ; is close flag set?
119	jnz close	119	jnz close
120		120
121	cmp eax, 1 ; redraw request ?	121	cmp eax, 1 ; redraw request ?
122	je red	122	je red
123	cmp eax, 2 ; key pressed ?	123	cmp eax, 2 ; key pressed ?
124	je key	124	je key
125	cmp eax, 3 ; button in buffer ?	125	cmp eax, 3 ; button in buffer ?
126	je button	126	je button
127	cmp eax, 6 ; mouse event ?	127	cmp eax, 6 ; mouse event ?
128	je mouse	128	je mouse
129		129
130	cmp edi, menu_data	130	cmp edi, menu_data
131	je still ; if main process-ignored	131	je still ; if main process-ignored
132		132
133	movzx ebx, [edi + parent] ; parent id	133	movzx ebx, [edi + parent] ; parent id
134	shl ebx, 4	134	shl ebx, 4
135	add ebx, menu_data ; ebx = base of parent info	135	add ebx, menu_data ; ebx = base of parent info
136	call backconvert ; get my id in al	136	call backconvert ; get my id in al
137	cmp al, [ebx + child] ; if I'm not child of my parent, I shall die :)	137	cmp al, [ebx + child] ; if I'm not child of my parent, I shall die :)
138	jne close	138	jne close
139		139
140	jmp still	140	jmp still
141		141
142		142
143	red: ; redraw	143	red: ; redraw
144	call draw_window	144	call draw_window
145	jmp still	145	jmp still
146		146
147		147
148	key:	148	key:
149	; mov eax, 2	149	; mov eax, 2
150	mcall	150	mcall
151		151
152	mov al, [edi + rows] ; number of buttons	152	mov al, [edi + rows] ; number of buttons
153		153
154	cmp ah, 178 ; KEY_UP	154	cmp ah, 178 ; KEY_UP
155	jne .noup	155	jne .noup
156		156
157	mov ah, [edi+cur_sel]	157	mov ah, [edi+cur_sel]
158	mov [edi+prev_sel], ah	158	mov [edi+prev_sel], ah
159	dec byte [edi+cur_sel]	159	dec byte [edi+cur_sel]
160	jnz redrawbut	160	jnz redrawbut
161	mov [edi+cur_sel], al	161	mov [edi+cur_sel], al
162	jmp redrawbut	162	jmp redrawbut
163		163
164		164
165	.noup:	165	.noup:
166	cmp ah, 177 ; KEY_DOWN	166	cmp ah, 177 ; KEY_DOWN
167	jne .nodn	167	jne .nodn
168		168
169	mov ah, [edi + cur_sel]	169	mov ah, [edi + cur_sel]
170	mov [edi + prev_sel], ah	170	mov [edi + prev_sel], ah
171	inc [edi + cur_sel]	171	inc [edi + cur_sel]
172	cmp [edi + cur_sel], al	172	cmp [edi + cur_sel], al
173	jna redrawbut	173	jna redrawbut
174	mov [edi + cur_sel], 1	174	mov [edi + cur_sel], 1
175	jmp redrawbut	175	jmp redrawbut
176		176
177	.nodn:	177	.nodn:
178	cmp ah, 13 ; ENTER	178	cmp ah, 13 ; ENTER
179	jne .noenter	179	jne .noenter
180	mov ah, [edi + cur_sel]	180	mov ah, [edi + cur_sel]
181	jmp button1	181	jmp button1
182		182
183	.noenter:	183	.noenter:
184	cmp ah, 27 ; ESC	184	cmp ah, 27 ; ESC
185	jne still	185	jne still
186	jmp close	186	jmp close
187		187
188	; include "DEBUG.INC"	188	; include "DEBUG.INC"
189		189
190	button: ; BUTTON HANDLER	190	button: ; BUTTON HANDLER
191	mov eax, 17 ; get id	191	mov eax, 17 ; get id
192	mcall	192	mcall
193		193
194	button1:	194	button1:
195	mov esi, edi	195	mov esi, edi
196	push edi	196	push edi
197	mov edi, [edi + pointer]	197	mov edi, [edi + pointer]
198		198
199	; print "hello"	199	; print "hello"
200	mov al, [esi + cur_sel]	200	mov al, [esi + cur_sel]
201	mov [esi + prev_sel], al	201	mov [esi + prev_sel], al
202	mov [esi + cur_sel], ah	202	mov [esi + cur_sel], ah
203	pushad	203	pushad
204	mov edi, esi	204	mov edi, esi
205	; dph eax	205	; dph eax
206	call draw_only_needed_buttons	206	call draw_only_needed_buttons
207	popad	207	popad
208		208
209	; look for the next line times; = button_id	209	; look for the next line times; = button_id
210	push eax	210	push eax
211	.next_string:	211	.next_string:
212	call searchstartstring	212	call searchstartstring
213	dec ah	213	dec ah
214	jnz .next_string	214	jnz .next_string
215	pop eax	215	pop eax
216		216
217	mov ecx, 40	217	mov ecx, 40
218	mov al, '/'	218	mov al, '/'
219	cld	219	cld
220	repne scasb	220	repne scasb
221	test ecx, ecx ; if '/' not found	221	test ecx, ecx ; if '/' not found
222	je searchexit	222	je searchexit
223		223
224	cmp [edi], byte '@' ; check for submenu	224	cmp [edi], byte '@' ; check for submenu
225	je runthread	225	je runthread
226		226
227	dec edi	227	dec edi
228	push edi ; pointer to start of filename	228	push edi ; pointer to start of filename
229	call searchstartstring ; search for next string	229	call searchstartstring ; search for next string
230	sub edi, 2 ; to last byte of string	230	sub edi, 2 ; to last byte of string
231		231
232	mov ecx, edi	232	mov ecx, edi
233	pop esi	233	pop esi
234	sub ecx, esi	234	sub ecx, esi
235	inc ecx ; length of filename	235	inc ecx ; length of filename
236	mov edi, fileinfo_start.name	236	mov edi, fileinfo_start.name
237	rep movsb ; copy string	237	rep movsb ; copy string
238	mov byte [edi], 0 ; store terminator	238	mov byte [edi], 0 ; store terminator
239	mov eax, 70 ; start program	239	mov eax, 70 ; start program
240	mov ebx, fileinfo_start	240	mov ebx, fileinfo_start
241	mcall	241	mcall
242	; mcall 5,100	242	; mcall 5,100
243	or [close_now], 1 ; set close flag	243	or [close_now], 1 ; set close flag
244	pop edi	244	pop edi
245	mov [mousemask], 0	245	mov [mousemask], 0
246	jmp close	246	jmp close
247		247
248	searchexit:	248	searchexit:
249	pop edi	249	pop edi
250	jmp still	250	jmp still
251		251
252		252
253	runthread:	253	runthread:
254	inc edi	254	inc edi
255		255
256	push eax	256	push eax
257	call get_number ; get number of this process	257	call get_number ; get number of this process
258	pop eax	258	pop eax
259		259
260	test ebx, ebx ; returned zero - main menu or not number	260	test ebx, ebx ; returned zero - main menu or not number
261	jz searchexit	261	jz searchexit
262		262
263	mov al, bl	263	mov al, bl
264		264
265	mov ebx, [processes]	265	mov ebx, [processes]
266	dec bl	266	dec bl
267	cmp al, bl	267	cmp al, bl
268	ja searchexit ; such process doesnt exist	268	ja searchexit ; such process doesnt exist
269	cmp al, [esi + child]	269	cmp al, [esi + child]
270	je searchexit ; such process already exists	270	je searchexit ; such process already exists
271		271
272	mov [esi + child], al ; this is my child	272	mov [esi + child], al ; this is my child
273	mov cx, [esi + x_start]	273	mov cx, [esi + x_start]
274	add cx, 141 ; new x_start in cx	274	add cx, 141 ; new x_start in cx
275	movzx edx, al	275	movzx edx, al
276	shl edx, 4	276	shl edx, 4
277	add edx, menu_data ; edx points to child's base address	277	add edx, menu_data ; edx points to child's base address
278	mov [edx + x_start], cx ; xstart for new thread	278	mov [edx + x_start], cx ; xstart for new thread
279	mov cx, [esi + y_end] ; y_end in cx	279	mov cx, [esi + y_end] ; y_end in cx
280	mov bl, [esi + rows] ; number of buttons in bl	280	mov bl, [esi + rows] ; number of buttons in bl
281	sub bl, ah ; number of btn from bottom	281	sub bl, ah ; number of btn from bottom
282	movzx eax, al	282	movzx eax, al
283	mov [buffer], eax ; thread id in buffer	283	mov [buffer], eax ; thread id in buffer
284	movzx ebx, bl	284	movzx ebx, bl
285	push edx	285	push edx
286	mov eax, BTN_HEIGHT	286	mov eax, BTN_HEIGHT
287	mul ebx	287	mul ebx
288	sub cx, ax ; new y_end for new thread	288	sub cx, ax ; new y_end for new thread
289	pop edx	289	pop edx
290	mov [edx + y_end], cx ; store y_end	290	mov [edx + y_end], cx ; store y_end
291	mov edi, esi	291	mov edi, esi
292	call backconvert ; get number of this process (al)	292	call backconvert ; get number of this process (al)
293	mov [edx + parent], al ; store number of parent process	293	mov [edx + parent], al ; store number of parent process
294	mov al, [edx + rows]	294	mov al, [edx + rows]
295	mov [edx + cur_sel], al ; clear current selected element	295	mov [edx + cur_sel], al ; clear current selected element
296	mov [edx + prev_sel], al ; clear previous selected element	296	mov [edx + prev_sel], al ; clear previous selected element
297	mov [edx + child], 0	297	mov [edx + child], 0
298		298
299	cmp [thread_stack], 0x1e000	299	cmp [thread_stack], 0x1e000
300	jne thread_stack_not_full	300	jne thread_stack_not_full
301	mov [thread_stack], 0xE000	301	mov [thread_stack], 0xE000
302		302
303	thread_stack_not_full:	303	thread_stack_not_full:
304	add [thread_stack], 0x2000 ; start new thread	304	add [thread_stack], 0x2000 ; start new thread
305	mov eax, 51	305	mov eax, 51
306	mov ebx, 1	306	mov ebx, 1
307	mov ecx, thread	307	mov ecx, thread
308	mov edx, [thread_stack]	308	mov edx, [thread_stack]
309	mcall	309	mcall
310		310
311	jmp searchexit	311	jmp searchexit
312		312
313		313
314	mouse: ; MOUSE EVENT HANDLER	314	mouse: ; MOUSE EVENT HANDLER
315	mov eax, 37	315	mov eax, 37
316	mov ebx, 2	316	mov ebx, 2
317	mcall	317	mcall
318	test eax, eax ; check buttons state	318	test eax, eax ; check buttons state
319	jnz click	319	jnz click
320	mov eax, 37	320	mov eax, 37
321	mov ebx, 1	321	mov ebx, 1
322	mcall	322	mcall
323	ror eax, 16 ; eax = [ Y \| X ] relative to window	323	ror eax, 16 ; eax = [ Y \| X ] relative to window
324	cmp ax, 140 ; pointer in window?	324	cmp ax, 140 ; pointer in window?
325	ja noinwindow	325	ja noinwindow
326	; in window	326	; in window
327		327
328	shr eax, 16 ; eax = [ 0 \| Y ]	328	shr eax, 16 ; eax = [ 0 \| Y ]
329	xor edx, edx	329	xor edx, edx
330	mov ebx, BTN_HEIGHT	330	mov ebx, BTN_HEIGHT
331	div ebx	331	div ebx
332	inc eax ; number of "button" in eax	332	inc eax ; number of "button" in eax
333	movzx ebx, [edi + rows] ; total strings in ebx	333	movzx ebx, [edi + rows] ; total strings in ebx
334	cmp eax, ebx	334	cmp eax, ebx
335	ja noinwindow	335	ja noinwindow
336	cmp [edi + cur_sel], al	336	cmp [edi + cur_sel], al
337	je noredrawbut	337	je noredrawbut
338	mov bl, [edi + cur_sel]	338	mov bl, [edi + cur_sel]
339		339
340	;;;;;;	340	;;;;;;
341	cmp [edi + child], 0	341	cmp [edi + child], 0
342	jne noredrawbut	342	jne noredrawbut
343	;;;;;;	343	;;;;;;
344		344
345	mov [edi + cur_sel], al	345	mov [edi + cur_sel], al
346	mov [edi + prev_sel], bl	346	mov [edi + prev_sel], bl
347	redrawbut:	347	redrawbut:
348	call draw_only_needed_buttons	348	call draw_only_needed_buttons
349	noredrawbut:	349	noredrawbut:
350	call backconvert	350	call backconvert
351	bts [mousemask], eax	351	bts [mousemask], eax
352	jmp still	352	jmp still
353	noinwindow:	353	noinwindow:
354	call backconvert	354	call backconvert
355	btr [mousemask], eax	355	btr [mousemask], eax
356	jmp still	356	jmp still
357	click:	357	click:
358	cmp [mousemask], 0 ; not in a window (i.e. menu)	358	cmp [mousemask], 0 ; not in a window (i.e. menu)
359	je close	359	je close
360	jmp still	360	jmp still
361		361
362		362
363	close:	363	close:
-		364	movzx ebx, [edi+parent] ; parent id
-		365	shl ebx, 4
-		366	add ebx, menu_data ; ebx = base of parent info
-		367	call backconvert
-		368	cmp [ebx + child], al ; if i am the child of my parent...
-		369	jnz @f
-		370	mov [ebx + child], -1 ; ...my parent now has no children
-		371	@@:
364	or eax, -1 ; close this thread	372	or eax, -1 ; close this thread
365	mov [edi + child], al ; my child is not mine	373	mov [edi + child], al ; my child is not mine
366	mcall	374	mcall
367		-
368		375
369	backconvert: ; convert from pointer to process id	376	backconvert: ; convert from pointer to process id
370	mov eax, edi	377	mov eax, edi
371	sub eax, menu_data	378	sub eax, menu_data
372	shr eax, 4	379	shr eax, 4
373	ret	380	ret
374		381
375		382
376	;==================================	383	;==================================
377	; get_number	384	; get_number
378	; load number from [edi] to ebx	385	; load number from [edi] to ebx
379	;==================================	386	;==================================
380	get_number:	387	get_number:
381	push edi	388	push edi
382		389
383	xor eax, eax	390	xor eax, eax
384	xor ebx, ebx	391	xor ebx, ebx
385		392
386	.get_next_char:	393	.get_next_char:
387	mov al, [edi]	394	mov al, [edi]
388	inc edi	395	inc edi
389	cmp al, '0'	396	cmp al, '0'
390	jb .finish	397	jb .finish
391	cmp al, '9'	398	cmp al, '9'
392	ja .finish	399	ja .finish
393	sub al, '0'	400	sub al, '0'
394	imul ebx, 10	401	imul ebx, 10
395	add ebx, eax	402	add ebx, eax
396	jmp .get_next_char	403	jmp .get_next_char
397		404
398	.finish:	405	.finish:
399	pop edi	406	pop edi
400	ret	407	ret
401		408
402		409
403	; *********************************************	410	; *********************************************
404	; ***** WINDOW DEFINITIONS AND DRAW ******	411	; ***** WINDOW DEFINITIONS AND DRAW ******
405	; *********************************************	412	; *********************************************
406		413
407		414
408	draw_window:	415	draw_window:
409		416
410	mov eax, 12 ; function 12:tell os about windowdraw	417	mov eax, 12 ; function 12:tell os about windowdraw
411	mov ebx, 1 ; 1, start of draw	418	mov ebx, 1 ; 1, start of draw
412	mcall	419	mcall
413		420
414	movzx ebx, [edi + rows]	421	movzx ebx, [edi + rows]
415	imul eax, ebx, BTN_HEIGHT ; eax = height of window	422	imul eax, ebx, BTN_HEIGHT ; eax = height of window
416	movzx ecx, [edi + y_end]	423	movzx ecx, [edi + y_end]
417	sub ecx, eax ; ecx = Y_START	424	sub ecx, eax ; ecx = Y_START
418	shl ecx, 16	425	shl ecx, 16
419	add ecx, eax ; ecx = [ Y_START \| Y_SIZE ]	426	add ecx, eax ; ecx = [ Y_START \| Y_SIZE ]
420	dec ecx	427	dec ecx
421	movzx ebx, [edi + x_start]	428	movzx ebx, [edi + x_start]
422	shl ebx, 16	429	shl ebx, 16
423	mov bx, 140 ; ebx = [ X_START \| X_SIZE ]	430	mov bx, 140 ; ebx = [ X_START \| X_SIZE ]
424	xor eax, eax ; function 0 : define and draw window	431	xor eax, eax ; function 0 : define and draw window
425	mov edx, 0x01000000 ; color of work area RRGGBB,8->color gl	432	mov edx, 0x01000000 ; color of work area RRGGBB,8->color gl
426	mov esi, edx ; unmovable window	433	mov esi, edx ; unmovable window
427	mcall	434	mcall
428		435
429	call draw_all_buttons	436	call draw_all_buttons
430		437
431	mov eax,12	438	mov eax,12
432	mov ebx,2	439	mov ebx,2
433	mcall	440	mcall
434		441
435	ret	442	ret
436		443
437		444
438	draw_all_buttons:	445	draw_all_buttons:
439	xor edx, edx	446	xor edx, edx
440	.new_button:	447	.new_button:
441	call draw_one_button	448	call draw_one_button
442	inc edx	449	inc edx
443	cmp dl, [edi + rows]	450	cmp dl, [edi + rows]
444	jb .new_button	451	jb .new_button
445		452
446	ret	453	ret
447		454
448		455
449	draw_only_needed_buttons:	456	draw_only_needed_buttons:
450	xor edx, edx	457	xor edx, edx
451	mov dl, [edi + cur_sel]	458	mov dl, [edi + cur_sel]
452	dec dl	459	dec dl
453	call draw_one_button	460	call draw_one_button
454	mov dl, [edi + prev_sel]	461	mov dl, [edi + prev_sel]
455	dec dl	462	dec dl
456	call draw_one_button	463	call draw_one_button
457	ret	464	ret
458		465
459		466
460	draw_one_button:	467	draw_one_button:
461	; receives number of button in dl	468	; receives number of button in dl
462	push edx;ad	469	push edx;ad
463		470
464	mov eax, 8	471	mov eax, 8
465	mov ebx, 140	472	mov ebx, 140
466	movzx ecx, dl	473	movzx ecx, dl
467	imul ecx, BTN_HEIGHT	474	imul ecx, BTN_HEIGHT
468	shl ecx, 16	475	shl ecx, 16
469	add ecx, BTN_HEIGHT-1	476	add ecx, BTN_HEIGHT-1
470	; edx = button identifier	477	; edx = button identifier
471	mov esi, [sc.work]	478	mov esi, [sc.work]
472	cmp esi, 0xdfdfdf	479	cmp esi, 0xdfdfdf
473	jb nocorrect	480	jb nocorrect
474	sub esi, 0x1b1b1b	481	sub esi, 0x1b1b1b
475	nocorrect:	482	nocorrect:
476	inc dl	483	inc dl
477	cmp [edi + cur_sel], dl	484	cmp [edi + cur_sel], dl
478	jne .nohighlight	485	jne .nohighlight
479	add esi, 0x1a1a1a	486	add esi, 0x1a1a1a
480	.nohighlight:	487	.nohighlight:
481	or edx, 0x20000000	488	or edx, 0x20000000
482	mcall	489	mcall
483	movzx edx, dl	490	movzx edx, dl
484		491
485	dec dl	492	dec dl
486	imul ebx, edx, BTN_HEIGHT	493	imul ebx, edx, BTN_HEIGHT
487	add ebx, (4 shl 16) + TXT_Y	494	add ebx, (4 shl 16) + TXT_Y
488		495
489	movzx ecx, dl	496	movzx ecx, dl
490	inc ecx	497	inc ecx
491	mov edx, [edi + pointer]	498	mov edx, [edi + pointer]
492	.findline:	499	.findline:

Subversion Repositories Kolibri OS

(root)/programs/system/menu/trunk/menu.asm @ 1937 – Rev 529 → 728