disable tab dragging as its broken at the moment

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>

diff --git a/bin/tab.tcl b/bin/tab.tcl
index 9d838fc7d5538827698662752f71ab6679f3ada3..ec9a8d963f2ff23c1f4e4081b445924fad6b583c 100644 (file)
--- a/bin/tab.tcl
+++ b/bin/tab.tcl
@@ -106,12 +106,13 @@ proc ::ButtonNotebook::Press {w x y} {
     } else {
         upvar #0 [namespace current]::$w state
         if {![info exists state]} {
-            set state(drag) 1
-            set state(drag_index) [$w index @$x,$y]
-            set state(drag_under)  $state(drag_index)
-            set state(drag_from_x) $x
-            set state(draw_from_y) $y
-            set state(drag_indic) [ttk::label $w._indic -text v]
+            # FIX ME: dragging tabs isnt working so well at the moment
+            #set state(drag) 1
+            #set state(drag_index) [$w index @$x,$y]
+            #set state(drag_under)  $state(drag_index)
+            #set state(drag_from_x) $x
+            #set state(draw_from_y) $y
+            #set state(drag_indic) [ttk::label $w._indic -text v]
         }
     }
 }