Subversion Repositories Kolibri OS

Rev

Rev 3831 | Rev 3983 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3831 Rev 3865
Line 76... Line 76...
76
	dd stacktop
76
	dd stacktop
77
	dd param
77
	dd param
78
	dd path
78
	dd path
Line 79... Line 79...
79
 
79
 
-
 
80
include '../../macros.inc'
80
include '../../macros.inc'
81
;include '../../debug.inc'
81
include '../../develop/libraries/box_lib/load_lib.mac'
82
include '../../develop/libraries/box_lib/load_lib.mac'
82
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
83
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
83
;include 'macros.inc'
84
;include 'macros.inc'
84
;include 'load_lib.mac'
85
;include 'load_lib.mac'
Line 1016... Line 1017...
1016
;---------------------------------------------------------------------
1017
;---------------------------------------------------------------------
1017
get_communication_area:
1018
get_communication_area:
1018
	xor	eax,eax
1019
	xor	eax,eax
1019
	mov	al,[param]
1020
	mov	al,[param]
1020
	test	eax,eax
1021
	test	eax,eax
1021
	jz	@f
1022
	jz	.exit
1022
	mcall	68,22,param,,0x01
1023
	mcall	68,22,param,,0x01
1023
	mov	[communication_area],eax
1024
	mov	[communication_area],eax
1024
	movzx	ebx,word [eax+2]
1025
	movzx	ebx,word [eax+2]
1025
	mov	[open_dialog_type],ebx
1026
	mov	[open_dialog_type],ebx
-
 
1027
	cmp	ebx,1
-
 
1028
	jne	@f
-
 
1029
	pushad
-
 
1030
	mov	[focus_pointer],bl
-
 
1031
	mov	edi,edit1
-
 
1032
	mov	[file_browser_data_1.select_panel_counter],0
-
 
1033
	or	[edi+44],dword ed_focus
-
 
1034
	mov	[edi+12],dword 0xffffb0	; color yellow
-
 
1035
	mcall	66,1,0
-
 
1036
	popad
-
 
1037
@@:
1026
	mov	ebx,[eax+4]
1038
	mov	ebx,[eax+4]
1027
	cmp	bx,word x_minimal_size ;300
1039
	cmp	bx,word x_minimal_size ;300
1028
	jb	@f
1040
	jb	@f
1029
	mov	[window_x],ebx
1041
	mov	[window_x],ebx
1030
	mov	ebx,[eax+8]
1042
	mov	ebx,[eax+8]
1031
	cmp	bx,word y_minimal_size ;200
1043
	cmp	bx,word y_minimal_size ;200
1032
	jb	@f
1044
	jb	@f
1033
	mov	[window_y],ebx
1045
	mov	[window_y],ebx
1034
@@:
1046
.exit:
1035
	ret
1047
	ret
1036
;---------------------------------------------------------------------
1048
;---------------------------------------------------------------------
1037
load_start_directory:
1049
load_start_directory:
1038
	mov	eax,[communication_area]	
1050
	mov	eax,[communication_area]	
1039
	test	eax,eax
1051
	test	eax,eax
Line 1045... Line 1057...
1045
	mov	esi,eax
1057
	mov	esi,eax
1046
	push	esi
1058
	push	esi
1047
	mov	esi,[communication_area]
1059
	mov	esi,[communication_area]
1048
	add	esi,3840 ;4096-256
1060
	add	esi,3840 ;4096-256
1049
	mov	eax,[esi]
1061
	mov	eax,[esi]
1050
	test	eax,eax
1062
	test	al,al
1051
	jnz	@f
1063
	jnz	@f
1052
	mov	esi,example_name_temp
1064
	mov	esi,example_name_temp
1053
@@:
1065
@@:
1054
	mov	edi,user_selected_name
1066
	mov	edi,user_selected_name
1055
	call	copy_dir_name
1067
	call	copy_dir_name
Line 1183... Line 1195...
1183
	push	ebx
1195
	push	ebx
1184
	mov	al,[focus_pointer]
1196
	mov	al,[focus_pointer]
1185
	test	al,al
1197
	test	al,al
1186
	je	@f
1198
	je	@f
1187
	mov	ebx,user_selected_name
1199
	mov	ebx,user_selected_name
-
 
1200
	xor	eax,eax
-
 
1201
	cmp	[ebx],al
-
 
1202
	je	.exit
1188
@@:
1203
@@:
1189
	cmp	[open_dialog_type],2
1204
	cmp	[open_dialog_type],2
1190
	je	@f
1205
	je	@f
1191
	mov	esi,file_name
1206
	mov	esi,file_name
1192
	call	copy_dir_path
1207
	call	copy_dir_path
Line 1208... Line 1223...
1208
	mov	al,[focus_pointer]
1223
	mov	al,[focus_pointer]
1209
	test	al,al
1224
	test	al,al
1210
	jz	@f
1225
	jz	@f
1211
	mov	esi,user_selected_name
1226
	mov	esi,user_selected_name
1212
@@:
1227
@@:
-
 
1228
	xor	eax,eax
-
 
1229
	cmp	[esi],al
-
 
1230
	je	.exit
1213
	mov	edi,[communication_area]
1231
	mov	edi,[communication_area]
1214
	add	edi,3840 ;4096-256
1232
	add	edi,3840 ;4096-256
1215
	call	copy_dir_name
1233
	call	copy_dir_name
1216
	
1234
.exit:
1217
	mov	eax,[communication_area]
1235
	mov	eax,[communication_area]
1218
	mov	[eax],word 1
1236
	mov	[eax],word 1
1219
	jmp	button.exit
1237
	jmp	button.exit
1220
;---------------------------------------------------------------------
1238
;---------------------------------------------------------------------
1221
load_root_directory:
1239
load_root_directory:
Line 1567... Line 1585...
1567
copy_new_file_name:
1585
copy_new_file_name:
1568
	mov	esi,[file_browser_data_1.selected_BDVK_adress]
1586
	mov	esi,[file_browser_data_1.selected_BDVK_adress]
1569
	add	esi,40
1587
	add	esi,40
1570
	mov	edi,user_selected_name
1588
	mov	edi,user_selected_name
1571
	cld
1589
	cld
-
 
1590
	lodsb
-
 
1591
	test	al,al
-
 
1592
	jnz	.1
-
 
1593
	ret
1572
@@:
1594
@@:
1573
	lodsb
1595
	lodsb
-
 
1596
.1:
1574
	stosb
1597
	stosb
1575
	test	al,al
1598
	test	al,al
1576
	jnz	@r
1599
	jnz	@r
Line 1577... Line 1600...
1577
	
1600
	
Line 2458... Line 2481...
2458
	mov	edi,previous_dir_path
2481
	mov	edi,previous_dir_path
2459
	call	.1
2482
	call	.1
2460
	pop	edi esi
2483
	pop	edi esi
2461
.1:
2484
.1:
2462
	xor	eax,eax
2485
	xor	eax,eax
-
 
2486
	cmp	[esi],al
-
 
2487
	je	.exit
2463
	cld
2488
	cld
2464
@@:
2489
@@:
2465
	lodsb
2490
	lodsb
2466
	stosb
2491
	stosb
2467
	test	eax,eax
2492
	test	eax,eax
2468
	jnz	@b
2493
	jnz	@b
-
 
2494
.exit:
2469
	ret
2495
	ret
2470
;---------------------------------------------------------------------
2496
;---------------------------------------------------------------------
2471
;---------------------------------------------------------------------
2497
;---------------------------------------------------------------------
Line 2472... Line 2498...
2472
 
2498