From 5378737fce5816d4fca08990777a88d9536715b1 Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 29 Oct 2002 08:20:13 +0000
Subject: mise en évidence d'un bug lié à start/stop (concerne la version 4.12)

---
 test/start-bug.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 test/start-bug.pl

(limited to 'test/start-bug.pl')

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;
+
+
-- 
cgit v1.1