From 8f8c3f77f2d364a74f7649b541ca5297f29bffa8 Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Thu, 1 Apr 2021 12:31:46 -0400
Subject: [PATCH] Got rid of the annoying behavior of "popstack" to not return
 to the original view position;  this was due to not setting units to internal
 before re-applying the previous view position.  Also wrapped most of the
 "popstack" routine into a suspendall...resumeall block so that the view is
 refreshed only once;  this is especially important when popping back into a
 full chip view.

---
 VERSION         | 2 +-
 tcltk/tools.tcl | 9 +++++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/VERSION b/VERSION
index 6bd04953..dd2f76b4 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.150
+8.3.151
diff --git a/tcltk/tools.tcl b/tcltk/tools.tcl
index 538cfc01..878f7d37 100644
--- a/tcltk/tools.tcl
+++ b/tcltk/tools.tcl
@@ -156,12 +156,17 @@ proc magic::popstack {} {
    } else {
       set ltag [tag load]
       tag load {}
+      suspendall
       load [lindex $editstack end]
+      set snaptype [snap]
+      snap internal
       view [lindex $editstack end-1]
-      tag load $ltag
-      set editstack [lrange $editstack 0 end-2]
+      snap $snaptype
       catch {magic::cellmanager}
       catch {magic::captions}
+      resumeall
+      tag load $ltag
+      set editstack [lrange $editstack 0 end-2]
    }
    return
 }