Rev 6687 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6687 | Rev 9568 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | window_h=85 |
1 | window_h=85 |
2 | window_w=430 |
2 | window_w=430 |
3 | ;--- ¤à㣨¥ ¬ ªà®áë --- |
3 | ;--- ¤à㣨¥ ¬ ªà®áë --- |
- | 4 | include '../../../KOSfuncs.inc' |
|
4 | include '../../../develop/libraries/box_lib/load_lib.mac' |
5 | include '../../../load_lib.mac' |
5 | include '../../../develop/libraries/box_lib/trunk/box_lib.mac' |
6 | include '../../../develop/libraries/box_lib/trunk/box_lib.mac' |
6 | include 'txtbut.inc' |
7 | include 'txtbut.inc' |
7 | include '../../../macros.inc' |
8 | include '../../../macros.inc' |
8 | include 'run.mac' |
9 | include 'run.mac' |
9 | include 'lang.inc' |
10 | include 'lang.inc' |
10 | use32 |
11 | use32 |
11 | org 0x0 |
12 | org 0 |
12 | db 'MENUET01' |
13 | db 'MENUET01' |
13 | dd 0x1 |
14 | dd 1 |
14 | dd start |
15 | dd start |
15 | dd i_end |
16 | dd i_end |
16 | dd mem |
17 | dd mem |
17 | dd mem |
18 | dd mem |
18 | dd par |
19 | dd par |
Line 25... | Line 26... | ||
25 | use_txt_button |
26 | use_txt_button |
26 | ; code |
27 | ; code |
27 | ;load system lib |
28 | ;load system lib |
28 | align 4 |
29 | align 4 |
29 | start: |
30 | start: |
30 | sys_load_library library_name, cur_dir_path, library_path, system_path, \ |
31 | sys_load_library library_name, library_path, system_path, myimport |
31 | err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i |
- | |
32 | cmp eax,-1 |
32 | cmp eax,-1 |
33 | jz close |
33 | jz close |
Line 34... | Line 34... | ||
34 | 34 | ||
35 | cmp [par],byte 0 |
35 | cmp [par],byte 0 |
36 | jne read_par |
36 | jne read_par |
37 | mcall 40,EVM_MOUSE+EVM_BUTTON+EVM_KEY+EVM_REDRAW+EVM_MOUSE_FILTER |
37 | mcall SF_SET_EVENTS_MASK, EVM_MOUSE+EVM_BUTTON+EVM_KEY+EVM_REDRAW+EVM_MOUSE_FILTER |
38 | red: |
38 | red: |
39 | mcall 48,3,sc,40 |
39 | mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,40 |
40 | edit_boxes_set_sys_color input_fn,input_fn_end,sc |
40 | edit_boxes_set_sys_color input_fn,input_fn_end,sc |
41 | set_sys_colors_txt_button run_but,sc |
41 | set_sys_colors_txt_button run_but,sc |
42 | push dword [sc.work_graph] |
42 | push dword [sc.work_graph] |
43 | pop [input_fn.focus_border_color] |
43 | pop [input_fn.focus_border_color] |
44 | call draw_window |
44 | call draw_window |
45 | still: ;®á®¢®© ®¡à ¡®â稪 |
45 | still: ;®á®¢®© ®¡à ¡®â稪 |
46 | mcall 10 ;¦¨¤ âì ᮡëâ¨ï |
46 | mcall SF_WAIT_EVENT |
47 | dec eax |
47 | dec eax |
48 | jz red |
48 | jz red |
49 | dec eax |
49 | dec eax |
50 | jz key |
50 | jz key |
Line 54... | Line 54... | ||
54 | push dword input_fn |
54 | push dword input_fn |
55 | call [edit_box_mouse] |
55 | call [edit_box_mouse] |
Line 56... | Line 56... | ||
56 | 56 | ||
57 | jmp still ;¥á«¨ ¨ç¥£® ¨§ ¯¥à¥ç¨á«¥®£® ⮠ᮢ ¢ 横« |
57 | jmp still ;¥á«¨ ¨ç¥£® ¨§ ¯¥à¥ç¨á«¥®£® ⮠ᮢ ¢ 横« |
58 | key: |
58 | key: |
59 | mcall 2 |
59 | mcall SF_GET_KEY |
60 | cmp ah,13 |
60 | cmp ah,13 |
61 | je run |
61 | je run |
62 | ; key_edit_box input_fn |
62 | ; key_edit_box input_fn |
63 | push dword input_fn |
63 | push dword input_fn |
Line 64... | Line 64... | ||
64 | call [edit_box_key] |
64 | call [edit_box_key] |
65 | 65 | ||
66 | jmp still |
66 | jmp still |
67 | button: |
67 | button: |
68 | mcall 17 |
68 | mcall SF_GET_BUTTON |
69 | dec ah |
69 | dec ah |
70 | jz close |
70 | jz close |
71 | dec ah |
71 | dec ah |
Line 131... | Line 131... | ||
131 | mov [edi],al |
131 | mov [edi],al |
132 | inc esi |
132 | inc esi |
133 | inc edi |
133 | inc edi |
134 | jmp @b |
134 | jmp @b |
135 | .stop: |
135 | .stop: |
136 | mcall 70,file_info |
136 | mcall SF_FILE,file_info |
Line 137... | Line 137... | ||
137 | 137 | ||
138 | cmp eax,0 |
138 | cmp eax,0 |
139 | jl error |
139 | jl error |
140 | mov [status],run_ok |
140 | mov [status],run_ok |
141 | call draw_status |
141 | call draw_status |
142 | jmp still |
142 | jmp still |
143 | close: |
143 | close: |
Line 144... | Line 144... | ||
144 | mcall -1 |
144 | mcall SF_TERMINATE_PROCESS |
145 | 145 | ||
146 | error: |
146 | error: |
147 | neg eax |
147 | neg eax |
Line 156... | Line 156... | ||
156 | 156 | ||
157 | call draw_status |
157 | call draw_status |
Line 158... | Line 158... | ||
158 | jmp still |
158 | jmp still |
159 | 159 | ||
160 | draw_window: |
160 | draw_window: |
Line 161... | Line 161... | ||
161 | mcall 48,5 |
161 | mcall SF_STYLE_SETTINGS,SSF_GET_SCREEN_AREA |
162 | mov si,bx |
162 | mov si,bx |
163 | 163 | ||
164 | mcall 12,1 |
164 | mcall SF_REDRAW, SSF_BEGIN_DRAW |
165 | mcall 48,4 |
165 | mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT |
166 | mov dx,ax |
166 | mov dx,ax |
167 | mcall 14 |
167 | mcall SF_GET_SCREEN_SIZE |
168 | xor ecx,ecx |
168 | xor ecx,ecx |
169 | sub cx,window_h+40 |
169 | sub cx,window_h+40 |
Line 179... | Line 179... | ||
179 | mov bx,window_w |
179 | mov bx,window_w |
180 | mov edx,[sc.work] |
180 | mov edx,[sc.work] |
181 | or edx,0x33000000 |
181 | or edx,0x33000000 |
182 | xor esi,esi |
182 | xor esi,esi |
183 | mov edi,grab_text |
183 | mov edi,grab_text |
184 | mcall 0 |
184 | mcall SF_CREATE_WINDOW |
Line 185... | Line 185... | ||
185 | 185 | ||
Line 186... | Line 186... | ||
186 | mcall 9,procinfo,-1 |
186 | mcall SF_THREAD_INFO,procinfo,-1 |
187 | 187 | ||
188 | mov eax,[procinfo.box.width] |
188 | mov eax,[procinfo.box.width] |
189 | sub eax,20 |
189 | sub eax,20 |
Line 198... | Line 198... | ||
198 | ; mov cx,58 |
198 | ; mov cx,58 |
199 | ; push cx |
199 | ; push cx |
200 | ; shl ecx,16 |
200 | ; shl ecx,16 |
201 | ; pop cx |
201 | ; pop cx |
202 | ; mov edx,[sc.work_graph] |
202 | ; mov edx,[sc.work_graph] |
203 | ; mcall 38 |
203 | ; mcall SF_DRAW_LINE |
Line 204... | Line 204... | ||
204 | 204 | ||
205 | ; draw_edit_box input_fn |
205 | ; draw_edit_box input_fn |
206 | push dword input_fn |
206 | push dword input_fn |
Line 207... | Line 207... | ||
207 | call [edit_box_draw] |
207 | call [edit_box_draw] |
Line 208... | Line 208... | ||
208 | 208 | ||
Line 209... | Line 209... | ||
209 | draw_txt_button run_but |
209 | draw_txt_button run_but |
210 | 210 | ||
Line 211... | Line 211... | ||
211 | call draw_status_text |
211 | call draw_status_text |
212 | 212 | ||
213 | mcall 12,2 |
213 | mcall SF_REDRAW, SSF_END_DRAW |
214 | ret |
214 | ret |
215 | 215 | ||
216 | draw_status: |
216 | draw_status: |
217 | mov ebx,[procinfo.box.width] |
217 | mov ebx,[procinfo.box.width] |
218 | sub bx,10 |
218 | sub bx,10 |
219 | mov ecx,(60)*65536+15 |
219 | mov ecx,(60)*65536+15 |
220 | mov edx,[sc.work] |
220 | mov edx,[sc.work] |
221 | mcall 13 |
221 | mcall SF_DRAW_RECT |
Line 228... | Line 228... | ||
228 | inc esi |
228 | inc esi |
229 | jmp @b |
229 | jmp @b |
230 | @@: |
230 | @@: |
231 | mov ecx,[sc.work_text] |
231 | mov ecx,[sc.work_text] |
232 | or ecx,0x90000000 |
232 | or ecx,0x90000000 |
233 | mcall 4,5*65536+(60) |
233 | mcall SF_DRAW_TEXT,5*65536+(60) |
234 | ret |
234 | ret |
Line 235... | Line 235... | ||
235 | 235 | ||
236 | run_but txt_button 0,5,20,33,2,0,0x90000000,run_but_text, |
236 | run_but txt_button 0,5,20,33,2,0,0x90000000,run_but_text, |
237 | input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0x90000000,511,fn,mouse_dd,ed_focus+ed_always_focus |
237 | input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0x90000000,511,fn,mouse_dd,ed_focus+ed_always_focus |
Line 284... | Line 284... | ||
284 | ;ᥣ¤ ᮡ«î¤ âì ¯®á«¥¤®¢ ⥫ì®áâì ¢ ¨¬¥¨. |
284 | ;ᥣ¤ ᮡ«î¤ âì ¯®á«¥¤®¢ ⥫ì®áâì ¢ ¨¬¥¨. |
285 | system_path db '/sys/lib/' |
285 | system_path db '/sys/lib/' |
286 | library_name db 'box_lib.obj',0 |
286 | library_name db 'box_lib.obj',0 |
287 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
287 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
Line 288... | Line -... | ||
288 | - | ||
289 | if lang eq ru |
- | |
290 | err_message_found_lib db '訡ª ¯à¨ ¯®¨áª¥ box_lib.obj',0 |
- | |
291 | head_f_i: |
- | |
292 | head_f_l db '¨á⥬ ï ®è¨¡ª ',0 |
- | |
293 | err_message_import db '訡ª ¯à¨ ¨¬¯®à⥠box_lib.obj',0 |
- | |
294 | else |
- | |
295 | err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0 |
- | |
296 | head_f_i: |
- | |
297 | head_f_l db 'System error',0 |
- | |
298 | err_message_import db 'Error on load import library box_lib.obj',0 |
- | |
Line 299... | Line 288... | ||
299 | end if |
288 | |
Line 300... | Line 289... | ||
300 | 289 | ||
301 | myimport: |
290 | myimport: |
302 | 291 | ||
303 | edit_box_draw dd aEdit_box_draw |
292 | edit_box_draw dd aEdit_box_draw |
Line 304... | Line -... | ||
304 | edit_box_key dd aEdit_box_key |
- | |
305 | edit_box_mouse dd aEdit_box_mouse |
293 | edit_box_key dd aEdit_box_key |
Line 306... | Line 294... | ||
306 | version_ed dd aVersion_ed |
294 | edit_box_mouse dd aEdit_box_mouse |
307 | 295 | version_ed dd aVersion_ed |
|
308 | dd 0 |
296 | |
309 | dd 0 |
297 | dd 0,0 |
Line 310... | Line 298... | ||
310 | 298 | ||
311 | aEdit_box_draw db 'edit_box',0 |
299 | aEdit_box_draw db 'edit_box_draw',0 |
312 | aEdit_box_key db 'edit_box_key',0 |
300 | aEdit_box_key db 'edit_box_key',0 |
313 | aEdit_box_mouse db 'edit_box_mouse',0 |
301 | aEdit_box_mouse db 'edit_box_mouse',0 |
314 | aVersion_ed db 'version_ed',0 |
302 | aVersion_ed db 'version_ed',0 |
315 | 303 |