From: Clif H. <ch...@us...> - 2003-02-14 05:21:04
|
Update of /cvsroot/perl-ldap/ldap/contrib In directory sc8-pr-cvs1:/tmp/cvs-serv12068/ldap/contrib Modified Files: tklkup Log Message: Returned to the DISPLAY button to its original position at the top of the ldap action buttons. Made the DELETE button text turn red when the button has focus, let's the user know pressing this button is dangerous. Made the x character the hot key for the EXIT PROGRAM menu. Index: tklkup =================================================================== RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v retrieving revision 2.21 retrieving revision 2.22 diff -u -d -r2.21 -r2.22 --- tklkup 14 Feb 2003 04:46:52 -0000 2.21 +++ tklkup 14 Feb 2003 05:20:59 -0000 2.22 @@ -191,13 +191,13 @@ $Global{'mainWindow'}->configure(-menu => $Global{'menubar'} = $Global{'mainWindow'}->Menu); -$Global{'menubar'}->cascade(-label => "~Directory OPS", +$Global{'menubar'}->cascade(-label => "Directory ~OPS", -menuitems => ops_items); $Global{'menubar'}->command(-label => "Set ~Bind Credentials", -command => \&BIND ); $Global{'menubar'}->command(-label => "Set DSA ~Port", -command => \&PORT ); -$Global{'menubar'}->command(-label => "~EXIT PROGRAM", +$Global{'menubar'}->command(-label => "E~XIT PROGRAM", -command => sub{exit;} ); # @@ -775,13 +775,13 @@ # -# Create ldap delete button +# Create ldap display button # -$Global{actionDelete} = $btframe->Button(-text => "DELETE ", - -command => \&questionAction, - -font => $Global{'Font'}, -borderwidth => 3) - -> pack(-side => "top", -anchor => "w", -padx => 1, -pady => 2 ) - if ( !Exists($Global{actionDelete})); +$Global{actionDisplay} = $btframe->Button( -text => "DISPLAY", + -command => \&ldapActionDisplay, + -font => $Global{'Font'}, -borderwidth => 3 ) + -> pack(-side => "top", -anchor => "w", -padx => 1, -pady => 1 ) + if ( !Exists($Global{actionDisplay})); # @@ -793,16 +793,6 @@ -> pack(-side => "top", -anchor => "w", -padx => 1, -pady => 2 ) if ( !Exists($Global{actionLdif})); - -# -# Create ldap display button -# -$Global{actionDisplay} = $btframe->Button( -text => "DISPLAY", - -command => \&ldapActionDisplay, - -font => $Global{'Font'}, -borderwidth => 3 ) - -> pack(-side => "top", -anchor => "w", -padx => 1, -pady => 1 ) - if ( !Exists($Global{actionDisplay})); - # # Create ldap rename button # @@ -820,6 +810,17 @@ -font => $Global{'Font'}, -borderwidth => 3) -> pack(-side => "top", -anchor => "w", -padx => 1, -pady => 2 ) if ( !Exists($Global{actionEdit})); + + +# +# Create ldap delete button +# +$Global{actionDelete} = $btframe->Button(-text => "DELETE ", + -command => \&questionAction, + -font => $Global{'Font'}, -borderwidth => 3, + -activeforeground => 'red') + -> pack(-side => "top", -anchor => "w", -padx => 1, -pady => 2 ) + if ( !Exists($Global{actionDelete})); # # Create process cancel button |