blob: 0f7942d7147c909365e2f636ec3945fe5b2d14b0 (
plain)
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
|
#!/usr/bin/perl -w
#use lib '/home/mertz/CODE/lib/ivy-perl';
#BEGIN { print "INC = @INC\n";}
use strict;
use Tk;
use Ivy;
#print "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} = 'quit3';
my $mw = MainWindow->new;
my $b = $mw->Button(-text => 'Un bouton', -command => \&quit)->pack();
$ivy->start;
MainLoop;
sub quit {
#$b->destroy;
#$mw->destroy;
Ivy::exit(); # fait un segmentation fault si Ctrl+C et qu'il est seul sur le bus!
#print "Apres Ivy::stop\n";
#Tk::exit();
}
sub quit2 { # fait un segmentation fault si Ctrl+C et qu'il est seul sur le bus!
Ivy::stop ();
Tk::exit ();
}
sub quit3 {
Ivy::exit(); # fait un segmentation fault si Ctrl+C
}
1;
|
