Disabled "Extract to disk" button if extraction is banned

This commit is contained in:
Thomas Schmitt 2013-01-06 10:24:27 +00:00
parent a3cbe88544
commit 6eaad04b54
2 changed files with 9 additions and 1 deletions

View File

@ -2430,6 +2430,9 @@ proc osirrox_banned {} {
set m ".script_log.menu"
$m entryconfigure "Allow extract to disk" -state "disabled"
$m entryconfigure "Permanently ban extraction" -state "disabled"
.extract_button configure -state "disabled"
}
@ -4051,11 +4054,16 @@ proc init_localfs {} {
#
proc init_extract {} {
global borderwidth extract_to_adr extract_from_selected extract_underneath
global osirrox_allowed
global .extract_button .extract_frame .extract_entry .extract_from_selected
global .extract_underneath
set extract_state "normal"
if {$osirrox_allowed == 0} {set extract_state "disabled"}
frame .extract_frame -borderwidth 0
button .extract_button -text "Extract to disk:" \
-state $extract_state \
-width 17 \
-command {extract_to}
bind_help .extract_button "Extract to disk:"

View File

@ -1 +1 @@
#define Xorriso_timestamP "2013.01.06.100954"
#define Xorriso_timestamP "2013.01.06.102339"