1#    Copyright 2003,2008 Regis Damongeot
2
3#    This program is free software; you can redistribute it and/or modify
4#    it under the terms of the GNU General Public License as published by
5#    the Free Software Foundation; either version 2 of the License, or
6#    (at your option) any later version.
7#
8#    This program is distributed in the hope that it will be useful,
9#    but WITHOUT ANY WARRANTY; without even the implied warranty of
10#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11#    GNU General Public License for more details.
12#
13#    You should have received a copy of the GNU General Public License
14#    along with this program; if not, write to the Free Software
15#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
16
17. configure -background #f5f5f5
18
19#fill the  top menu
20frame .f_menubar
21menubutton .f_menubar.file -text "$i18n_file_menu" -underline 0 -menu .f_menubar.file.menu
22menubutton .f_menubar.cd -text CD -underline 0 -menu .f_menubar.cd.menu
23menubutton .f_menubar.dvd -text DVD -underline 0 -menu .f_menubar.dvd.menu
24menu .f_menubar.file.menu -tearoff 0
25menu .f_menubar.cd.menu -tearoff 0
26menu .f_menubar.dvd.menu -tearoff 0
27.f_menubar.file.menu add command -label "$i18n_load_file_list" -command {load_file_list }
28.f_menubar.file.menu add command -label "$i18n_save_file_list" -command {save_file_list }
29.f_menubar.file.menu add command -label "$i18n_quit" -command {save_options ; exit }
30.f_menubar.cd.menu add command -label "$i18n_cd_copy" -command { disc_copy "cd" }
31.f_menubar.cd.menu add command -label "$i18n_create_iso_from_cd" -command { disc_to_iso "cd" }
32.f_menubar.cd.menu add command -label "$i18n_erase_cdrw" -command { cd_choose_format }
33.f_menubar.dvd.menu add command -label "$i18n_dvd_copy" -command { disc_copy "dvd" }
34.f_menubar.dvd.menu add command -label "$i18n_create_iso_from_dvd" -command { disc_to_iso "dvd" }
35.f_menubar.dvd.menu add command -label "$i18n_erase_dvdrw" -command { dvd_choose_format }
36pack .f_menubar.file .f_menubar.cd .f_menubar.dvd -side left
37pack .f_menubar -fill x
38
39frame .f_label_first_step -background #c7d1d1
40label .f_label_first_step.l_first_step -bg #c7d1d1 -text "$i18n_step1"
41
42frame .f_first_step -background #f5f5f5
43radiobutton .f_first_step.burn_dvd -activebackground #f5f5f5 -background #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_burn_files_and_folders_on_a_dvd" -command refresh_cmd_line -variable burn_type -value burn_dvd
44.f_first_step.burn_dvd select
45
46frame .f_first_step_b -background #f5f5f5
47button .f_first_step_b.add -highlightbackground blue -text "$i18n_add_files" -width 12 -command { add_file [option add *__tk_filedialog*takeFocus 0; tk_getOpenFile -multiple 1] }
48button .f_first_step_b.add_d -highlightbackground blue -text "$i18n_add_directory" -width 12 -command add_d
49button .f_first_step_b.delete -highlightbackground blue -text "$i18n_delete_file_dir" -width 12 -command delete_files
50button .f_first_step_b.clear -highlightbackground blue -text "$i18n_clear_list" -width 12 -command { set file_list ""; refresh_total_file_size; refresh_cmd_line }
51button .f_first_step_b.excluded_files -highlightbackground blue -width 12 -text "$i18n_excluded_files_dir" -command { excluded_file_window }
52
53frame .f_upper_file_list -background #f5f5f5
54label .f_upper_file_list.l_file_size -bg #f5f5f5 -text "$i18n_used_space"
55entry .f_upper_file_list.show_file_size -relief flat -highlightbackground #f5f5f5 -highlightcolor #f5f5f5 -readonlybackground #f5f5f5 -state readonly -textvariable total_file_size_f -width 10
56label .f_upper_file_list.l_space_left -bg #f5f5f5 -text "$i18n_free_space"
57entry .f_upper_file_list.show_space_left -relief flat -highlightbackground #f5f5f5 -highlightcolor #f5f5f5 -readonlybackground #f5f5f5 -state readonly -textvariable space_left_f -width 10
58button .f_upper_file_list.b_update -highlightbackground blue -text "$i18n_update" -command { refresh_total_file_size }
59
60frame .file_list -bg #f5f5f5
61#seems to be necessary to fix an height (for Puppy a least)
62listbox .file_list.file_list -bg white -height 8 -listvariable file_list -yscrollcommand { .file_list.scroll_bar set }
63scrollbar .file_list.scroll_bar -command { .file_list.file_list yview }
64
65frame .f_only_create_iso -bg #f5f5f5
66checkbutton .f_only_create_iso.only_create_iso -activebackground #f5f5f5 -background #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_only_create_iso9660_image" -command refresh_cmd_line -variable v_create_iso -onvalue "yes" -offvalue "no"
67
68frame .f_first_step_iso -background #f5f5f5
69radiobutton .f_first_step_iso.b_burn_iso -activebackground #f5f5f5 -background #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_burn_iso9660_image" -command refresh_cmd_line -variable burn_type -value burn_iso
70button  .f_first_step_iso.b_open_iso -highlightbackground blue -text "$i18n_open" -state disabled -command choose_iso_file -width 7
71entry .f_first_step_iso.iso_file -relief flat -highlightbackground blue -highlightcolor blue -readonlybackground #f5f5f5 -state readonly -textvariable iso_file -width 57
72
73frame .f_label_second_step -background #c7d1d1
74label .f_label_second_step.l_second_step -bg #c7d1d1 -text "$i18n_step2"
75
76frame .f_burn_dev -background #f5f5f5
77label .f_burn_dev.l_burn_device -bg #f5f5f5 -width 20 -anchor w -text "$i18n_burning_device"
78entry .f_burn_dev.burn_device -relief flat -bg white -highlightbackground blue -highlightcolor blue -disabledbackground #f5f5f5 -state normal -textvariable burning_device
79.f_burn_dev.burn_device configure -validate focus -validatecommand refresh_cmd_line
80
81frame .f_vol_name -background #f5f5f5
82label .f_vol_name.label_vname -bg #f5f5f5 -width 20 -anchor w -text "$i18n_volume_name"
83entry .f_vol_name.volume_name -relief flat -bg white -highlightbackground blue -highlightcolor blue  -disabledbackground #f5f5f5 -state normal -textvariable volume_id_o
84button .f_vol_name.b_advanced_options -highlightbackground blue -width 15 -text "$i18n_advanced_options_b" -command { advanced_options_window }
85
86frame .f_cmd_line -background #f5f5f5
87label .f_cmd_line.label_vid -bg #f5f5f5 -width 20 -anchor w -text "$i18n_command"
88entry .f_cmd_line.cmd_line -relief flat -highlightbackground blue -highlightcolor blue -readonlybackground #f5f5f5 -state readonly -textvariable command_line -width 150
89
90frame .f_burn -background #c7d1d1
91button .f_burn.go_button -text "$i18n_burn" -highlightbackground red -command { refresh_total_file_size; refresh_cmd_line; launch "burn" "" } -width 7
92
93
94pack .f_label_first_step.l_first_step -side left
95pack .f_label_first_step -fill x
96
97pack .f_first_step.burn_dvd -side left
98pack .f_first_step -fill x
99
100pack .f_first_step_b.add -side left -padx {0 10}
101pack .f_first_step_b.add_d .f_first_step_b.delete .f_first_step_b.clear .f_first_step_b.excluded_files -side left -padx {10 10} -expand 0
102pack .f_first_step_b.excluded_files -side right -padx {10 0}
103pack .f_first_step_b -fill x -padx {50 15} -pady {7 3}
104
105pack .f_upper_file_list.l_file_size .f_upper_file_list.show_file_size .f_upper_file_list.l_space_left .f_upper_file_list.show_space_left -side left
106if { $option_auto_refresh_space == "0" } { pack .f_upper_file_list.b_update -side left }
107pack .f_upper_file_list -fill x -padx {50 0}
108
109pack .file_list.scroll_bar -fill y -side right
110pack .file_list.file_list -fill both -expand 1
111pack .file_list -fill both -padx {50 15} -expand 1
112
113pack .f_only_create_iso.only_create_iso -side left
114pack .f_only_create_iso -fill x -padx {50 0} -pady {0 4}
115
116pack .f_first_step_iso.b_burn_iso -side left
117pack .f_first_step_iso.iso_file -side right -padx {12 0}
118pack .f_first_step_iso.b_open_iso -side right
119pack .f_first_step_iso -fill x -padx {0 15}
120
121pack .f_label_second_step.l_second_step -side left
122pack .f_label_second_step -fill x  -pady {12 12}
123
124pack .f_burn_dev.l_burn_device -side left
125pack .f_burn_dev.burn_device -side left -padx {0 0}
126pack .f_burn_dev -fill x -padx {20 15} -pady {0 10}
127
128pack .f_vol_name.label_vname -side left
129pack .f_vol_name.volume_name -side left -padx {0 0}
130pack .f_vol_name.b_advanced_options -side right -padx {0 0}
131pack .f_vol_name -fill x -padx {20 15} -pady {0 10}
132
133pack .f_cmd_line.label_vid -side left
134pack .f_cmd_line.cmd_line -side left -padx {0 0}
135pack .f_cmd_line -fill x  -pady {0 10} -padx {20 15}
136
137pack .f_burn.go_button -pady {2 2}
138pack .f_burn -fill x
139