Bug #90045 for Tk-TOTD: I think I found another bug.

This seems to be a problem in Tk::DialogBox, which Tk::TOTD uses on the back-end. I think the root problem is, again, that Tk::DialogBox uses waitVariable to determine when to close the dialog window, so when the dialog is open and you close the MainWindow behind its back, the variable it's waiting on is never updated, so the program doesn't exit. You might try opening a bug report for Tk::DialogBox to fix this underlying problem. In the meantime, I've just uploaded a new version of Tk::TOTD to CPAN (v0.4) which allows for a workaround to this bug: I added a destroy() method which cleans up the DialogBox, and you can call this from a WM_DELETE_WINDOW protocol handler on your MainWindow. $mw->protocol('WM_DELETE_WINDOW', sub { $totd->destroy(); exit(0); }); https://github.com/kirsle/Tk-TOTD/commit/2bed26c7a0f33182c0c2ad0953ccee2111e6445b#diff-02b972ee2fbb60cc946879be5a52b302R296

Thank you for your response. Unfortunately, the problem seems to persist. When I close the main window with the x button, the program acts the same way as before. However, when I close the TOTD box then the main window, I get something like this: wm (4): 0 0x12e4e840 PVMG f=00040807 {}(2)(1) SV = PVMG(0x131cb7e0) at 0x12e4e840 REFCNT = 1 FLAGS = (PADMY,ROK) IV = 0 NV = 0 RV = 0x131235c8 SV = PVHV(0x131d5350) at 0x131235c8 REFCNT = 2 FLAGS = (OBJECT,SHAREKEYS) STASH = 0x13069da0 "MainWindow" ARRAY = 0x1331b5d0 (0:7, 1:1) hash quality = 100.0% KEYS = 1 FILL = 1 MAX = 7 RITER = -1 EITER = 0x0 Elt "_TkValue_" HASH = 0xf8f586ad SV = PV(0x132e9320) at 0x13122bc0 REFCNT = 1 FLAGS = (POK,pPOK) PV = 0x132e5b40 "."\0 CUR = 1 LEN = 16 PV = 0x131235c8 "" CUR = 0 LEN = 0 1 0x13135ac0 PV f=20004404 protocol(1) SV = PV(0x13101630) at 0x13135ac0 REFCNT = 1 FLAGS = (POK,pPOK,UTF8) PV = 0x1312ca70 "protocol"\0 [UTF8 "protocol"] CUR = 8 LEN = 16 2 0x13026840 PV f=08004404 WM_DELETE_WINDOW(1) SV = PV(0x12e2e2d0) at 0x13026840 REFCNT = 1 FLAGS = (POK,READONLY,pPOK) PV = 0x132ef270 "WM_DELETE_WINDOW"\0 CUR = 16 LEN = 24 3 0x1334c660 NV f=00000802 \&main::__ANON__(2)(1) SV = IV(0x1334c650) at 0x1334c660 REFCNT = 1 FLAGS = (ROK) RV = 0x13327478 SV = PVCV(0x132bdd60) at 0x13327478 REFCNT = 2 FLAGS = (ANON,CLONED,CVGV_RC) COMP_STASH = 0x12e2fc50 "main" START = 0x12f368e0 ===> 1 ROOT = 0x131cd0e0 GVGV::GV = 0x132f0088 "main" :: "__ANON__" FILE = "./dialog_test.pl" DEPTH = 0 FLAGS = 0x4c0 OUTSIDE_SEQ = 3683 PADLIST = 0x1333d0d0 PADNAME = 0x13357990(0x133887b0) PAD = 0x13357ac8(0x1335a010) 1. 0x12e4e8d0<2> FAKE "$dialog" flags=0x0 index=3 OUTSIDE = 0x12e2ffc8 (MAIN) SV = PVCV(0x12e3ebd0) at 0x12e2ffc8 REFCNT = 2 FLAGS = (UNIQUE) COMP_STASH = 0x0 ROOT = 0x0 GVGV::GV = 0x0 FILE = "(null)" DEPTH = 1 FLAGS = 0x100 OUTSIDE_SEQ = 0 PADLIST = 0x12e2ffe0 PADNAME = 0x12e2fff8(0x131cd1c0) PAD = 0x12e30010(0x131c91e0) 1. 0x12e4e840<1> (3681,3684) "$mw" 3. 0x12e4e8d0<2> (3682,3684) "$dialog" 7. 0x13017c38<1> (0,0) "&" OUTSIDE = 0x0 (null) Usage $widget->wm(...) at /home/perl_5_16_0_64/lib/site_perl/5.16.0/x86_64-linux/Tk/Submethods.pm line 37. The code I am using to replicate this behavior is: #!/usr/bin/env perl use Tk; use strict; use warnings; use Tk::TOTD; my $mw = MainWindow->new; my $totd = $mw->TOTD(); $totd->Show; MainLoop; $mw->protocol('WM_DELETE_WINDOW', sub { $totd->destroy(); exit(0); }); Daniel Richards Intern ON Semiconductor Corp R&D Integration Email: daniel.richards@onsemi.com Work: 208-233-4690 x6316 Show quoted text