From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Wed, 20 May 2009 21:08:28 +0000 (+0100)
Subject: disable tab dragging as its broken at the moment
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=6ca1602d6a177b20f692feb591a5d2f9c3798194;p=Bullfrog

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 9d838fc..ec9a8d9 100644
--- 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]
         }
     }
 }