blob: e0438b153b3381f3fdef01980ce014b1f32b7df5 (
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
|
#!/usr/bin/perl
use Ivy;
use Tk;
use strict 'vars';
my $mw = MainWindow->new();
Ivy->init(-loopMode => 'TK',
-appName => 'testivy',
-ivyBus => ':2010',
);
my $ivy = Ivy->new();
$ivy->start;
$a = $ivy->[connSock];
print "$a La, on devrait voir s'afficher la fenetre...\n";
$ivy->start;
$ivy->stop;
print "Pourtant la methode start rend bien la main\n";
MainLoop;
|
