Bug#360767: tinyca: fails to stop due to wrong args to Gtk2->main_quit()

[Peter Marschall]

Package: tinyca
Version: 0.7.2-1
Severity: important
Tags: patch

Hi,

tinyca2 does not stop in current Debian testing.
The reason for this is that Gtk2->main_quit() is called
with arguments and therefore ignored.

The attached patch fixes the issue.

Please note that I do not know whether exit_clean() is only called
on program exit or not.
Therefore I left the call to 'exit($ret)', which sets the error
code, commented.

Thanks for writing and packaging TinyCA2
Peter


-- System Information:
Debian Release: testing/unstable
  APT prefers testing
  APT policy: (990, 'testing'), (500, 'unstable'), (500, 'stable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.15-1-k7
Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8)

Versions of packages tinyca depends on:
ii  libgtk2-perl                  1:1.104-1  Perl interface to the 2.x series o
ii  liblocale-gettext-perl        1.05-1     Using libc functions for internati
ii  openssl                       0.9.8a-7   Secure Socket Layer (SSL) binary a

Versions of packages tinyca recommends:
ii  zip                           2.31-3     Archiver for .zip files

-- no debconf information

--- lib/HELPERS.pm
+++ lib/HELPERS.pm      2006-04-03 11:36:50.000000000 +0200
@@ -91,7 +91,9 @@
 
    $rootwin->set_cursor($cursor);
    
-   Gtk2->main_quit($ret);
+   Gtk2->main_quit();
+
+   #exit($ret);
 }
 
 #
--- lib/GUI.pm
+++ lib/GUI.pm  2006-04-03 11:34:30.000000000 +0200
@@ -112,7 +112,7 @@
    $self->{'mw'}->set_resizable(1);
    $self->{'mw'}->set_default_size(850, 600);
    $self->{'mw'}->signal_connect( 'delete_event', 
-         sub { HELPERS::exit_clean() });
+         sub { HELPERS::exit_clean(0) });
 
    $self->{'busycursor'} = Gtk2::Gdk::Cursor->new('watch');
    $self->{'cursor'}     = Gtk2::Gdk::Cursor->new('left-ptr');