Revision: 54160
http://brlcad.svn.sourceforge.net/brlcad/?rev=54160&view=rev
Author: bob1961
Date: 2013-01-11 18:07:55 +0000 (Fri, 11 Jan 2013)
Log Message:
-----------
Tweak the ruler placement a bit.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl 2013-01-11
17:22:40 UTC (rev 54159)
+++ brlcad/trunk/src/tclscripts/archer/SketchEditFrame.tcl 2013-01-11
18:07:55 UTC (rev 54160)
@@ -1149,9 +1149,9 @@
set end_y [expr {[lindex $snap_2 1] * $myscale}]
set ruler_x [$itk_component(canvas) canvasx 10]
- set ruler_y [$itk_component(canvas) canvasy 20]
- set ruler_start_x [$itk_component(canvas) canvasx 30]
- set ruler_start_y [$itk_component(canvas) canvasy 30]
+ set ruler_y [$itk_component(canvas) canvasy 15]
+ set ruler_start_x [$itk_component(canvas) canvasx 50]
+ set ruler_start_y [$itk_component(canvas) canvasy 50]
if {$_final} {
# Draw the rows
@@ -1165,7 +1165,7 @@
}
if {$y > $ruler_start_y} {
- set t [format "%g" [expr {$y / $myscale}]]
+ set t [format "%.3f" [expr {$y / $myscale}]]
$itk_component(canvas) create text $ruler_x $y -text $t -anchor
sw -fill black -tags "grid ruler"
}
}
@@ -1181,7 +1181,7 @@
}
if {$x > $ruler_start_x} {
- set t [format "%g" [expr {$x / $myscale}]]
+ set t [format "%.3f" [expr {$x / $myscale}]]
$itk_component(canvas) create text $x $ruler_y -text $t -anchor
center -fill black -tags "grid ruler"
}
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Master HTML5, CSS3, ASP.NET, MVC, AJAX, Knockout.js, Web API and
much more. Get web development skills now with LearnDevNow -
350+ hours of step-by-step video tutorials by Microsoft MVPs and experts.
SALE $99.99 this month only -- learn more at:
http://p.sf.net/sfu/learnmore_122812
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
