Disabled "Extract to disk" button if extraction is banned
This commit is contained in:
parent
b265ed9e7f
commit
293fb55909
@ -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…
Reference in New Issue
Block a user