[go: up one dir, main page]

Menu

[r3]: / res / base / menu_but.tcl  Maximize  Restore  History

Download this file

16 lines (11 with data), 1.4 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
ttk::button $menu.b1 -image [image create photo -file [file join $::img dollar_currency.png]] -command {::xml_wrapper::load_main invoice invoice.xml $main 1}
ttk::button $menu.b2 -image [image create photo -file [file join $::img sterling_pound_currency.png]] -command {::xml_wrapper::load_main payment payment.xml $main 1}
ttk::button $menu.b3 -image [image create photo -file [file join $::img users.png]] -command {::xml_wrapper::load_main client client.xml $main 1} ;#Clients
ttk::button $menu.b4 -image [image create photo -file [file join $::img shopping_cart.png]] -command {::xml_wrapper::load_main supplier supplier.xml $main 1}
ttk::button $menu.b5 -image [image create photo -file [file join $::img briefcase.png]] -command {::xml_wrapper::load_main product product.xml $main 1}
ttk::button $menu.b6 -image [image create photo -file [file join $::img tools.png]] -command {::xml_wrapper::load_main config config.xml $main 1}
ttk::button $menu.b7 -image [image create photo -file [file join $::img info.png]] -command {info_ui}
ttk::button $menu.b8 -image [image create photo -file [file join $::img refresh.png]] -command {::xml_wrapper::load_main test test_form.xml $main 1}
pack $menu.b1 $menu.b2 $menu.b3 $menu.b4 $menu.b5 $menu.b6 -padx 5 -pady 2
pack [ttk::separator $menu.s] -fill x -padx 2 -pady 2
pack $menu.b7 $menu.b8 -padx 5 -pady 2