Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1068 → Rev 1069

/programs/system/run/trunk/run.asm
6,7 → 6,9
;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'
13,10 → 15,31
;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
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
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
 
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
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
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
/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-î äã­ªæ¨î.