--- kgsueme/kgsueme/room.pl	2003/05/31 10:58:30	1.2
+++ kgsueme/kgsueme/room.pl	2003/05/31 11:12:22	1.3
@@ -15,10 +15,13 @@
    $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
 
    $self->{window}->add(my $hpane = new Gtk2::HPaned);
-   gtk::state $hpane, "room::hpane", $self->{name}, hpane_position => 200;
+   $hpane->set(position_set => 1);
+   gtk::state $hpane, "room::hpane", $self->{name}, position => 200;
 
    $hpane->add(my $vpane = new Gtk2::VPaned);
-   gtk::state $vpane, "room::vpane", $self->{name}, vpane_position => 200;
+   $hpane->set(position_set => 1);
+   gtk::state $vpane, "room::vpane", $self->{name}, position => 200;
+   gtk::info 1, $vpane;
 
    $vpane->add(my $sw = new Gtk2::ScrolledWindow);
    $sw->set_policy("automatic", "always");
@@ -54,9 +57,11 @@
    $hpane->add(my $sw = new Gtk2::ScrolledWindow);
    $sw->set_policy("automatic", "always");
 
+   if (0) {
    $sw->add($self->{userlist} = new_with_titles Gtk2::ListStore "User", "Rank", "Flags");
    ::clist_autosort $self->{userlist};
    gtk::state $self->{userlist}, "room::userlist", $self->{name}, clist_column_widths => [120, 30];
+   }
 
    $self;
 }
@@ -86,7 +91,7 @@
    my ($self) = @_;
 
    remove Glib::Source delete $self->{update_users} if $self->{update_users};
-   $self->{update_users} ||= timeout_add Glib::Source 100, sub {
+   $self->{update_users} ||= add Glib::Timeout 100, sub {
       return unless $self->{joined};
       return;
 
@@ -112,7 +117,8 @@
 sub event_update_games {
    my ($self) = @_;
 
-   $self->{event_update_games} ||= Gtk2->timeout_add(200, sub {
+   $self->{event_update_games} ||= add Glib::Timeout 200, sub {
+         return;
       my $l = $self->{gamelist};
 
       $l->freeze;
@@ -130,7 +136,7 @@
 
       delete $self->{event_update_games};
       0;
-   });
+   };
 }
 
 sub event_join {
@@ -143,7 +149,7 @@
 sub event_update_roominfo {
    my ($self) = @_;
 
-   $self->{text}->insert(undef, undef, undef, "\n$self->{owner}: $self->{description}\n");
+   $self->{text}->append_text("\n$self->{owner}: $self->{description}\n");
 }
 
 1;