[perl-ldap-checkins] CVS: ldap/contrib tklkup,1.37,1.38

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

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

Modified Files:
	tklkup 
Log Message:

Replaced width and height test values with correct values.



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- tklkup	25 Jan 2003 03:38:24 -0000	1.37
+++ tklkup	25 Jan 2003 03:45:49 -0000	1.38
@@ -96,8 +96,8 @@
 $Global{'infoFilter'} = "equal";
 $Global{'nismapname'} = 0;
 $Global{'records'} = 0;
-$Global{'mwwidth'} = 00;
-$Global{'mwheight'} = 40;
+$Global{'mwwidth'} = 400;
+$Global{'mwheight'} = 540;
 
 my $sbbframe;
 my @base       = ();
@@ -319,7 +319,6 @@
 }
 
 $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} );