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