[perl-ldap-checkins] CVS: ldap/contrib tklkup,1.40,1.41

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

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

Modified Files:
	tklkup 
Log Message:

Corrected default numbers for gui height and width.
Corrected error in gui height and width geometry initialization.



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- tklkup	25 Jan 2003 05:17:24 -0000	1.40
+++ tklkup	27 Jan 2003 17:46:21 -0000	1.41
@@ -96,8 +96,8 @@
 $Global{'infoFilter'} = "equal";
 $Global{'nismapname'} = 0;
 $Global{'records'} = 0;
-$Global{'mwwidth'} = 400;
-$Global{'mwheight'} = 540;
+$Global{'mwwidth'} = 600;
+$Global{'mwheight'} = 430;
 
 my $sbbframe;
 my @base       = ();
@@ -318,7 +318,7 @@
 
 }
 
-$Global{'mainWindow'}->geometry("$Global{'mwheight'}x$Global{'mwwidth'}+$Global{'horz'}+$Global{'vert'}");
+$Global{'mainWindow'}->geometry("$Global{'mwwidth'}x$Global{'mwheight'}+$Global{'horz'}+$Global{'vert'}");
 
 $splashList->insert("0", "Determining search bases.") 
         if ( $Global{splash} );
@@ -4508,10 +4508,10 @@
 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
+mwwidth -> numeric value:  Default 600 main window width in
                            pixels, user may need to adjust this.
 
-mwheight -> numeric value: Default is 540 main window height in
+mwheight -> numeric value: Default is 430 main window height in
                            pixels, user may need to adjust this.
 
  hand -> values: left or right.  Defines where the