luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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).
This commit is contained in:
Tim Edwards 2020-11-06 14:39:10 -05:00
parent 9931244e1e
commit 6d463a20fe
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
VERSION
View File

@ -1 +1 @@
8.3.76 8.3.77

2
tcltk/tools.tcl
View File

@ -15,6 +15,7 @@ proc magic::suspendall {} {
global Winopts global Winopts
if {[info commands winfo] != ""} { if {[info commands winfo] != ""} {
foreach window [magic::windownames layout] { foreach window [magic::windownames layout] {
if {$window == 0} {continue}
set framename [winfo toplevel $window] set framename [winfo toplevel $window]
if {$framename == "."} { if {$framename == "."} {
set framename $window set framename $window
@ -30,6 +31,7 @@ proc magic::resumeall {} {
global Winopts global Winopts
if {[info commands winfo] != ""} { if {[info commands winfo] != ""} {
foreach window [magic::windownames layout] { foreach window [magic::windownames layout] {
if {$window == 0} {continue}
set framename [winfo toplevel $window] set framename [winfo toplevel $window]
if {$framename == "."} { if {$framename == "."} {
set framename $window set framename $window