perl-ldap-checkins

[Clif H. <ch...@us...>]

Update of /cvsroot/perl-ldap/ldap/contrib
In directory sc8-pr-cvs1:/tmp/cvs-serv15440/ldap/contrib

Modified Files:
	tklkup 
Log Message:

Moved position of process message window.
Added main window height and width options.
Added busy indicator.



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- tklkup	24 Jan 2003 13:11:21 -0000	1.36
+++ tklkup	25 Jan 2003 03:38:24 -0000	1.37
@@ -28,7 +28,6 @@
 use Data::Dumper;
 use MIME::Base64;
 use Net::LDAP qw(:all);
-use Net::LDAPS qw(:all);
 use Net::LDAP::Filter;
 use Net::LDAP::Util qw(ldap_error_name ldap_error_text);
 use Net::LDAP::Constant;
@@ -97,6 +96,8 @@
 $Global{'infoFilter'} = "equal";
 $Global{'nismapname'} = 0;
 $Global{'records'} = 0;
+$Global{'mwwidth'} = 00;
+$Global{'mwheight'} = 40;
 
 my $sbbframe;
 my @base       = ();
@@ -176,7 +177,6 @@
 #
 
 $Global{'mainWindow'} = MainWindow->new;
-$Global{'mainWindow'}->geometry("520x320+$Global{'horz'}+$Global{'vert'}");
 $splash = $Global{'mainWindow'}->Splashscreen(-milliseconds => 0) 
         if ( $Global{splash} );
 $splframe = $splash->LabFrame(-label => "DIRECTORY SEARCH SPLASH SCREEN",
@@ -286,6 +286,14 @@
                      $Global{'nismapname'} = 1;
                      last TYPE; };
 
+    /^mwwidth/i && do {
+                     $Global{'mwwidth'} = $data[1];
+                     last TYPE; };
+
+    /^mwheight/i && do {
+                     $Global{'mwheight'} = $data[1];
+                     last TYPE; };
+
                      my $error =  "Parsing configuration file found an undefined type:  $_";
                      ERROR(\$error);
 
@@ -310,6 +318,9 @@
 
 }
 
+$Global{'mainWindow'}->geometry("$Global{'mwheight'}x$Global{'mwwidth'}+$Global{'horz'}+$Global{'vert'}");
+#$Global{'mainWindow'}->geometry("+$Global{'horz'}+$Global{'vert'}");
+
 $splashList->insert("0", "Determining search bases.") 
         if ( $Global{splash} );
 $splash->update() 
@@ -336,6 +347,17 @@
 
 if ( $Global{port} == 636 )
 {
+
+eval 
+{
+  require Net::LDAPS;
+};
+if ($@)
+{
+$msgbox->insert("0.0", $@) if ($@);
+return;
+}
+
 $Global{ldap} = new Net::LDAPS( $Global{'LDAP_SERVER'},
                           timeout => 1,
                           port => $Global{'port'},
@@ -612,6 +634,10 @@
 $attframe = $Global{'mainWindow'}->Frame()
       ->pack( -fill => "both", -side => "bottom");
 
+$msgframe = $attframe->LabFrame(-label => "Process Messages",
+      -labelside => "acrosstop" )
+      ->pack( -fill => "both", -side => "top", -padx => 1, -pady => 1 );
+
 #
 # Create Bottom Attribute frame.
 # This is where the user will enter data to be
@@ -779,14 +805,10 @@
 
 } # End of foreach (@attribute)
 
-$msgframe = $attframe->LabFrame(-label => "Process Messages",
-      -labelside => "acrosstop" )
-      ->pack( -fill => "both", -side => "right", -padx => 1, -pady => 1 );
-
 $msgbox = $msgframe ->Scrolled('Listbox', -scrollbars => 's',
         -width => 50, -height => 2 );
 
-$msgbox->pack( -side => "bottom" );
+$msgbox->pack( -side => "left" );
 
 $splash->Destroy() if ( $Global{splash} );
 
@@ -843,6 +865,7 @@
 $Global{'slist'}->insert(0 , $Global{'LDAP_SERVER'});
 $sslist->insert(0 , $Global{'LDAP_SERVER'}) if ( Exists($sslist) ) ;
 
+$Global{mainWindow} -> Busy(-recurse => 1);  # window is busy
 $Global{mainWindow} -> update;  # Allow Tk to update
 
 $ptr = 1;
@@ -1000,6 +1023,7 @@
 
 $Global{'CORE_SERVER'} = $Global{'LDAP_SERVER'};
 
+$Global{mainWindow} -> Unbusy;  # window is not busy
 } # End of server subroutine
 
 
@@ -1376,6 +1400,7 @@
 my $tframe;
 my $sbframe;
 #my $sslist;
+$Global{mainWindow} -> Busy(-recurse => 1);  # window is busy
 &globalPos();
 my $x = $Global{'horz'} + 100;
 my $y = $Global{'vert'} + 100;
@@ -1899,6 +1924,7 @@
 
 } # End of schema subroutine
 
+$Global{mainWindow} -> Unbusy;  # window is not busy
 } # End of SCHEMA subroutine
 
 sub init_schemaHash
@@ -3830,6 +3856,7 @@
   'd' => 0
 );
 
+$Global{mainWindow} -> Busy(-recurse => 1);  # window is busy
 #
 # Destroy the dn history list if it exists.
 #
@@ -4089,6 +4116,7 @@
 ${$Global{'searchResults'}}{$dn} = $data;
 }
 
+$Global{mainWindow} -> Unbusy;  # window is not busy
 } # End of search subroutine
 
 #
@@ -4485,6 +4513,12 @@
 
 There are 5 commands that can be used with this file;
 hand, attribute, server, limit, and port.
+
+mwwidth -> numeric value:  Default 400 main window width in
+                           pixels, user may need to adjust this.
+
+mwheight -> numeric value: Default is 540 main window height in
+                           pixels, user may need to adjust this.
 
  hand -> values: left or right.  Defines where the 
                  attribute label box will be place.