From 6d463a20fedfd6a11fba067f8e90009bd53bebeb Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Fri, 6 Nov 2020 14:39:10 -0500
Subject: [PATCH] Corrected the "suspendall" and "resumeall" Tcl scripts so
 that they do not fail when using "magicexec -dnull" (because there are no
 layout windows, there is nothing to suspend and resume).

---
 VERSION         | 2 +-
 tcltk/tools.tcl | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/VERSION b/VERSION
index c56821cd..4fe55683 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.76
+8.3.77
diff --git a/tcltk/tools.tcl b/tcltk/tools.tcl
index 89cd8401..6addd626 100644
--- a/tcltk/tools.tcl
+++ b/tcltk/tools.tcl
@@ -15,6 +15,7 @@ proc magic::suspendall {} {
    global Winopts
    if {[info commands winfo] != ""} {
       foreach window [magic::windownames layout] {
+	 if {$window == 0} {continue}
          set framename [winfo toplevel $window]
          if {$framename == "."} {
 	    set framename $window
@@ -30,6 +31,7 @@ proc magic::resumeall {} {
    global Winopts
    if {[info commands winfo] != ""} {
       foreach window [magic::windownames layout] {
+	 if {$window == 0} {continue}
          set framename [winfo toplevel $window]
          if {$framename == "."} {
 	    set framename $window