[brlcad-commits] SF.net SVN: brlcad:[41142] brlcad/trunk/src/tclscripts/lib/Ged.tcl
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: <bo...@us...> - 2010-10-26 20:05:12
|
Revision: 41142 http://brlcad.svn.sourceforge.net/brlcad/?rev=41142&view=rev Author: bob1961 Date: 2010-10-26 19:22:03 +0000 (Tue, 26 Oct 2010) Log Message: ----------- Modified Ged::begin_data_arrow and Ged::begin_data_line to validate dindex before using. Modified Paths: -------------- brlcad/trunk/src/tclscripts/lib/Ged.tcl Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl =================================================================== --- brlcad/trunk/src/tclscripts/lib/Ged.tcl 2010-10-26 19:14:16 UTC (rev 41141) +++ brlcad/trunk/src/tclscripts/lib/Ged.tcl 2010-10-26 19:22:03 UTC (rev 41142) @@ -2625,6 +2625,10 @@ set dindex [llength $points] incr dindex -1 + if {$dindex < 0} { + return + } + # start receiving motion events bind $itk_component($_pane) <Motion> "[::itcl::code $this handle_data_move $_pane data_arrows $dindex %x %y]; break" } @@ -2646,6 +2650,10 @@ set dindex [llength $points] incr dindex -1 + if {$dindex < 0} { + return + } + # start receiving motion events bind $itk_component($_pane) <Motion> "[::itcl::code $this handle_data_move $_pane data_lines $dindex %x %y]; break" } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |