1 files changed, 0 insertions, 50 deletions
diff --git a/src/ivymon0 b/src/ivymon0
deleted file mode 100755
index 08bd7d4..0000000
--- a/src/ivymon0
+++ /dev/null
@@ -1,50 +0,0 @@
-#!/usr/bin/perl
-
-use Tk;
-
-# geometrie
-my ($width, $height) = (1024, 768); 
-# couleurs
-my $frame1color = 'yellow';
-my $frame1Xcolor = 'red';
-my $frame1XXcolor = 'orange';
-
-my $mw = MainWindow->new;
-$mw->geometry($width.'x'.$height);
-$mw->title('IvyMon');
-
-my $frame1 =
-    $mw->Frame(-background => $frame1color)->pack(-fill => 'both', -expand => 1);
-
-my $frame11 =
-    $frame1->Frame(-background => $frame1Xcolor)->pack(-fill => 'both', -expand => 1,
-						      -padx => 5, -pady => 5);
-
-my $frame111clients =
-    $frame11->Frame(-background => $frame1XXcolor,
-		    -width => 150)->pack(-fill => 'both',
-					 -padx => 10,
-					 -pady => 10,
-					 -side => 'left',
-					 -expand => 0);
-my $frame112messages =
-    $frame11->Frame(-background => $frame1XXcolor,
-		    -relief => 'sunken',
-		    -bd => 5)->pack(-fill => 'both',
-							 -padx => 10,
-							 -pady => 10,
-							 -side => 'right',
-							 -expand => 1);
-
-my $frame12bindings =
-    $frame1->Frame(-background => $frame1Xcolor,
-  		   -height => 100)->pack(-fill => 'both',
- 					 -padx => 5,
-  					 -pady => 5,
-					 -side => 'bottom',
-  					 -expand => 0);
-
-$frame112messages->Text(-state => 'disabled')->pack(-fill => 'both',
-						    -expand => 1);
-
-MainLoop;