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
|