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 } #---------------------------------------------------------------------