Changed layout of drive list and drive buttons

This commit is contained in:
Thomas Schmitt 2012-12-31 12:02:41 +00:00
parent 09ef611fee
commit e8cc11e2e9
2 changed files with 53 additions and 29 deletions

View File

@ -1205,7 +1205,7 @@ proc refresh_outdev {} {
# Called when the "Scan for drives button" is hit. # Called when the "Scan for drives button" is hit.
# #
proc scan_for_drives {} { proc scan_for_drives {} {
global .drivelist global .drivelist .drive_drop_both .drive_scan
global sieve_ret result_list devlist devices_scanned indev_adr outdev_adr global sieve_ret result_list devlist devices_scanned indev_adr outdev_adr
if {[assert_no_changes] == 0} {return ""} if {[assert_no_changes] == 0} {return ""}
@ -1242,6 +1242,8 @@ proc scan_for_drives {} {
} }
} }
set devices_scanned 1 set devices_scanned 1
set normal_color [.drive_drop_both cget -background]
.drive_scan configure -background "$normal_color"
update idletasks update idletasks
# Command -devices drops all aquired drives # Command -devices drops all aquired drives
@ -3125,7 +3127,14 @@ proc init_drivebox {} {
pack .drivescroll -in .drivelistbox -side right -fill y pack .drivescroll -in .drivelistbox -side right -fill y
frame .drive_picker -borderwidth $borderwidth frame .drive_picker -borderwidth $borderwidth
frame .drive_picker_line_1 -borderwidth 0
frame .drive_picker_line_2 -borderwidth 0
frame .drive_aux_buttons_line_1 -borderwidth 0
frame .drive_aux_buttons_line_2 -borderwidth 0
frame .drive_aux_buttons -borderwidth 0
button .drive_scan -text "Scan for drives" \ button .drive_scan -text "Scan for drives" \
-background "grey" \
-command "scan_for_drives" -command "scan_for_drives"
bind_help .drive_scan "Scan for drives" bind_help .drive_scan "Scan for drives"
button .drive_pick_in -text "Pick input drive" \ button .drive_pick_in -text "Pick input drive" \
@ -3143,17 +3152,26 @@ proc init_drivebox {} {
button .drive_calm -text "Calm drives" \ button .drive_calm -text "Calm drives" \
-command "calm_drives" -command "calm_drives"
bind_help .drive_calm "Calm drives" bind_help .drive_calm "Calm drives"
button .iso_rollback_button -text "Rollback" -command {iso_rollback} button .iso_rollback_button -text "Rollback" -width 9 \
-command {iso_rollback}
bind_help .iso_rollback_button "Rollback" bind_help .iso_rollback_button "Rollback"
pack .drive_scan \ # One button block left, one right
.drive_pick_in .drive_pick_out .drive_pick_both \ pack .drive_pick_in .drive_pick_out \
.drive_drop_both .drive_calm .iso_rollback_button \ -in .drive_picker_line_1 -side left -expand 1 -fill none
-in .drive_picker -side left -expand 1 -fill none pack .drive_pick_both \
pack .drive_picker -in .drivebox \ -in .drive_picker_line_2 -side left -expand 1 -fill x
-side top -expand 1 -fill none pack .drive_picker_line_1 .drive_picker_line_2 \
pack .drivelistbox -in .drivebox \ -in .drive_picker -side top -expand 1 -fill x -anchor w
-side top -expand 1 -fill both pack .drive_scan .drive_drop_both \
-in .drive_aux_buttons_line_1 -side left -expand 1 -fill none
pack .drive_calm .iso_rollback_button \
-in .drive_aux_buttons_line_2 -side left -expand 1 -fill x
pack .drive_aux_buttons_line_1 .drive_aux_buttons_line_2 \
-in .drive_aux_buttons -side top -expand 1 -fill x -anchor w
pack .drive_picker -in .drivebox -side left -expand 0 -fill none
pack .drivelistbox -in .drivebox -side left -expand 1 -fill both
pack .drive_aux_buttons -in .drivebox -side left -expand 0 -fill none
bind .drivelist <Double-Button-1> { bind .drivelist <Double-Button-1> {
pick_dev pick_dev
@ -3691,7 +3709,7 @@ The GUI window is separated into three main areas:
- Click the \"Scan for drives\" button in the middle area. - Click the \"Scan for drives\" button in the middle area.
- Select a drive and click the \"Pick output drive\" button. - Select a drive and click the \"Pick output drive\" button.
- If the information field in the \"Output drive or Image\" line begins by - If the information field in the \"Output drive or image\" line begins by
\"appendable\" or \"closed\" and if the medium is CD-RW, DVD-RW, DVD+RW, or \"appendable\" or \"closed\" and if the medium is CD-RW, DVD-RW, DVD+RW, or
BD-RE then click the \"Blank\" button to erase the old data. BD-RE then click the \"Blank\" button to erase the old data.
(Blanking of \"DVD-RW sequential recording\" will last very long.) (Blanking of \"DVD-RW sequential recording\" will last very long.)
@ -3699,8 +3717,8 @@ The GUI window is separated into three main areas:
Either toggle in the address of the hard disk directory, Either toggle in the address of the hard disk directory,
or click on the \"/\" button to the right of the text field to get or click on the \"/\" button to the right of the text field to get
a file browser. a file browser.
- Hit the Return key or click on a name in the browser to schedule - Hit the Return key in the text field or double click on a name in the
the disk directory for writing to the medium. browser to schedule the disk directory for writing to the medium.
(You may of course insert several directories or files that way.) (You may of course insert several directories or files that way.)
- Click the \"Write ISO session\" button in the middle area. - Click the \"Write ISO session\" button in the middle area.
Confirm in the \"yes/no\" window that pops up. Confirm in the \"yes/no\" window that pops up.
@ -3712,9 +3730,14 @@ The GUI window is separated into three main areas:
Write a directory as only content to an ISO image data file on hard disk Write a directory as only content to an ISO image data file on hard disk
- Toggle the name of the intended data file in the text field of the - Go to the text field beneath \"Output drive or image\" and toggle
\"Output drive or image\" line and hit the Return key. the address of the image file. Or click on the \"/\" button to the right
- If the information field in the \"Output drive or Image\" line begins by of the field to get a file browser.
- You may click on a name in the browser and bring it into the text field
by button \"Edit\".
- When the intended file address is composed, hit the Return key in the
text field.
- If the information field in the \"Output drive or image\" line begins by
\"appendable\" or \"closed\" then you addressed an existing data file. \"appendable\" or \"closed\" then you addressed an existing data file.
Warning: Applying the \"Blank\" button to it would damage its content ! Warning: Applying the \"Blank\" button to it would damage its content !
You probably do not want this in this special use case. You probably do not want this in this special use case.
@ -3727,15 +3750,15 @@ The GUI window is separated into three main areas:
- Click the \"Scan for drives\" button in the middle area. - Click the \"Scan for drives\" button in the middle area.
- Select a drive and click the \"Pick output drive\" button. - Select a drive and click the \"Pick output drive\" button.
- If the information field in the \"Output drive or Image\" line begins by - If the information field in the \"Output drive or image\" line begins by
\"appendable\" or \"closed\" and if the medium is CD-RW, DVD-RW, DVD+RW, or \"appendable\" or \"closed\" and if the medium is CD-RW, DVD-RW, DVD+RW, or
BD-RE then click the \"Blank\" button to erase the old data. BD-RE then click the \"Blank\" button to erase the old data.
(Blanking of \"DVD-RW sequential recording\" will last very long.) (Blanking of \"DVD-RW sequential recording\" will last very long.)
- Go to the text field beneath the \"Burn image file:\" button and toggle - Go to the text field beneath the \"Burn image file:\" button and toggle
the address of the image file. Or click on the \"/\" button to the right the address of the image file. Or click on the \"/\" button to the right
of the field to get a file browser. of the field to get a file browser.
- Hit the Return key in the text field or click on a name in the browser - Hit the Return key in the text field or double click on a name in the
to initiate the burn run. browser to initiate the burn run.
Confirm in the \"yes/no\" window that pops up. Confirm in the \"yes/no\" window that pops up.
- When the \"busy\" field displays \"ready\" again, you may click \"Eject\". - When the \"busy\" field displays \"ready\" again, you may click \"Eject\".
Desktop drives should then put out the tray with the medium. Desktop drives should then put out the tray with the medium.
@ -3770,14 +3793,14 @@ The GUI window is separated into three main areas:
- Go to the \"ISO directory:\" line in the lower area. - Go to the \"ISO directory:\" line in the lower area.
Either toggle in the address of the directory you want to extract or Either toggle in the address of the directory you want to extract or
click the \"/\" button to get a file browser. click the \"/\" button to get a file browser.
- Hit the Return key or click on a name in the browser to determine - Hit the Return key in the text field or double click on a name in the
the ISO directory for writing to the medium. browser to determine the ISO directory for writing to the medium.
- Go to the \"Extract to disk:\" line in the lower area. - Go to the \"Extract to disk:\" line in the lower area.
Either toggle in the address of the hard disk directory, Either toggle in the address of the hard disk directory,
or click on the \"/\" button to the right of the text field to get or click on the \"/\" button to the right of the text field to get
a file browser. a file browser.
- Hit the Return key or click on a name in the browser to initiate the - Hit the Return key in the text field or double click on a name in the
extraction run. browser to initiate the extraction run.
If a \"yes/no\" window pops up, consider well whether you are up to If a \"yes/no\" window pops up, consider well whether you are up to
to shooting your own foot right now. to shooting your own foot right now.
Enable the \"Overwrite disk files\" switch only if you are really Enable the \"Overwrite disk files\" switch only if you are really
@ -3795,7 +3818,7 @@ Dependencies:
xorriso, Tcl language, Tk GUI toolkit, optionally Tcl/Tk package BWidget xorriso, Tcl language, Tk GUI toolkit, optionally Tcl/Tk package BWidget
Copyright (C) 2012, Thomas Schmitt <scdbackup@gmx.net>, libburnia-project.org Copyright (C) 2012, Thomas Schmitt <scdbackup@gmx.net>, libburnia-project.org
Provided under GNU GPL version 3 or later." Provided under GNU GPL version 2 or later."
} }
if {"$what" == "End"} { if {"$what" == "End"} {
return \ return \
@ -3889,7 +3912,7 @@ since last time the \"Clear\" button was hit. It will not clear automatically."
if {"$what" == "Scan for drives"} { if {"$what" == "Scan for drives"} {
return \ return \
"The \"Scan for drives\" button executes command -devices and puts the list "The \"Scan for drives\" button executes command -devices and puts the list
of found optical drives into the box underneath the button. of found optical drives into the box beneath the button.
Scanning should be done before any ISO image manipulations because xorriso Scanning should be done before any ISO image manipulations because xorriso
has to give up its aquired drives in order to perform the scan run. has to give up its aquired drives in order to perform the scan run.
@ -3977,7 +4000,7 @@ aquired."
} }
if {"$what" == "drivelist"} { if {"$what" == "drivelist"} {
return \ return \
"The box underneath the \"Scan for drives\" button shows the optical drives "The box beneath the \"Scan for drives\" button shows the optical drives
which were found by the most recent scan run. which were found by the most recent scan run.
A double-click on a drive item has the same effect as button A double-click on a drive item has the same effect as button
@ -4305,10 +4328,11 @@ or cursor movement in the file browser shall bring the selected file
address into the associated text input field. address into the associated text input field.
If the switch is disabled, then the address gets written into the field If the switch is disabled, then the address gets written into the field
only if double clicked. only if double clicked, of by button \"Accept\", or by button \"Edit\".
In any case, double clicked addresses get treated as if the Return key In any case, double clicked addresses get treated as if the Return key
had been hit in the text field." had been hit in the text field. The same happens with the selected item
and button \"Accept\"."
} }
if {"$what" == "Refresh avail:"} { if {"$what" == "Refresh avail:"} {
return \ return \

View File

@ -1 +1 @@
#define Xorriso_timestamP "2012.12.31.100509" #define Xorriso_timestamP "2012.12.31.120152"