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

[haver]

Author: dylan
Date: 2004-06-28 00:11:58 -0400 (Mon, 28 Jun 2004)
New Revision: 267

Modified:
   trunk/haver-gtk/bin/haver-gtk.pl
Log:
Removed references to ::Callback, which is deleted.


Modified: trunk/haver-gtk/bin/haver-gtk.pl
===================================================================
--- trunk/haver-gtk/bin/haver-gtk.pl    2004-06-28 04:11:25 UTC (rev 266)
+++ trunk/haver-gtk/bin/haver-gtk.pl    2004-06-28 04:11:58 UTC (rev 267)
@@ -33,6 +33,7 @@
 #sub POE::Kernel::ASSERT_DEFAULT {1}
 #sub POE::Kernel::TRACE_DEFAULT {1}
 
+use Haver::Preprocessor '-assert', '-debug', '-verbose';
 use Gtk;
 use Gtk::Keysyms;
 use POE;
@@ -40,7 +41,7 @@
 use Haver::OS;
 use Haver::Config;
 use Haver::Client::POE;
-use Haver::Client::Command::Callback;
+use Haver::Client::Command;
 use Haver::UI::Gtk::Pages;
 use Haver::UI::Gtk::Page::Channel;
 use Haver::UI::Gtk::Page::Text;
@@ -117,7 +118,7 @@
        );
 };
 
-my $cmd = new Haver::Client::Command::Callback (
+my $cmd = new Haver::Client::Command (
        alias => $config->{Alias},
 );
 
@@ -273,7 +274,7 @@
        my $text = $gui{entry}->get_text;
        $gui{entry}->set_text('');
        eval {
-               $cmd->process($text);
+               $cmd->input($text);
        };
        if($@) {
                # XXX: proper error handling
@@ -433,6 +434,7 @@
 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();