upgrade RUN, add new edit_box

git-svn-id: svn://kolibrios.org@305 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/system/run/trunk/macros.inc

@@ -1,13 +1,6 @@
 ;--- <EFBFBD><EFBFBD>㣨<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
 include 'editbox.inc'
 include 'txtbut.inc'
-;include 'gp.inc'
-;include 'label.inc'
-;include 'checkbox.inc'
-;include 'file_sys.inc'
-;include 'textwork.inc'
-;include 'ini.inc'
-
 include 'lang.inc'
 
 ;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---

programs/system/run/trunk/run.asm

@@ -156,24 +156,23 @@ draw_window:
 	shl	ebx,15
 	mov	bx,window_x
 	mov	edx,[sc.work]
-	or	edx,0x03000000
+	or	edx,0xb3000000
 	xor	eax,eax
-	xor	esi,esi
+	mov	esi,[sc.grab_text]
-	xor	edi,edi
+	mov	edi,hed
 	int	0x40
 
 	get_procinfo app
 
 	mov	ax,[app.width]
 	sub	ax,20
-	mov	[input_fn.width],ax
+	mov	[input_fn.width],eax
 	mov	[run_but.width],ax
 
-	mov	bx,5
+	mov	ebx,10000
-	shl	ebx,16
 	mov	bx,ax
-	add	bx,15
+	add	bx,10
-	mov	cx,70
+	mov	cx,47
 	push	cx
 	shl	ecx,16
 	pop	cx
@@ -190,8 +189,8 @@ draw_window:
 ret
 
 draw_status:
-	mov	ebx,5*65536+(window_x-5-5)
+	mov	ebx,5*65536+(window_x-5-10)
-	mov	ecx,(window_y-16)*65536+12
+	mov	ecx,(window_y-39)*65536+12
 	mov	edx,[sc.work]
 	mov	eax,13
 	int	0x40
@@ -205,18 +204,18 @@ draw_status_text:
 	jmp	@b
 @@:
 	mov	eax,4
-	mov	ebx,10*65536+(window_y-14)
+	mov	ebx,6*65536+(window_y-37)
 	mov	ecx,[sc.work_text]
 	int	0x40
 ret
 
-run_but txt_button 0,10,15,50,2,0,0,run_but_text,
+run_but txt_button 0,5,15,30,2,0,0,run_but_text,
 if lang eq ru
 run_but_text db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
 else
 run_but_text db 'RUN',0
 end if
-input_fn edit_box 0,10,30,0xffffff,0,0xaaaaaa,0,511,fn,ed_focus+\
+input_fn edit_box 0,5,10,0xffffff,0,0xaaaaaa,0,511,fn,ed_focus+\
 ed_always_focus
 
 if lang eq ru
@@ -241,6 +240,11 @@ file_not_executable db 'File is not executable',0      ; 31
 many_processes db 'Too many processes',0               ; 32
 end if
 
+if lang eq ru
+hed db 'RUN <20><> <20><>ࢮ<EFBFBD><E0A2AE> <20><><EFBFBD>ࠫ<EFBFBD> 2007 <20><><EFBFBD><EFBFBD>',0
+else
+hed db 'RUN of the first of FEBRUARY 2007 year',0
+end if
 status dd hello
 
 file_info:

programs/system/run/trunk/run.txt

@@ -1,3 +1,6 @@
+<Lrz> 01.02.2007 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>୨<EFBFBD><E0ADA8>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> edit_box, 
+<EFBFBD><EFBFBD><EFBFBD><EFBFBD>訫 <20> <20><>९<EFBFBD>ᠫ <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>.
+
     RUN - <20><><EFBFBD><EFBFBD>᪠<EFBFBD><E1AAA0><EFBFBD> <20>ணࠬ<E0AEA3> <20> <20><><EFBFBD><EFBFBD><EFBFBD>਎<EFBFBD> <20><>१ 70-<2D> <20>㭪<EFBFBD><E3ADAA><EFBFBD>.
 
 			  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3>