Subversion Repositories Kolibri OS

;---------------------------------------------------------------------

k_sort_directory:

	test	dword [status],16

	jnz	still

	or	dword [status],16

	call	get_memory_for_tread_stack

	mov	[thread_stack_5],eax

	mcall	51, 1, thread5	;, thread_stack_5

	jmp	still

;---------------------------------------------------------------------

thread5:				; start of bgrd thread

	mcall	9, procinfo_threads, -1

	mov	eax,[ebx+30]

	mov	[PID5],eax

	mcall	40, 0x27

	mov	eax,[sort_type]

	cmp	[sort_type],dword 0

	jne	@f

	mov	[option_group2],sort0

	jmp	.thread5

@@:

	cmp	[sort_type],dword 2

	jne	@f

	mov	[option_group2],sort2

	jmp	.thread5

@@:

	cmp	[sort_type],dword 4

	jne	@f

	mov	[option_group2],sort4

	jmp	.thread5

@@:

;	cmp	[sort_type],dword 6

;	jne	@f

	mov	[option_group2],sort6

;	jmp	.thread5

;@@:

.thread5:

	mov	[sort_type_old],eax

	mov	eax,[option_group2]

	mov	[option_group2_old],eax

.red:

	call	.draw_window

.still:

	mov	eax,10 		; wait here for event

	mcall

	cmp	eax,1			; redraw request ?

	je	.red

	cmp	eax,2			; key in buffer ?

	je	.key

	cmp	eax,3			; button in buffer ?

	je	.button

	cmp	eax,6	; mouse in buffer ?

	je	.mouse

	jmp	.still

.mouse:

	push	dword option_boxes_sort

	call	[option_box_mouse]

	cmp	[option_group2],sort0

	jne	@f

	mov	[sort_type],dword 0

	jmp	.still

@@:

	cmp	[option_group2],sort2

	jne	@f

	mov	 [sort_type],dword 2

	jmp	.still

@@:

	cmp	[option_group2],sort4

	jne	@f

	mov	[sort_type],dword 4

	jmp	.still

@@:

	cmp	[option_group2],sort6

	jne	@f

	mov	[sort_type],dword 6

	jmp	.still

.key:

	mcall

	cmp	ah,27

	je	.close

	cmp	ah,13

	je	.kok

	cmp	ah,177 ;down

	je	.fdn

	cmp	ah,178 ;up

	jne	.still

	cmp	[sort_type],0

	je	.still

	sub	[sort_type],2

	jmp	.flagcont

.fdn:

	cmp	[sort_type],6

	je	.still

	add	[sort_type],2

.flagcont:

	cmp	[sort_type],dword 0

	jne	@f

	mov	[option_group2],sort0

	call	.draw_opt_boxes

	jmp	.still

@@:

	cmp	[sort_type],dword 2

	jne	@f

	mov	[option_group2],sort2

	call	.draw_opt_boxes

	jmp	.still

@@:

	cmp	[sort_type],dword 4

	jne	@f

	mov	[option_group2],sort4

	call	.draw_opt_boxes

	jmp	.still

@@:

	cmp	[sort_type],dword 6

	jne	.still	;@f

	mov	[option_group2],sort6

	call	.draw_opt_boxes

	jmp	.still

.button:			 ; button

	mov	eax,17 		; get id

	mcall

	cmp	ah,1			; button id=1 ?

	jne	.noclose

.close:

	mov	eax,[sort_type_old]

	mov	[sort_type],eax

	mov	eax,[option_group2_old]

	mov	[option_group2],eax

.close_1:

	xor	dword [status],16

	xor	eax,eax

	mov	[PID5],eax

	mcall	68,13,[thread_stack_5]

	mov	eax,-1 		; close this program

	mcall

.noclose:

.kok:

	mov	eax,[load_directory_pointer]

	cmp	[eax+4],dword 0

	je	.close_1

	call	load_directory.copy_dir_path

	call	load_directory.sort

	mov	[sort_directory_flag],byte 1

	jmp	.close_1

;	 *********************************************

;	 *******	WINDOW DEFINITIONS AND DRAW ********

;	 *********************************************

.draw_window:

	mcall	12,1

					 ; DRAW WINDOW

	xor	eax,eax			 ; function 0 : define and draw window

	mov	ebx,100*65536+300	 ; [x start] *65536 + [x size]

	mov	ecx,100*65536+110	 ; [y start] *65536 + [y size]

	mov	edx,0x03909090 		 ; color of work area RRGGBB,8->color gl

	mcall

	mov	eax,8

	mov	ebx,120*65536+40

	mov	ecx,50*65536+20

	mov	edx,4

	mov	esi,0xdddddd

	mcall

					 ; WINDOW LABEL

	mcall	71,1, labelt5

	mov	eax,4			 ; function 4 : write text to window

	mov	ebx,46*65536+28		 ; [x start] *65536 + [y start]

	mov	ecx,0xffffff

	mov	edx, sorttext

	mov	esi, sorttext.size

	mcall

	mov	ebx,135*65536+57

	mov	edx, ok_btn

	mov	esi, ok_btn.size ;2

	mov	ecx,0

	mcall

	call	.draw_opt_boxes

;	mcall	47,0x80000,[PID5],<200, 5>,0xffffff

	mcall	12,2

	ret

;---------------------------------------------------------------------

.draw_opt_boxes:

	push	dword option_boxes_sort

	call	[option_box_draw]

	ret