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.
------------------------------------------------------------------------------
LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
Remotely access PCs and mobile devices and provide instant support
Improve your efficiency, and focus on delivering more value-add services
Discover what IT Professionals Know. Rescue delivers
http://p.sf.net/sfu/logmein_12329d2d
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
