Corrected the "measure" (Tcl scripted) command to fix an error

when internal units no longer match lambda units.  The text
would match the dimension of the cursor box, but the measurement
lines would be drawn assuming a lambda scale, not the internal
scale.

VERSION

@@ -1 +1 @@
-8.3.367
+8.3.368

tcltk/tools.tcl

@@ -355,6 +355,9 @@ proc magic::ruler {{text {}} {orient auto}} {
    set mmx [expr {($llx + $urx) / 2}]
    set mmy [expr {($lly + $ury) / 2}]
 
+   set snapsave [snap]
+   snap internal
+
    if {$orient == "horizontal"} {
       element add line l1_$Opts(rulers) black $llx $lly $llx $ury
       element add line l4_$Opts(rulers) black $urx $lly $urx $ury
@@ -407,6 +410,7 @@ proc magic::ruler {{text {}} {orient auto}} {
 	  element configure l3_$Opts(rulers) flags arrowbottom
       }
    }
+   snap $snapsave
 }
 
 #---------------------------------------------------------------------