Subversion Repositories Kolibri OS

Rev

Rev 7039 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7039 Rev 7212
Line 313... Line 313...
313 
      0\
 313 
      0\
314 
>
 314 
>
315 
; -------------------------------------------------------- ;
 315 
; -------------------------------------------------------- ;
316 
.Data? ; ------------------------------------------------- ;
 316 
.Data? ; ------------------------------------------------- ;
317 
; -------------------------------------------------------- ;
 317 
; -------------------------------------------------------- ;
- 
 
 318 
Extern AppParams: Byte
- 
 
 319 
Extern AppPath:   Byte
- 
 
 320 
 
318 
BoxLib         Dword ?
 321 
BoxLib         Dword ?
319 
ProcLib        Dword ?
 322 
ProcLib        Dword ?
Line 320... Line 323...
320 
 
 323 
 
321 
OpenDialogInit  OpenDialogInit_proc  ?
 324 
OpenDialogInit  OpenDialogInit_proc  ?
Line 574... Line 577...
574 
        Invoke GetProcAddress, ProcLib, CStr("OpenDialog_init")
 577 
        Invoke GetProcAddress, ProcLib, CStr("OpenDialog_init")
575 
        mov    OpenDialogInit, eax
 578 
        mov    OpenDialogInit, eax
576 
        Invoke GetProcAddress, ProcLib, CStr("OpenDialog_start")
 579 
        Invoke GetProcAddress, ProcLib, CStr("OpenDialog_start")
577 
        mov    OpenDialogStart, eax
 580 
        mov    OpenDialogStart, eax
Line -... Line 581...
- 
 
 581 
 
- 
 
 582 
; Copy command line parameters to EditBox
- 
 
 583 
; Assume EDIT1_TEXT_BUFFER_SIZE > PARAMS_SIZE(defined in linker-script)
- 
 
 584 
        Invoke EditBoxSetText, Offset Edit1, Offset AppParams
578 
 
 585
579 
; it need for case if spaces are present in filepath
 586 
; it need for case if spaces are present in filepath
580 
        lea    eax, [OpenFilePathBuffer + 1]
 587 
        lea    eax, [OpenFilePathBuffer + 1]
581 
        mov    OD.openfile_path, eax
 588 
        mov    OD.openfile_path, eax