diff options
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 57f54acf8..8096f2b75 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -883,7 +883,12 @@ sub shrink_topwindow { sub exit { gtkset_mousecursor_normal(); #- for restoring a normal in any case flush(); - c::_exit($_[1]); #- workaround + if ($::isStandalone) { + require standalone; + standalone::__exit($_[1]); #- workaround + } else { + c::_exit($_[1]); #- workaround + } } #- in case "exit" above was not called by the program |