[Haver-commits] r301 - in trunk/clients/haver-gtk: bin lib/Haver/UI/Gtk

[haver]

Author: bdonlan
Date: 2004-07-05 00:03:46 -0400 (Mon, 05 Jul 2004)
New Revision: 301

Modified:
   trunk/clients/haver-gtk/bin/serverdlg-test.pl
   trunk/clients/haver-gtk/lib/Haver/UI/Gtk/ServerDialog.pm
Log:
* haver-gtk/lib/Haver/UI/Gtk/ServerDialog.pm - remove some debuggage, make
  list items left-justified

* haver-gtk/bin/serverdlg-test.pl - Add default Servers field to config


Modified: trunk/clients/haver-gtk/bin/serverdlg-test.pl
===================================================================
--- trunk/clients/haver-gtk/bin/serverdlg-test.pl       2004-07-05 03:54:05 UTC 
(rev 300)
+++ trunk/clients/haver-gtk/bin/serverdlg-test.pl       2004-07-05 04:03:46 UTC 
(rev 301)
@@ -40,9 +40,12 @@
        $config = Haver::Config->new(
                file => "$confdir/config",
                default => {
-                       UID => lc $user,
-                       Address => 'hardison.net:7070',
                        Alias => {},
+                       Servers => {
+                               'hardison.net' => {
+                                       Address => 'hardison.net:7071',
+                               }
+                       }
                },
        );
 };

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:54:05 UTC (rev 300)
+++ trunk/clients/haver-gtk/lib/Haver/UI/Gtk/ServerDialog.pm    2004-07-05 
04:03:46 UTC (rev 301)
@@ -211,14 +211,11 @@
 sub populate {
        my $self = shift;
        $self->{servers} = [sort keys %{$self->{config}{Servers}}];
-       print Dumper $self;
        
        $self->{slist}{list}->clear_items(0, -1);
        for (@{$self->{servers}}) {
-               print "add: $_\n";
-               my $label = new Gtk::Label($_);
-               my $item = new Gtk::ListItem();
-               $item->add($label);
+               my $item = new Gtk::ListItem($_);
+               $item->show;
                $self->{slist}{list}->add($item);
        }
 }