Changed layout of drive list and drive buttons
This commit is contained in:
parent
09ef611fee
commit
e8cc11e2e9
@ -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 \
|
||||||
|
@ -1 +1 @@
|
|||||||
#define Xorriso_timestamP "2012.12.31.100509"
|
#define Xorriso_timestamP "2012.12.31.120152"
|
||||||
|
Loading…
Reference in New Issue
Block a user