Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9567 → Rev 9568

/programs/system/MyKey/trunk/MyKey.asm
1000,7 → 1000,7
version_ed dd aVersion_ed
dd 0,0
 
aEdit_box_draw db 'edit_box',0
aEdit_box_draw db 'edit_box_draw',0
aEdit_box_key db 'edit_box_key',0
aEdit_box_mouse db 'edit_box_mouse',0
aVersion_ed db 'version_ed',0
1013,7 → 1013,7
; libio, 'libio.obj', \
 
;import boxlib, \
;edit_box_draw , 'edit_box', \
;edit_box_draw , 'edit_box_draw', \
;edit_box_key , 'edit_box_key', \
;edit_box_mouse , 'edit_box_mouse', \
;version_ed , 'version_ed'
/programs/system/colrdial/i_data.inc
79,7 → 79,7
;a_init db 'lib_init',0
;a_version db 'version',0
 
aEdit_box_draw db 'edit_box',0
aEdit_box_draw db 'edit_box_draw',0
aEdit_box_key db 'edit_box_key',0
aEdit_box_mouse db 'edit_box_mouse',0
aEdit_box_set_text db 'edit_box_set_text',0
/programs/system/format/format.asm
715,7 → 715,7
library box_lib, 'box_lib.obj'
import box_lib,\
edit_box_draw, 'edit_box',\
edit_box_draw, 'edit_box_draw',\
edit_box_key, 'edit_box_key',\
edit_box_mouse, 'edit_box_mouse',\
init_checkbox, 'init_checkbox2',\
/programs/system/hdd_info/trunk/hdd_info.asm
1750,13 → 1750,12
PathShow_prepare dd sz_PathShow_prepare
PathShow_draw dd sz_PathShow_draw
;Version_path_show dd szVersion_path_show
dd 0
dd 0
dd 0,0
 
;a_init db 'lib_init',0
;a_version db 'version',0
 
aEdit_box_draw db 'edit_box',0
aEdit_box_draw db 'edit_box_draw',0
aEdit_box_key db 'edit_box_key',0
aEdit_box_mouse db 'edit_box_mouse',0
;aVersion_ed db 'version_ed',0
/programs/system/icon_new/icon.asm
1074,7 → 1074,7
unpack_DeflateUnpack2 ,'deflate_unpack2'
 
import box_lib,\
edit_box_draw ,'edit_box',\
edit_box_draw ,'edit_box_draw',\
edit_box_key ,'edit_box_key',\
edit_box_mouse ,'edit_box_mouse',\
scrollbar_h_draw ,'scrollbar_h_draw',\
/programs/system/rdsave/trunk/rdsave.asm
31,7 → 31,8
end if
include '../../../proc32.inc'
include '../../../dll.inc'
include '../../../develop/libraries/box_lib/load_lib.mac'
include '../../../KOSfuncs.inc'
include '../../../load_lib.mac'
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include 'str.inc'
 
493,27 → 494,16
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
system_dir_libini db '/sys/lib/libini.obj',0
;---------------------------------------------------------------------
head_f_i:
head_f_l db 'System error',0
 
err_message_found_lib1 db 'box_lib.obj - Not found!',0
err_message_found_lib2 db 'proc_lib.obj - Not found!',0
err_message_found_lib3 db 'libini.obj - Not found!',0
 
err_message_import1 db 'box_lib.obj - Wrong import!',0
err_message_import2 db 'proc_lib.obj - Wrong import!',0
err_message_import3 db 'libini.obj - Wrong import!',0
;---------------------------------------------------------------------
l_libs_start:
 
library01 l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, \
Box_lib_import
 
library02 l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
library02 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, \
ProcLib_import
 
library03 l_libs system_dir_libini+9, cur_dir_path, library_path, system_dir_libini, \
err_message_found_lib3, head_f_l, libini_import, err_message_import3, head_f_i
library03 l_libs system_dir_libini+9, library_path, system_dir_libini, \
libini_import
 
end_l_libs:
;---------------------------------------------------------------------
563,8 → 553,7
ProcLib_import:
OpenDialog_Init dd aOpenDialog_Init
OpenDialog_Start dd aOpenDialog_Start
dd 0
dd 0
dd 0,0
aOpenDialog_Init db 'OpenDialog_init',0
aOpenDialog_Start db 'OpenDialog_start',0
;---------------------------------------------------------------------
592,10 → 581,9
PathShow_prepare dd sz_PathShow_prepare
PathShow_draw dd sz_PathShow_draw
Frame_draw dd sz_Frame_draw
dd 0
dd 0
dd 0,0
 
;aEdit_box_draw db 'edit_box',0
;aEdit_box_draw db 'edit_box_draw',0
;aEdit_box_key db 'edit_box_key',0
;aEdit_box_mouse db 'edit_box_mouse',0
;aVersion_ed db 'version_ed',0
631,8 → 619,7
ini_get_int dd aini_get_int
ini_set_str dd aini_set_str
ini_set_int dd aini_set_int
dd 0
dd 0
dd 0,0
a_init db 'lib_init',0
aini_get_str db 'ini_get_str',0
aini_get_int db 'ini_get_int',0
/programs/system/run/trunk/run.asm
1,7 → 1,8
window_h=85
window_w=430
;--- ¤à㣨¥ ¬ ªà®áë ---
include '../../../develop/libraries/box_lib/load_lib.mac'
include '../../../KOSfuncs.inc'
include '../../../load_lib.mac'
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include 'txtbut.inc'
include '../../../macros.inc'
8,9 → 9,9
include 'run.mac'
include 'lang.inc'
use32
org 0x0
org 0
db 'MENUET01'
dd 0x1
dd 1
dd start
dd i_end
dd mem
27,16 → 28,15
;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
sys_load_library library_name, library_path, system_path, myimport
cmp eax,-1
jz close
 
cmp [par],byte 0
jne read_par
mcall 40,EVM_MOUSE+EVM_BUTTON+EVM_KEY+EVM_REDRAW+EVM_MOUSE_FILTER
mcall SF_SET_EVENTS_MASK, EVM_MOUSE+EVM_BUTTON+EVM_KEY+EVM_REDRAW+EVM_MOUSE_FILTER
red:
mcall 48,3,sc,40
mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,40
edit_boxes_set_sys_color input_fn,input_fn_end,sc
set_sys_colors_txt_button run_but,sc
push dword [sc.work_graph]
43,7 → 43,7
pop [input_fn.focus_border_color]
call draw_window
still: ;®á­®¢­®© ®¡à ¡®â稪
mcall 10 ;Ž¦¨¤ âì ᮡëâ¨ï
mcall SF_WAIT_EVENT
dec eax
jz red
dec eax
56,7 → 56,7
 
jmp still ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
key:
mcall 2
mcall SF_GET_KEY
cmp ah,13
je run
; key_edit_box input_fn
65,7 → 65,7
 
jmp still
button:
mcall 17
mcall SF_GET_BUTTON
dec ah
jz close
dec ah
133,7 → 133,7
inc edi
jmp @b
.stop:
mcall 70,file_info
mcall SF_FILE,file_info
 
cmp eax,0
jl error
141,7 → 141,7
call draw_status
jmp still
close:
mcall -1
mcall SF_TERMINATE_PROCESS
 
error:
neg eax
158,13 → 158,13
jmp still
 
draw_window:
mcall 48,5
mcall SF_STYLE_SETTINGS,SSF_GET_SCREEN_AREA
mov si,bx
 
mcall 12,1
mcall 48,4
mcall SF_REDRAW, SSF_BEGIN_DRAW
mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT
mov dx,ax
mcall 14
mcall SF_GET_SCREEN_SIZE
xor ecx,ecx
sub cx,window_h+40
sub cx,dx
181,9 → 181,9
or edx,0x33000000
xor esi,esi
mov edi,grab_text
mcall 0
mcall SF_CREATE_WINDOW
 
mcall 9,procinfo,-1
mcall SF_THREAD_INFO,procinfo,-1
 
mov eax,[procinfo.box.width]
sub eax,20
200,7 → 200,7
; shl ecx,16
; pop cx
; mov edx,[sc.work_graph]
; mcall 38
; mcall SF_DRAW_LINE
 
; draw_edit_box input_fn
push dword input_fn
210,7 → 210,7
 
call draw_status_text
 
mcall 12,2
mcall SF_REDRAW, SSF_END_DRAW
ret
 
draw_status:
218,7 → 218,7
sub bx,10
mov ecx,(60)*65536+15
mov edx,[sc.work]
mcall 13
mcall SF_DRAW_RECT
draw_status_text:
mov edx,[status]
xor esi,esi
230,7 → 230,7
@@:
mov ecx,[sc.work_text]
or ecx,0x90000000
mcall 4,5*65536+(60)
mcall SF_DRAW_TEXT,5*65536+(60)
ret
 
run_but txt_button 0,5,20,33,2,0,0x90000000,run_but_text,
286,17 → 286,6
library_name db 'box_lib.obj',0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
if lang eq ru
err_message_found_lib db 'Žè¨¡ª  ¯à¨ ¯®¨áª¥ box_lib.obj',0
head_f_i:
head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0
err_message_import db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠box_lib.obj',0
else
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
end if
 
myimport:
 
305,10 → 294,9
edit_box_mouse dd aEdit_box_mouse
version_ed dd aVersion_ed
 
dd 0
dd 0
dd 0,0
 
aEdit_box_draw db 'edit_box',0
aEdit_box_draw db 'edit_box_draw',0
aEdit_box_key db 'edit_box_key',0
aEdit_box_mouse db 'edit_box_mouse',0
aVersion_ed db 'version_ed',0
317,7 → 305,7
 
 
file_info:
.mode dd 7
.mode dd SSF_START_APP
.flags dd 0
.par dd run_par
dd 0,0
/programs/system/skincfg/trunk/idata.inc
121,11 → 121,11
;---------------------------------------------------------------------
l_libs_start:
 
library01 l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, \
Box_lib_import
 
library02 l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
library02 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, \
ProcLib_import
 
end_l_libs:
;---------------------------------------------------------------------
132,15 → 132,6
system_dir_Boxlib db '/sys/lib/box_lib.obj',0
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
 
head_f_i:
head_f_l db 'System error',0
 
err_message_found_lib1 db 'box_lib.obj - Not found!',0
err_message_found_lib2 db 'proc_lib.obj - Not found!',0
 
err_message_import1 db 'box_lib.obj - Wrong import!',0
err_message_import2 db 'proc_lib.obj - Wrong import!',0
 
;---------------------------------------------------------------------
align 4
 
207,13 → 198,12
Frame_draw dd sz_Frame_draw
;Version_frame dd szVersion_frame
 
dd 0
dd 0
dd 0,0
 
;a_init db 'lib_init',0
;a_version db 'version',0
 
;aEdit_box_draw db 'edit_box',0
;aEdit_box_draw db 'edit_box_draw',0
;aEdit_box_key db 'edit_box_key',0
;aEdit_box_mouse db 'edit_box_mouse',0
;aVersion_ed db 'version_ed',0
/programs/system/skincfg/trunk/skincfg.asm
34,7 → 34,8
include '../../../dll.inc'
include 'kglobals.inc'
include 'unpacker.inc'
include '../../../develop/libraries/box_lib/load_lib.mac'
include '../../../KOSfuncs.inc'
include '../../../load_lib.mac'
@use_library
;******************************************************************************
;--------------------------------------
/programs/system/terminal/terminal.asm
410,7 → 410,7
console, 'console.obj'
 
import box_lib,\
edit_box_draw, 'edit_box',\
edit_box_draw, 'edit_box_draw',\
edit_box_key, 'edit_box_key',\
edit_box_mouse, 'edit_box_mouse',\
init_checkbox, 'init_checkbox2',\