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

[haver]

Author: bdonlan
Date: 2004-07-04 23:54:05 -0400 (Sun, 04 Jul 2004)
New Revision: 300

Modified:
   trunk/clients/haver-gtk/lib/Haver/UI/Gtk/ServerDialog.pm
Log:
* lib/Haver/UI/Gtk/ServerDialog.pm - add preliminary server list population
  code


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:45:50 UTC (rev 299)
+++ trunk/clients/haver-gtk/lib/Haver/UI/Gtk/ServerDialog.pm    2004-07-05 
03:54:05 UTC (rev 300)
@@ -27,6 +27,7 @@
 };
 
 use Gtk;
+use Data::Dumper;
 #use POE; 
 
 sub new {
@@ -45,8 +46,8 @@
        $self->{window}->add(fixpad($self->{outer_box}, 5));
        
        $self->{editbox} = $self->mkedit();
-       $self->{slist} = $self->mkslist();
-       $self->{slist}->show;
+       $self->{slistbox} = $self->mkslist();
+       $self->{slistbox}->show;
        $self->{editbox}->show;
 
        # XXX: slidable?
@@ -58,14 +59,18 @@
        $self->{editframe}->show;
        
        $self->{listframe} = new Gtk::Frame('Server list');
-       $self->{listframe}->add(fixpad($self->{slist}, 5));
+       $self->{listframe}->add(fixpad($self->{slistbox}, 5));
        $self->{listframe}->show;
 
        $self->{outer_box}->pack_start($self->{editframe}, FALSE, FALSE, 0);
        $self->{outer_box}->pack_start($self->{listframe}, TRUE, TRUE, 0);
        
        $self->{outer_box}->show;
+
+       $self->populate();
+       
        $self->{window}->show;
+       
        return $self;
 }
 
@@ -202,4 +207,21 @@
        $vbox->show;
        return $vbox;
 }
+
+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);
+               $self->{slist}{list}->add($item);
+       }
+}
+       
+
 1;