Initial revision

1 files changed, 50 insertions, 0 deletions

diff --git a/src/ivymon0 b/src/ivymon0
new file mode 100755
index 0000000..08bd7d4
--- /dev/null
+++ b/src/ivymon0
@@ -0,0 +1,50 @@
+#!/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;