kolibrios/programs/demos/life2/kos_cdlg.inc

proc @Kolibri@OpenFileDialog$qr23Kolibri@TOpenFileStruct uses ebx esi edi ebp
  call @Kolibri@GetThreadData$qv
  mov  ebp,eax
  mov  ebx,[esp+20]
  cmp  dword [ebx+4],0
  jnz  .open_file_dlg_str
  mov  esi,7
  jmp  .open_file_dlg_alloc
.open_file_dlg_str:
  cld
  mov  edi,[ebx+4]
  mov  ecx,-1
  xor  al,al
  repnz scas byte [edi]
  not  ecx
  mov  esi,ecx
.open_file_dlg_alloc:
  push esi
  call @@Kolibri@Alloc$qui
  pop  ecx
  test eax,eax
  jz   .open_file_dlg_ret
  mov  ecx,esi
  dec  ecx
  push esi
  push ecx
  push eax
  mov  dword [ebx],-1
  cmp  dword [ebx+4],0
  jnz  .open_file_dlg_copy
  mov  dword [eax],0x2F64722F
  mov  word [eax+4],0x2F31
  jmp  .open_file_dlg_redraw
.open_file_dlg_copy:
  cld
  mov  ecx,esi
  mov  esi,[ebx+4]
  mov  edi,eax
  rep movs byte [edi],[esi]
.open_file_dlg_redraw:
  mov  eax,12
  mov  ebx,1
  int  0x40
  xor  eax,eax
  mov  ebx,[ebp+KOLIBRI_THREAD_DATA_X*4]
  mov  ecx,[ebp+KOLIBRI_THREAD_DATA_Y*4]
  mov  edx,[ebp+KOLIBRI_THREAD_DATA_C_WINDOW*4]
  mov  esi,[ebp+KOLIBRI_THREAD_DATA_C_HEADER*4]
  mov  edi,[ebp+KOLIBRI_THREAD_DATA_C_BORDER*4]
  int  0x40
  mov  eax,4
  mov  ebx,0x00070007
  mov  ecx,[ebp+KOLIBRI_THREAD_DATA_C_TITLE*4]
  mov  edx,Kolibri_open_file_dlg_name
  mov  esi,Kolibri_open_file_dlg_name_end - Kolibri_open_file_dlg_name
  int  0x40
  mov  eax,4
  mov  ebx,0x000C001E
  xor  ecx,ecx
  mov  edx,[esp]
  mov  esi,[esp+4]
  int  0x40
  mov  eax,12
  mov  ebx,2
  int  0x40
.open_file_dlg_loop:
  mov  eax,10
  int  0x40
  dec  eax
  jz   .open_file_dlg_redraw
  dec  eax
  jz   .open_file_dlg_key
  dec  eax
  jz   .open_file_dlg_end
  jmp  .open_file_dlg_loop
.open_file_dlg_key:
  xor  edi,edi
.open_file_dlg_key_loop:
  mov  eax,2
  int  0x40
  test al,al
  jnz  .open_file_dlg_key_end
  cmp  ah,27
  jz   .open_file_dlg_end
  cmp  ah,13
  jz   .open_file_dlg_apply
  cmp  ah,8
  jz   .open_file_dlg_key_bsp
  cmp  ah,32
  jna  .open_file_dlg_key_loop
  mov  ebx,[esp+4]
  cmp  ebx,[esp+8]
  jb   .open_file_dlg_key_any
  lea  esi,[ebx+2*ebx]
  shr  esi,1
  inc  esi
  push eax
  push esi
  push dword [esp+8]
  call @@Kolibri@ReAlloc$qpvui
  add  esp,8
  mov  ecx,eax
  pop  eax
  test ecx,ecx
  jz   .open_file_dlg_key
  mov  [esp+8],esi
  mov  [esp],ecx
.open_file_dlg_key_any:
  mov  esi,ebx
  add  esi,[esp]
  mov  byte [esi],ah
  inc  ebx
  mov  edi,1
  mov  [esp+4],ebx
  jmp  .open_file_dlg_key_loop
.open_file_dlg_key_bsp:
  mov  eax,[esp+4]
  test eax,eax
  jz   .open_file_dlg_key_loop
  dec  eax
  mov  edi,1
  mov  [esp+4],eax
  jmp  .open_file_dlg_key_loop
.open_file_dlg_key_end:
  test edi,edi
  jnz  .open_file_dlg_redraw
  jmp  .open_file_dlg_loop
.open_file_dlg_apply:
  mov  eax,[esp+4]
  inc  eax
  mov  [esp+8],eax
  push eax
  push dword [esp+4]
  call @@Kolibri@ReAlloc$qpvui
  add  esp,8
  test eax,eax
  jz   .open_file_dlg_end
  mov  eax,[esp]
  mov  esi,eax
  add  eax,[esp+4]
  mov  byte [eax],0
  add  esp,12
  mov  ebx,[esp+20]
  mov  dword [ebx],2
  push dword [ebx+4]
  call @@Kolibri@Free$qpv
  pop  ecx
  mov  [ebx+4],esi
  jmp  .open_file_dlg_invalidate
.open_file_dlg_end:
  call @@Kolibri@Free$qpv
  add  esp,12
  mov  ebx,[esp+20]
  mov  dword [ebx],1
.open_file_dlg_invalidate:
  push ebp
  push dword 1
  call @@Kolibri@Invalidate$qippv
  add  esp,8
.open_file_dlg_ret:
  ret
endp

Kolibri_open_file_dlg_name:
  db   'Open file'
Kolibri_open_file_dlg_name_end: