WebSVN – Kolibri OS – Diff – /programs/develop/heed/trunk/heed.asm

 	dd	(D_END+0x600) and not 3	;required amount of memory
 	dd	(D_END+0x600) and not 3	;stack
 	dd	0x0	;buf_cmd_lin
 	dd	cur_dir_path
-_title	equ 'HeEd 0.15'
+_title	equ 'HeEd 0.15', 0
 include	'lang.inc'
 include '../../../macros.inc'
 	test	eax,1b
 	jnz		.end
 	mov		esi,-1
 	mov		eax,procinfo
 	mov		eax,[eax+46]
-	cmp		eax,200
+	cmp		eax,299
 	jae		@f
-	mov		esi,200
+	mov		esi,299
 	mcall	67,-1,ebx,ebx
 @@:
 	mov		edx,-1
 	mov		eax,procinfo
 	mov		eax,[eax+42]
-	cmp		eax,300
+	cmp		eax,399
 	jae		@f
-	mov		edx,300
+	mov		edx,399
 	mcall	67,-1,ebx,,ebx
 @@:
 .end:
 	popa
 	ret
 button:
 	mcall	17
 	dec	ah
+	jnz	still
 	jnz	still
 	jmp	close_prog
 align	4
 	ret
 ;-------------------------------------------------------------------------------
 	;help window
 create_help_window:
 	pushad
+        cmp	[help_is_open_already], 1
+        jne	@f
+  	mov     ECX, [help_window_pid]
+        mcall   18, 21
+        xchg    EAX, ECX
+        mcall   18, 3
+	popad
+        ret
+@@:
 	mcall	51,1,.thread,(.threat_stack+16*4)
+        mov     [help_is_open_already], 1
+        mov     [help_window_pid], EAX
 	popad
 	ret
 .thread:
 	call	.window
 .still:
 	dec	al
 	jz	.key
 	dec	al
 	jz	.button
 	jmp	.still
+        and	[help_is_open_already], 0
 	mcall	-1
 .button:
 	mcall	17,1
 	cmp	ah,1
 	jne	@f
+        and	[help_is_open_already], 0
 	mcall	-1
 @@:
 	cmp	ah,2
 	jne	@f
 	mov	edi,(help_end-help_text)/51
 .pos_pointer:	dd menu_text_area.1	;0	;+16
 .text_end	dd menu_text_area.end	;0	;+20
 .mouse_pos	dd 0	;+24
 .mouse_keys	dd 0	;+28
 .x1:
+if lang eq ru
+ .size_x1	dw 4*2+9*6	;+32
+else
-.size_x1	dw 40	;+32
+ .size_x1	dw 40	;+32
+end if
 .start_x1	dw 2	;+34
 .y1:
 .size_y1	dw 100	;+36
 .start_y1	dw 18	;+38
 .bckg_col	dd 0xeeeeee	;+40
 .font_height	dd 8	;+108
 .cursor_out	dd 0	;+112
 .get_mouse_flag	dd 0	;+116
+menu_text_area:
+if lang eq ru
+  	 db ' ©«',0
+ .1:
+	 db 'âªàëâì',0
+	 db '®åà ¨âì',0
+	 db 'ëå®¤',0
-menu_text_area:
+else
-	db 'File',0
+  	 db 'File',0
-.1:
+ .1:
-	db 'Open',0
+	 db 'Open',0
-	db 'Save',0
+	 db 'Save',0
+	 db 'Exit',0
-	db 'Exit',0
+end if
 .end:
+	 db 0
 	db 0
 ;---------------------------------------------------------------------
 align	4
 menu_data_2:
 .type:		dd 0	;+0
 .pos_pointer:	dd menu_text_area_2.1	;0	;+16
 .text_end	dd menu_text_area_2.end	;0	;+20
 .mouse_pos	dd 0	;+24
 .mouse_keys	dd 0	;+28
 .x1:
-.size_x1	dw 50	;+32
+.size_x1	dw 4*2+5*6	;+32
 .start_x1	dw 43	;+34
 .y1:
 .size_y1	dw 100	;+36
 .start_y1	dw 18	;+38
 .bckg_col	dd 0xeeeeee	;+40
 .font_height	dd 8	;+108
 .cursor_out	dd 0	;+112
 .get_mouse_flag	dd 0	;+116
+menu_text_area_2:
+if lang eq ru
+	 db '¨¤',0
+ .1:
-menu_text_area_2:
+else
-	db 'View',0
+	 db 'View',0
+ .1:
-.1:
+end if
-	db 'Add 4',0
+	 db 'Add 4',0
-	db 'Add 8',0
+	 db 'Add 8',0
-	db 'Sub 4',0
+	 db 'Sub 4',0
-	db 'Sub 8',0
+	 db 'Sub 8',0
 .end:
+	 db 0
 	db 0
 ;---------------------------------------------------------------------
 align	4
 menu_data_3:
 .type:		dd 0	;+0
+.x:
+if lang eq ru
+ .size_x	dw 4*2+7*6	;+32
-.x:
+else
+ .size_x	dw 40	;+4
-.size_x		dw 40	;+4
+end if
 .start_x	dw 84	;+6
 .y:
 .size_y		dw 15	;+8
 .start_y	dw 2	;+10
 .text_pointer:	dd menu_text_area_3	;0	;+12
 .pos_pointer:	dd menu_text_area_3.1	;0	;+16
 .text_end	dd menu_text_area_3.end	;0	;+20
 .mouse_pos	dd 0	;+24
 .mouse_keys	dd 0	;+28
+.x1:
+if lang eq ru
+ .size_x1	dw 4*2+7*6	;+32
-.x1:
+else
+ .size_x1	dw 40	;+32
-.size_x1	dw 40	;+32
+end if
 .start_x1	dw 84	;+34
 .y1:
 .size_y1	dw 100	;+36
 .start_y1	dw 18	;+38
 .font_height	dd 8	;+108
 .cursor_out	dd 0	;+112
 .get_mouse_flag	dd 0	;+116
+menu_text_area_3:
+if lang eq ru
+	db '¯à ¢ª ',0
+ .1:
+	db '¯à ¢ª ',0
-menu_text_area_3:
+else
 	db 'Help',0
-.1:
+ .1:
+	db 'Help',0
-	db 'Help',0
+end if
 .end:
 	db 0
 ;---------------------------------------------------------------------
 edit1	edit_box 200,190,27,0xffffff,0x6a9480,0,0xAABBCC,0,134,cur_dir_path,ed_focus,ed_focus,6,6	;ä ©«	®âªàëâì\á®åà ¨âì
-edit2	edit_box 55,260,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,go_to_string,ed_focus,ed_focus,0,0	;¯¥à¥å®¦¤	 	á¬¥é¥¨¥
+edit2	edit_box 55,270,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,go_to_string,ed_focus,ed_focus,0,0	;¯¥à¥å®¦¤	 	á¬¥é¥¨¥
-edit3	edit_box 55,260,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,find_string,ed_focus,ed_focus,0,0	;¯®¨áª
+edit3	edit_box 55,270,29,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,find_string,ed_focus,ed_focus,0,0	;¯®¨áª
 edit4	edit_box 55,220,49,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,sel1_string,ed_focus,ed_focus,0,0	;¢ë¤¥«¨âì	¡«®ª	 ç.á¬¥é.
 edit5	edit_box 55,300,49,0xeeeeee,0x6a9480,0,0xAABBCC,4,8,sel2_string,ed_focus,0,0,0	;¢ë¤¥«¨âì	¡«®ª	ª®.á¬¥é.
 op1	option_box option_group1,210,50,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1,1
 op2	option_box option_group1,310,50,6,12,0xFFFFFF,0,0,op_text.2,op_text.e2-op_text.2
-op3	option_box option_group1,210,65,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
+op3	option_box option_group1,310,65,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
 op11	option_box option_group2,210,50,6,12,0xffffff,0,0,op_text2.11,op_text2.e11-op_text2.11
 op12	option_box option_group2,310,50,6,12,0xffffff,0,0,op_text2.21,op_text2.e21-op_text2.21
 option_group1	dd op1	;ãª § â¥«¨, ®¨ ®â®¡à ¦ îâáï ¯® ã¬®«ç ¨î, ª®£¤  ¢ë¢®¤¨âáï
 option_group2	dd op11	;¯à¨«®¦¥¨¥
+Option_boxs	dd op1,op2,op3,0
+Option_boxs2	dd op11,op12,0
+op_text:	; ®¯à®¢®¦¤ îé¨© â¥ªáâ ¤«ï ç¥ª ¡®ªá®¢
+if lang eq ru
+ .1	db '¡á®«îâ®¥'
+ .e1:
+ .2	db '¯¥à¥¤'
-Option_boxs	dd op1,op2,op3,0
+ .e2:
-Option_boxs2	dd op11,op12,0
+ .3	db ' § ¤'
  .e3:
-op_text:	; ®¯à®¢®¦¤ îé¨© â¥ªáâ ¤«ï ç¥ª ¡®ªá®¢
+else
-.1	db 'Absolutely'
+ .1	db 'Absolutely'
-.e1:
+ .e1:
+ .2	db 'Forward'
-.2	db 'Forward'
+ .e2:
-.e2:
+ .3	db 'Back'
-.3	db 'Back'
+ .e3:
-.e3:
+end if
+system_dir_Boxlib			db '/sys/lib/box_lib.obj',0
+system_dir_ProcLib			db '/sys/lib/proc_lib.obj',0
+sel_text	db "From to",0
 system_dir_Boxlib			db '/sys/lib/box_lib.obj',0
+help_but_text	= menu_text_area_3 ;db	'Help',0
+head_f_i:
+if lang eq ru
+ head_f_l	db '®è¨¡ª ',0
+ err_message_found_lib1		db 'box_lib.obj - ¥  ©¤¥!',0
+ err_message_found_lib2		db 'proc_lib.obj - ¥  ©¤¥!',0
+ err_message_import1			db 'box_lib.obj - è¨¡ª  ¨¬¯®àâ !',0
+ err_message_import2			db 'proc_lib.obj - è¨¡ª  ¨¬¯®àâ !',0
-system_dir_ProcLib			db '/sys/lib/proc_lib.obj',0
+ error_open_file_string	db " ©« ¥  ©¤¥!",0
  error_save_file_string	db " ©« ¥ á®åà ¥!",0
-head_f_i:
+else
-head_f_l	db 'error',0
+ head_f_l	db 'error',0
-err_message_found_lib1		db 'box_lib.obj - Not found!',0
+ err_message_found_lib1		db 'box_lib.obj - Not found!',0
-err_message_found_lib2		db 'proc_lib.obj - Not found!',0
-err_message_import1			db 'box_lib.obj - Wrong import!',0
-err_message_import2			db 'proc_lib.obj - Wrong import!',0
+ err_message_found_lib2		db 'proc_lib.obj - Not found!',0
+ err_message_import1			db 'box_lib.obj - Wrong import!',0
-sel_text	db "From to",0
+ err_message_import2			db 'proc_lib.obj - Wrong import!',0
-help_but_text	= menu_text_area_3 ;db	'Help',0
+ error_open_file_string	db "Isn't found!",0
-error_open_file_string	db "Isn't found!",0
+ error_save_file_string	db "Isn't saved!",0
 ;align	4096
 font_buffer	file 'cp866-8x16'	;ASCII+cp866	(+ð,ñ)
 cp1251		file 'cp1251-8x16'
 koi8_r		file 'koi8-r-8x16'
-;##########################	open_dial
-get_loops	dd 0
-dlg_pid_get	dd 0
-DLGPID	dd 0
-param:
-	dd 0	; My dec PID
-	dd 0,0	; Type of dialog
-run_fileinfo:
-	dd 7
-	dd 0
-	dd param
-	dd 0
-	dd 0
-;run_filepath
-	db '/sys/SYSXTREE',0
-readdir_fileinfo:
-	dd 1
-	dd 0
-	dd 0
-readblocks	dd	0
-directory_ptr	dd	0
-;##########################
 title	db	_title
 ;---------------------------------------------------------------------
 l_libs_start:
 ;	load_library	boxlib_name,cur_dir_path,buf_cmd_lin,system_path,\
 find_string	rb 17
 sel1_string	rb 9
 sel2_string	rb 9
 cur_help_string	rb 1	;®¬¥à áâà®ª¨, á ª®â®à®© ¢ë¢®¤¨âáï â¥ªáâ ¢ help - ®ª¥
+help_is_open_already	db ?  ;¥á«¨ ®ª® á¯à ¢ª¨ ®âªàëâ®, â® §¤¥áì 1
+help_window_pid 	dd ?
 func_70	f70
 ;---------------------------------------------------------------------
 fname_buf:
 	rb 4096

Subversion Repositories Kolibri OS

(root)/programs/develop/heed/trunk/heed.asm @ 1702 – Rev 1586 → 1650