From 02fbec18ca7fb30b400f728cc1e3f9731da74b70 Mon Sep 17 00:00:00 2001
From: "Alexey Teplov (" <Lrz) 200_u_200@mail.ru>
Date: Sun, 10 May 2009 18:43:54 +0000
Subject: [PATCH] support system lib a box_lib.obj

git-svn-id: svn://kolibrios.org@1069 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/system/run/trunk/run.asm | 89 +++++++++++++++++++++++++++----
 programs/system/run/trunk/run.txt |  3 ++
 2 files changed, 82 insertions(+), 10 deletions(-)

diff --git a/programs/system/run/trunk/run.asm b/programs/system/run/trunk/run.asm
index c7ceb732a..0e8ac7fce 100644
--- a/programs/system/run/trunk/run.asm
+++ b/programs/system/run/trunk/run.asm
@@ -6,17 +6,40 @@ window_y=67
 ;window_x=320
 window_x=640
 ;--- другие макросы ---
-include '../../../develop/examples/editbox/trunk/editbox.inc'
+;include '../../../develop/examples/editbox/trunk/editbox.inc'
+include '../../../develop/libraries/box_lib/trunk/load_lib.mac'
+include '../../../develop/libraries/box_lib/trunk/editbox_ex.mac'
 ;include 'editbox.inc'
 include 'txtbut.inc'
 include '../../../macros.inc'
 ;include 'macros.inc'
 include 'run.mac'
 include 'lang.inc'
-        meos_app_start
-        use_edit_box
+use32                
+    org 0x0
+    db 'MENUET01'
+    dd 0x1
+    dd start
+    dd i_end
+    dd mem
+    dd mem
+    dd par
+    dd cur_dir_path
+
+
+;        meos_app_start
+;        use_edit_box
+	@use_library
         use_txt_button
-        code
+;        code
+;load system lib
+align 4
+start:
+sys_load_library  library_name, cur_dir_path, library_path, system_path, \
+err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
+        cmp     eax,-1
+        jz      close
+
         cmp     [par],byte 0
         jne     read_par
         mcall   40,EVM_MOUSE+EVM_BUTTON+EVM_KEY+EVM_REDRAW
@@ -34,13 +57,19 @@ still:                          ;
         jz   key
         dec  eax
         jz   button
-        mouse_edit_box input_fn 
+;        mouse_edit_box input_fn 
+        push    dword input_fn
+        call    [edit_box_mouse]
+
         jmp still    ;если ничего из перечисленного то снова в цикл
 key:
         mcall   2
         cmp     ah,13
         je      run
-        key_edit_box input_fn
+;        key_edit_box input_fn
+        push    dword input_fn
+        call    [edit_box_key]
+
         jmp     still
 button:
         mcall   17
@@ -178,7 +207,10 @@ draw_window:
         pop     cx
         mov     edx,[sc.work_graph]
         mcall   38
-        draw_edit_box input_fn
+;        draw_edit_box input_fn
+        push    dword input_fn
+        call    [edit_box_draw]
+
         draw_txt_button run_but
 
         call    draw_status_text
@@ -207,7 +239,7 @@ ret
 
 run_but txt_button 0,5,15,25,2,0,0,run_but_text,
 input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0,511,fn,ed_focus+ed_always_focus
-mouse_flag: dd 0x0
+;mouse_flag: dd 0x0
 
 if lang eq ru
 hello db 'Введите полный путь к файлу и нажмите Enter',0
@@ -238,6 +270,36 @@ run_but_text db 'RUN',0
 end if
 status dd hello
 
+;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+;DATA данные
+;Всегда соблюдать последовательность в имени.
+system_path      db '/sys/lib/'
+library_name     db 'box_lib.obj',0
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+err_message_found_lib   db 'Sorry I cannot load library box_lib.obj',0
+head_f_i:
+head_f_l        db 'System error',0
+err_message_import      db 'Error on load import library box_lib.obj',0
+
+myimport:   
+
+edit_box_draw   dd      aEdit_box_draw
+edit_box_key    dd      aEdit_box_key
+edit_box_mouse  dd      aEdit_box_mouse
+version_ed      dd      aVersion_ed
+
+                dd      0
+                dd      0
+
+aEdit_box_draw  db 'edit_box',0
+aEdit_box_key   db 'edit_box_key',0
+aEdit_box_mouse db 'edit_box_mouse',0
+aVersion_ed     db 'version_ed',0
+
+
+
+
 file_info:
 .mode dd 7
 .flags dd 0
@@ -254,5 +316,12 @@ procinfo process_information
 run_par rb 256
 par rb 256
 fn rb 512
-meos_app_end
-udata
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+cur_dir_path    rb 4096
+library_path    rb 4096
+i_end:
+rb 1024
+mem:
+;meos_app_end
+;udata
diff --git a/programs/system/run/trunk/run.txt b/programs/system/run/trunk/run.txt
index 3a1d5fdbd..75dd7aff5 100644
--- a/programs/system/run/trunk/run.txt
+++ b/programs/system/run/trunk/run.txt
@@ -1,3 +1,6 @@
+<Lrz> - 11.05.2009 - Программа переписана с учетом загрузки системной библиотеки box_lib.obj
+Размер программы уменьшен почти в двое.
+
 MODIFY 15.05.2007 Kolibri team 
 Добавленно поддержка макросов, из единой библиотеки макросов, модернизированный Editbox
     RUN - запускалка программ в КолибриОС через 70-ю функцию.