Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Corrected default numbers for gui height and width.

Corrected error in gui height and width geometry initialization.
  • Loading branch information...
commit 813e3ca6172c0f42cf3af24bc90462011ea4e98a 1 parent e0d2cb9
Clif Harden authored
Showing with 6 additions and 6 deletions.
  1. +6 −6 contrib/tklkup
View
12 contrib/tklkup
@@ -11,7 +11,7 @@
# module and the PERL TK module.
# Both modules are available from the CPAN.org system.
#
-# $Id: tklkup,v 1.40 2003/01/25 05:17:24 charden Exp $
+# $Id: tklkup,v 1.41 2003/01/27 17:46:21 charden Exp $
#
# Purpose: This program is designed to retrieve data from a LDAP
# directory and display on the graphical user interface
@@ -96,8 +96,8 @@ $Global{'max'} = 0;
$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{'hand'} = $opt_r ? 'right' : 'left';
}
-$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 @@ To be used this file must have user read permission.
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
Please sign in to comment.
Something went wrong with that request. Please try again.