1 ;---------------------------------------------------------------------
\rkinfo:
\r test dword [status],2
\r jnz still
\r or dword [status],2
\r\r call get_memory_for_thread_stack
\r mov [thread_stack_2],eax
\r mcall 51,1,thread2 ;, thread_stack_2
\r jmp still
\r;---------------------------------------------------------------------
\rthread2: ; start of info thread
\r mcall 9,procinfo_threads,-1
\r mov eax,[ebx+30]
\r mov [PID2],eax
\r mcall 40,0x7
\r call load_directory.copy_dir_path
\r;---------------------------------------------------------------------
\r.red:
\r call .draw_window
\r;---------------------------------------------------------------------
\r.still:
\r mcall 10 ; wait here for event
\r cmp eax,1 ; redraw request ?
\r je .red
\r\r cmp eax,2 ; key in buffer ?
\r je .close
\r\r cmp eax,3 ; button in buffer ?
\r je .button
\r\r jmp .still
\r;---------------------------------------------------------------------
\r.button: ; button
\r mcall 17 ; get id
\r cmp ah,1 ; button id=1 ?
\r jne .still ;.noclose
\r.close:
\r xor dword [status],2
\r xor eax,eax
\r mov [PID2],eax
\r mcall 68,13,[thread_stack_2]
\r mcall -1 ; close this program
\r;---------------------------------------------------------------------
\r; *********************************************
\r; ******* WINDOW DEFINITIONS AND DRAW ********
\r; *********************************************
\r.draw_window:
\r mcall 12,2
\r xor eax,eax ; function 0 : define and draw window
\r xor esi,esi
\r mcall ,<100,330>,<100,130>,0x13eeeeee,,labelt2
\r mcall 4,<120,30>,0x80000000,file_name
\r mov edx,fitext
\r mov esi,14
\r mov ebx,10*65536+30
\r mov ecx,0x10000000
\r@@:
\r mcall
\r add ebx,15
\r add edx,esi
\r cmp ebx,10*65536+105
\r jbe @r
\r \r mov esi,ecx
\r mcall 47,0x800a0000,[img_size],<120,46>
\r \r add edx,15
\r mcall ,,[img_width_2]
\r \r add edx,15
\r mcall ,,[img_high_2]
\r \r add edx,15
\r mcall ,,[img_resolution_2]
\r \r add edx,15
\r mcall ,,[Total_Repeat_N]
\r\r; mcall 47,0x80000,[PID2],<200, 5>,0xffffff
\r; mcall 47,0x800a0000,[error_locate],<140,5>,0x10ffffff
\r mcall 12,2
\r ret
\r;--------------------------------------------------------------------
\r