[Haver-commits] r272 - trunk/haver-gtk/bin

[haver]

Author: dylan
Date: 2004-06-28 02:00:29 -0400 (Mon, 28 Jun 2004)
New Revision: 272

Modified:
   trunk/haver-gtk/bin/haver-gtk.pl
Log:
Using the new skeleton Command dispatcher/parser.
Aliases are gone for now.


Modified: trunk/haver-gtk/bin/haver-gtk.pl
===================================================================
--- trunk/haver-gtk/bin/haver-gtk.pl    2004-06-28 04:51:25 UTC (rev 271)
+++ trunk/haver-gtk/bin/haver-gtk.pl    2004-06-28 06:00:29 UTC (rev 272)
@@ -243,26 +243,9 @@
 
 
        foreach my $c (qw(say msg me close users join part quit query)) {
-               $cmd->register($c, handler => $session->postback("cmd_$c"));
+               $cmd->register($c, $session->postback("cmd_$c"));
        }
-       $cmd->register('alias',
-               handler => sub {
-                       my ($alias, $text) = @_;
-                       $cmd->alias($alias => $text);
-               },
-               parser => sub {
-                       my ($cmd, $arg) = @_;
-                       $arg =~ s/^\s*(\w+)\s*//;
-                       return ($1, $arg);
-               },
-       );
-       $cmd->register('unalias',
-               handler => sub {
-                       $cmd->unalias($_[0]);
-               },
-       );
-       $cmd->register('save',
-               handler => sub {
+       $cmd->register('save', sub {
                        # FIXME; make this display something.
                        $config->save;
                },
@@ -434,7 +417,6 @@
 sub cmd_join {
        my ($kernel, $heap, $args) = @_[KERNEL,HEAP,ARG1];
        my ($chan) = @$args;
-       print "JOIN $chan?\n";
 
        my $page = $channels{$chan} || $pages->add_page(new 
Haver::UI::Gtk::Page::Channel($chan, FALSE));
        $page->join();