use box_lib.obj

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

programs/system/rdsave/trunk/rdsave.asm

@@ -3,7 +3,7 @@
 ;   
 ;   Mario79 2005
 ;   Heavyiron 12.02.2007
-;
+;   <Lrz>     11.05.2009 - <20><><EFBFBD> ࠡ<><E0A0A1><EFBFBD> <20>㦭<EFBFBD> <20><><EFBFBD>⥬<EFBFBD><E2A5AC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥪<EFBFBD> box_lib.obj
 ;   <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD> FASM'<27><>
 ;
 ;---------------------------------------------------------------------
@@ -23,18 +23,27 @@ version equ '1.2'
   dd     I_END       ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
   dd     I_END       ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>設<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
   dd     0x0         ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC>஢ (<28><> <20>ᯮ<EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
-  dd     0x0         ; <20><>१<EFBFBD>ࢨ஢<E0A2A8><E0AEA2><EFBFBD>
+  dd cur_dir_path
 
-include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
+;include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
-use_edit_box
+include '../../../develop/libraries/box_lib/trunk/load_lib.mac'
+include '../../../develop/libraries/box_lib/trunk/editbox_ex.mac'
+	@use_library
+
+;use_edit_box
 al equ eax      ; \ decrease kpack'ed size
 purge mov       ; /
 
 ;---------------------------------------------------------------------
 ;---  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  ----------------------------------------------
 ;---------------------------------------------------------------------
-
+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
+
    mov eax, 40
    mov ebx, 100111b
    mcall
@@ -56,7 +65,10 @@ still:
     jz   button
 
 mouse:
-        mouse_edit_box editbox
+;        mouse_edit_box editbox
+        push    dword editbox
+        call    [edit_box_mouse]
+
         jmp     still
     
 button:
@@ -65,6 +77,7 @@ button:
 
     cmp  ah,1            ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> id=1("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")?
     jne  noclose
+close:
     or   eax,-1          ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> -1: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>
     mcall
 
@@ -96,7 +109,10 @@ doit:
 key:         
     mov  al,2
     mcall
-    key_edit_box editbox
+;    key_edit_box editbox
+        push    dword editbox
+        call    [edit_box_key]
+
     jmp  still
 
 
@@ -170,7 +186,10 @@ draw_window:
    mov edi,title                        ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
    mcall
 
-draw_edit_box editbox                   ;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> edit box
+        push    dword editbox
+        call    [edit_box_draw]
+
+;draw_edit_box editbox                   ;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> edit box
 
    mov al,13                            ;<3B><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> ⥭<><E2A5AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    mov ebx,194 shl 16 + 60
@@ -307,8 +326,35 @@ error11 db 'Device error',0
 aUnknownError db 'Unknown error',0
 
 end if
+;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+;DATA <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+;<3B>ᥣ<EFBFBD><E1A5A3> ᮡ<><EFBFBD><EEA4A0> <20><>᫥<EFBFBD><E1ABA5><EFBFBD><EFBFBD>⥫쭮<E2A5AB><ECADAE><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>.
+system_path      db '/sys/lib/'
+library_name     db 'box_lib.obj',0
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-mouse_flag: dd 0x0
+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
+align 4
+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
+
+
+;mouse_flag: dd 0x0
 
 path1   db '/fd/1/',0
 path2   db '/fd/2/',0
@@ -321,6 +367,8 @@ rb 514
 
 sc     system_colors
 
+cur_dir_path    rb 4096
+library_path    rb 4096
 align 4
 rb 0x100        ; for stack
 I_END:                             ; <20><>⪠ <20><><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>