#!/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;