luke/magic
1
0
Fork 0
mirror of https://github.com/RTimothyEdwards/magic.git synced 2026-10-06 09:53:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

Corrected the "suspendall" and "resumeall" Tcl scripts so that they

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files
VERSION
+1 -1
View File
@@ -1 +1 @@
8.3.76
8.3.77
tcltk/tools.tcl
+2
View File
@@ -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