forked from KolibriOS/kolibrios
d052c50a74
1) Program used function 68 instead 64 is now 2) Select path with OpenDialog git-svn-id: svn://kolibrios.org@1632 a494cfbc-eb01-0410-851d-a64ba20cac60
68 lines
2.0 KiB
PHP
68 lines
2.0 KiB
PHP
;---------------------------------------------------------------------
|
|
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
|
|
;---------------------------------------------------------------------
|
|
head_f_i:
|
|
head_f_l db 'System error',0
|
|
|
|
err_message_found_lib2 db 'proc_lib.obj - Not found!',0
|
|
|
|
err_message_import2 db 'proc_lib.obj - Wrong import!',0
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
l_libs_start:
|
|
|
|
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
|
|
|
|
end_l_libs:
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
OpenDialog_data:
|
|
.type dd 1 ; Save
|
|
.procinfo dd procinfo ;+4
|
|
.com_area_name dd communication_area_name ;+8
|
|
.com_area dd 0 ;+12
|
|
.opendir_pach dd temp_dir_pach ;+16
|
|
.dir_default_pach dd communication_area_default_pach ;+20
|
|
.start_path dd open_dialog_path ;+24
|
|
.draw_window dd drawwin ;+28
|
|
.status dd 0 ;+32
|
|
.openfile_pach dd file_path ;+36
|
|
.filename_area dd filename_area ;+40
|
|
.filter_area dd Filter
|
|
.x:
|
|
.x_size dw 420 ;+48 ; Window X size
|
|
.x_start dw 10 ;+50 ; Window X position
|
|
.y:
|
|
.y_size dw 320 ;+52 ; Window y size
|
|
.y_start dw 10 ;+54 ; Window Y position
|
|
|
|
communication_area_name:
|
|
db 'FFFFFFFF_open_dialog',0
|
|
open_dialog_path:
|
|
db '/sys/File Managers/opendial',0
|
|
communication_area_default_pach:
|
|
db '/rd0/1/',0
|
|
|
|
Filter:
|
|
dd Filter.end - Filter
|
|
.1:
|
|
db 'MGB',0
|
|
.end:
|
|
db 0
|
|
|
|
;start_temp_file_name: db 'pattern.mgb',0
|
|
|
|
path4 db '/sys/noname.bmp',0
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
ProcLib_import:
|
|
OpenDialog_Init dd aOpenDialog_Init
|
|
OpenDialog_Start dd aOpenDialog_Start
|
|
;OpenDialog__Version dd aOpenDialog_Version
|
|
dd 0
|
|
dd 0
|
|
aOpenDialog_Init db 'OpenDialog_init',0
|
|
aOpenDialog_Start db 'OpenDialog_start',0
|
|
;aOpenDialog_Version db 'Version_OpenDialog',0
|
|
;--------------------------------------------------------------------- |