From 282792f57f00cf8492aeddbc14a6effa3c7de077 Mon Sep 17 00:00:00 2001
From: etienne
Date: Wed, 27 Dec 2000 13:28:41 +0000
Subject: *** empty log message ***

---
 src/ivymon0 | 50 --------------------------------------------------
 1 file changed, 50 deletions(-)
 delete mode 100755 src/ivymon0

(limited to 'src/ivymon0')

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