Fixed problem activating hidden tabs.

diff --git a/bin/tab.tcl b/bin/tab.tcl
index a4c37aa940ec4349464f60599ef460c938dcc101..9d838fc7d5538827698662752f71ab6679f3ada3 100644 (file)
--- a/bin/tab.tcl
+++ b/bin/tab.tcl
@@ -122,7 +122,6 @@ proc ::ButtonNotebook::Drag {w x y rootX rootY} {
         if {[winfo containing $rootX $rootY] eq $w} {
             set index [$w index @$x,$y]
             if {$index != $state(drag_under)} {
-                puts "moved to $index"
                 place $state(drag_indic) -anchor nw -x $x -y 0
                 set state(drag_under) $index
             }
@@ -191,8 +190,10 @@ proc ::ButtonNotebook::Detach {notebook index} {
     event generate $tab <<DetachedTab>>
 }
 proc ::ButtonNotebook::Debug {notebook msg} {
-    $notebook.page0.text insert end $msg\n {}
-    $notebook.page0.text see end
+    if {[winfo exists $notebook.page0.text]} {
+        $notebook.page0.text insert end $msg\n {}
+        $notebook.page0.text see end
+    }
 }
 
 # Attach a toplevel to the notebook
@@ -248,4 +249,7 @@ proc ::ButtonNotebook::Test {} {
 }
 
 ::ButtonNotebook::Init 1
-if {[winfo class .] eq "Tab"} {::ButtonNotebook::Test; tkwait window .}
\ No newline at end of file
+
+# The following line causes the Test procedure to be run if this file
+# is run standalone.
+if {[winfo class .] eq "Tab"} {::ButtonNotebook::Test; tkwait window .}