runmodes work

modes/demotk.pl

@@ -78,6 +78,13 @@ register_hook "protocol_signon", sub {
 	     hook("protocol_chat_invited", -user => 'thatguy', 
 		  -url => 'er');
 	 });
+    register_hook "protocol_get_groups", sub {
+	return ["guys"];
+    };
+
+    register_hook "signed_in", sub {
+	hook("buddy_in", -buddy => 'guy', -group => 'guys');
+    };
 };
 
 protocol_signon -user => 'test', -pass => 'test';

plugins/Tk-GUI/Tk/Browser.pm

@@ -27,6 +27,8 @@ sub insertHTML
 	my ($self, $pos, $html) = @_;
 	my @insert;
 
+	print $html;
+
         $self->tagConfigure('BSEL', -background => '#c0c0c0');
         $self->tagRaise('sel', 'BSEL');
 
@@ -235,7 +237,8 @@ sub font_begin
 	  }
 	}
 
-        $back = "" if defined($back) and $back eq "white" or $back =~ /ffffff/i;
+        $back = "" if defined($back) and $back eq "white" or 
+	  $back =~ /ffffff/i;
 
 	my %opts;
 	$opts{-foreground} = $color if $color;