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


;******************************************************************************
;   MAIN MENU
;******************************************************************************
; last update:  17/04/2012
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      Support for boot parameters.
;------------------------------------------------------------------------------
; last update:  22/03/2012
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      Global optimization! The program uses
;               only 32 KB of memory instead of 128 kb is now.
;------------------------------------------------------------------------------
; last update:  19/09/2011
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      Checking for program exist to memory
;               Added processing of keys: left and right arrow
;------------------------------------------------------------------------------
;   MAIN MENU by lisovin@26.ru
;   Some parts of code rewritten by Ivan Poddubny 
;
;   Compile with FASM for Kolibri
;******************************************************************************
  BTN_HEIGHT         = 26
  BTN_WIDTH          = 178
  TXT_Y              = (BTN_HEIGHT)/2-6
  FONT_TYPE          = 0x90000000
 
  PANEL_HEIGHT       = 20
  MENU_BOTTON_X_POS  = 10
  MENU_BOTTON_X_SIZE = 50
;------------------------------------------------------------------------------
	use32
	org 0x0
 
	db 'MENUET01'  ; 8 byte id
	dd 0x01        ; header version
	dd START       ; start of code
	dd IM_END      ; size of image
	dd mem_end     ; memory for app
	dd stack_area  ; esp
	dd bootparam   ; boot parameters
	dd 0x0         ; path
;------------------------------------------------------------------------------
include "..\..\..\macros.inc"
include "..\..\..\gui_patterns.inc"
;include "../../../debug.inc"             ; debug macros
;------------------------------------------------------------------------------
align 4
conversion_ASCII_to_HEX:
	xor	ebx,ebx
	cld
	lodsd
	mov	ecx,4
;--------------------------------------
align 4
.loop:
	cmp	al,0x60	; check for ABCDEF
	ja	@f
	sub	al,0x30 ; 0-9
	jmp	.store
;--------------------------------------
align 4
@@:
	sub	al,0x57 ; A-F
;--------------------------------------
align 4
.store:
	and	al,0xf
	rol	ebx,4
	add	bl,al
	ror	eax,8
	dec	ecx
	jnz	.loop
 
	ret
;------------------------------------------------------------------------------
align 4
START:		       ; start of execution
	mcall	68,11
	
	mcall 30, 1, default_dir
 
	mov	esi,bootparam	
	cmp	[esi],byte 0
	je	.no_boot_parameters
; boot params - hex
; db '9999'	; +0	Menu button X
; db '9999'	; +4	Menu button X size
; db '9999'	; +8	Menu button Y
; db '9999'	; +12	Menu button Y size
; db '9999'	; +16	Panel height
; db '1000'	; +20	Panel attachment
 
;	mov	edx,bootparam
;	call	debug_outstr
;	newline
 
	call	conversion_ASCII_to_HEX
	mov	[menu_button_x.start],ebx
	
;	dps	"menu_button_x.start: "
;	dpd	ebx
;	newline
 
	call	conversion_ASCII_to_HEX
	mov	[menu_button_x.size],ebx
 
;	dps	"menu_button_x.size: "
;	dpd	ebx
;	newline
 
	call	conversion_ASCII_to_HEX
	mov	[menu_button_y.start],ebx
 
;	dps	"menu_button_y.start: "
;	dpd	ebx
;	newline
	
	call	conversion_ASCII_to_HEX
	mov	[menu_button_y.size],ebx
	
;	dps	"menu_button_y.size: "
;	dpd	ebx
;	newline
	
	call	conversion_ASCII_to_HEX
	mov	[panel_height],ebx
 
;	dps	"panel_height: "
;	dpd	ebx
;	newline
	
	call	conversion_ASCII_to_HEX
	mov	[panel_attachment],ebx
	
;	dps	"panel_attachment: "
;	dpd	ebx
;	newline
;--------------------------------------
align 4	
.no_boot_parameters:
	call	program_exist
	mcall	14
	mov	[screen_size],eax
	
	mcall	48,3,sc,sizeof.system_colors	; load system colors
	
; get size of file MENU.DAT
	mcall	70,fileinfo
	test	eax,eax
	jnz	close
; get memory for MENU.DAT
	mov	ecx,[procinfo+32]
	mov	[fileinfo.size],ecx
	mcall	68,12
	mov	[fileinfo.return],eax
	mcall	68
	mov	[menu_data],eax
; load MENU.DAT
	mov	[fileinfo],dword 0
	mcall	70,fileinfo
	test	eax,eax
	jnz	close
 
	test	ebx,ebx	   ; length = 0 ?
	jz	close
	mov	ecx,ebx
	mov	edi,[fileinfo.return]	;mem_end
;--------------------------------------
align 4
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
;--------------------------------------
align 4
.number:
	shl	ebx,4
	add	ebx,[menu_data]     ; pointer to process table
	mov	[ebx],edi
	inc	[processes]
	jmp	newsearch
;--------------------------------------
align 4
search_end:
	mov	[end_pointer],edi
	mov	ebx,[processes]
	dec	ebx
	shl	ebx,4
	add	ebx,[menu_data]
;--------------------------------------
align 4
newprocess:
	xor	edx,edx
	mov	ecx,edi
	sub	ecx,[ebx]
	mov	al,10
;--------------------------------------
align 4
newsearch1:
	std
	repne	scasb
	test	ecx,ecx
	je	endprocess
	cmp	[edi],byte 13
	jne	newsearch1
	inc	edx
	jmp	newsearch1
;--------------------------------------
align 4
endprocess:
	mov	esi,ebx
	add	esi,4
	dec	edx
	mov	[esi],dl
	cmp	ebx,[menu_data]
	jbe	search_end1
	sub	ebx,16
	jmp	newprocess
;--------------------------------------
align 4
search_end1:
	mcall	14
	cmp	[panel_attachment],byte 1
	je	@f
	xor	ax,ax
	jmp	.store
;--------------------------------------
align 4	
@@:
	sub	ax,[panel_height]	;20
.store:
	mov	ebx,[menu_data]
	mov	[ebx + y_end],ax
	mov	[ebx + x_start],5
	mov	al,[ebx + rows]
	mov	[ebx + cur_sel],al	 ; clear selection
	mov	[ebx + prev_sel],al
	mov	[buffer],0
;------------------------------------------------------------------------------
align 4
thread:
	mov	ebp,esp
	sub	ebp,0x1000
	cmp	ebp,0x2000 ; if this is first started thread
	ja	@f
	xor	ebp,ebp ; not free area
;--------------------------------------
align 4
@@:
	mov	eax,[buffer]      ; identifier
	shl	eax,4
	add	eax,[menu_data]
	mov	edi,eax
	mcall	40,100111b	; mouse + button + key + redraw
;------------------------------------------------------------------------------
align 4
red:	
	call	draw_window	; redraw
;------------------------------------------------------------------------------
align 4
still:
	call	free_area_if_set_mutex
 
	mcall	23,5	; wait here for event
	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
;------------------------------------------------------------------------------
align 4
key:
	mcall	2
	mov	[last_key],ah
	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
;--------------------------------------
align 4
.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
;--------------------------------------
align 4
.nodn:
	cmp	ah,179 	 ; KEY_LEFT
	je	@f
	cmp	ah,13 	 ; ENTER
	jne	.noenter
@@:
	mov	ah,[edi + cur_sel]
	jmp	button1
;--------------------------------------
align 4
.noenter:
	cmp	ah,176 	 ; KEY_RIGHT
	je	@f
	cmp	ah,27 	 ; ESC
	jne	still
	jmp	close
;--------------------------------------
align 4
@@:
	call	get_process_ID
	cmp	[main_process_ID],ecx
	jne	close
	jmp	still
;------------------------------------------------------------------------------
align 4
button:	; BUTTON HANDLER
	mcall	17	; get id
				; dunkaist[
	test	eax,0xfffffe00	; is it system close button? (close signal from @taskbar)
	setz	byte[close_now]	; set (or not set) close_recursive flag
	jz	close		; if so,close all menus
				; dunkaist]
;--------------------------------------
align 4
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
;--------------------------------------
align 4
.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
	
	cmp	[last_key],179
	je	searchexit
	
	;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	[edi],byte 0	       ; store terminator
	mcall	70,fileinfo_start	; start program
	or	[close_now],1      ; set close flag
	pop	edi
	mov	[mousemask],0
	jmp	close
;--------------------------------------
align 4
searchexit:
	pop	edi
	jmp	still
;------------------------------------------------------------------------------
align 4
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,BTN_WIDTH+1	  ; 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
 
	; Leency: store vars for case when attachement=top 
	pusha
	mov [prior_thread_selected_y_end], bl
	mcall	9,procinfo,-1
	m2m     [prior_thread_y], dword[procinfo+38]
	m2m     [prior_thread_h], dword[procinfo+46]
	popa
 
	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
	
	mcall	68,12,0x1000	; stack of each thread is allocated 4 KB
	add	eax,0x1000	; set the stack pointer to the desired position
	mov	edx,eax
	mcall	51,1,thread	; Go ahead!
	jmp	searchexit
;------------------------------------------------------------------------------
align 4
mouse: 	      ; MOUSE EVENT HANDLER
	mcall	37,0
	mov	[screen_mouse_position],eax ; eax = [ Y | X ] relative to screen
 
	mcall	37,2
	test	eax,eax	   ; check buttons state
	jnz	click
	mcall	37,1
	ror	eax,16	  ; eax = [ Y | X ] relative to window
	cmp	ax,BTN_WIDTH	   ; 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
;--------------------------------------
align 4
redrawbut:
	call	draw_only_needed_buttons
;--------------------------------------
align 4
noredrawbut:
	call	backconvert
	bts	[mousemask],eax
	jmp	still
;--------------------------------------
align 4
noinwindow:
	call	backconvert
	btr	[mousemask],eax
	jmp	still
;------------------------------------------------------------------------------
align 4
click:
	cmp	[mousemask],0  ; not in a window (i.e. menu)
	jne	still
; checking for pressing 'MENU' on the taskbar	
	mov	eax,[screen_mouse_position]
	
	cmp	[panel_attachment],byte 1
	je	@f
 
	xor	ebx,ebx
	jmp	.check_y
;--------------------------------------
align 4
@@:
	mov	ebx,[screen_size]
	sub	bx,word [panel_height]	;PANEL_HEIGHT
;--------------------------------------
align 4
.check_y:
	add	bx,word [menu_button_y.start]
	cmp	bx,ax
	ja	close
 
	add	bx,word [menu_button_y.size]
	cmp	bx,ax
	jb	close
	
	shr	eax,16
	
	mov	ebx,[menu_button_x.start]
	cmp	bx,ax	; MENU_BOTTON_X_SIZE
	ja	close
	
	add	bx,[menu_button_x.size]
	cmp	bx,ax	; MENU_BOTTON_X_POS
	ja	still
;------------------------------------------------------------------------------
align 4
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
;--------------------------------------
align 4
@@:
	or	eax,-1                 ; close this thread
	mov	[edi + child],al       ; my child is not mine
	
	call	free_area_if_set_mutex
	call	set_mutex_for_free_area
	
	mcall
;--------------------------------------
align 4
backconvert:		  ; convert from pointer to process id
	mov	eax,edi
	sub	eax,[menu_data]
	shr	eax,4
	ret
;------------------------------------------------------------------------------
align 4
set_mutex_for_free_area:
; set mutex for free thread stack area	
	push	eax ebx
;--------------------------------------
align 4
.wait_lock:
        cmp     [free_my_area_lock], 0
        je      .get_lock
	mcall	68,1
        jmp     .wait_lock
;--------------------------------------
align 4
.get_lock:
        mov     eax, 1
        xchg    eax, [free_my_area_lock]
        test    eax, eax
        jnz     .wait_lock
	mov	[free_my_area],ebp
	pop	ebx eax
	ret
;------------------------------------------------------------------------------
align 4
free_area_if_set_mutex:
	cmp	[free_my_area_lock],0
	je	.end
 
	push	eax ebx ecx
	mov	ecx,[free_my_area]
 
	test	ecx,ecx
	jz	@f
	mcall	68,13
;--------------------------------------
align 4
@@:
	xor	eax,eax
	mov	[free_my_area_lock],eax
	pop	ecx ebx eax
;--------------------------------------
align 4
.end:	
	ret
;------------------------------------------------------------------------------
;==================================
; get_number
;    load number from [edi] to ebx
;==================================
align 4
get_number:
	push	edi
	xor	eax,eax
	xor	ebx,ebx
;--------------------------------------
align 4
.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
;-------------------------------------
align 4
.finish:
	pop	edi
	ret
;------------------------------------------------------------------------------
align 4
get_process_ID:
	mcall	9,procinfo,-1
	mov	edx,eax
	mov	ecx,[ebx+30]	; PID
	ret
;------------------------------------------------------------------------------
align 4
program_exist:
	call	get_process_ID
	mov	[main_process_ID],ecx
	mcall	18,21
	mov	[active_process],eax	; WINDOW SLOT
	mov	ecx,edx
	xor	edx,edx
;-----------------------------------------
align 4
.loop:
	push	ecx
	mcall	9,procinfo
	mov	eax,[menu_mame]
	cmp	[ebx+10],eax
	jne	@f
	; temporary to fit into 3 IMG sectors
	;mov	ax,[menu_mame+4]
	;cmp	[ebx+14],ax
	;jne	@f
	cmp	ecx,[active_process]
	je	@f
; dph ecx
	mcall	18,2
	mov	edx,1
;--------------------------------------
align 4
@@:
	pop	ecx
	loop	.loop
 
	test	edx,edx
	jz	@f
	mcall	-1
;--------------------------------------
align 4
@@:
	ret
;------------------------------------------------------------------------------
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
align 4
draw_window:
	mcall	48,5
	mov	[x_working_area],eax
	mov	[y_working_area],ebx
 
	mcall	12,1	; 1,start of draw
	movzx	ebx,[edi + rows]
	imul	eax,ebx,BTN_HEIGHT	    ; eax = height of window
	movzx	ecx,[edi + y_end]
	cmp	[panel_attachment],byte 1
	je	@f
	
	
	;cmp	ebp,0x000 ; if this is first started thread
	;je .1            ; then show it at the very top
	
	push  ebx eax
	; if attachement=top 
	; then NEW_WIN_Y = PRIOR_WIN_Y + PRIOR_WIN_H - ITEM_H + 1 - SEL_ITEM_Y
 
	mov ecx, [prior_thread_y]
	add ecx, [prior_thread_h]
	sub ecx, BTN_HEIGHT
	inc ecx
 
	xor eax, eax
	mov al, [prior_thread_selected_y_end]
	mov ebx, BTN_HEIGHT
	mul ebx
		
	sub ecx, eax
 
	mov	[edi + cur_sel],1 ;if attachement=top then set item=1 selected
	
	pop eax ebx
 
	jmp	.1
;--------------------------------------
align 4
@@:	
	sub	ecx,eax	    ; ecx = Y_START
;--------------------------------------
align 4
.1:
	shl	ecx,16
	add	ecx,eax	    ; ecx = [ Y_START | Y_SIZE ]
	dec ecx
 
	movzx	ebx,[edi + x_start]
	shl	ebx,16
	mov	bx,BTN_WIDTH	    ; ebx = [ X_START | X_SIZE ]
	mov	edx,0x01000000       ; color of work area RRGGBB,8->color gl
	mov	esi,edx	    ; unmovable window
	
	mov	eax,[y_working_area]
	shr	eax,16
	ror	ecx,16
	test	cx,0x8000
	jz	@f
	mov	cx,ax
;--------------------------------------
align 4
@@:
	cmp	cx,ax
	ja	@f
	mov	cx,ax	
;--------------------------------------
align 4
@@:
	rol	ecx,16
	xor	eax,eax	    ; function 0 : define and draw window
	mcall
	
;	dps	"[ Y_START | Y_SIZE ] : "
;	dph	ecx
;	newline
 
;	dps	"[ X_START | X_SIZE ] : "
;	dph	ebx
;	newline
 
	call	draw_all_buttons
	mcall	12,2
	ret
;------------------------------------------------------------------------------
align 4
draw_all_buttons:
	xor	edx,edx
;--------------------------------------
align 4
.new_button:
	call	draw_one_button
	inc	edx
	cmp	dl,[edi + rows]
	jb	.new_button
	ret
;------------------------------------------------------------------------------
align 4
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
;------------------------------------------------------------------------------
align 4
draw_one_button:
; receives number of button in dl
	push	edx
	mov	eax,8
	mov	ebx,BTN_WIDTH
	movzx	ecx,dl
	imul	ecx,BTN_HEIGHT
	mov [draw_y], ecx
	shl	ecx,16
	add	ecx,BTN_HEIGHT
; edx = button identifier
	mov	esi,[sc.work]
	cmp	esi,0xdfdfdf
	jb	nocorrect
	sub	esi,0x1b1b1b
	
;--------------------------------------
align 4
nocorrect: 
	inc	dl
	cmp	[edi + cur_sel],dl
	jne	.nohighlight
	cmp esi,0
	jne @f
	mov esi,0x2a2a2a
@@:
	add	esi,0x1a1a1a
;--------------------------------------
align 4
.nohighlight:
	or	edx,BT_NOFRAME + BT_HIDE
				; dunkaist[
	add	edx,0xd1ff00	; This makes first menu buttons differ
				; from system close button with 0x000001 id
				; dunkaist]
	mcall
	push edx 
	
	mov edx, esi
	mcall 13
	
	mcall , BTN_WIDTH,<[draw_y],1>,[sc.work_light]
	add     ecx, BTN_HEIGHT-1
	mcall , 1
	inc     ecx
	mcall , , , [sc.work_dark]
	add     [draw_y], BTN_HEIGHT-1
	mcall , BTN_WIDTH,<[draw_y],1>
	
	pop edx
	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]
;--------------------------------------
align 4
.findline:
	cmp	byte [edx],13
	je	.linefound
	inc	edx
	jmp	.findline
;------------------------------------------------------------------------------
align 4
.linefound:
	inc	edx
	cmp	byte [edx],10
	jne	.findline
	dec	ecx
	jnz	.findline
	
	mov ecx, [sc.work_text]
	add ecx, FONT_TYPE
	mcall	4,,,,21
	pop	edx
	ret
;------------------------------------------------------------------------------
align 4
searchstartstring:
	mov	ecx,40
	mov	al,13
	cld
	repne	scasb
	cmp	byte [edi],10
	jne	searchstartstring
	ret
;------------------------------------------------------------------------------
;*** DATA AREA ****************************************************************
menu_mame:   db '@MENU',0
default_dir: db '/sys',0
 
align 4
free_my_area_lock	dd 0
free_my_area	dd 0
 
processes      dd 0
;--------------------------------------
menu_button_x:
.start:	dd MENU_BOTTON_X_POS
.size:	dd MENU_BOTTON_X_SIZE
;--------------------------------------
menu_button_y:
.start:	dd 2
.size:	dd 18
;--------------------------------------
panel_height:		dd PANEL_HEIGHT
panel_attachment:	dd 1
;--------------------------------------
align 4
fileinfo:
 .subfunction	 dd 5		; 5 - file info; 0 - file read
 .start 	 dd 0		; start byte
 .size_high	 dd 0		; rezerved
 .size		 dd 0		; bytes to read
 .return	 dd procinfo	; return data pointer
 .name:
     db   'SETTINGS/MENU.DAT',0   ; ASCIIZ dir & filename
;--------------------------------------
align 4
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 ' '
;------------------------------------------------------------------------------
IM_END:
;------------------------------------------------------------------------------
align 4
close_now	dd ?   ; close all processes immediately
end_pointer	dd ?
buffer		dd ?
mousemask	dd ?   ; mask for mouse pointer location
 
active_process	dd ?
main_process_ID	dd ?
;--------------------------------------
screen_mouse_position:
.y	dw ?
.x	dw ?
;--------------------------------------
screen_size:
.y	dw ?
.x	dw ?
;--------------------------------------
draw_y dd ?
;--------------------------------------
x_working_area:
.right:		dw ?
.left:		dw ?
y_working_area:
.bottom:	dw ?
.top:		dw ?
;--------------------------------------
sc system_colors
;--------------------------------------
last_key	db ?
prior_thread_y dd ?
prior_thread_h dd ?
prior_thread_selected_y_end db ?
;------------------------------------------------------------------------------
align 4
menu_data   dd ?
;--------------------------------------
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
;------------------------------------------------------------------------------
align 4
bootparam:
procinfo:
	rb 1024
;------------------------------------------------------------------------------
align 4
	rb 0x1000
stack_area:
;------------------------------------------------------------------------------
mem_end:
;------------------------------------------------------------------------------

Rev 8484	Rev 8489
1	;******************************************************************************	1	;******************************************************************************
2	; MAIN MENU	2	; MAIN MENU
3	;******************************************************************************	3	;******************************************************************************
4	; last update: 17/04/2012	4	; last update: 17/04/2012
5	; changed by: Marat Zakiyanov aka Mario79, aka Mario	5	; changed by: Marat Zakiyanov aka Mario79, aka Mario
6	; changes: Support for boot parameters.	6	; changes: Support for boot parameters.
7	;------------------------------------------------------------------------------	7	;------------------------------------------------------------------------------
8	; last update: 22/03/2012	8	; last update: 22/03/2012
9	; changed by: Marat Zakiyanov aka Mario79, aka Mario	9	; changed by: Marat Zakiyanov aka Mario79, aka Mario
10	; changes: Global optimization! The program uses	10	; changes: Global optimization! The program uses
11	; only 32 KB of memory instead of 128 kb is now.	11	; only 32 KB of memory instead of 128 kb is now.
12	;------------------------------------------------------------------------------	12	;------------------------------------------------------------------------------
13	; last update: 19/09/2011	13	; last update: 19/09/2011
14	; changed by: Marat Zakiyanov aka Mario79, aka Mario	14	; changed by: Marat Zakiyanov aka Mario79, aka Mario
15	; changes: Checking for program exist to memory	15	; changes: Checking for program exist to memory
16	; Added processing of keys: left and right arrow	16	; Added processing of keys: left and right arrow
17	;------------------------------------------------------------------------------	17	;------------------------------------------------------------------------------
18	; MAIN MENU by lisovin@26.ru	18	; MAIN MENU by lisovin@26.ru
19	; Some parts of code rewritten by Ivan Poddubny	19	; Some parts of code rewritten by Ivan Poddubny
20	;	20	;
21	; Compile with FASM for Menuet	21	; Compile with FASM for Kolibri
22	;******************************************************************************	22	;******************************************************************************
23	BTN_HEIGHT = 22 ;26	23	BTN_HEIGHT = 26
24	BTN_WIDTH = 140 ;178	24	BTN_WIDTH = 178
25	TXT_Y = (BTN_HEIGHT)/2-4	25	TXT_Y = (BTN_HEIGHT)/2-6
26	FONT_TYPE = 0x80000000 ;0x90000000	26	FONT_TYPE = 0x90000000
27		27
28	PANEL_HEIGHT = 20	28	PANEL_HEIGHT = 20
29	MENU_BOTTON_X_POS = 10	29	MENU_BOTTON_X_POS = 10
30	MENU_BOTTON_X_SIZE = 50	30	MENU_BOTTON_X_SIZE = 50
31	;------------------------------------------------------------------------------	31	;------------------------------------------------------------------------------
32	use32	32	use32
33	org 0x0	33	org 0x0
34		34
35	db 'MENUET01' ; 8 byte id	35	db 'MENUET01' ; 8 byte id
36	dd 0x01 ; header version	36	dd 0x01 ; header version
37	dd START ; start of code	37	dd START ; start of code
38	dd IM_END ; size of image	38	dd IM_END ; size of image
39	dd mem_end ; memory for app	39	dd mem_end ; memory for app
40	dd stack_area ; esp	40	dd stack_area ; esp
41	dd bootparam ; boot parameters	41	dd bootparam ; boot parameters
42	dd 0x0 ; path	42	dd 0x0 ; path
43	;------------------------------------------------------------------------------	43	;------------------------------------------------------------------------------
44	include "..\..\..\macros.inc"	44	include "..\..\..\macros.inc"
45	include "..\..\..\gui_patterns.inc"	45	include "..\..\..\gui_patterns.inc"
46	;include "../../../debug.inc" ; debug macros	46	;include "../../../debug.inc" ; debug macros
47	;------------------------------------------------------------------------------	47	;------------------------------------------------------------------------------
48	align 4	48	align 4
49	conversion_ASCII_to_HEX:	49	conversion_ASCII_to_HEX:
50	xor ebx,ebx	50	xor ebx,ebx
51	cld	51	cld
52	lodsd	52	lodsd
53	mov ecx,4	53	mov ecx,4
54	;--------------------------------------	54	;--------------------------------------
55	align 4	55	align 4
56	.loop:	56	.loop:
57	cmp al,0x60 ; check for ABCDEF	57	cmp al,0x60 ; check for ABCDEF
58	ja @f	58	ja @f
59	sub al,0x30 ; 0-9	59	sub al,0x30 ; 0-9
60	jmp .store	60	jmp .store
61	;--------------------------------------	61	;--------------------------------------
62	align 4	62	align 4
63	@@:	63	@@:
64	sub al,0x57 ; A-F	64	sub al,0x57 ; A-F
65	;--------------------------------------	65	;--------------------------------------
66	align 4	66	align 4
67	.store:	67	.store:
68	and al,0xf	68	and al,0xf
69	rol ebx,4	69	rol ebx,4
70	add bl,al	70	add bl,al
71	ror eax,8	71	ror eax,8
72	dec ecx	72	dec ecx
73	jnz .loop	73	jnz .loop
74		74
75	ret	75	ret
76	;------------------------------------------------------------------------------	76	;------------------------------------------------------------------------------
77	align 4	77	align 4
78	START: ; start of execution	78	START: ; start of execution
79	mcall 68,11	79	mcall 68,11
80		80
81	mcall 30, 1, default_dir	81	mcall 30, 1, default_dir
82		82
83	mov esi,bootparam	83	mov esi,bootparam
84	cmp [esi],byte 0	84	cmp [esi],byte 0
85	je .no_boot_parameters	85	je .no_boot_parameters
86	; boot params - hex	86	; boot params - hex
87	; db '9999' ; +0 Menu button X	87	; db '9999' ; +0 Menu button X
88	; db '9999' ; +4 Menu button X size	88	; db '9999' ; +4 Menu button X size
89	; db '9999' ; +8 Menu button Y	89	; db '9999' ; +8 Menu button Y
90	; db '9999' ; +12 Menu button Y size	90	; db '9999' ; +12 Menu button Y size
91	; db '9999' ; +16 Panel height	91	; db '9999' ; +16 Panel height
92	; db '1000' ; +20 Panel attachment	92	; db '1000' ; +20 Panel attachment
93		93
94	; mov edx,bootparam	94	; mov edx,bootparam
95	; call debug_outstr	95	; call debug_outstr
96	; newline	96	; newline
97		97
98	call conversion_ASCII_to_HEX	98	call conversion_ASCII_to_HEX
99	mov [menu_button_x.start],ebx	99	mov [menu_button_x.start],ebx
100		100
101	; dps "menu_button_x.start: "	101	; dps "menu_button_x.start: "
102	; dpd ebx	102	; dpd ebx
103	; newline	103	; newline
104		104
105	call conversion_ASCII_to_HEX	105	call conversion_ASCII_to_HEX
106	mov [menu_button_x.size],ebx	106	mov [menu_button_x.size],ebx
107		107
108	; dps "menu_button_x.size: "	108	; dps "menu_button_x.size: "
109	; dpd ebx	109	; dpd ebx
110	; newline	110	; newline
111		111
112	call conversion_ASCII_to_HEX	112	call conversion_ASCII_to_HEX
113	mov [menu_button_y.start],ebx	113	mov [menu_button_y.start],ebx
114		114
115	; dps "menu_button_y.start: "	115	; dps "menu_button_y.start: "
116	; dpd ebx	116	; dpd ebx
117	; newline	117	; newline
118		118
119	call conversion_ASCII_to_HEX	119	call conversion_ASCII_to_HEX
120	mov [menu_button_y.size],ebx	120	mov [menu_button_y.size],ebx
121		121
122	; dps "menu_button_y.size: "	122	; dps "menu_button_y.size: "
123	; dpd ebx	123	; dpd ebx
124	; newline	124	; newline
125		125
126	call conversion_ASCII_to_HEX	126	call conversion_ASCII_to_HEX
127	mov [panel_height],ebx	127	mov [panel_height],ebx
128		128
129	; dps "panel_height: "	129	; dps "panel_height: "
130	; dpd ebx	130	; dpd ebx
131	; newline	131	; newline
132		132
133	call conversion_ASCII_to_HEX	133	call conversion_ASCII_to_HEX
134	mov [panel_attachment],ebx	134	mov [panel_attachment],ebx
135		135
136	; dps "panel_attachment: "	136	; dps "panel_attachment: "
137	; dpd ebx	137	; dpd ebx
138	; newline	138	; newline
139	;--------------------------------------	139	;--------------------------------------
140	align 4	140	align 4
141	.no_boot_parameters:	141	.no_boot_parameters:
142	call program_exist	142	call program_exist
143	mcall 14	143	mcall 14
144	mov [screen_size],eax	144	mov [screen_size],eax
145		145
146	mcall 48,3,sc,sizeof.system_colors ; load system colors	146	mcall 48,3,sc,sizeof.system_colors ; load system colors
147		147
148	; get size of file MENU.DAT	148	; get size of file MENU.DAT
149	mcall 70,fileinfo	149	mcall 70,fileinfo
150	test eax,eax	150	test eax,eax
151	jnz close	151	jnz close
152	; get memory for MENU.DAT	152	; get memory for MENU.DAT
153	mov ecx,[procinfo+32]	153	mov ecx,[procinfo+32]
154	mov [fileinfo.size],ecx	154	mov [fileinfo.size],ecx
155	mcall 68,12	155	mcall 68,12
156	mov [fileinfo.return],eax	156	mov [fileinfo.return],eax
157	mcall 68	157	mcall 68
158	mov [menu_data],eax	158	mov [menu_data],eax
159	; load MENU.DAT	159	; load MENU.DAT
160	mov [fileinfo],dword 0	160	mov [fileinfo],dword 0
161	mcall 70,fileinfo	161	mcall 70,fileinfo
162	test eax,eax	162	test eax,eax
163	jnz close	163	jnz close
164		164
165	test ebx,ebx ; length = 0 ?	165	test ebx,ebx ; length = 0 ?
166	jz close	166	jz close
167	mov ecx,ebx	167	mov ecx,ebx
168	mov edi,[fileinfo.return] ;mem_end	168	mov edi,[fileinfo.return] ;mem_end
169	;--------------------------------------	169	;--------------------------------------
170	align 4	170	align 4
171	newsearch:	171	newsearch:
172	mov al,'#'	172	mov al,'#'
173	cld	173	cld
174	repne scasb	174	repne scasb
175	test ecx,ecx ; if not found	175	test ecx,ecx ; if not found
176	jz close	176	jz close
177	call get_number	177	call get_number
178	test ebx,ebx	178	test ebx,ebx
179	jnz .number	179	jnz .number
180	cmp al,'#'	180	cmp al,'#'
181	je search_end	181	je search_end
182	;--------------------------------------	182	;--------------------------------------
183	align 4	183	align 4
184	.number:	184	.number:
185	shl ebx,4	185	shl ebx,4
186	add ebx,[menu_data] ; pointer to process table	186	add ebx,[menu_data] ; pointer to process table
187	mov [ebx],edi	187	mov [ebx],edi
188	inc [processes]	188	inc [processes]
189	jmp newsearch	189	jmp newsearch
190	;--------------------------------------	190	;--------------------------------------
191	align 4	191	align 4
192	search_end:	192	search_end:
193	mov [end_pointer],edi	193	mov [end_pointer],edi
194	mov ebx,[processes]	194	mov ebx,[processes]
195	dec ebx	195	dec ebx
196	shl ebx,4	196	shl ebx,4
197	add ebx,[menu_data]	197	add ebx,[menu_data]
198	;--------------------------------------	198	;--------------------------------------
199	align 4	199	align 4
200	newprocess:	200	newprocess:
201	xor edx,edx	201	xor edx,edx
202	mov ecx,edi	202	mov ecx,edi
203	sub ecx,[ebx]	203	sub ecx,[ebx]
204	mov al,10	204	mov al,10
205	;--------------------------------------	205	;--------------------------------------
206	align 4	206	align 4
207	newsearch1:	207	newsearch1:
208	std	208	std
209	repne scasb	209	repne scasb
210	test ecx,ecx	210	test ecx,ecx
211	je endprocess	211	je endprocess
212	cmp [edi],byte 13	212	cmp [edi],byte 13
213	jne newsearch1	213	jne newsearch1
214	inc edx	214	inc edx
215	jmp newsearch1	215	jmp newsearch1
216	;--------------------------------------	216	;--------------------------------------
217	align 4	217	align 4
218	endprocess:	218	endprocess:
219	mov esi,ebx	219	mov esi,ebx
220	add esi,4	220	add esi,4
221	dec edx	221	dec edx
222	mov [esi],dl	222	mov [esi],dl
223	cmp ebx,[menu_data]	223	cmp ebx,[menu_data]
224	jbe search_end1	224	jbe search_end1
225	sub ebx,16	225	sub ebx,16
226	jmp newprocess	226	jmp newprocess
227	;--------------------------------------	227	;--------------------------------------
228	align 4	228	align 4
229	search_end1:	229	search_end1:
230	mcall 14	230	mcall 14
231	cmp [panel_attachment],byte 1	231	cmp [panel_attachment],byte 1
232	je @f	232	je @f
233	xor ax,ax	233	xor ax,ax
234	jmp .store	234	jmp .store
235	;--------------------------------------	235	;--------------------------------------
236	align 4	236	align 4
237	@@:	237	@@:
238	sub ax,[panel_height] ;20	238	sub ax,[panel_height] ;20
239	.store:	239	.store:
240	mov ebx,[menu_data]	240	mov ebx,[menu_data]
241	mov [ebx + y_end],ax	241	mov [ebx + y_end],ax
242	mov [ebx + x_start],5	242	mov [ebx + x_start],5
243	mov al,[ebx + rows]	243	mov al,[ebx + rows]
244	mov [ebx + cur_sel],al ; clear selection	244	mov [ebx + cur_sel],al ; clear selection
245	mov [ebx + prev_sel],al	245	mov [ebx + prev_sel],al
246	mov [buffer],0	246	mov [buffer],0
247	;------------------------------------------------------------------------------	247	;------------------------------------------------------------------------------
248	align 4	248	align 4
249	thread:	249	thread:
250	mov ebp,esp	250	mov ebp,esp
251	sub ebp,0x1000	251	sub ebp,0x1000
252	cmp ebp,0x2000 ; if this is first started thread	252	cmp ebp,0x2000 ; if this is first started thread
253	ja @f	253	ja @f
254	xor ebp,ebp ; not free area	254	xor ebp,ebp ; not free area
255	;--------------------------------------	255	;--------------------------------------
256	align 4	256	align 4
257	@@:	257	@@:
258	mov eax,[buffer] ; identifier	258	mov eax,[buffer] ; identifier
259	shl eax,4	259	shl eax,4
260	add eax,[menu_data]	260	add eax,[menu_data]
261	mov edi,eax	261	mov edi,eax
262	mcall 40,100111b ; mouse + button + key + redraw	262	mcall 40,100111b ; mouse + button + key + redraw
263	;------------------------------------------------------------------------------	263	;------------------------------------------------------------------------------
264	align 4	264	align 4
265	red:	265	red:
266	call draw_window ; redraw	266	call draw_window ; redraw
267	;------------------------------------------------------------------------------	267	;------------------------------------------------------------------------------
268	align 4	268	align 4
269	still:	269	still:
270	call free_area_if_set_mutex	270	call free_area_if_set_mutex
271		271
272	mcall 23,5 ; wait here for event	272	mcall 23,5 ; wait here for event
273	test [close_now],1 ; is close flag set?	273	test [close_now],1 ; is close flag set?
274	jnz close	274	jnz close
275		275
276	cmp eax,1 ; redraw request ?	276	cmp eax,1 ; redraw request ?
277	je red	277	je red
278	cmp eax,2 ; key pressed ?	278	cmp eax,2 ; key pressed ?
279	je key	279	je key
280	cmp eax,3 ; button in buffer ?	280	cmp eax,3 ; button in buffer ?
281	je button	281	je button
282	cmp eax,6 ; mouse event ?	282	cmp eax,6 ; mouse event ?
283	je mouse	283	je mouse
284	cmp edi,[menu_data]	284	cmp edi,[menu_data]
285	je still ; if main process-ignored	285	je still ; if main process-ignored
286		286
287	movzx ebx,[edi + parent] ; parent id	287	movzx ebx,[edi + parent] ; parent id
288	shl ebx,4	288	shl ebx,4
289	add ebx,[menu_data] ; ebx = base of parent info	289	add ebx,[menu_data] ; ebx = base of parent info
290	call backconvert ; get my id in al	290	call backconvert ; get my id in al
291	cmp al,[ebx + child] ; if I'm not child of my parent, I shall die :)	291	cmp al,[ebx + child] ; if I'm not child of my parent, I shall die :)
292	jne close	292	jne close
293		293
294	jmp still	294	jmp still
295	;------------------------------------------------------------------------------	295	;------------------------------------------------------------------------------
296	align 4	296	align 4
297	key:	297	key:
298	mcall 2	298	mcall 2
299	mov [last_key],ah	299	mov [last_key],ah
300	mov al,[edi + rows] ; number of buttons	300	mov al,[edi + rows] ; number of buttons
301	cmp ah,178 ; KEY_UP	301	cmp ah,178 ; KEY_UP
302	jne .noup	302	jne .noup
303		303
304	mov ah,[edi+cur_sel]	304	mov ah,[edi+cur_sel]
305	mov [edi+prev_sel],ah	305	mov [edi+prev_sel],ah
306	dec byte [edi+cur_sel]	306	dec byte [edi+cur_sel]
307	jnz redrawbut	307	jnz redrawbut
308	mov [edi+cur_sel],al	308	mov [edi+cur_sel],al
309	jmp redrawbut	309	jmp redrawbut
310	;--------------------------------------	310	;--------------------------------------
311	align 4	311	align 4
312	.noup:	312	.noup:
313	cmp ah,177 ; KEY_DOWN	313	cmp ah,177 ; KEY_DOWN
314	jne .nodn	314	jne .nodn
315		315
316	mov ah,[edi + cur_sel]	316	mov ah,[edi + cur_sel]
317	mov [edi + prev_sel],ah	317	mov [edi + prev_sel],ah
318	inc [edi + cur_sel]	318	inc [edi + cur_sel]
319	cmp [edi + cur_sel],al	319	cmp [edi + cur_sel],al
320	jna redrawbut	320	jna redrawbut
321	mov [edi + cur_sel],1	321	mov [edi + cur_sel],1
322	jmp redrawbut	322	jmp redrawbut
323	;--------------------------------------	323	;--------------------------------------
324	align 4	324	align 4
325	.nodn:	325	.nodn:
326	cmp ah,179 ; KEY_LEFT	326	cmp ah,179 ; KEY_LEFT
327	je @f	327	je @f
328	cmp ah,13 ; ENTER	328	cmp ah,13 ; ENTER
329	jne .noenter	329	jne .noenter
330	@@:	330	@@:
331	mov ah,[edi + cur_sel]	331	mov ah,[edi + cur_sel]
332	jmp button1	332	jmp button1
333	;--------------------------------------	333	;--------------------------------------
334	align 4	334	align 4
335	.noenter:	335	.noenter:
336	cmp ah,176 ; KEY_RIGHT	336	cmp ah,176 ; KEY_RIGHT
337	je @f	337	je @f
338	cmp ah,27 ; ESC	338	cmp ah,27 ; ESC
339	jne still	339	jne still
340	jmp close	340	jmp close
341	;--------------------------------------	341	;--------------------------------------
342	align 4	342	align 4
343	@@:	343	@@:
344	call get_process_ID	344	call get_process_ID
345	cmp [main_process_ID],ecx	345	cmp [main_process_ID],ecx
346	jne close	346	jne close
347	jmp still	347	jmp still
348	;------------------------------------------------------------------------------	348	;------------------------------------------------------------------------------
349	align 4	349	align 4
350	button: ; BUTTON HANDLER	350	button: ; BUTTON HANDLER
351	mcall 17 ; get id	351	mcall 17 ; get id
352	; dunkaist[	352	; dunkaist[
353	test eax,0xfffffe00 ; is it system close button? (close signal from @taskbar)	353	test eax,0xfffffe00 ; is it system close button? (close signal from @taskbar)
354	setz byte[close_now] ; set (or not set) close_recursive flag	354	setz byte[close_now] ; set (or not set) close_recursive flag
355	jz close ; if so,close all menus	355	jz close ; if so,close all menus
356	; dunkaist]	356	; dunkaist]
357	;--------------------------------------	357	;--------------------------------------
358	align 4	358	align 4
359	button1:	359	button1:
360	mov esi,edi	360	mov esi,edi
361	push edi	361	push edi
362	mov edi,[edi + pointer]	362	mov edi,[edi + pointer]
363	; print "hello"	363	; print "hello"
364	mov al,[esi + cur_sel]	364	mov al,[esi + cur_sel]
365	mov [esi + prev_sel],al	365	mov [esi + prev_sel],al
366	mov [esi + cur_sel],ah	366	mov [esi + cur_sel],ah
367		367
368	pushad	368	pushad
369	mov edi,esi	369	mov edi,esi
370	; dph eax	370	; dph eax
371	call draw_only_needed_buttons	371	call draw_only_needed_buttons
372	popad	372	popad
373	; look for the next line times; = button_id	373	; look for the next line times; = button_id
374	push eax	374	push eax
375	;--------------------------------------	375	;--------------------------------------
376	align 4	376	align 4
377	.next_string:	377	.next_string:
378	call searchstartstring	378	call searchstartstring
379	dec ah	379	dec ah
380	jnz .next_string	380	jnz .next_string
381	pop eax	381	pop eax
382		382
383	mov ecx,40	383	mov ecx,40
384	mov al,'\|'	384	mov al,'\|'
385	cld	385	cld
386	repne scasb	386	repne scasb
387	test ecx,ecx ; if '\|' not found	387	test ecx,ecx ; if '\|' not found
388	je searchexit	388	je searchexit
389		389
390	cmp [edi],byte '@' ; check for submenu	390	cmp [edi],byte '@' ; check for submenu
391	je runthread	391	je runthread
392		392
393	cmp [last_key],179	393	cmp [last_key],179
394	je searchexit	394	je searchexit
395		395
396	;dec edi	396	;dec edi
397	push edi ; pointer to start of filename	397	push edi ; pointer to start of filename
398	call searchstartstring ; search for next string	398	call searchstartstring ; search for next string
399	sub edi,2 ; to last byte of string	399	sub edi,2 ; to last byte of string
400		400
401	mov ecx,edi	401	mov ecx,edi
402	pop esi	402	pop esi
403	sub ecx,esi	403	sub ecx,esi
404	inc ecx ; length of filename	404	inc ecx ; length of filename
405	mov edi, fileinfo_start.name	405	mov edi, fileinfo_start.name
406	rep movsb ; copy string	406	rep movsb ; copy string
407	mov [edi],byte 0 ; store terminator	407	mov [edi],byte 0 ; store terminator
408	mcall 70,fileinfo_start ; start program	408	mcall 70,fileinfo_start ; start program
409	or [close_now],1 ; set close flag	409	or [close_now],1 ; set close flag
410	pop edi	410	pop edi
411	mov [mousemask],0	411	mov [mousemask],0
412	jmp close	412	jmp close
413	;--------------------------------------	413	;--------------------------------------
414	align 4	414	align 4
415	searchexit:	415	searchexit:
416	pop edi	416	pop edi
417	jmp still	417	jmp still
418	;------------------------------------------------------------------------------	418	;------------------------------------------------------------------------------
419	align 4	419	align 4
420	runthread:	420	runthread:
421	inc edi	421	inc edi
422		422
423	push eax	423	push eax
424	call get_number ; get number of this process	424	call get_number ; get number of this process
425	pop eax	425	pop eax
426		426
427	test ebx,ebx ; returned zero - main menu or not number	427	test ebx,ebx ; returned zero - main menu or not number
428	jz searchexit	428	jz searchexit
429		429
430	mov al,bl	430	mov al,bl
431		431
432	mov ebx,[processes]	432	mov ebx,[processes]
433	dec bl	433	dec bl
434	cmp al,bl	434	cmp al,bl
435	ja searchexit ; such process doesnt exist	435	ja searchexit ; such process doesnt exist
436	cmp al,[esi + child]	436	cmp al,[esi + child]
437	je searchexit ; such process already exists	437	je searchexit ; such process already exists
438		438
439	mov [esi + child],al ; this is my child	439	mov [esi + child],al ; this is my child
440	mov cx,[esi + x_start]	440	mov cx,[esi + x_start]
441	add cx,BTN_WIDTH+1 ; new x_start in cx	441	add cx,BTN_WIDTH+1 ; new x_start in cx
442	movzx edx,al	442	movzx edx,al
443	shl edx,4	443	shl edx,4
444	add edx,[menu_data] ; edx points to child's base address	444	add edx,[menu_data] ; edx points to child's base address
445	mov [edx + x_start],cx ; xstart for new thread	445	mov [edx + x_start],cx ; xstart for new thread
446	mov cx,[esi + y_end] ; y_end in cx	446	mov cx,[esi + y_end] ; y_end in cx
447	mov bl,[esi + rows] ; number of buttons in bl	447	mov bl,[esi + rows] ; number of buttons in bl
448	sub bl,ah ; number of btn from bottom	448	sub bl,ah ; number of btn from bottom
449		449
450	; Leency: store vars for case when attachement=top	450	; Leency: store vars for case when attachement=top
451	pusha	451	pusha
452	mov [prior_thread_selected_y_end], bl	452	mov [prior_thread_selected_y_end], bl
453	mcall 9,procinfo,-1	453	mcall 9,procinfo,-1
454	m2m [prior_thread_y], dword[procinfo+38]	454	m2m [prior_thread_y], dword[procinfo+38]
455	m2m [prior_thread_h], dword[procinfo+46]	455	m2m [prior_thread_h], dword[procinfo+46]
456	popa	456	popa
457		457
458	movzx eax,al	458	movzx eax,al
459	mov [buffer],eax ; thread id in buffer	459	mov [buffer],eax ; thread id in buffer
460	movzx ebx,bl	460	movzx ebx,bl
461	push edx	461	push edx
462	mov eax,BTN_HEIGHT	462	mov eax,BTN_HEIGHT
463	mul ebx	463	mul ebx
464	sub cx,ax ; new y_end for new thread	464	sub cx,ax ; new y_end for new thread
465	pop edx	465	pop edx
466	mov [edx + y_end],cx ; store y_end	466	mov [edx + y_end],cx ; store y_end
467	mov edi,esi	467	mov edi,esi
468	call backconvert ; get number of this process (al)	468	call backconvert ; get number of this process (al)
469	mov [edx + parent],al ; store number of parent process	469	mov [edx + parent],al ; store number of parent process
470		470
471	mov al,[edx + rows]	471	mov al,[edx + rows]
472	mov [edx + cur_sel],al ; clear current selected element	472	mov [edx + cur_sel],al ; clear current selected element
473	mov [edx + prev_sel],al ; clear previous selected element	473	mov [edx + prev_sel],al ; clear previous selected element
474	mov [edx + child],0	474	mov [edx + child],0
475		475
476	mcall 68,12,0x1000 ; stack of each thread is allocated 4 KB	476	mcall 68,12,0x1000 ; stack of each thread is allocated 4 KB
477	add eax,0x1000 ; set the stack pointer to the desired position	477	add eax,0x1000 ; set the stack pointer to the desired position
478	mov edx,eax	478	mov edx,eax
479	mcall 51,1,thread ; Go ahead!	479	mcall 51,1,thread ; Go ahead!
480	jmp searchexit	480	jmp searchexit
481	;------------------------------------------------------------------------------	481	;------------------------------------------------------------------------------
482	align 4	482	align 4
483	mouse: ; MOUSE EVENT HANDLER	483	mouse: ; MOUSE EVENT HANDLER
484	mcall 37,0	484	mcall 37,0
485	mov [screen_mouse_position],eax ; eax = [ Y \| X ] relative to screen	485	mov [screen_mouse_position],eax ; eax = [ Y \| X ] relative to screen
486		486
487	mcall 37,2	487	mcall 37,2
488	test eax,eax ; check buttons state	488	test eax,eax ; check buttons state
489	jnz click	489	jnz click
490	mcall 37,1	490	mcall 37,1
491	ror eax,16 ; eax = [ Y \| X ] relative to window	491	ror eax,16 ; eax = [ Y \| X ] relative to window
492	cmp ax,BTN_WIDTH ; pointer in window?	492	cmp ax,BTN_WIDTH ; pointer in window?
493	ja noinwindow	493	ja noinwindow
494	; * in window *	494	; * in window *
495	shr eax,16 ; eax = [ 0 \| Y ]	495	shr eax,16 ; eax = [ 0 \| Y ]
496	xor edx,edx	496	xor edx,edx
497	mov ebx,BTN_HEIGHT	497	mov ebx,BTN_HEIGHT
498	div ebx	498	div ebx
499	inc eax ; number of "button" in eax	499	inc eax ; number of "button" in eax
500	movzx ebx,[edi + rows] ; total strings in ebx	500	movzx ebx,[edi + rows] ; total strings in ebx

Subversion Repositories Kolibri OS

(root)/programs/system/menu/trunk/menu.asm – Rev 8484 → 8489