diff options
author | mertz | 2002-10-29 08:20:13 +0000 |
---|---|---|
committer | mertz | 2002-10-29 08:20:13 +0000 |
commit | 5378737fce5816d4fca08990777a88d9536715b1 (patch) | |
tree | 23423fde28e992c7c74f57bedf1682727f59b2f8 /test | |
parent | 2e463fdab0ad1665bb9f2af4c6fec9b6937de11f (diff) | |
download | ivy-perl-5378737fce5816d4fca08990777a88d9536715b1.zip ivy-perl-5378737fce5816d4fca08990777a88d9536715b1.tar.gz ivy-perl-5378737fce5816d4fca08990777a88d9536715b1.tar.bz2 ivy-perl-5378737fce5816d4fca08990777a88d9536715b1.tar.xz |
mise en évidence d'un bug lié à start/stop (concerne la version 4.12)
Diffstat (limited to 'test')
-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; + + |