Subversion Repositories Kolibri OS

Rev

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

Rev 1656 Rev 1658
Line 87... Line 87...
87 
;*****************************************************************************
 87 
;*****************************************************************************
88 
;*****************************************************************************
 88 
;*****************************************************************************
89 
.start:
 89 
.start:
90 
	pusha
 90 
	pusha
91 
	mov   ebp,dword [esp+36]
 91 
	mov   ebp,dword [esp+36]
92 
	mcall	40,1b
 - 
 
93 
	push	eax	; save events mask
 - 
 
94
- 
 
Line 95... Line 92...
95
92
96 
	mov	eax,od_com_area
 93 
	mov	eax,od_com_area
97 
	test	eax,eax
 94 
	test	eax,eax
98 
	jz	.1
 95 
	jz	.1
Line 166... Line 163...
166 
	cmp	od_type,dword 2
 163 
	cmp	od_type,dword 2
167 
	je	@f
 164 
	je	@f
168 
	call	.get_filter_data
 165 
	call	.get_filter_data
169 
@@:
 166 
@@:
170 
;----------------------------------------------
 167 
;----------------------------------------------
- 
 
 168 
	mov	ebx,od_procinfo
- 
 
 169 
	xor	eax,eax
- 
 
 170 
	mov	edi,ebx
- 
 
 171 
	mov	ecx,6
- 
 
 172 
	cld
- 
 
 173 
	rep	stosd
- 
 
 174 
	mov	[ebx],dword 7
171 
	mov	eax,od_com_area_name
 175 
	mov	eax,od_com_area_name
172 
	mov	[start_open_dialog.parameter],eax
 176 
	mov	[ebx+8],eax
173 
 
 - 
 
174 
	mov	eax,od_start_path
 177 
	mov	eax,od_start_path
175 
	mov	[start_open_dialog.name],eax
 178 
	mov	[ebx+21],eax
- 
 
 179 
	mcall	70
Line 176... Line -...
176 
 
 - 
 
177 
	mcall	70,dword start_open_dialog
 180 
 
178 
	shr	eax,31
 181 
	shr	eax,31
179 
	test	eax,eax
 182 
	test	eax,eax
180 
	jnz	.1
 183 
	jnz	.1
181 
;----------------------------------------------
 184 
;----------------------------------------------
Line 186... Line 189...
186 
; is not cleared without call of func 0.
 189 
; is not cleared without call of func 0.
187 
; In this case is suitable only func 5 and 11!
 190 
; In this case is suitable only func 5 and 11!
188 
	mcall	5,10
 191 
	mcall	5,10
189 
	mcall	11
 192 
	mcall	11
190 
	cmp	eax,1
 193 
	cmp	eax,1
- 
 
 194 
	je	.draw
- 
 
 195 
	cmp	eax,2
- 
 
 196 
	je	.key
- 
 
 197 
	cmp	eax,3
- 
 
 198 
	je	.button
191 
	jne	.no_draw
 199 
	jmp	.no_draw
- 
 
 200 
.key:
- 
 
 201 
	mcall	2
- 
 
 202 
	jmp	.no_draw
- 
 
 203 
.button:
- 
 
 204 
	mcall	17
- 
 
 205 
	jmp	.no_draw
192 
;----------------------------------------------
 206 
;----------------------------------------------
193 
.draw:
 207 
.draw:
194 
	pusha
 208 
	pusha
195 
	call	od_draw_window
 209 
	call	od_draw_window
196 
	popa
 210 
	popa
197 
;----------------------------------------------
 211 
;----------------------------------------------
198 
	pusha
 212 
	pusha
199 
	mcall	9,od_procinfo,-1
 213 
	call	.prepare_PID
200 
	mov	ecx,[ebx+30]	; PID
 - 
 
201 
	mcall	18,21
 - 
 
202 
	test	eax,eax
 - 
 
203 
	jz	@f
 214 
	jz	@f
Line 204... Line 215...
204 
 
 215 
 
205 
	mov	ecx,eax	; WINDOW SLOT
 216 
	mov	ecx,eax	; WINDOW SLOT
206 
	mcall	18,7
 217 
	mcall	18,7
Line 257... Line 268...
257 
	mov	ebx,[eax+4]
 268 
	mov	ebx,[eax+4]
258 
	mov	od_x_size,ebx
 269 
	mov	od_x_size,ebx
259 
	mov	ebx,[eax+8]
 270 
	mov	ebx,[eax+8]
260 
	mov	od_y_size, ebx
 271 
	mov	od_y_size, ebx
Line -... Line 272...
- 
 
 272 
 
- 
 
 273 
	call	.prepare_PID
261
274 
	jz	@f
262 
	pop	ebx	; restore events mask
 275 
	mov	ecx,eax	; WINDOW SLOT
- 
 
 276 
	mcall	18,3
263 
	mcall	40
 277 
@@:
264 
OpenDialog_exit
 278 
OpenDialog_exit
- 
 
 279 
;----------------------------------------------
- 
 
 280 
.prepare_PID:
- 
 
 281 
	mcall	9,od_procinfo,-1
- 
 
 282 
	mov	ecx,[ebx+30]	; PID
- 
 
 283 
	mcall	18,21
- 
 
 284 
	test	eax,eax
- 
 
 285 
	ret
265 
;----------------------------------------------
 286 
;----------------------------------------------
266 
.get_filter_data:
 287 
.get_filter_data:
267 
	mov	edi,od_com_area
 288 
	mov	edi,od_com_area
268 
	test	edi,edi
 289 
	test	edi,edi
269 
	jnz	@f
 - 
 
270 
;	add	esp,4
 - 
 
271 
;	jmp	still
 290 
	jnz	@f
272 
	ret
 291 
	ret
273 
@@:
 292 
@@:
274 
	add	edi,4100
 293 
	add	edi,4100
275 
	mov	esi,od_filter_area
 294 
	mov	esi,od_filter_area
Line 326... Line 345...
326
345
327 
	mov	[esi+1],byte 0
 346 
	mov	[esi+1],byte 0
328 
	cld
 347 
	cld
329 
	ret
 348 
	ret
330 
;----------------------------------------------
 - 
 
331 
align	4
 - 
 
332 
start_open_dialog:
 - 
 
333 
.subfunction	dd 7
 - 
 
334 
.flags		dd 0
 - 
 
335 
.parameter	dd 0	;od_com_area_name
 - 
 
336 
.reserved1	dd 0
 - 
 
337 
.reserved2	dd 0
 - 
 
338 
		db 0
 - 
 
339 
.name:		dd 0	;od_start_path
 349 
;----------------------------------------------
340 
}
 350 
}
341 
;*****************************************************************************
 351 
;*****************************************************************************