From d4790d2f31c09fa1ab388fa5988331b63cff1329 Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Mon, 20 Feb 2023 16:06:18 -0500
Subject: [PATCH] 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         | 2 +-
 tcltk/tools.tcl | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/VERSION b/VERSION
index 21d6308a..b0b40763 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.367
+8.3.368
diff --git a/tcltk/tools.tcl b/tcltk/tools.tcl
index 878f7d37..21e31338 100644
--- a/tcltk/tools.tcl
+++ b/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
 }
 
 #---------------------------------------------------------------------