Subversion Repositories Kolibri OS

Rev

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

Rev 7631 Rev 7959
Line 103... Line 103...
103
        jl      @f
103
        jl      @f
104
        m2m     dword[tree1.data_img], dword[icon_tl_nod]
104
        m2m     dword[tree1.data_img], dword[icon_tl_nod]
105
        m2m     dword[tree2.data_img], dword[icon_tl_nod]
105
        m2m     dword[tree2.data_img], dword[icon_tl_nod]
Line 106... Line 106...
106
    
106
    
107
      @@:
-
 
108
        mcall   67, 35, 20, 830, 555 ; resize to main gui window's coordinates
107
      @@:
109
        call    .draw
108
        call    .draw
110
        ; create initial tree list for root_dir
109
        ; create initial tree list for root_dir
111
        call    populate_local_tree_list
110
        call    populate_local_tree_list
Line 197... Line 196...
197
        mcall   8, , <80,20>, 6, BT_COL
196
        mcall   8, , <80,20>, 6, BT_COL
198
        ; string "mkd"
197
        ; string "mkd"
199
        mcall   4, , 0xb0000000+STR_COL, str_mkd
198
        mcall   4, , 0xb0000000+STR_COL, str_mkd
Line 200... Line 199...
200
        
199
        
201
        ; draw "cancel" button
200
        ; draw "cancel" button
202
        mcall   8, <555,55>, <308,25>, 10, BT_COL
201
        ;mcall   8, <555,55>, <308,25>, 10, BT_COL
203
        ; string "Cancel"
202
        ; string "Cancel"
204
        mcall   4, <555+5,308+5>, 0xb0000000+STR_COL, str_abort
203
        ;mcall   4, <555+5,308+5>, 0xb0000000+STR_COL, str_abort
205
        ; draw "change volume" button
204
        ; draw "change volume" button
206
        mcall   8, , <100-20,22>, 11, BT_COL
205
        mcall   8, , <100-20,22>, 11, BT_COL
207
        ; string "Change"
206
        ; string "Change"
Line 221... Line 220...
221
 
220
 
222
        stdcall [edit_box_draw], edit_mkd
221
        stdcall [edit_box_draw], edit_mkd
223
        stdcall [edit_box_draw], edit_volume
222
        stdcall [edit_box_draw], edit_volume
Line 224... Line -...
224
        stdcall [edit_box_draw], edit_search
-
 
225
 
-
 
226
        ; progress bar
-
 
227
        stdcall [progressbar_draw], pb
223
        stdcall [edit_box_draw], edit_search
228
 
224
 
Line 229... Line 225...
229
        mcall   12,2
225
        mcall   12,2
230
        ret
226
        ret
Line 890... Line 886...
890
tree2 tree_list 64, 500, tl_list_box_mode, 16, 16, \
886
tree2 tree_list 64, 500, tl_list_box_mode, 16, 16, \
891
    0xffffff, BT_COL, 0x000000, TLIST2_X, 105, TLIST_SZ-16, 185, 14, 4, \
887
    0xffffff, BT_COL, 0x000000, TLIST2_X, 105, TLIST_SZ-16, 185, 14, 4, \
892
    0, el_focus, wScr2, fun_on_enter2
888
    0, el_focus, wScr2, fun_on_enter2
Line 893... Line 889...
893
 
889
 
894
; editbox for mkd
890
; editbox for mkd
895
edit_mkd edit_box TLIST_SZ-45, TLIST2_X, 82, 0xffffff, 0x6a9480, 0, \
891
edit_mkd edit_box TLIST_SZ-45, TLIST2_X, 80, 0xffffff, 0x94AECE, 0, \
Line 896... Line 892...
896
    0xAABBCC, 0, 99, new_dir_buf, mouse_dd, 0
892
    0xAABBCC, 0x10000000, 63, new_dir_buf, mouse_dd, 0
897
 
893
 
898
; editbox for default volume
894
; editbox for default volume
Line 899... Line 895...
899
edit_volume edit_box TLIST_SZ-60, TLIST1_X, 105-20, 0xffffff, 0x6a9480, 0, \
895
edit_volume edit_box TLIST_SZ-60, TLIST1_X, 80, 0xffffff, 0x94AECE, 0, \
900
    0xAABBCC, 0, 99, root_dir, mouse_dd, 0
896
    0xAABBCC, 0x10000000, 99, root_dir, mouse_dd, 0
901
 
897
 
Line 902... Line 898...
902
; editbox for search
898
; editbox for search
903
edit_search edit_box TLIST_SZ-60, TLIST2_X, 25, 0xffffff, 0x6a9480, 0, \
899
edit_search edit_box TLIST_SZ-60, TLIST2_X, 22, 0xffffff, 0x94AECE, 0, \
904
    0xAABBCC, 0, 99, filter,mouse_dd, 0
900
    0xAABBCC, 0x10000000, 99, filter,mouse_dd, 0
905
 
901
 
Line 1188... Line 1184...
1188
 
1184
 
Line 1189... Line 1185...
1189
run_file_70 FileInfoBlock ; required for libimg
1185
run_file_70 FileInfoBlock ; required for libimg
1190
 
1186
 
1191
auto_list   db 1 ; to run LIST immediately after CWD
1187
auto_list   db 1 ; to run LIST immediately after CWD
1192
filter      rb 512
1188
filter      rb 512
1193
root_dir    db '/rd/1'
1189
root_dir    db '/tmp0/1'
1194
            rb 507
1190
            rb 505
1195
new_dir_buf rb 512
1191
new_dir_buf rb 64
1196
folder_data rb 32+32*304
1192
folder_data rb 32+32*304
1197
node_entry  db '1111'
1193
node_entry  db '1111'
1198
            rb 512
1194
            rb 512