Subversion Repositories Kolibri OS

Rev

Rev 1467 | Rev 1592 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1467 Rev 1489
Line 19... Line 19...
19 
BUF_SIZE equ 1000 ;buffer for copy|paste
 19 
BUF_SIZE equ 1000 ;buffer for copy|paste
20 
maxSyntaxFileSize equ 410000
 20 
maxSyntaxFileSize equ 410000
Line 21... Line 21...
21 
 
 21 
 
22 
include '../../proc32.inc'
 22 
include '../../proc32.inc'
- 
 
 23 
include '../../macros.inc'
23 
include '../../macros.inc'
 24 
include 'mem.inc'
24 
include '../../develop/libraries/box_lib/load_lib.mac'
 25 
include '../../develop/libraries/box_lib/load_lib.mac'
25 
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
 - 
 
26 
 
 26 
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
27 
include 'lang.inc'
 27 
include 'lang.inc'
28 
include '../../develop/libraries/box_lib/asm/trunk/opendial.mac'
 28 
include '../../develop/libraries/box_lib/asm/trunk/opendial.mac'
Line 29... Line 29...
29 
use_OpenDialog
 29 
use_OpenDialog
30 
 
 30 
 
31 
include 't_data.inc'
 31 
include 't_data.inc'
32 
include 'strlen.inc'
 32 
include 'strlen.inc'
Line 33... Line 33...
33 
include 't_draw.inc' ;draw main window functions
 33 
include 't_draw.inc' ;draw main window functions
Line 34... Line 34...
34 
include 't_button.inc' ;text work functions
 34 
include 't_button.inc' ;text work functions
35 
 
 35 
 
36 
@use_library
 36 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,0
Line 74... Line 74...
74 
; OpenDialog initialisation
 74 
; OpenDialog initialisation
75 
init_OpenDialog OpenDialog_data
 75 
init_OpenDialog OpenDialog_data
Line 76... Line 76...
76 
 
 76 
 
77 
; init bmp file
 77 
; init bmp file
78 
  mov ecx,1200*18
 78 
  mov ecx,1200*18
79 
  call mem_Alloc
 79 
  stdcall mem.Alloc,ecx
Line 80... Line 80...
80 
  mov [bmp_icon],eax
 80 
  mov [bmp_icon],eax
Line 81... Line 81...
81 
 
 81 
 
Line 101... Line 101...
101 
;---------------------------------------------------------------------
 101 
;---------------------------------------------------------------------
102 
; ç¨â ¥¬ bmp ä ©« á ªãàá®à ¬¨ ¨ «¨­¨ï¬¨
 102 
; ç¨â ¥¬ bmp ä ©« á ªãàá®à ¬¨ ¨ «¨­¨ï¬¨
103 
  copy_path fn_icon_tl_sys,sys_path,file_name,0x0
 103 
  copy_path fn_icon_tl_sys,sys_path,file_name,0x0
Line 104... Line 104...
104 
 
 104 
 
105 
  mov ecx,3*256*13
 105 
  mov ecx,3*256*13
106 
  call mem_Alloc
 106 
  stdcall mem.Alloc,ecx
Line 107... Line 107...
107 
  mov dword[tree1.data_img_sys],eax
 107 
  mov dword[tree1.data_img_sys],eax
108 
 
 108 
 
109 
  ;mov [run_file_70.Function], 0
 109 
  ;mov [run_file_70.Function], 0
Line 124... Line 124...
124 
;---------------------------------------------------------------------
 124 
;---------------------------------------------------------------------
125 
; ç¨â ¥¬ bmp ä ©« á ¨ª®­ª ¬¨ 㧫®¢
 125 
; ç¨â ¥¬ bmp ä ©« á ¨ª®­ª ¬¨ 㧫®¢
126 
  copy_path fn_icon_tl_nod,sys_path,file_name,0x0
 126 
  copy_path fn_icon_tl_nod,sys_path,file_name,0x0
Line 127... Line 127...
127 
 
 127 
 
128 
  mov ecx,3*256*2
 128 
  mov ecx,3*256*2
129 
  call mem_Alloc
 129 
  stdcall mem.Alloc,ecx
Line 130... Line 130...
130 
  mov dword[tree1.data_img],eax
 130 
  mov dword[tree1.data_img],eax
131 
 
 131 
 
132 
;  mov [run_file_70.Function], 0
 132 
;  mov [run_file_70.Function], 0
Line 492... Line 492...
492 
  cmp al,1
 492 
  cmp al,1
493 
  jne @f
 493 
  jne @f
494 
    stdcall [mb_create],msgbox_8,thread ;message: save changes in file?
 494 
    stdcall [mb_create],msgbox_8,thread ;message: save changes in file?
495 
    jmp still
 495 
    jmp still
496 
  @@:
 496 
  @@:
497 
  mov ecx,[bmp_icon]
 497 
  stdcall mem.Free,[bmp_icon]
498 
  call mem_Free
 - 
 
Line 499... Line 498...
499 
 
 498 
 
500 
  stdcall [ted_delete], tedit0
 499 
  stdcall [ted_delete], tedit0
501 
  stdcall dword[tl_data_clear], tree1
 500 
  stdcall dword[tl_data_clear], tree1
Line 529... Line 528...
529 
  err_message_import1 db 'Error on load import library msgbox.obj',0
 528 
  err_message_import1 db 'Error on load import library msgbox.obj',0
530 
end if
 529 
end if
Line 531... Line 530...
531 
 
 530 
 
532 
;library structures
 531 
;library structures
533 
l_libs_start:
 532 
l_libs_start:
534 
  lib0 l_libs boxlib_name, sys_path, file_name, system_dir0, err_message_found_lib0, head_f_l0, myimport,err_message_import0, head_f_i0
 533 
  lib0 l_libs boxlib_name, sys_path, file_name, system_dir0, err_message_found_lib0, head_f_l0, boxlib_import,err_message_import0, head_f_i0
535 
  lib1 l_libs msgbox_name, sys_path, file_name, system_dir1, err_message_found_lib1, head_f_l0, msgbox_lib_import, err_message_import1, head_f_i0
 534 
  lib1 l_libs msgbox_name, sys_path, file_name, system_dir1, err_message_found_lib1, head_f_l0, msgbox_lib_import, err_message_import1, head_f_i0
Line 536... Line 535...
536 
load_lib_end:
 535 
load_lib_end: