| 0,0 → 1,68 |
|---|
| ;--------------------------------------------------------------------- |
| 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 |
| ;--------------------------------------------------------------------- |