in reply to Tk::Stderr flush
sub OnWithdraw{ my $window = shift; my $text = $window->Subwidget('text'); $text->delete('0.0', 'end'); $window->withdraw; return; } #~ $mw->protocol(WM_DELETE_WINDOW => [ $mw => 'withdraw' ]); $mw->protocol(WM_DELETE_WINDOW => [ $mw => 'OnWithdraw' ]);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Tk::Stderr flush
by honyok (Sexton) on Sep 17, 2012 at 20:24 UTC |