KolibriOS/kolibrios
13
14
Fork 12
Code Issues 113 Pull Requests 16 Actions Projects 1 Releases Wiki Activity

support system lib a box_lib.obj

Browse Source 
git-svn-id: svn://kolibrios.org@1069 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Alexey Teplov (
2009-05-10 18:43:54 +00:00
parent ea836f1026
commit 02fbec18ca
2 changed files with 82 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
programs/system/run/trunk/run.asm
View File

@@ -6,17 +6,40 @@ window_y=67
;window_x=320
window_x=640
;--- <20><>㣨<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
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 ;<3B>᫨ <20><>祣<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᫥<EFBFBD><E1ABA5><EFBFBD><EFBFBD><EFBFBD> <20><> ᭮<><E1ADAE> <20> 横<>
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> 䠩<><E4A0A9> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Enter',0
@@ -238,6 +270,36 @@ run_but_text db 'RUN',0
end if
status dd hello
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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

3
programs/system/run/trunk/run.txt
View File

@@ -1,3 +1,6 @@
<Lrz> - 11.05.2009 - <20>ணࠬ<E0AEA3><E0A0AC> <20><>९<EFBFBD>ᠭ<EFBFBD> <20> <20><><EFBFBD>⮬ <20><><EFBFBD><EFBFBD>㧪<EFBFBD> <20><><EFBFBD>⥬<EFBFBD><E2A5AC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥪<EFBFBD> box_lib.obj
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC> 㬥<><E3ACA5>襭 <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>.
MODIFY 15.05.2007 Kolibri team
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>প<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥪<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ, <20><><EFBFBD><EFBFBD>୨<EFBFBD><E0ADA8>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> Editbox
RUN - <20><><EFBFBD><EFBFBD>᪠<EFBFBD><E1AAA0><EFBFBD> <20>ணࠬ<E0AEA3> <20> <20><><EFBFBD><EFBFBD><EFBFBD>਎<EFBFBD> <20><>१ 70-<2D> <20>㭪<EFBFBD><E3ADAA><EFBFBD>.