Subversion Repositories Kolibri OS

Rev

Rev 1636 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;---------------------------------------------------------------------
  2. system_dir_ProcLib      db '/sys/lib/proc_lib.obj',0
  3. ;---------------------------------------------------------------------
  4. head_f_i:
  5. head_f_l        db 'System error',0
  6.  
  7. err_message_found_lib2  db 'proc_lib.obj - Not found!',0
  8.  
  9. err_message_import2     db 'proc_lib.obj - Wrong import!',0
  10. ;---------------------------------------------------------------------
  11. align 4
  12. l_libs_start:
  13.  
  14. library02  l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
  15. err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
  16.  
  17. end_l_libs:
  18. ;---------------------------------------------------------------------
  19. align 4
  20. OpenDialog_data:
  21. .type                   dd 1    ; Save
  22. .procinfo               dd procinfo     ;+4
  23. .com_area_name          dd communication_area_name      ;+8
  24. .com_area               dd 0    ;+12
  25. .opendir_pach           dd temp_dir_pach        ;+16
  26. .dir_default_pach       dd communication_area_default_pach      ;+20
  27. .start_path             dd open_dialog_path     ;+24
  28. .draw_window            dd drawwin      ;+28
  29. .status                 dd 0    ;+32
  30. .openfile_pach          dd file_path    ;+36
  31. .filename_area          dd filename_area        ;+40
  32. .filter_area            dd Filter
  33. .x:
  34. .x_size                 dw 420 ;+48 ; Window X size
  35. .x_start                dw 10 ;+50 ; Window X position
  36. .y:
  37. .y_size                 dw 320 ;+52 ; Window y size
  38. .y_start                dw 10 ;+54 ; Window Y position
  39.  
  40. communication_area_name:
  41.         db 'FFFFFFFF_open_dialog',0
  42. open_dialog_path:
  43. if __nightbuild eq yes
  44.     db '/sys/MANAGERS/opendial',0
  45. else
  46.     db '/sys/File Managers/opendial',0
  47. end if
  48. communication_area_default_pach:
  49.         db '/rd0/1/',0
  50.  
  51. Filter:
  52. dd      Filter.end - Filter
  53. .1:
  54. db      'BMP',0
  55. db      'GIF',0
  56. .end:
  57. db      0
  58.  
  59. ;start_temp_file_name:  db 'pattern.mgb',0
  60.  
  61. path4   db '/sys/noname.bmp',0
  62. ;---------------------------------------------------------------------
  63. align 4
  64. ProcLib_import:
  65. OpenDialog_Init         dd aOpenDialog_Init
  66. OpenDialog_Start        dd aOpenDialog_Start
  67. ;OpenDialog__Version    dd aOpenDialog_Version
  68.         dd      0
  69.         dd      0
  70. aOpenDialog_Init        db 'OpenDialog_init',0
  71. aOpenDialog_Start       db 'OpenDialog_start',0
  72. ;aOpenDialog_Version    db 'Version_OpenDialog',0
  73. ;---------------------------------------------------------------------