Disabled "Extract to disk" button if extraction is banned

master
Thomas Schmitt 10 years ago
parent a3cbe88544
commit 6eaad04b54
  1. 8
      frontend/xorriso-tcltk
  2. 2
      xorriso/xorriso_timestamp.h

@ -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:"

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

Loading…
Cancel
Save