Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1438 → Rev 1439

/programs/develop/heed/trunk/heed.asm
97,6 → 97,16
;OpenDialog initialisation
init_OpenDialog OpenDialog_data
 
mov edi,filename_area
mov esi,start_temp_file_name
xor eax,eax
cld
@@:
lodsb
stosb
test eax,eax
jnz @b
 
load_library boxlib_name,cur_dir_path,buf_cmd_lin,system_path,\
err_message_found_lib,head_f_l,myimport,err_message_import,head_f_i
 
1749,7 → 1759,6
jmp redraw_all
;-------------------------------------------------------------------------------
open_dialog_save:
call get_filter_data
mov [OpenDialog_data.type],1 ; Save
start_OpenDialog OpenDialog_data
cmp [OpenDialog_data.status],2 ; OpenDialog does not start
2749,7 → 2758,6
 
;---------------------------------------------------------------------
open_dialog:
call get_filter_data
mov [OpenDialog_data.type],0 ; Open
start_OpenDialog OpenDialog_data
cmp [OpenDialog_data.status],2 ; OpenDialog does not start
2777,23 → 2785,6
mov [edit1.pos],esi
jmp open_file.0
;---------------------------------------------------------------------
get_filter_data:
mov edi,[OpenDialog_data.com_area]
test edi,edi
jnz @f
add esp,4
jmp still
@@:
add edi,4096+4
mov esi,Filter
mov ecx,[esi]
inc ecx
cld
rep movsb
mov edi,[OpenDialog_data.com_area]
mov [edi+4096],dword 1
ret
;---------------------------------------------------------------------
;##################################
opendialog:
;
3429,6 → 3420,8
.draw_window dd draw_window_1 ;+28
.status dd 0 ;+32
.openfile_pach dd fname_buf ;+36
.filename_area dd filename_area ;+40
.filter_area dd Filter
 
communication_area_name:
db 'FFFFFFFF_open_dialog',0
3438,11 → 3431,14
db '/rd/1',0
 
Filter:
dd Filter.end - Filter
db 'BIN',0
db 'DAT',0
dd Filter.end - Filter.1
.1:
;db 'BIN',0
;db 'DAT',0
.end:
db 0
 
start_temp_file_name: db 'temp.bin',0
;---------------------------------------------------------------------
 
I_END:
3494,7 → 3490,11
;---------------------------------------------------------------------
fname_buf:
rb 4096
;---------------------------------------------------------------------
temp_dir_pach:
rb 4096
;---------------------------------------------------------------------
filename_area:
rb 256
;---------------------------------------------------------------------
D_END: