[brlcad-commits] SF.net SVN: brlcad:[54108] brlcad/trunk/src/tclscripts/archer/ SketchEditFrame.tcl

[<bo...@us...>]

Revision: 54108
          http://brlcad.svn.sourceforge.net/brlcad/?rev=54108&view=rev
Author:   bob1961
Date:     2012-12-21 13:22:15 +0000 (Fri, 21 Dec 2012)
Log Message:
-----------
Move the cursor configure commands from SketchEditFrame::initEditState to their respective mode setting methods.

Modified Paths:
--------------
    brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl

Modified: brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl	2012-12-21 13:07:01 UTC (rev 54107)
+++ brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl	2012-12-21 13:22:15 UTC (rev 54108)
@@ -541,23 +541,18 @@
 
     switch -- $mEditMode \
 	$moveArbitrary {
-	    $itk_component(canvas) configure -cursor crosshair
 	    setup_move_arbitrary
 	} \
 	$createLine {
-	    $itk_component(canvas) configure -cursor crosshair
 	    create_line
 	} \
 	$createCircle {
-	    $itk_component(canvas) configure -cursor crosshair
 	    create_circle
 	} \
 	$createArc {
-	    $itk_component(canvas) configure -cursor crosshair
 	    create_arc
 	} \
 	$createBezier {
-	    $itk_component(canvas) configure -cursor crosshair
 	    create_bezier
 	}
 
@@ -1068,6 +1063,7 @@
 
 ::itcl::body SketchEditFrame::create_arc {} {
     set mEditMode $createArc
+    $itk_component(canvas) configure -cursor crosshair
 
     if {$mPrevEditMode == $createBezier} {
 	end_bezier $curr_seg 0
@@ -1089,6 +1085,7 @@
 
 ::itcl::body SketchEditFrame::create_bezier {} {
     set mEditMode $createBezier
+    $itk_component(canvas) configure -cursor crosshair
 
     if {$mPrevEditMode == $createBezier && !$mCallingFromEndBezier} {
 	end_bezier $curr_seg 0
@@ -1105,6 +1102,7 @@
 
 ::itcl::body SketchEditFrame::create_circle {} {
     set mEditMode $createCircle
+    $itk_component(canvas) configure -cursor crosshair
 
     if {$mPrevEditMode == $createBezier} {
 	end_bezier $curr_seg 0
@@ -1122,6 +1120,7 @@
 
 ::itcl::body SketchEditFrame::create_line {} {
     set mEditMode $createLine
+    $itk_component(canvas) configure -cursor crosshair
 
     if {$mPrevEditMode == $createBezier} {
 	end_bezier $curr_seg 0
@@ -1527,6 +1526,7 @@
 
 ::itcl::body SketchEditFrame::setup_move_arbitrary {} {
     set mEditMode $moveArbitrary
+    $itk_component(canvas) configure -cursor crosshair
 
     if {$mPrevEditMode == $createBezier} {
 	end_bezier $curr_seg 0

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.