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} );
|
