Revision: 34086
http://brlcad.svn.sourceforge.net/brlcad/?rev=34086&view=rev
Author: bob1961
Date: 2009-03-26 18:41:30 +0000 (Thu, 26 Mar 2009)
Log Message:
-----------
Hack to get around the occassional complaining from the panedwindow about
identify being a bad option.
Modified Paths:
--------------
brlcad/trunk/src/other/tk/library/panedwindow.tcl
Modified: brlcad/trunk/src/other/tk/library/panedwindow.tcl
===================================================================
--- brlcad/trunk/src/other/tk/library/panedwindow.tcl 2009-03-26 18:19:27 UTC
(rev 34085)
+++ brlcad/trunk/src/other/tk/library/panedwindow.tcl 2009-03-26 18:41:30 UTC
(rev 34086)
@@ -39,7 +39,12 @@
if {[$w cget -opaqueresize]} {
set proxy 0
}
- set what [$w identify $x $y]
+
+ #set what [$w identify $x $y]
+ if {[catch {$w identify $x $y} what]} {
+ return
+ }
+
if { [llength $what] == 2 } {
lassign $what index which
if {!$::tk_strictMotif || $which eq "handle"} {
@@ -123,7 +128,12 @@
#
proc ::tk::panedwindow::Motion {w x y} {
variable ::tk::Priv
- set id [$w identify $x $y]
+
+# set id [$w identify $x $y]
+ if {[catch {$w identify $x $y} id]} {
+ return
+ }
+
if {([llength $id] == 2) && \
(!$::tk_strictMotif || [lindex $id 1] eq "handle")} {
if {![info exists Priv($w,panecursor)]} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
