PCNET 2006 September - Disc 1/PCNET_CD_2006_09.iso/linux/puppy-barebones-2.01r2.iso/pup_201.sfs/usr/local/bin/tkdvd

Text File | 2006-07-08 | 84.7 KB | 1,685 lines

#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

#    Copyright 2003 Regis Damongeot

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA


#window title
wm title . "TkDVD 4.0.1"
wm geometry . 700x550
wm protocol . WM_DELETE_WINDOW { save_options; destroy . }
set burn_type "burn_dvd"
set v_create_iso "no"
set burning_device "/dev/sr0"
#used when creating ISO to save CD/DVD device
set temp_burning_device ""
set burn_command "growisofs"
set volume_id ""
set volume_id_o ""
set option_udf_ext ""
set option_joliet_ext "-J"
set option_rr_ext "-r"
set option_pad "-pad"
set file_list ""
set excluded_file_list ""
set only_one_file ""
set input ""
set total_file_size_f "0 KB"
set space_left_f "4.377 GB"
set dvd_size "4589850"
set selected_directory "[pwd]"
set iso_file ""
set t_session "-use-the-force-luke=tty -Z"
set option_dvd_compat "-dvd-compat"
set option_auto_refresh_space "1"
set option_overburn ""
set option_eject_cd ""
set burn_speed ""
set language "English"
set i18n_language_list ""
set command_line "growisofs $t_session $burning_device $option_joliet_ext $option_rr_ext $burn_speed $option_dvd_compat $option_pad -graft-points"
#needed to not have too large precision when showing total files size
set tcl_precision 4

#set fullpath to source scripts (if TkDVD not launch from it install direcotory)
set source_directory "[info script]"
if { [file pathtype $source_directory] == "absolute" } {
    set source_directory [file dirname $source_directory]
} else {
    set source_directory "[file dirname [pwd]/[info script]]"
}

#we need to set a variable to fix compatibility problems between tcl 8.4 and 8.5
# 8.5 has a tristate value for checkbuttons which is by default "" that conflits with offvalue for TkDVD advanced options
# so we need to set a different tristate value with -tristatevalue option but, as tk 8.4 doesn't have this option, we must not set this option in this case. So a global variable set to "" when tk 8.4 is detected and set to "-tristatevalue "tristate"" will do the job.
set tristatecompatibility "no"
if { [string equal -length 3 $tk_patchLevel "8.5"] == 1 } {
  set tristatecompatibility "yes"
}

#source combobox code
# BK if { [catch { package require combobox 2.3 } ] } {
# BK }
catch { package require combobox 2.3 }

#source save/load config options procedure
 #    Copyright 2003 Regis Damongeot

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

set current_version "3.8"

proc save_options {} {
    global current_version dvd_size env burning_device option_auto_refresh_space language
    #puts "saving ver $current_version and dvdsize $dvd_size"
    check_config_file_exist
    set config_file [open $env(HOME)/.tkdvd/config w]
    puts $config_file "version = $current_version"
    puts $config_file "dvd_size = $dvd_size"
    puts $config_file "option_auto_refresh_space = $option_auto_refresh_space"
    puts $config_file "language = $language"
    #when "create iso image" is selected, burning_device is equal to the path of the image and so it should not be saved
    if {![string compare -length 3 $burning_device "/dev"]} {
        puts $config_file "burning_device = $burning_device"
    } else {
        puts $config_file "burning_device = /dev/sr0"
    }
    close $config_file
}

proc load_options {} {
    global env current_version space_left_f dvd_size burning_device temp_burning_device option_auto_refresh_space language
    set config_version ""
    set string_temp ""
    check_config_file_exist
    set config_file [open $env(HOME)/.tkdvd/config r]
    while { ! [eof $config_file] } {
        gets $config_file string_temp
        if { [lindex $string_temp 0] == "version" } {
            if {([lindex $string_temp end] == $current_version) || ([lindex $string_temp end] == "3.6") } {
                set config_version $current_version
            } else {
                update_version_config_file [lindex $string_temp end]
                set config_version [lindex $string_temp end]
            }
        }
        if {[lindex $string_temp 0] == "dvd_size"} {
            set dvd_size [lindex $string_temp end]
            #puts "dvd size found when loading settings: $dvd_size"
        }
        if {[lindex $string_temp 0] == "burning_device"} {
            set burning_device [lindex $string_temp end]
            set temp_burning_device "$burning_device"
        }
        if {[lindex $string_temp 0] == "option_auto_refresh_space"} {
            set option_auto_refresh_space [lindex $string_temp end]
        }
        if {[lindex $string_temp 0] == "language"} {
            set language [lindex $string_temp end]
        }

    }
    if { [eof $config_file] && (($dvd_size != "4589850") && ($dvd_size != "8300790") && ($dvd_size != "665600") && ($dvd_size != "716800") ) } {
        #puts "cant find dvd_size variable in config file, setting to default"
        set dvd_size "4589850"
    }
    #puts "found tkdvd config ver $config_version and dvdsize $dvd_size"

    close $config_file
}

proc check_config_file_exist {} {
    global env current_version
    if { ! [file exists "$env(HOME)/.tkdvd/config"] } {
        if { ! [file isdirectory "$env(HOME)/.tkdvd"] } {
            #puts "creating ~/.tkdvd"
            exec mkdir $env(HOME)/.tkdvd
        }
        if { ! [file exists "$env(HOME)/.tkdvd/config"] } {
            #puts "tkdvd config file doesnt exist, creating it"
            exec touch $env(HOME)/.tkdvd/config
        }
        save_options
        #set config_file [open $env(HOME)/.tkdvd/config w]
        #puts $config_file "version = $current_version"
        #puts $config_file "dvd_size = 4589850"
        #close $config_file
    }
}

proc update_version_config_file { old_version } {
    global current_version env dvd_size
    #puts "updating config file from $old_version to $current_version"
    #for updating, just load previous version options and call save_options proc
    if { $old_version == "2.8" } {
        set config_file [open $env(HOME)/.tkdvd/config r]
        set string_temp ""
        while {! [eof $config_file]} {
            gets $config_file string_temp
            puts "$string_temp"
            if {[lindex $string_temp 0] == "dvd_size"} {
                set dvd_size [lindex $string_temp end]
            }
        }
        close $config_file
        save_options
    } elseif { $old_version == "3.2" } {
        #no special change so we load option classically
    }
}
#load user default options
load_options
#change command line variable according to loaded values
set command_line "growisofs $t_session $burning_device $option_joliet_ext $option_rr_ext $option_dvd_compat $option_pad -graft-points"
#source internationalisation variables
 #    Copyright 2003 Regis Damongeot

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA


# If you want to add your langage, just add langage name to i18n_langage_list and repeat what is done for french langage


lset i18n_language_list "English"

set i18n_step1 "Step 1: Select Files and Folders"
set i18n_step2 "Customize Burning"
set i18n_burn_files_and_folders_on_a_dvd "Burn files and folders on a CD/DVD"
set i18n_only_create_iso9660_image "Only create iso9660 image"
set i18n_burn_iso9660_image "Burn iso9660 image"
set i18n_add_files "Add Files..."
set i18n_add_directory "Add Directory..."
set i18n_delete_file_dir "Delete File/Dir"
set i18n_clear_list "Clear List"
set i18n_excluded_files_dir "Excluded Files..."
set i18n_close "Close"
set i18n_used_space "Used space:"
set i18n_free_space "Free space:"
set i18n_burning_device "Burning device:"
set i18n_volume_name "Volume name:"
set i18n_command "Command:"
set i18n_erase_dvdrw "Erase DVD RW"
set i18n_erase_cdrw "Erase CD-RW"
set i18n_advanced_options_b "Advanced Options..."
set i18n_advanced_options_t "Advanced Options"
set i18n_burn "Burn"
set i18n_filesystem_extensions "Filesystem extensions:"
set i18n_add_joliet_extensions "Add Joliet extensions (-J)"
set i18n_rock_ridge_extensions "Rock Ridge extensions:"
set i18n_off "Off"
set i18n_rr_extensions "RR extensions (-R)"
set i18n_anonymous_rr_extensions "Anonymous RR extensions (all files set to r--r--r-- or +x if executable) (-r)"
set i18n_udf_extensions "UDF extensions:"
set i18n_udf_extensions_radiobutton "UDF extensions (-udf)"
set i18n_dvd_video_compliant_udf_filesystem "DVD Video complient UDF filesystem (-dvd-video)"
set i18n_dvd_size "CD/DVD size:"
set i18n_other_options "Other options:"
set i18n_burning_speed "Burning speed, leave blank for maximum speed (-speed=X)"
set i18n_overburn "Overburn (-overburn)"
set i18n_pad "Pad (-pad)"
set i18n_add_session_to_disc "Add session to disc (-M)"
set i18n_maximum_media_compatibility "Maximum media compatibility (if DVD R => create single session closed disc) (-dvd-compat)"
set i18n_eject_cd_after_burning "Eject CD after burning"
set i18n_automaticaly_refresh_used_space "Automaticaly refresh used space (may take a lot of time)"
set i18n_open "Open..."
set i18n_growisofs_mkisofs_output "growisofs/mkisofs/cdrecord output"
set i18n_update "Update"
set i18n_select_iso_image "Select ISO Image"
set i18n_erase "Erase"
set i18n_full_format "Full format (-blank=full)"
set i18n_full_format_cd "Full format (blank=all)"
set i18n_normal_format "Normal format (-force)"
set i18n_quick_format "Quick format"
set i18n_quick_format_cd "Quick format (blank=fast)"
set i18n_writing_finished "Writing finished"
set i18n_load_file_list "Load file list"
set i18n_save_file_list "Save file list"
set i18n_error_filelist_empty "File list is empty"
set i18n_error "Error"
set i18n_dvd_copy "DVD Copy"
set i18n_cd_copy "CD Copy"
set i18n_copy "Copy"
set i18n_choose_source_device "Choose source device:"
set i18n_quit "Quit"
set i18n_create_iso_from_dvd "Create ISO image from DVD"
set i18n_create_iso_from_cd "Create ISO image from CD"
set i18n_choose_target_file "Choose target file..."
set i18n_create "Create"
set i18n_error_target_file_ns "Target file not specified"
set i18n_error_directory_already_present "This directory is already present in file list"
set i18n_quest_directory_contained "This directory is already contained in another directory in the file list. Add it anyway?"
set i18n_quest_directory_contains "This directory contains files or directorys already present in file list. Add it anyway?"
set i18n_error_file_already_present "The following file is already present in file list"
set i18n_quest_file_contained "The following file is already contained in a directory of the file list. Add it anyway?"
set i18n_error_directory_not_present "This directory is not present in file list"
set i18n_error_file_not_present "This file is not present in file list"
set i18n_error_adding_ef "This file or directory  is already in excluded file list, contains already added files or directory in this list or is contained by an already added directory"



lappend i18n_language_list "French"
if { "$language" == "French" } {
    set i18n_step1 "Etape 1: Selection des fichiers et des dossiers"
    set i18n_step2 "Options de gravure"
    set i18n_burn_files_and_folders_on_a_dvd "Graver les fichiers et les dossiers sur un CD/DVD"
    set i18n_only_create_iso9660_image "Créer une image ISO"
    set i18n_burn_iso9660_image "Graver une image ISO"
    set i18n_add_files "Ajouter fichiers..."
    set i18n_add_directory "Ajouter dossier..."
    set i18n_delete_file_dir "Supprimer"
    set i18n_clear_list "Vider la liste"
    set i18n_excluded_files_dir "Fichiers exclus..."
    set i18n_close "Fermer"
    set i18n_used_space "Espace utilisé:"
    set i18n_free_space "Espace libre:"
    set i18n_burning_device "Périphérique:"
    set i18n_volume_name "Nom de volume:"
    set i18n_command "Commande:"
    set i18n_erase_dvdrw "Effacer un DVD RW"
    set i18n_erase_cdrw "Effacer un CD-RW"
    set i18n_advanced_options_b "Options avancées..."
    set i18n_advanced_options_t "Options avancées"
    set i18n_burn "Graver"
    set i18n_filesystem_extensions "Extensions du système de fichier:"
    set i18n_add_joliet_extensions "Ajouter les extensions Joliet (-J)"
    set i18n_rock_ridge_extensions "Extensions Rock Ridge:"
    set i18n_off "Désactiver"
    set i18n_rr_extensions "Extensions RR (-R)"
    set i18n_anonymous_rr_extensions "Extensions RR anonymes (droits r--r--r-- ou +x si executable) (-r)"
    set i18n_udf_extensions "Extensions UDF:"
    set i18n_udf_extensions_radiobutton "Extensions UDF (-udf)"
    set i18n_dvd_video_compliant_udf_filesystem "Extensions UDF en conformance avec le standard DVD Video (-dvd-video)"
    set i18n_dvd_size "Taille des CD/DVD:"
    set i18n_other_options "Autres options:"
    set i18n_burning_speed "Vitesse de gravure, laisser vide pour vitesse maximum (-speed=X)"
    set i18n_overburn "Overburn (-overburn)"
    set i18n_pad "Pad (-pad)"
    set i18n_add_session_to_disc "Ajouter une session au disque courant (-M)"
    set i18n_maximum_media_compatibility "Compatibilité maximum (si DVD R => création d'un disque monosession fermé) (-dvd-compat)"
    set i18n_eject_cd_after_burning "Ejecter le CD après la gravure"
    set i18n_automaticaly_refresh_used_space "Rafraichissement automatique de l'espace disque utilisé (peut prendre beaucoup de temps)"
    set i18n_open "Ouvrir..."
    set i18n_growisofs_mkisofs_output "Sortie de growisofs/mkisofs/cdrecord"
    set i18n_update "Rafraichir"
    set i18n_select_iso_image "Selectionner l'image ISO"
    set i18n_erase "Effacer"
    set i18n_full_format "Formattage complet (-blank=full)"
    set i18n_full_format_cd "Formattage complet (blank=all)"
    set i18n_normal_format "Formattage normal (-force)"
    set i18n_quick_format "Formattage rapide"
    set i18n_quick_format_cd "Formattage rapide (blank=fast)"
    set i18n_writing_finished "Opération terminée"
    set i18n_load_file_list "Charger une liste de fichiers"
    set i18n_save_file_list "Sauvegarder la liste de fichiers"
    set i18n_error_filelist_empty "La liste des fichiers à graver est vide"
    set i18n_error "Erreur"
    set i18n_dvd_copy "Copier un DVD"
    set i18n_cd_copy "Copier un CD"
    set i18n_copy "Copier"
    set i18n_choose_source_device "Choisissez le périphérique source:"
    set i18n_quit "Quitter"
    set i18n_create_iso_from_dvd "Créer une image ISO à partir d'un DVD"
    set i18n_create_iso_from_cd "Créer une image ISO à partir d'un CD"
    set i18n_choose_target_file "Choisir le fichier cible..."
    set i18n_create "Créer"
    set i18n_error_target_file_ns "Fichier cible non précisé"
    set  i18n_error_directory_already_present "Ce dossier est déjà présent dans la liste des fichiers"
    set  i18n_quest_directory_contained "Ce dossier est déjà contenu dans un autre dossier de la liste des fichiers. Voulez-vous l'ajouter tout de même?"
    set  i18n_quest_directory_contains "Ce dossier contient certains fichiers ou dossiers déjà présent dans la liste des fichiers. Voulez-vous l'ajouter tout de même?"
    set  i18n_error_file_already_present "Le fichier suivant est déjà présent dans la liste des fichiers"
    set  i18n_quest_file_contained "Le fichier suivant est déjà contenu dans un dossier de la liste des fichiers. Voulez-vous l'ajouter tout de même?"
    set i18n_error_directory_not_present "Ce fichier n'est pas présent dans la liste"
    set i18n_error_file_not_present "Ce fichier n'est pas présent dans la liste"
    set i18n_error_adding_ef "Ce fichier/dossier est déjà dans la liste des fichiers exclus, ou bien contient des fichiers déjà ajouté à cette liste, ou alors est contenu dans un dossier déjà précedement ajouté"
}

lappend i18n_language_list "Italian"
if { "$language" == "Italian" } {
    set i18n_step1 "Passo 1: Selezionare File e Directory"
    set i18n_step2 "Personalizza Scrittura"
    set i18n_burn_files_and_folders_on_a_dvd "Scrive file e directory sul CD/DVD"
    set i18n_only_create_iso9660_image "Crea solo immagine iso9660"
    set i18n_burn_iso9660_image "Scrivi immagine iso9660"
    set i18n_add_files "Aggiungi File..."
    set i18n_add_directory "Aggiungi Dir..."
    set i18n_delete_file_dir "Elimina File/Dir"
    set i18n_clear_list "Cancella Lista"
    set i18n_excluded_files_dir "Escludi Files..."
    set i18n_close "Chiudi"
    set i18n_used_space "Spazio Usato:"
    set i18n_free_space "Spazio Libero:"
    set i18n_burning_device "Dispositivo di scrittura:"
    set i18n_volume_name "Nome Volume:"
    set i18n_command "Comando:"
    set i18n_erase_dvdrw "Cancella DVD RW"
    set i18n_erase_cdrw "Cancella CD-RW"
    set i18n_advanced_options_b "Opzioni Avanzate..."
    set i18n_advanced_options_t "Opzioni Avanzate"
    set i18n_burn "Scrivi"
    set i18n_filesystem_extensions "Estensioni del Filesystem:"
    set i18n_add_joliet_extensions "Aggiungi Estesioni Joliet (-J)"
    set i18n_rock_ridge_extensions "Estensioni Rock Ridge:"
    set i18n_off "Inattivo"
    set i18n_rr_extensions "Estensioni RR (-R)"
    set i18n_anonymous_rr_extensions "Estensioni RR Anonime (tutti i file impostati a r--r--r-- o +x se eseguibile) (-r)"
    set i18n_udf_extensions "Estensioni UDF:"
    set i18n_udf_extensions_radiobutton "Estensioni UDF (-udf)"
    set i18n_dvd_video_compliant_udf_filesystem "Filesystem DVD Video compatibile UDF (-dvd-video)"
    set i18n_dvd_size "Dimensione CD/DVD:"
    set i18n_other_options "Altre Opzioni:"
    set i18n_overburn "Overburn (-overburn)"
    set i18n_pad "Pad (-pad)"
    set i18n_add_session_to_disc "Aggiungi sessione al disco (-M)"
    set i18n_maximum_media_compatibility "Massima compatibilita' con i supporti (se DVD R => crea un disco con una sola sessione) (-dvd-compat)"
    set i18n_automaticaly_refresh_used_space "Aggiorna automaticamente lo spazio usato (puo' richiedere molto tempo)"
    set i18n_open "Apri..."
    set i18n_growisofs_mkisofs_output "Output di growisofs/mkisofs/cdrecord"
    set i18n_update "Aggiorna"
    set i18n_select_iso_image "Seleziona un'immagine ISO"
    set i18n_erase "Cancella"
    set i18n_full_format "Formattazione completa (-blank=full)"
    set i18n_full_format_cd "Formattazione completa (blank=all)"
    set i18n_normal_format "Formattazione normale (-force)"
    set i18n_quick_format "Formattazione rapida"
    set i18n_quick_format_cd "Formattazione rapida (blank=fast)"
    set i18n_writing_finished "Scrittura Completata"
    set i18n_load_file_list "Carica lista file"
    set i18n_save_file_list "Salva lista file"
    set i18n_error_filelist_empty "lista file vuota"
    set i18n_error "Errore"
    set i18n_dvd_copy "Copia DVD"
    set i18n_cd_copy "Copia CD"
    set i18n_copy "Copia"
    set i18n_choose_source_device "Scegli periferica di origine:"
    set i18n_quit "Esci"
    set i18n_create_iso_from_dvd "Crea immagineISO da un DVD"
    set i18n_create_iso_from_cd "Crea immagineISO da un CD"
    set i18n_choose_target_file "Scegli file destinazione..."
    set i18n_create "Crea"
    set i18n_error_target_file_ns "File destinazioen non specificato"
    set i18n_error_directory_already_present "Questa direcotry e' gia' presente nella lista"
    set i18n_quest_directory_contained "Questa directory e' gia' contenuta in un'altra presente nella lista. Continuare lo stesso?"
    set i18n_quest_directory_contains "Questa directory contiene file o directory gia' presenti nella lista. Aggiungerla lo stesso?"
    set i18n_error_file_already_present "Il file seguente e' gia' presente nella lista"
    set i18n_quest_file_contained "Il file seguente e' gia' contenuto in una directry della lista. Aggiugnerlo lo stesso?"
    set i18n_error_directory_not_present "Questa directory non e' presente nella lista"
    set i18n_error_file_not_present "Questo file non e' presente nella lista"
    set i18n_error_adding_ef "Questo file/directory e' gia' nella lista delle esclusioni, contiene dei file/directory gia' aggiunti a questa lista o e' contenuto in una directory gia' inserita"
}

lappend i18n_language_list "Spanish"
if { "$language" == "Spanish" } {
    set i18n_step1 "Paso 1: Seleccionar archivos y directorios"
    set i18n_step2 "Paso 2: Grabaci├│n personalizada"
    set i18n_burn_files_and_folders_on_a_dvd "Grabar archivos y directorios en el CD/DVD"
    set i18n_only_create_iso9660_image "Solamente crear la imagen ISO9660"
    set i18n_burn_iso9660_image "Grabar la imagen ISO9660"
    set i18n_add_files "A├▒adir archivos"
    set i18n_add_directory "A├▒adir directorios"
    set i18n_delete_file_dir "Borrar archivo"
    set i18n_clear_list "Limpiar lista"
    set i18n_excluded_files_dir "Excluir archivos"
    set i18n_close "Cerrar"
    set i18n_used_space "Espacio usado:"
    set i18n_free_space "Espacio libre:"
    set i18n_burning_device "Dispositivo grabaci├│n:"
    set i18n_volume_name "Nombre del volumen:"
    set i18n_command "Orden:"
    set i18n_erase_dvdrw "Borrar DVD RW"
    set i18n_erase_cdrw "Borrar CD-RW"
    set i18n_advanced_options_b "Opciones avanzadas"
    set i18n_advanced_options_t "Opciones avanzadas"
    set i18n_burn "Grabar"
    set i18n_filesystem_extensions "Opciones detalladas:"
    set i18n_add_joliet_extensions "A├▒adir Joliet (para Windows) (-J)"
    set i18n_rock_ridge_extensions "Rock Ridge:"
    set i18n_off "Apagado"
    set i18n_rr_extensions "RR (-R)"
    set i18n_anonymous_rr_extensions "An├│nimo RR (todos archivos son lecture fija o ejecutable) (-r)"
    set i18n_udf_extensions "UDF:"
    set i18n_udf_extensions_radiobutton "UDF (-udf)"
    set i18n_dvd_video_compliant_udf_filesystem "DVD video UDF (-dvd-video)"
    set i18n_dvd_size "Tama├▒o de CD/DVD:"
    set i18n_other_options "Otras opciones:"
    set i18n_overburn "Permitir overburning (-overburn)"
    set i18n_pad "Pad (-pad)"
    set i18n_add_session_to_disc "A├▒adir sesi├│n a disco (-M)"
    set i18n_maximum_media_compatibility "Máximo tamaño del medio (si DVD R => crear unisesión disco cerrado) (-dvd-compat)"
    set i18n_open "Abrir..."
    set i18n_select_iso_image "Seleccionar la imagen ISO"
    set i18n_erase "Borrar"
    set i18n_full_format "Formato completo (-blank=full)"
    set i18n_full_format_cd "Formato completo (blank=all)"
    set i18n_normal_format "Formato normal (-force)"
    set i18n_quick_format "Formato rápido"
    set i18n_quick_format_cd "Formato rápido (blank=fast)"
    set i18n_writing_finished "Grabando completo"
}
#source of the total file size count procedure
#    Copyright 2003 Regis Damongeot

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA


proc refresh_total_file_size {} {
    global file_list total_file_size_f space_left_f command_line t_session excluded_file_list dvd_size
    #set local var total_file_size_type cause if total_file_size < 1024 octets, total_file_size isnt set
    set total_file_size_type "KB"
    #set local var total_file_size cause if llength $file_list > 1 then $total_file_size is not set for the fisrt iteration of "for"
    set total_file_size 0
    #attention: $total_file_size is in KB to prevent overflow if $total_file_size > 2go
    if {[llength $file_list] == 0} {
        set total_file_size 0
    } elseif { [llength $file_list] == 1 } {
        if {[file isdirectory [lindex $file_list 0]]} {
            set total_file_size [expr [lindex [exec du -ks -- [lindex $file_list 0]] 0] - [file size [lindex $file_list 0]]/1024]
        } else { set total_file_size [expr [file size [lindex $file_list 0]]/1024.] }
    } else {
        for { set i 0 } {$i < [llength $file_list]} {incr i} {
            if {[file isdirectory [lindex $file_list $i]]} {
                set total_file_size [expr $total_file_size + [expr [lindex [exec du -ks -- [lindex $file_list $i]] 0] - [file size [lindex $file_list 0]]/1024]]
            } else { set total_file_size [expr ($total_file_size + [expr ([file size [lindex $file_list $i]])/1024.])] }
        }
    }


    foreach i $excluded_file_list {
        if { [file isdirectory $i] } {
            set total_file_size [expr $total_file_size - [exec du -ks $i | cut -f1 ] ]
        } elseif { [file isfile $i] } {
            set total_file_size [expr $total_file_size - ([ file size $i ] / 1024.) ]
        }
    }


    # save total_file_size in order to reuse it to calculate space_left more easily
    set space_left $total_file_size
    if { $total_file_size > 1048576 } {
        set total_file_size [expr (($total_file_size)/1024.)/1024.]
        set total_file_size_type "GB"
    } elseif { $total_file_size > 1024 } {
        set total_file_size [expr ($total_file_size)/1024.]
        set total_file_size_type "MB"
    } else {
        set total_file_size $total_file_size
        set total_file_size_type "KB"
    }
    set total_file_size_f "$total_file_size $total_file_size_type"
    switch $total_file_size_type  {
        GB {
            set space_left [expr ($dvd_size - $space_left)/1024.]
            set space_left_type "MB"
        }
        MB {
            #if we burn CD we don't want space left to be in GB
            if { $dvd_size == "665600" || $dvd_size == "716800"} {
                set space_left [expr ($dvd_size - $space_left)/1024.]
                set space_left_type "MB"
            } else {
                set space_left [expr (($dvd_size - $space_left)/1024.)/1024.]
                set space_left_type "GB"
            }
        }
        KB {
            #if we burn CD we don't want space left to be in GB
            if { $dvd_size == "665600" || $dvd_size == "716800"} {
                set space_left [expr ($dvd_size - $space_left)/1024.]
                set space_left_type "MB"
            } else {
                set space_left [expr (($dvd_size - $space_left)/1024.)/1024.]
                set space_left_type "GB"
            }
        }
    }
    #if {$t_session == "-use-the-force-luke=tty -Z"} {set space_left_f "$space_left $space_left_type"
    #} else {set space_left_f "N/A"}
    set space_left_f "$space_left $space_left_type"
}
#source of the refresh command line procedure (main procedure)
#    Copyright 2003 Regis Damongeot

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA


proc refresh_cmd_line {} {
    global total_file_size_f option_udf_ext option_joliet_ext option_rr_ext burn_speed file_list volume_id option_pad burn_type command_line t_session burning_device iso_file space_left_f burn_command option_dvd_compat option_overburn excluded_file_list dvd_size v_create_iso option_eject_cd option_tao_dao_cd
    refresh_burning_variables
    set_visible_options
    if { [catch { exec ps -A | grep -v "grep -E" | grep -E "growisofs|cdrecord" }] != 0} {
        if { ($burn_type == "burn_dvd") || ($v_create_iso == "yes") } {
            check_volume_id
            if { [lindex $space_left_f 0] <0 && $option_overburn == "" && $burn_type == "burn_dvd" && $v_create_iso == "no" } {
                #exact maximum size: 4.37721610069. Although it should be oversized because "du" return > real file size due to indirect blocks its undersized to prevent disallowing burning when beleving overburn is needed while its no the case (anyway growisofs check it)
                set command_line "You need to enable overburning if you want to burn all theses files"
                .f_burn.go_button configure -state disabled
            } else {
                #create list containing excluded files and directories prefixed with -m option
                set excluded_file_list_t ""
                foreach i $excluded_file_list {
                    append excluded_file_list_t "-m {$i} "

                }

                #create local variable that are copy of global ones, used to remove unused option
                #for exemple, when creating ISO, no need of overburn option
                #we create local variables to prevent using a lot of "if/else" that only remove theses options when needed because there is already a lot of if else only for CD/DVDs :-(
                set local_option_overburn "$option_overburn"
                set local_t_session "$t_session"
                set local_burn_speed "$burn_speed"
                set local_option_dvd_compat "$option_dvd_compat"
                if { $v_create_iso == "yes" } {
                    set local_option_overburn ""
                    set local_t_session ""
                    set local_burn_speed ""
                    set local_option_dvd_compat ""
                } else {
                    if { $burn_speed != "" } {
                        #for growisofs there is a "-" before speed option while cdrecord doesn't take one
                        if { $dvd_size > 716800 } {
                            set local_burn_speed "-speed=$burn_speed"
                        } else {
                            set local_burn_speed "speed=$burn_speed"
                        }
                    } else {
                        set local_burn_speed ""
                    }
                }

                #if we burn a DVD-Video UDF complient we need to not modify directory with graft points
                if {$option_udf_ext != "-dvd-video" } {
                    #if burning a CD, command line is different (pipe between mkisofs and cdrecord)
                    if { $dvd_size <= 716800 &&  $v_create_iso == "no" } {
                        set command_line "[concat $burn_command $volume_id $option_udf_ext $option_joliet_ext $option_rr_ext $option_pad -graft-points $excluded_file_list_t [file_list_w_modif_dir $file_list]] | cdrecord dev=$burning_device $local_burn_speed $option_overburn $option_eject_cd -"
                    } else {
                        set command_line "[concat $burn_command $local_t_session $burning_device $volume_id $option_udf_ext $option_joliet_ext $option_rr_ext $local_burn_speed $local_option_dvd_compat $local_option_overburn $option_pad -graft-points $excluded_file_list_t [file_list_w_modif_dir $file_list]]"
                    }
                } else {
                    if { $dvd_size <= 716800  && $v_create_iso == "no" } {
                        set command_line "[concat $burn_command $volume_id $option_udf_ext $excluded_file_list_t $file_list] | cdrecord dev=$burning_device $local_burn_speed $option_overburn $option_eject_cd -"
                    } else {
                        set command_line "[concat $burn_command $local_t_session $burning_device $volume_id $option_udf_ext $local_burn_speed $local_option_dvd_compat $local_option_overburn $excluded_file_list_t $file_list]"
                    }
                }
                #enable burn button if all OK
                if { [.f_burn.go_button cget -state] == "disabled" } { .f_burn.go_button configure -state normal }
            }
        } elseif { $burn_type == "burn_iso" } {
            if { $burn_speed != "" } {
                #for growisofs there is a "-" before speed option while cdrecord doesn't take one
                if { $dvd_size > 716800 } {
                    set local_burn_speed "-speed=$burn_speed"
                } else {
                    set local_burn_speed "speed=$burn_speed"
                }
            } else {
                set local_burn_speed ""
            }
            if { $dvd_size <= 716800 } {
                set command_line "$burn_command $option_overburn $local_burn_speed $option_eject_cd  $option_tao_dao_cd dev=$burning_device $iso_file"
            } else {
                set command_line "$burn_command $option_dvd_compat $local_burn_speed $option_overburn $t_session $burning_device=$iso_file"
            }
            if { [.f_burn.go_button cget -state] == "disabled" } { .f_burn.go_button configure -state normal }
        }
    } else { set command_line "growisofs/cdrecord is currently working" }
    if {($t_session == "-M" && $space_left_f != "N/A") || ($t_session == "-use-the-force-luke=tty -Z" && $space_left_f == "N/A") } { refresh_total_file_size }
    return 1
}
#source of excluded file window and its needed procedures
#    Copyright 2003 Regis Damongeot

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

proc proc_add_excluded_f_d { files_list } {
    global excluded_file_list option_auto_refresh_space i18n_error i18n_error_file_not_present i18n_error_directory_not_present i18n_error_adding_ef
    #if user click on cancel, returned list = ""
    if { $files_list != "" } {
        #foreach needed for multiple files selection
        foreach i $files_list {
            set file_present [file_is_present_or_conatained "$i"]
            set file_present_efl [file_is_present_or_conatained_in_efl "$i"]
            if { $file_present == "no" } {
                if { [file isfile $i] } {
                    tk_messageBox -icon error -message "$i18n_error_file_not_present" -type ok -title $i18n_error
                } elseif { [file isdirectory $i] } {
                    tk_messageBox -icon error -message "$i18n_error_directory_not_present" -type ok -title $i18n_error
                }
            } else {
                #check if file is not already in excluded file list or contains/contained in (see ile_is_present_or_conatained_in_efl procedure)
                if { $file_present_efl != "no" } {
                    tk_messageBox -icon error -message "$i18n_error_adding_ef: $i" -type ok -title $i18n_error
                } else {
                    lappend excluded_file_list $i
                }
            }
        }

        if { $option_auto_refresh_space == "1" } {
            refresh_total_file_size
        }
        refresh_cmd_line
    } else {
    #puts "No file or dir chosen"
    }
}

proc delete_excluded_files {} {
    global excluded_file_list option_auto_refresh_space
    if { "[.excluded_file_window.file_list.list curselection]" == "" } {
    } else {
        set excluded_file_list [lreplace $excluded_file_list [.excluded_file_window.file_list.list curselection] [.excluded_file_window.file_list.list curselection]]
        #refresh command line entry after checking space used to check overburn condition
        if { $option_auto_refresh_space == "1" } {
            refresh_total_file_size
        }
        refresh_cmd_line
    }
}

proc excluded_file_window {} {
    global excluded_file_list
    #i18n
    global i18n_add_files i18n_add_directory i18n_delete_file_dir i18n_clear_list i18n_close
if { ! [winfo exists .excluded_file_window] } {
    toplevel .excluded_file_window -highlightthickness 1 -highlightcolor blue -background #f5f5f5
    wm title .excluded_file_window "Excluded Files And Directories"
    frame .excluded_file_window.f_buttons
    button .excluded_file_window.f_buttons.b_add_files -highlightbackground red -width 13 -text "$i18n_add_files" -command { proc_add_excluded_f_d [tk_getOpenFile -multiple 1] }
    button .excluded_file_window.f_buttons.b_add_dir -highlightbackground red -width 13 -text "$i18n_add_directory" -command { proc_add_excluded_f_d "{[tk_chooseDirectory -mustexist true]}" }
    button .excluded_file_window.f_buttons.b_del -highlightbackground red -width 13 -text "$i18n_delete_file_dir" -command { delete_excluded_files }
    button .excluded_file_window.f_buttons.b_clear -highlightbackground red -width 13 -text "$i18n_clear_list" -command { set excluded_file_list ""; refresh_total_file_size; refresh_cmd_line }
    button .excluded_file_window.f_buttons.b_close -highlightbackground red -width 13 -text "$i18n_close" -command {destroy .excluded_file_window}
    pack .excluded_file_window.f_buttons.b_add_files .excluded_file_window.f_buttons.b_add_dir .excluded_file_window.f_buttons.b_del .excluded_file_window.f_buttons.b_clear .excluded_file_window.f_buttons.b_close -side left
    pack .excluded_file_window.f_buttons -side top

    frame .excluded_file_window.file_list
    listbox .excluded_file_window.file_list.list -bg #f5f5f5 -listvariable excluded_file_list -heigh 15 -yscrollcommand { .excluded_file_window.file_list.scroll_bar set }
    scrollbar .excluded_file_window.file_list.scroll_bar -command { .file_list.list yview }
    pack .excluded_file_window.file_list.scroll_bar -side right -fill y
    pack .excluded_file_window.file_list.list -fill x
    pack .excluded_file_window.file_list -fill both -expand false -side bottom
}
}

#source advanced options window procedure
#    Copyright 2003 Regis Damongeot

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

proc advanced_options_window {} {
    global burn_type v_create_iso dvd_size option_auto_refresh_space burn_speed langage tristatecompatibility option_tao_dao_cd
    #i18n variables
    global i18n_filesystem_extensions i18n_add_joliet_extensions i18n_rock_ridge_extensions i18n_off i18n_rr_extensions i18n_anonymous_rr_extensions i18n_udf_extensions i18n_udf_extensions_radiobutton i18n_dvd_video_compliant_udf_filesystem i18n_dvd_size i18n_other_options i18n_burning_speed i18n_overburn i18n_pad i18n_add_session_to_disc i18n_maximum_media_compatibility i18n_automaticaly_refresh_used_space i18n_close i18n_advanced_options_t i18n_eject_cd_after_burning
if { ! [winfo exists .advanced_options_window] } {
    toplevel .advanced_options_window -highlightthickness 1 -highlightcolor blue -background #f5f5f5
    wm title .advanced_options_window "$i18n_advanced_options_t"

    #create frame for options buttons
    frame .advanced_options_window.f_fs_ext -background #f5f5f5
    frame .advanced_options_window.options_fs -background #f5f5f5
    frame .advanced_options_window.f_options_rr -background #f5f5f5
    frame .advanced_options_window.f_options_udf -background #f5f5f5
    frame .advanced_options_window.rr_radiobuttons -background #f5f5f5
    frame .advanced_options_window.udf_radiobuttons -background #f5f5f5
    frame .advanced_options_window.f_opts_dvd_size -background #f5f5f5
    frame .advanced_options_window.f_dvd_size -background #f5f5f5
    frame .advanced_options_window.f_opts_dvd -background #f5f5f5
    frame .advanced_options_window.f_opts_cd -background #f5f5f5
    frame .advanced_options_window.f_oth_opts -background #f5f5f5
    frame .advanced_options_window.options_oth -background #f5f5f5
    frame .advanced_options_window.f_langage -background #f5f5f5

    label .advanced_options_window.f_fs_ext.label_fs_ext -bg #f5f5f5 -text "$i18n_filesystem_extensions"
    label .advanced_options_window.f_options_rr.label_fs_rr -bg #f5f5f5 -text "$i18n_rock_ridge_extensions"
    label .advanced_options_window.f_options_udf.label_fs_udf -bg #f5f5f5 -text "$i18n_udf_extensions"
    label .advanced_options_window.f_opts_dvd_size.label_dvd_size -bg #f5f5f5 -text "$i18n_dvd_size"
    label .advanced_options_window.f_oth_opts.label_oth_opts -bg #f5f5f5 -text "$i18n_other_options"
    label .advanced_options_window.f_langage.label_langage -bg #f5f5f5 -text "Langage:"

    label .advanced_options_window.f_opts_dvd.label_dvd -bg #f5f5f5 -text "DVD:"
    label .advanced_options_window.f_opts_cd.label_cd -bg #f5f5f5 -text "CD:"

    checkbutton .advanced_options_window.options_fs.joliet_ext -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_add_joliet_extensions" -variable option_joliet_ext -offvalue "" -onvalue "-J" -command refresh_cmd_line

    checkbutton .advanced_options_window.options_oth.pad -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_pad" -variable option_pad -offvalue "" -onvalue "-pad"  -command refresh_cmd_line

    radiobutton .advanced_options_window.rr_radiobuttons.rr_ext_off -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_off" -variable option_rr_ext -value "" -command refresh_cmd_line

    radiobutton .advanced_options_window.rr_radiobuttons.rr_ext -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_rr_extensions" -variable option_rr_ext -value "-R"  -command refresh_cmd_line

    radiobutton .advanced_options_window.rr_radiobuttons.rra_ext -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_anonymous_rr_extensions" -variable option_rr_ext -value "-r" -command refresh_cmd_line

    radiobutton .advanced_options_window.udf_radiobuttons.udf_ext_off -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_off" -variable option_udf_ext -value "" -command refresh_cmd_line

    radiobutton .advanced_options_window.udf_radiobuttons.udf_ext -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_udf_extensions_radiobutton" -variable option_udf_ext -value "-udf" -command refresh_cmd_line

    radiobutton .advanced_options_window.udf_radiobuttons.dvd_video_ext -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_dvd_video_compliant_udf_filesystem" -variable option_udf_ext -value "-dvd-video" -command refresh_cmd_line

    label .advanced_options_window.options_oth.label_burn_speed -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_burning_speed"

    entry .advanced_options_window.options_oth.entry_burn_speed -relief flat -bg white -highlightbackground blue -highlightcolor blue -disabledbackground #f5f5f5 -state normal -textvariable burn_speed -width 3

    checkbutton .advanced_options_window.options_oth.overburn -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_overburn" -variable option_overburn -offvalue "" -onvalue "-overburn" -command refresh_cmd_line

    checkbutton .advanced_options_window.f_opts_dvd.multisession -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_add_session_to_disc" -variable t_session -offvalue "-use-the-force-luke=tty -Z" -onvalue "-use-the-force-luke=tty -Z -M"  -command refresh_cmd_line

    checkbutton .advanced_options_window.f_opts_dvd.monosession -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_maximum_media_compatibility" -variable option_dvd_compat -offvalue "" -onvalue "-dvd-compat"  -command refresh_cmd_line

    radiobutton .advanced_options_window.f_opts_cd.radio_tao  -activebackground #f5f5f5 -background #f5f5f5 -highlightbackground #f5f5f5 -command { refresh_cmd_line } -text "Track at once (-tao)" -variable option_tao_dao_cd  -value "-tao"

    radiobutton .advanced_options_window.f_opts_cd.radio_dao  -activebackground #f5f5f5 -background #f5f5f5 -highlightbackground #f5f5f5 -command { refresh_cmd_line } -text "Disk/Session at once (-dao)" -variable option_tao_dao_cd  -value "-dao"

    checkbutton .advanced_options_window.f_opts_cd.eject_cd -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_eject_cd_after_burning" -variable option_eject_cd -offvalue "" -onvalue "-eject"  -command refresh_cmd_line

    checkbutton .advanced_options_window.options_oth.auto_refresh_space -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_automaticaly_refresh_used_space" -variable option_auto_refresh_space -offvalue "0" -onvalue "1" -command {if { $option_auto_refresh_space == "1" } { pack forget .f_upper_file_list.b_update }  else { pack .f_upper_file_list.b_update -side left } }

    radiobutton .advanced_options_window.f_dvd_size.cd6  -activebackground #f5f5f5 -background #f5f5f5 -highlightbackground #f5f5f5 -command { refresh_total_file_size; refresh_cmd_line } -text "650 MB" -variable dvd_size -value 665600

    radiobutton .advanced_options_window.f_dvd_size.cd7 -activebackground #f5f5f5 -background #f5f5f5 -highlightbackground #f5f5f5 -command { refresh_total_file_size; refresh_cmd_line } -text "700 MB" -variable dvd_size -value 716800

    radiobutton .advanced_options_window.f_dvd_size.single_layer  -activebackground #f5f5f5 -background #f5f5f5 -highlightbackground #f5f5f5 -command { refresh_total_file_size; refresh_cmd_line } -text "4.7 GB" -variable dvd_size -value 4589850

    radiobutton .advanced_options_window.f_dvd_size.dual_layer  -activebackground #f5f5f5 -background #f5f5f5 -highlightbackground #f5f5f5 -command { refresh_total_file_size; refresh_cmd_line }  -text "8.5 GB (DL)" -variable dvd_size -value 8300790

    ::combobox::combobox .advanced_options_window.f_langage.langage_list -listvar i18n_language_list -editable false -textvariable language


    #button .advanced_options_window.f_dvd_size.b_save -highlightbackground red -text "Save" -command { save_options }

    button .advanced_options_window.b_close -highlightbackground red -text "$i18n_close" -command { destroy .advanced_options_window; refresh_cmd_line }

    #see TkDVD.sh comments about Tk 8.4/8.5 compatibility and tristate option
    if { $tristatecompatibility == yes } {
      #checkbuttons
      .advanced_options_window.options_fs.joliet_ext configure -tristatevalue "tristate"
      .advanced_options_window.options_oth.pad configure -tristatevalue "tristate"
      .advanced_options_window.options_oth.overburn configure -tristatevalue "tristate"
      .advanced_options_window.f_opts_dvd.multisession configure -tristatevalue "tristate"
      .advanced_options_window.f_opts_dvd.monosession configure -tristatevalue "tristate"
      .advanced_options_window.f_opts_cd.eject_cd configure -tristatevalue "tristate"
      .advanced_options_window.options_oth.auto_refresh_space configure -tristatevalue "tristate"
      #radiobuttons
      .advanced_options_window.rr_radiobuttons.rr_ext_off configure -tristatevalue "tristate"
      .advanced_options_window.rr_radiobuttons.rr_ext configure -tristatevalue "tristate"
      .advanced_options_window.rr_radiobuttons.rra_ext configure -tristatevalue "tristate"
      .advanced_options_window.udf_radiobuttons.udf_ext_off configure -tristatevalue "tristate"
      .advanced_options_window.udf_radiobuttons.udf_ext configure -tristatevalue "tristate"
      .advanced_options_window.udf_radiobuttons.dvd_video_ext configure -tristatevalue "tristate"
    }

    set_visible_options


    #pack buttons and labels
    pack .advanced_options_window.f_fs_ext.label_fs_ext -side left
    pack .advanced_options_window.f_options_rr.label_fs_rr -side left
    pack .advanced_options_window.f_options_udf.label_fs_udf -side left
    pack .advanced_options_window.f_opts_dvd_size.label_dvd_size -side left
    pack .advanced_options_window.f_oth_opts.label_oth_opts -side left
    pack .advanced_options_window.options_fs.joliet_ext -side top -anchor w -padx {12 0}
    pack .advanced_options_window.f_dvd_size.cd6 .advanced_options_window.f_dvd_size.cd7 .advanced_options_window.f_dvd_size.single_layer .advanced_options_window.f_dvd_size.dual_layer -side left -anchor w -padx {12 0}
    #DVD section
    pack .advanced_options_window.f_opts_dvd.label_dvd -side top -anchor w
    pack .advanced_options_window.f_opts_dvd.multisession .advanced_options_window.f_opts_dvd.monosession -side top -anchor w -padx {12 0}
    #CD section
    pack .advanced_options_window.f_opts_cd.label_cd -side top -anchor w
    pack .advanced_options_window.f_opts_cd.eject_cd -side top -anchor w -padx {12 0}
    pack .advanced_options_window.f_opts_cd.radio_tao .advanced_options_window.f_opts_cd.radio_dao -side left -anchor w -padx {12 0}
    #other options
    pack .advanced_options_window.options_oth.overburn .advanced_options_window.options_oth.pad -side top -anchor w -padx {12 0}
    pack .advanced_options_window.options_oth.auto_refresh_space  -side top -anchor w -padx {12 0}
    pack .advanced_options_window.options_oth.label_burn_speed .advanced_options_window.options_oth.entry_burn_speed -side left -anchor w -padx {12 0}
    #langage
    pack .advanced_options_window.f_langage.label_langage -side top -anchor w
    pack .advanced_options_window.f_langage.langage_list -side top -anchor w -padx {12 0}  -pady {6 0}
    #pack .advanced_options_window.f_dvd_size.b_save -side right -padx {0 12}
    pack .advanced_options_window.rr_radiobuttons.rr_ext_off -side left -padx {24 0}
    pack .advanced_options_window.rr_radiobuttons.rr_ext .advanced_options_window.rr_radiobuttons.rra_ext  -side left
    pack .advanced_options_window.udf_radiobuttons.udf_ext_off .advanced_options_window.udf_radiobuttons.udf_ext .advanced_options_window.udf_radiobuttons.dvd_video_ext -side left -padx {24 0}
    #packing frames
    pack .advanced_options_window.f_fs_ext -fill x
    pack .advanced_options_window.options_fs -fill x
    pack .advanced_options_window.f_options_rr -fill x -padx {12 0}
    pack .advanced_options_window.rr_radiobuttons -fill x
    pack .advanced_options_window.f_options_udf -fill x -padx {12 0}
    pack .advanced_options_window.udf_radiobuttons -fill x
    pack .advanced_options_window.f_opts_dvd_size -fill x -pady {6 0}
    pack .advanced_options_window.f_dvd_size -fill x
    pack .advanced_options_window.f_opts_dvd -fill x -pady {6 0}
    pack .advanced_options_window.f_opts_cd -fill x -pady {6 0}
    pack .advanced_options_window.f_oth_opts -fill x -pady {6 0}
    pack .advanced_options_window.options_oth -fill x
    pack .advanced_options_window.f_langage -fill x -pady {6 0}
    pack .advanced_options_window.b_close -side right -padx {0 12} -pady {0 6}
}
}
#source main TkDVD window
#    Copyright 2003 Regis Damongeot

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

. configure -background #f5f5f5

#fill the  top menu
frame .f_menubar
menubutton .f_menubar.file -text File -underline 0 -menu .f_menubar.file.menu
menubutton .f_menubar.cd -text CD -underline 0 -menu .f_menubar.cd.menu
menubutton .f_menubar.dvd -text DVD -underline 0 -menu .f_menubar.dvd.menu
menu .f_menubar.file.menu -tearoff 0
menu .f_menubar.cd.menu -tearoff 0
menu .f_menubar.dvd.menu -tearoff 0
.f_menubar.file.menu add command -label "$i18n_load_file_list" -command {load_file_list }
.f_menubar.file.menu add command -label "$i18n_save_file_list" -command {save_file_list }
.f_menubar.file.menu add command -label "$i18n_quit" -command {save_options ; exit }
.f_menubar.cd.menu add command -label "$i18n_cd_copy" -command { disc_copy "cd" }
.f_menubar.cd.menu add command -label "$i18n_create_iso_from_cd" -command { disc_to_iso "cd" }
.f_menubar.cd.menu add command -label "$i18n_erase_cdrw" -command { cd_choose_format }
.f_menubar.dvd.menu add command -label "$i18n_dvd_copy" -command { disc_copy "dvd" }
.f_menubar.dvd.menu add command -label "$i18n_create_iso_from_dvd" -command { disc_to_iso "dvd" }
.f_menubar.dvd.menu add command -label "$i18n_erase_dvdrw" -command { dvd_choose_format }
pack .f_menubar.file .f_menubar.cd .f_menubar.dvd -side left
pack .f_menubar -fill x

frame .f_label_first_step -background #c7d1d1
label .f_label_first_step.l_first_step -bg #c7d1d1 -text "$i18n_step1"

frame .f_first_step -background #f5f5f5
radiobutton .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
.f_first_step.burn_dvd select

frame .f_first_step_b -background #f5f5f5
button .f_first_step_b.add -highlightbackground blue -text "$i18n_add_files" -width 12 -command { add_file [tk_getOpenFile -multiple 1] }
button .f_first_step_b.add_d -highlightbackground blue -text "$i18n_add_directory" -width 12 -command add_d
button .f_first_step_b.delete -highlightbackground blue -text "$i18n_delete_file_dir" -width 12 -command delete_files
button .f_first_step_b.clear -highlightbackground blue -text "$i18n_clear_list" -width 12 -command { set file_list ""; refresh_total_file_size; refresh_cmd_line }
button .f_first_step_b.excluded_files -highlightbackground blue -width 12 -text "$i18n_excluded_files_dir" -command { excluded_file_window }

frame .f_upper_file_list -background #f5f5f5
label .f_upper_file_list.l_file_size -bg #f5f5f5 -text "$i18n_used_space"
entry .f_upper_file_list.show_file_size -relief flat -highlightbackground #f5f5f5 -highlightcolor #f5f5f5 -readonlybackground #f5f5f5 -state readonly -textvariable total_file_size_f -width 10
label .f_upper_file_list.l_space_left -bg #f5f5f5 -text "$i18n_free_space"
entry .f_upper_file_list.show_space_left -relief flat -highlightbackground #f5f5f5 -highlightcolor #f5f5f5 -readonlybackground #f5f5f5 -state readonly -textvariable space_left_f -width 10
button .f_upper_file_list.b_update -highlightbackground blue -text "$i18n_update" -command { refresh_total_file_size }

frame .file_list -bg #f5f5f5
#seems to be necessary to fix an height (for Puppy a least)
listbox .file_list.file_list -bg white -height 8 -listvariable file_list -yscrollcommand { .file_list.scroll_bar set }
scrollbar .file_list.scroll_bar -command { .file_list.file_list yview }

frame .f_only_create_iso -bg #f5f5f5
checkbutton .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"

frame .f_first_step_iso -background #f5f5f5
radiobutton .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
button  .f_first_step_iso.b_open_iso -highlightbackground blue -text "$i18n_open" -state disabled -command choose_iso_file -width 7
entry .f_first_step_iso.iso_file -relief flat -highlightbackground blue -highlightcolor blue -readonlybackground #f5f5f5 -state readonly -textvariable iso_file -width 57

frame .f_label_second_step -background #c7d1d1
label .f_label_second_step.l_second_step -bg #c7d1d1 -text "$i18n_step2"

frame .f_burn_dev -background #f5f5f5
label .f_burn_dev.l_burn_device -bg #f5f5f5 -width 20 -anchor w -text "$i18n_burning_device"
entry .f_burn_dev.burn_device -relief flat -bg white -highlightbackground blue -highlightcolor blue -disabledbackground #f5f5f5 -state normal -textvariable burning_device
.f_burn_dev.burn_device configure -validate focus -validatecommand refresh_cmd_line

frame .f_vol_name -background #f5f5f5
label .f_vol_name.label_vname -bg #f5f5f5 -width 20 -anchor w -text "$i18n_volume_name"
entry .f_vol_name.volume_name -relief flat -bg white -highlightbackground blue -highlightcolor blue  -disabledbackground #f5f5f5 -state normal -textvariable volume_id_o
button .f_vol_name.b_advanced_options -highlightbackground blue -width 15 -text "$i18n_advanced_options_b" -command { advanced_options_window }

frame .f_cmd_line -background #f5f5f5
label .f_cmd_line.label_vid -bg #f5f5f5 -width 20 -anchor w -text "$i18n_command"
entry .f_cmd_line.cmd_line -relief flat -highlightbackground blue -highlightcolor blue -readonlybackground #f5f5f5 -state readonly -textvariable command_line -width 150

frame .f_burn -background #c7d1d1
button .f_burn.go_button -text "$i18n_burn" -highlightbackground red -command { refresh_total_file_size; refresh_cmd_line; launch "burn" "" } -width 7


pack .f_label_first_step.l_first_step -side left
pack .f_label_first_step -fill x

pack .f_first_step.burn_dvd -side left
pack .f_first_step -fill x

pack .f_first_step_b.add -side left -padx {0 10}
pack .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
pack .f_first_step_b.excluded_files -side right -padx {10 0}
pack .f_first_step_b -fill x -padx {50 15} -pady {7 3}

pack .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
if { $option_auto_refresh_space == "0" } { pack .f_upper_file_list.b_update -side left }
pack .f_upper_file_list -fill x -padx {50 0}

pack .file_list.scroll_bar -fill y -side right
pack .file_list.file_list -fill both -expand 1
pack .file_list -fill both -padx {50 15} -expand 1

pack .f_only_create_iso.only_create_iso -side left
pack .f_only_create_iso -fill x -padx {50 0} -pady {0 4}

pack .f_first_step_iso.b_burn_iso -side left
pack .f_first_step_iso.iso_file -side right -padx {12 0}
pack .f_first_step_iso.b_open_iso -side right
pack .f_first_step_iso -fill x -padx {0 15}

pack .f_label_second_step.l_second_step -side left
pack .f_label_second_step -fill x  -pady {12 12}

pack .f_burn_dev.l_burn_device -side left
pack .f_burn_dev.burn_device -side left -padx {0 0}
pack .f_burn_dev -fill x -padx {20 15} -pady {0 10}

pack .f_vol_name.label_vname -side left
pack .f_vol_name.volume_name -side left -padx {0 0}
pack .f_vol_name.b_advanced_options -side right -padx {0 0}
pack .f_vol_name -fill x -padx {20 15} -pady {0 10}

pack .f_cmd_line.label_vid -side left
pack .f_cmd_line.cmd_line -side left -padx {0 0}
pack .f_cmd_line -fill x  -pady {0 10} -padx {20 15}

pack .f_burn.go_button -pady {2 2}
pack .f_burn -fill x

#source all procedures left
 #    Copyright 2003 Regis Damongeot

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

proc file_list_w_modif_dir { file_list_to_modif } {
    #puts "$file_list_to_modif"
    set file_list_to_modif_f ""
    #set modified false
    for { set i 0 } { $i < [llength $file_list_to_modif]} { incr i } {
        if { [file isdirectory [lindex $file_list_to_modif $i]] } {
            set file_list_to_modif [lreplace $file_list_to_modif $i $i "[lindex [split [lindex $file_list_to_modif $i] /] end]/=[lindex $file_list_to_modif $i]"]
        } else {
        }
    }
    #if { $modified == true } { return [eval concat $file_list_to_modif] } else { return $file_list_to_modif }
    return $file_list_to_modif
}



proc choose_iso_file {} {
    global iso_file burn_type burning_device i18n_select_iso_image
    set iso_file_o ""
    if { $burn_type == "burn_iso" } {
        set iso_file_o [tk_getOpenFile -defaultextension .iso -title "$i18n_select_iso_image"]
        if { [llength $iso_file_o] > 1} {
            set iso_file [lindex $iso_file_o 0]
            for { set i 1} {$i < [llength $iso_file_o]} {incr i} {
                set iso_file "$iso_file\\ [lindex $iso_file_o $i]"
            }
        } else {
            set iso_file $iso_file_o
        }
    } else {
        set burning_device ""
        #set iso_file [tk_chooseDirectory -mustexist 0]
        set iso_file [tk_getSaveFile]
        set burning_device "-o"
        lappend burning_device $iso_file
    }
    refresh_cmd_line
}

proc check_volume_id {} {
    global volume_id volume_id_o
    set volume_id ""
    if { $volume_id_o == "" } {
        set volume_id ""
    } elseif { [llength $volume_id_o] > 1} {
            set volume_id [lindex $volume_id_o 0]
            for { set i 1} {$i < [llength $volume_id_o]} {incr i} {
                set volume_id "$volume_id\\ [lindex $volume_id_o $i]"
            }
            set volume_id "-V $volume_id"
        } else { set volume_id "-V $volume_id_o" }
}

proc add_file {files} {
    global file_list option_auto_refresh_space i18n_error i18n_error_file_already_present i18n_quest_file_contained

    if { $files != "" } {
        #foreach needed for multiple files selection
        foreach i $files {
            set answer "yes"
            set file_present [file_is_present_or_conatained "$i"]
            if { "$file_present" == "yes" } {
                set answer "no"
                tk_messageBox -icon error -message "$i18n_error_file_already_present: $i" -type ok -title $i18n_error
            } elseif { "$file_present" == "yes_c" } {
                set answer [tk_messageBox -icon error -message "$i18n_quest_file_contained $i" -type yesno -default no -title $i18n_error]
            }

            if { $answer == "yes" } {
                lappend file_list $i
            }
        }
        if { $option_auto_refresh_space == "1" } {
            refresh_total_file_size
        }
        refresh_cmd_line
    }
}

proc add_d {} {
    global file_list option_auto_refresh_space i18n_error i18n_error_directory_already_present i18n_quest_directory_contained i18n_quest_directory_contains
    set temp [tk_chooseDirectory]
    set answer "yes"
    if { $temp != "" } {
        set file_present [file_is_present_or_conatained "$temp"]
        if { "$file_present" == "yes" } {
            set answer "no"
            tk_messageBox -icon error -message "$i18n_error_directory_already_present" -type ok -title $i18n_error
        } elseif { "$file_present" == "yes_c" } {
            set answer [tk_messageBox -icon error -message "$i18n_quest_directory_contained" -type yesno -default no -title $i18n_error]
        } elseif { "$file_present" == "will_contains" } {
            set answer [tk_messageBox -icon error -message "$i18n_quest_directory_contains" -type yesno -default no -title $i18n_error]
        }

        if { $answer == "yes" } {
            lappend file_list $temp
            #refresh command line entry after checking space used to check overburn condition
            if { $option_auto_refresh_space == "1" } {
                refresh_total_file_size
            }
            refresh_cmd_line
        }
    }
}

proc delete_files {} {
    global file_list option_auto_refresh_space
    if { "[.file_list.file_list curselection]" == "" } {
    } else {
        set file_list [lreplace $file_list [.file_list.file_list curselection] [.file_list.file_list curselection]]
        #refresh command line entry after checking space used to check overburn condition
        if { $option_auto_refresh_space == "1" } {
            refresh_total_file_size
        }
        refresh_cmd_line
    }
}

proc launch {burn_type burn_opt} {
    global input command_line burning_device i18n_growisofs_mkisofs_output i18n_close burn_speed option_overburn
    #if output window not already created, we create it
    if { ! [winfo exists .output_window] } {
        toplevel .output_window -highlightthickness 1 -highlightcolor blue -background #f5f5f5
        wm title .output_window "$i18n_growisofs_mkisofs_output"
        frame .output_window.f_main
        text .output_window.f_main.log -heigh 10 -bg #f5f5f5 -relief ridge -setgrid true -yscrollcommand { .output_window.f_main.scroll_bar set }
        scrollbar .output_window.f_main.scroll_bar -command { .output_window.f_main.log yview }
        button .output_window.b_close -highlightbackground blue -width 7 -text "$i18n_close" -command { destroy .output_window; refresh_cmd_line }

        pack .output_window.f_main.log -fill both -side left -expand 1
        pack .output_window.f_main.scroll_bar -fill y -side right
        pack .output_window.f_main -fill both -expand 1
        pack .output_window.b_close
    }
    .f_burn.go_button configure -state disabled
    if { $burn_type == "burn" } {
        if {[catch {open "|$command_line |& cat"} input]} {
            #one blank line to increase readability
            .output_window.f_main.log insert end "$command_line\n\n"
        } else {
            fileevent $input readable log_proc
            #one blank line to increase readability
            .output_window.f_main.log insert end "$command_line\n\n"
        }
    } elseif { $burn_type == "dvd_copy" } {
        #burn_opt contains source device from which we copy
        if {[catch {open "|growisofs -Z $burning_device=$burn_opt |& cat"} input]} {
            #one blank line to increase readability
            .output_window.f_main.log insert end "growisofs -Z $burning_device=$burn_opt\n\n"
        } else {
            fileevent $input readable log_proc
            #one blank line to increase readability
            .output_window.f_main.log insert end "growisofs -Z $burning_device=$burn_opt\n\n"
        }
    } elseif { $burn_type == "cd_copy" } {
        #burn_opt contains source device from which we copy
        if {[catch {open "|cdrecord dev=$burning_device $burn_speed $option_overburn -isosize $burn_opt |& cat"} input]} {
            #one blank line to increase readability
            .output_window.f_main.log insert end "cdrecord dev=$burning_device $burn_speed $option_overburn -isosize $burn_opt\n\n"
        } else {
            fileevent $input readable log_proc
            #one blank line to increase readability
            .output_window.f_main.log insert end "cdrecord dev=$burning_device $burn_speed $option_overburn -isosize $burn_opt\n\n"
        }
    } elseif { $burn_type == "create_iso" } {
        # burn_opt contains destination file for ISO image
        if {[catch {open "|dd if=$burning_device of=$burn_opt |& cat"} input]} {
            #one blank line to increase readability
            .output_window.f_main.log insert end "dd if=$burning_device of=$burn_opt\n\n"
        } else {
            fileevent $input readable log_proc
            #one blank line to increase readability
            .output_window.f_main.log insert end "dd if=$burning_device of=$burn_opt\n\n"
        }
    } elseif { $burn_type == "erase_dvd" } {
        # $burn_opt= "" or "force" or "blank"
        if {[catch {open "|dvd+rw-format $burn_opt $burning_device |& cat"} input]} {
            #one blank line to increase readability
            .output_window.f_main.log insert end "dvd+rw-format $burn_type $burning_device\n\n"
        } else {
            fileevent $input readable log_proc
            #one blank line to increase readability
            .output_window.f_main.log insert end "dvd+rw-format $burn_type $burning_device\n\n"
        }
    } elseif { $burn_type == "erase_cd" } {
        # $burn_opt= "blank=fast" or "blank=full"
        if {[catch {open "|cdrecord $burn_opt dev=$burning_device |& cat"} input]} {
            #one blank line to increase readability
            .output_window.f_main.log insert end "cdrecord $burn_opt dev=$burning_device\n\n"
        } else {
            fileevent $input readable log_proc
            #one blank line to increase readability
            .output_window.f_main.log insert end "cdrecord $burn_opt dev=$burning_device\n\n"
        }
    }
    catch {fconfigure $input -blocking 0}
    after 4000 refresh_cmd_line
}

proc dvd_choose_format {} {
#i18n
global i18n_erase i18n_close i18n_full_format i18n_normal_format i18n_quick_format i18n_erase_dvdrw
    if { ! [winfo exists .format_window] } {

        toplevel .format_window -highlightthickness 1 -highlightcolor blue -background #f5f5f5
        wm title .format_window "$i18n_erase_dvdrw"

        frame .format_window.f_format_type -background #f5f5f5

        radiobutton .format_window.f_format_type.options_full_f -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_full_format" -variable format_type -value "-blank"
        radiobutton .format_window.f_format_type.options_normal_f -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_normal_format" -variable format_type -value "-force"
        radiobutton .format_window.f_format_type.options_quick_f -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_quick_format" -variable format_type -value ""

        button .format_window.b_erase -highlightbackground red -text "$i18n_erase" -command { launch "erase_dvd" $format_type; destroy .format_window}
        button .format_window.b_close -highlightbackground red -text "$i18n_close" -command { destroy .format_window}

        pack .format_window.f_format_type.options_quick_f -side left
        pack .format_window.f_format_type.options_normal_f -side left
        pack .format_window.f_format_type.options_full_f -side left
        pack .format_window.f_format_type -fill x -padx {0 12}
        pack .format_window.b_close .format_window.b_erase -fill x -side right -padx {0 12} -pady {6 6}

        .format_window.f_format_type.options_quick_f select
    }
}

proc cd_choose_format {} {
#i18n
global i18n_erase i18n_close i18n_full_format_cd i18n_quick_format_cd i18n_erase_cdrw
    if { ! [winfo exists .format_window] } {

        toplevel .format_window -highlightthickness 1 -highlightcolor blue -background #f5f5f5
        wm title .format_window "$i18n_erase_cdrw"

        frame .format_window.f_format_type -background #f5f5f5

        radiobutton .format_window.f_format_type.options_full_f -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_full_format_cd" -variable format_type -value "blank=all"
        radiobutton .format_window.f_format_type.options_quick_f -bg #f5f5f5 -activebackground #f5f5f5 -highlightbackground #f5f5f5 -text "$i18n_quick_format_cd" -variable format_type -value "blank=fast"

        button .format_window.b_erase -highlightbackground red -text "$i18n_erase" -command { launch "erase_cd" $format_type; destroy .format_window}
        button .format_window.b_close -highlightbackground red -text "$i18n_close" -command { destroy .format_window}

        pack .format_window.f_format_type.options_quick_f -side left
        pack .format_window.f_format_type.options_full_f -side left
        pack .format_window.f_format_type -fill x -padx {0 12}
        pack .format_window.b_close .format_window.b_erase -fill x -side right -padx {0 12} -pady {6 6}

        .format_window.f_format_type.options_quick_f select
    }
}

proc log_proc {} {
    global input i18n_writing_finished
    if { [gets $input line] > 0 } {
        if { [winfo exists .output_window] } {
            .output_window.f_main.log insert end $line\n
            .output_window.f_main.log see end
        }
    } elseif { [eof $input] } {
        catch { close $input }
        if { [winfo exists .output_window] } {
            .output_window.f_main.log insert end "$i18n_writing_finished"
            .output_window.f_main.log see end
        }
    }
}

proc set_visible_options {} {
    global burn_type v_create_iso dvd_size
    if { $burn_type == "burn_dvd" &&  $v_create_iso == "no" } {
        .f_first_step_iso.b_open_iso configure -state disabled
        .f_only_create_iso.only_create_iso configure -state normal
        .f_vol_name.label_vname configure -state normal
        .f_vol_name.volume_name configure -state normal
        .f_first_step_b.add configure -state normal
        .f_first_step_b.add_d configure -state normal
        .f_first_step_b.delete configure -state normal
        .f_first_step_b.clear configure -state normal
        .f_first_step_b.excluded_files configure -state normal
        .file_list.file_list configure -state normal
        .f_upper_file_list.l_file_size configure -state normal
        .f_upper_file_list.l_space_left configure -state normal
        .f_burn_dev.l_burn_device configure -state normal
        .f_burn_dev.burn_device configure -state normal
        if { [winfo exists .advanced_options_window] } {
            .advanced_options_window.options_oth.pad configure -state normal
            .advanced_options_window.udf_radiobuttons.udf_ext configure -state normal
            .advanced_options_window.udf_radiobuttons.dvd_video_ext configure -state normal
            .advanced_options_window.udf_radiobuttons.udf_ext_off configure -state normal
            .advanced_options_window.rr_radiobuttons.rr_ext_off configure -state normal
            .advanced_options_window.rr_radiobuttons.rra_ext configure -state normal
            .advanced_options_window.rr_radiobuttons.rr_ext configure -state normal
            .advanced_options_window.options_fs.joliet_ext configure -state normal
            .advanced_options_window.options_oth.label_burn_speed configure -state normal
            .advanced_options_window.options_oth.entry_burn_speed configure -state normal
            .advanced_options_window.options_oth.overburn configure -state normal
            .advanced_options_window.f_opts_cd.radio_tao configure -state disabled
            .advanced_options_window.f_opts_cd.radio_dao configure -state disabled
            if { $dvd_size <= 716800 } {
                .advanced_options_window.f_opts_dvd.multisession configure -state disabled
                .advanced_options_window.f_opts_dvd.monosession configure -state disabled
                .advanced_options_window.f_opts_cd.eject_cd configure -state normal
            } else {
                .advanced_options_window.f_opts_dvd.multisession configure -state normal
                .advanced_options_window.f_opts_dvd.monosession configure -state normal
                .advanced_options_window.f_opts_cd.eject_cd configure -state disabled
            }
            .advanced_options_window.options_oth.auto_refresh_space configure -state normal
        }
    } elseif { $burn_type == "burn_dvd" && $v_create_iso == "yes" } {
        .f_first_step_iso.b_open_iso configure -state normal
        .f_burn_dev.l_burn_device configure -state disabled
        .f_burn_dev.burn_device configure -state disabled
        if { [winfo exists .advanced_options_window] } {
            .advanced_options_window.options_oth.pad configure -state normal
            .advanced_options_window.options_fs.joliet_ext configure -state normal
            .advanced_options_window.udf_radiobuttons.udf_ext configure -state normal
            .advanced_options_window.udf_radiobuttons.udf_ext_off configure -state normal
            .advanced_options_window.udf_radiobuttons.dvd_video_ext configure -state normal
            .advanced_options_window.rr_radiobuttons.rr_ext_off configure -state normal
            .advanced_options_window.rr_radiobuttons.rr_ext configure -state normal
            .advanced_options_window.rr_radiobuttons.rra_ext configure -state normal
            .advanced_options_window.options_oth.label_burn_speed configure -state disabled
            .advanced_options_window.options_oth.entry_burn_speed configure -state disabled
            .advanced_options_window.options_oth.overburn configure -state disabled
            .advanced_options_window.f_opts_dvd.multisession configure -state disabled
            .advanced_options_window.f_opts_dvd.monosession configure -state disabled
            .advanced_options_window.f_opts_cd.eject_cd configure -state disabled
            .advanced_options_window.f_opts_cd.radio_tao configure -state disabled
            .advanced_options_window.f_opts_cd.radio_dao configure -state disabled
            .advanced_options_window.options_oth.auto_refresh_space configure -state normal
        }
    } elseif { $burn_type == "burn_iso" } {
        .f_first_step_iso.b_open_iso configure -state normal
        .f_only_create_iso.only_create_iso configure -state disabled
        .f_vol_name.label_vname configure -state disabled
        .f_vol_name.volume_name configure -state disabled
        .f_first_step_b.add configure -state disabled
        .f_first_step_b.add_d configure -state disabled
        .f_first_step_b.delete configure -state disabled
        .f_first_step_b.clear configure -state disabled
        .f_first_step_b.excluded_files configure -state disabled
        .file_list.file_list configure -state disabled
        .f_upper_file_list.l_file_size configure -state disabled
        .f_upper_file_list.l_space_left configure -state disabled
        .f_burn_dev.l_burn_device configure -state normal
        .f_burn_dev.burn_device configure -state normal
        if { [winfo exists .advanced_options_window] } {
            .advanced_options_window.options_oth.pad configure -state disabled
            .advanced_options_window.udf_radiobuttons.udf_ext configure -state disabled
            .advanced_options_window.udf_radiobuttons.udf_ext_off configure -state disabled
            .advanced_options_window.udf_radiobuttons.dvd_video_ext configure -state disabled
            .advanced_options_window.rr_radiobuttons.rr_ext_off configure -state disabled
            .advanced_options_window.rr_radiobuttons.rra_ext configure -state disabled
            .advanced_options_window.rr_radiobuttons.rr_ext configure -state disabled
            .advanced_options_window.options_fs.joliet_ext configure -state disabled
            .advanced_options_window.options_oth.label_burn_speed configure -state normal
            .advanced_options_window.options_oth.entry_burn_speed configure -state normal
            .advanced_options_window.options_oth.overburn configure -state normal
            .advanced_options_window.f_opts_dvd.multisession configure -state disabled
            .advanced_options_window.f_opts_dvd.monosession configure -state disabled
            .advanced_options_window.options_oth.auto_refresh_space configure -state disabled
            if { $dvd_size <= 716800 } {
                .advanced_options_window.f_opts_cd.eject_cd configure -state normal
                .advanced_options_window.f_opts_cd.radio_tao configure -state normal
                .advanced_options_window.f_opts_cd.radio_dao configure -state normal
            } else {
                .advanced_options_window.f_opts_cd.eject_cd configure -state disabled
                .advanced_options_window.f_opts_cd.radio_tao configure -state disabled
                .advanced_options_window.f_opts_cd.radio_dao configure -state disabled
            }
        }
    }
}

proc refresh_burning_variables {} {
    global burn_command t_session burning_device temp_burning_device option_dvd_compat option_overburn v_create_iso v_create_iso dvd_size burn_type iso_file
    if { "$burn_type" == "burn_iso" } {
        #burning of an ISO image
        if { $temp_burning_device != "" } {
            #in this case, we just changed burning type to burning ISO, so we restore burning device
            set burning_device "$temp_burning_device"
            set temp_burning_device ""
        }
        if { $dvd_size <= 716800 } {
            set burn_command "cdrecord"
        } else {
            set burn_command "growisofs"
        }
        set v_create_iso "no"
        set volume_id ""
    } elseif {$burn_type == "burn_dvd" && $v_create_iso == "no"} {
        #DVD burning without ISO creation
        if { $temp_burning_device != "" } {
            #in this case, we just changed burning type to burning CD/DVD, so we restore burning device
            set burning_device "$temp_burning_device"
            set temp_burning_device ""
        }
        if { $dvd_size <= 716800 } {
            set burn_command "mkisofs"
        } else {
            set burn_command "growisofs"
        }
        set iso_file ""
    } else {
        #ISO creation
        set burn_command "mkisofs"
        if { $temp_burning_device == "" } {
            #in this case, we just change burning type to ISO creation so we need to save the previous real burning device
            set temp_burning_device "$burning_device"
            set burning_device ""
        }
    }
}



proc disc_copy { disc_type } {
    #disc_type == "dvd" or "cd"
    global i18n_dvd_copy i18n_cd_copy i18n_copy i18n_close i18n_choose_source_device
    #seems necessary to declare a second variable for -command launch and not with "set", only variable works...
    variable disc_type_g "$disc_type"
    if { ! [winfo exists .dvd_copy_window] } {
        toplevel .dvd_copy_window -highlightthickness 1 -highlightcolor blue -background #f5f5f5
        if { $disc_type == "dvd" } {
            wm title .dvd_copy_window "$i18n_dvd_copy"
        } else {
            wm title .dvd_copy_window "$i18n_cd_copy"
        }

        frame .dvd_copy_window.f_source_device -background #f5f5f5
        label .dvd_copy_window.f_source_device.l_mess -bg #f5f5f5 -text "$i18n_choose_source_device"
        entry .dvd_copy_window.f_source_device.e_bd -relief flat -bg white -highlightbackground blue -highlightcolor blue -disabledbackground #f5f5f5 -state normal -textvariable source_device

        button .dvd_copy_window.b_copy -highlightbackground red -text "$i18n_copy" -command { launch "${disc_type_g}_copy" "$source_device"; destroy .dvd_copy_window}
        button .dvd_copy_window.b_close -highlightbackground red -text "$i18n_close" -command { destroy .dvd_copy_window}

        pack .dvd_copy_window.f_source_device.l_mess -side left
        pack .dvd_copy_window.f_source_device.e_bd -side left
        pack  .dvd_copy_window.f_source_device -fill x -padx {0 12} -pady {12 12}
        pack .dvd_copy_window.b_close .dvd_copy_window.b_copy -fill x -side right -padx {0 12} -pady {6 6}
    }
}

proc disc_to_iso { disc_type } {
    #disc_type == "dvd" or "cd"
    global i18n_close i18n_create_iso_from_dvd i18n_create_iso_from_cd i18n_create i18n_choose_target_file i18n_error i18n_error_target_file_ns
    set dest_file ""
    if { ! [winfo exists .create_iso_window] } {

        toplevel .create_iso_window -highlightthickness 1 -highlightcolor blue -background #f5f5f5
        if { $disc_type == "dvd" } {
            wm title .create_iso_window "$i18n_create_iso_from_dvd"
        } else {
            wm title .create_iso_window "$i18n_create_iso_from_cd"
        }

        frame .create_iso_window.f_dest_file -background #f5f5f5
        button .create_iso_window.f_dest_file.b_mess -highlightbackground blue -text "$i18n_choose_target_file" -command { set dest_file [tk_getSaveFile -filetypes {{ {ISO Image} { .iso } } {{All Files}  * } } -defaultextension .iso] }
        entry .create_iso_window.f_dest_file.e_fp  -relief flat -highlightbackground blue -highlightcolor blue -readonlybackground #f5f5f5 -state readonly -textvariable dest_file -width 57

        button .create_iso_window.b_create -highlightbackground red -text "$i18n_create" -command { if { $dest_file == "" } { tk_messageBox -icon error -message $i18n_error_target_file_ns -type ok -title $i18n_error } else {launch "create_iso" "$dest_file"; destroy .create_iso_window} }
        button .create_iso_window.b_close -highlightbackground red -text "$i18n_close" -command { destroy .create_iso_window}

        pack .create_iso_window.f_dest_file.b_mess -side left -padx {12 12}
        pack .create_iso_window.f_dest_file.e_fp -side left
        pack  .create_iso_window.f_dest_file -fill x -padx {0 12} -pady {12 12}
        pack .create_iso_window.b_close .create_iso_window.b_create -fill x -side right -padx {0 12} -pady {6 6}
    }
}

proc save_file_list {} {
    global file_list excluded_file_list i18n_error_filelist_empty i18n_error
    #we first check that file list is not empty
    if { $file_list == "" } {
        tk_messageBox -icon error -message $i18n_error_filelist_empty -type ok -title $i18n_error
        return
    }
    set output_file_s [tk_getSaveFile -filetypes {{ {TkDVD file list} { .tkdvd } } {{All Files}  * } } -defaultextension .tkdvd]
    if { $output_file_s != "" } {
        set output_file [open $output_file_s w]
        puts $output_file $file_list
        puts $output_file $excluded_file_list
        close $output_file
    }
}

proc load_file_list {} {
    global file_list excluded_file_list option_auto_refresh_space
    set temp_fl ""
    set temp_efl ""
    set input_file_s [tk_getOpenFile -filetypes {{ {TkDVD file list} { .tkdvd } } {{All Files}  * } } -defaultextension .tkdvd]
    if { $input_file_s != "" } {
        set input_file [open $input_file_s r]
        gets $input_file temp_fl
        gets $input_file temp_efl
        #check if each file/dir loaded is not already in file list
        foreach i $temp_fl {
            if { [file_is_present_or_conatained "$i"] == "no"} {
                lappend file_list $i
            }
        }
        #same check for excluded file
        foreach i $temp_efl {
            if { ([file_is_present_or_conatained "$i"] != "no") && ([file_is_present_or_conatained_in_efl "$i"] == "no")} {
                lappend excluded_file_list $i
            }
        }
        close $input_file
        if { $option_auto_refresh_space == "1" } {
            refresh_total_file_size
        }
        refresh_cmd_line
    }
}

proc file_is_present_or_conatained { this_file } {
    #return "yes" if $this_file is already in file list or "yes_c" if it is contained, returns "will_contains" if this_file will contains other files already present, else return "no"
    global file_list
    if { [file isfile "$this_file"] } {
        #in this case we check that file given in parameter is not equal to another file already in FL or contains in a directory in FL
        foreach i $file_list {
            if { [file isfile "$i"] } {
                #same file
                if { "$i" == "$this_file" } { return "yes" }
            } elseif { [file isdirectory "$i"] } {
                #file contained in already present directory
                if { [string compare -length [string length $i] "$i" "$this_file"] == 0 } { return "yes_c" }
            }
        }
    } elseif { [file isdirectory "$this_file"] } {
        foreach i $file_list {
            if { [file isdirectory "$i"] } {
                #same directory
                if { "$i" == "$this_file" } { return "yes" }
                #new directory will contains another already rpesent in FL
                if { [string compare -length [string length $this_file] "$this_file" "$i"] == 0} { return "will_contains" }
                #new directory is contained by another directory in FL
                if { [string compare -length [string length $i] "$i" "$this_file"]==0 } { return "yes_c" }
            } elseif { [file isfile "$i"] } {
                #check that new directory doesnt contains files already present
                if { [string compare -length [string length $this_file] "$this_file" "$i"] == 0} { return "will_contains" }
            }
        }
    }
    return "no"
}

proc file_is_present_or_conatained_in_efl { this_file } {
    #return "yes" if $this_file is already in excluded file list or "yes_c" if it is contained, returns "will_contains" if this_file will contains other files already present, else return "no"
    global excluded_file_list
    if { [file isfile "$this_file"] } {
        #in this case we check that file given in parameter is not equal to another file already in FL or contains in a directory in FL
        foreach i $excluded_file_list {
            if { [file isfile "$i"] } {
                #same file
                if { "$i" == "$this_file" } { return "yes" }
            } elseif { [file isdirectory "$i"] } {
                #file contained in already present directory
                if { [string compare -length [string length $i] "$i" "$this_file"] == 0 } { return "yes_c" }
            }
        }
    } elseif { [file isdirectory "$this_file"] } {
        foreach i $excluded_file_list {
            if { [file isdirectory "$i"] } {
                #same directory
                if { "$i" == "$this_file" } { return "yes" }
                #new directory will contains another already rpesent in FL
                if { [string compare -length [string length $this_file] "$this_file" "$i"] == 0} { return "will_contains" }
                #new directory is contained by another directory in FL
                if { [string compare -length [string length $i] "$i" "$this_file"]==0 } { return "yes_c" }
            } elseif { [file isfile "$i"] } {
                #check that new directory doesnt contains files already present
                if { [string compare -length [string length $this_file] "$this_file" "$i"] == 0} { return "will_contains" }
            }
        }
    }
    return "no"
}
#refresh space left for initial DVD size loaded from config file
refresh_total_file_size
#refresh cmd line (mkisofs for exemple if dvd size == CD size
refresh_cmd_line