From 6eaad04b54cb54e01acb756514f95fff6ce1a4a0 Mon Sep 17 00:00:00 2001
From: Thomas Schmitt <scdbackup@gmx.net>
Date: Sun, 6 Jan 2013 10:24:27 +0000
Subject: [PATCH] Disabled "Extract to disk" button if extraction is banned

---
 frontend/xorriso-tcltk      | 8 ++++++++
 xorriso/xorriso_timestamp.h | 2 +-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/frontend/xorriso-tcltk b/frontend/xorriso-tcltk
index 6ef86186..c5f432ae 100755
--- a/frontend/xorriso-tcltk
+++ b/frontend/xorriso-tcltk
@@ -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:"
diff --git a/xorriso/xorriso_timestamp.h b/xorriso/xorriso_timestamp.h
index 4dad892f..a0483eef 100644
--- a/xorriso/xorriso_timestamp.h
+++ b/xorriso/xorriso_timestamp.h
@@ -1 +1 @@
-#define Xorriso_timestamP "2013.01.06.100954"
+#define Xorriso_timestamP "2013.01.06.102339"