[Haver-commits] r298 - trunk/clients/haver-gtk/lib/Haver/UI/Gtk

[haver]

Author: bdonlan
Date: 2004-07-04 23:44:58 -0400 (Sun, 04 Jul 2004)
New Revision: 298

Modified:
   trunk/clients/haver-gtk/lib/Haver/UI/Gtk/ServerDialog.pm
Log:
* lib/Haver/UI/Gtk/ServerDialog.pm - Added 'Save Password' checkbox


Modified: trunk/clients/haver-gtk/lib/Haver/UI/Gtk/ServerDialog.pm
===================================================================
--- trunk/clients/haver-gtk/lib/Haver/UI/Gtk/ServerDialog.pm    2004-07-05 
03:32:42 UTC (rev 297)
+++ trunk/clients/haver-gtk/lib/Haver/UI/Gtk/ServerDialog.pm    2004-07-05 
03:44:58 UTC (rev 298)
@@ -76,10 +76,10 @@
 
        $fields->{outer_box} = new Gtk::VBox(FALSE, 0);
        
-       $fields->{table} = new Gtk::Table(scalar @fieldlist, 0, FALSE);
+       $fields->{table} = new Gtk::Table(scalar @fieldlist + 1, 0, FALSE);
        $fields->{outer_box}->pack_start($fields->{table}, FALSE, FALSE, 0);
-       
-       for (my $i = 0; $i < @fieldlist; $i++) {
+       my $i;
+       for ($i = 0; $i < @fieldlist; $i++) {
                my $field = $fieldlist[$i];
                my $label = new Gtk::Label("$field: ");
                my $input = new Gtk::Entry();
@@ -120,6 +120,20 @@
 
        $fields->{Password}->set_visibility(FALSE);
 
+       $fields->{savepass} = new Gtk::CheckButton('Save Password');
+       $fields->{table}->attach(
+                       $fields->{savepass},            # $child
+                       0,                                                      
# $left_attach
+                       2,                                                      
# $right_attach
+                       $i,                                                     
# $top_attach
+                       $i + 1,                                         # 
$bottom_attach
+                       [qw(fill shrink expand)],       # $xoptions
+                       [qw(fill shrink expand)],       # $yoptions
+                       0,                                                      
# $xpadding
+                       0,                                                      
# $ypadding
+               );
+       $fields->{savepass}->show;
+
        $fields->{table}->show;
 
        $fields->{btn_box} = new Gtk::HBox(TRUE, 0);