Revision: 54913
http://brlcad.svn.sourceforge.net/brlcad/?rev=54913&view=rev
Author: bob1961
Date: 2013-03-27 14:15:05 +0000 (Wed, 27 Mar 2013)
Log Message:
-----------
Apply previous fixes to ::tk::panedwindow::Motion and
::tk::panedwindow::MarkSash.
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 2013-03-27 13:41:19 UTC
(rev 54912)
+++ brlcad/trunk/src/other/tk/library/panedwindow.tcl 2013-03-27 14:15:05 UTC
(rev 54913)
@@ -36,7 +36,9 @@
if {[$w cget -opaqueresize]} {
set proxy 0
}
- 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"} {
@@ -120,7 +122,9 @@
#
proc ::tk::panedwindow::Motion {w x y} {
variable ::tk::Priv
- 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.
------------------------------------------------------------------------------
Own the Future-Intel® Level Up Game Demo Contest 2013
Rise to greatness in Intel's independent game demo contest.
Compete for recognition, cash, and the chance to get your game
on Steam. $5K grand prize plus 10 genre and skill prizes.
Submit your demo by 6/6/13. http://p.sf.net/sfu/intel_levelupd2d
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
