test/Ivy::exit2-bug.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

#!/usr/bin/perl -w

#use lib '/home/mertz/CODE/lib/ivy-perl';
#BEGIN { print "INC = @INC\n";}
use strict;

use Tk;
use Ivy;
print "Ivy::exit2-bug.pl INC = @INC\n";
Ivy->init('-loopMode' => 'TK', '-appName' => 'toto');
my $ivy = Ivy->new();
$SIG{HUP} = $SIG{TERM} = $SIG{QUIT} = $SIG{INT} = $SIG{STOP} = $SIG{KILL} = 'quit2';

my $mw = MainWindow->new;
my $b = $mw->Button(-text => 'Un bouton', -command => \&quit)->pack();
$ivy->start;
MainLoop;

sub quit {
  #$b->destroy;
  #$mw->destroy;
  print "Avant Ivy::exit\n";
  $ivy->exit();   # fait un segmentation fault si Ctrl+C et qu'il est seul sur le bus!
  print "Apres Ivy::exit\n";
}

sub quit2 { # fait un segmentation fault si Ctrl+C et qu'il est seul sur le bus!
    exit ();
}


sub quit3 {
  Ivy::exit();   # fait un segmentation fault si Ctrl+C
}

1;