Permalink
Browse files

Bug fix with dismissing the TOTD dialog box

  • Loading branch information...
1 parent 0e152a3 commit 8fa6e2131beb9bfba0cdf915d0af6b10134e5181 Noah Petherbridge committed Nov 1, 2013
Showing with 14 additions and 6 deletions.
  1. +5 −1 Changes
  2. +1 −1 Makefile.PL
  3. +8 −4 lib/Tk/TOTD.pm
View
@@ -1,7 +1,11 @@
Revision history for Perl extension Tk::TOTD.
+0.3 Fri Nov 1 13:57:00 2013
+ - Fix a bug where the "Close" button on the dialog wouldn't dismiss the
+ dialog properly, and the program would never exit gracefully again.
+
0.2 Mon Jan 16 21:00:00 2005
- - Module now behaves as a DialogBox
+ - Module now behaves as a DialogBox
0.1 Sun Oct 16 15:55:51 2005
- original version; created by h2xs 1.23 with options
View
@@ -8,5 +8,5 @@ WriteMakefile(
PREREQ_PM => {}, # e.g., Module::Name => 1.1
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => 'lib/Tk/TOTD.pm', # retrieve abstract from module
- AUTHOR => 'Cerone Kirsle <kirsle@aichaos.com>') : ()),
+ AUTHOR => 'Noah Petherbridge <kirsle@cpan.org>') : ()),
);
View
@@ -223,7 +223,7 @@ sub Show {
-size => $self->{fonts}->{main}->{size},
],
-command => sub {
- $self->destroy;
+ $self->{'selected_button'} = 'Close';
},
)->pack (-side => 'right', -padx => 10);
@@ -408,7 +408,11 @@ Reconfigure previously set options.
=head1 CHANGES
- Version 0.2
+ Version 0.3 - Nov 1 2013
+ - Fix a bug where using the "Close" button on the dialog wouldn't dismiss the
+ dialog properly, and the program would never exit gracefully again.
+
+ Version 0.2 - Jan 16 2005
- The widget now behaves as a DialogBox as it should, blocking the main window
until closed.
@@ -418,10 +422,10 @@ None known yet.
=head1 AUTHOR
-B<Cerone Kirsle> kirsle "@" aichaos.com
+Noah Petherbridge, http://www.kirsle.net/
This code is distributed under the same terms as Perl.
=cut
-1;
+1;

0 comments on commit 8fa6e21

Please sign in to comment.