diff options
| -rw-r--r-- | test/start-bug.pl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/test/start-bug.pl b/test/start-bug.pl new file mode 100644 index 0000000..e0438b1 --- /dev/null +++ b/test/start-bug.pl @@ -0,0 +1,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; + + |