[Haver-commits] r187 - in trunk/haver-gtk: bin lib/Haver/Client/Gtk/Page

[haver]

Author: bdonlan
Date: 2004-05-29 16:03:30 -0400 (Sat, 29 May 2004)
New Revision: 187

Modified:
   trunk/haver-gtk/bin/haver-gtk.pl
   trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Channel.pm
   trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Text.pm
Log:
Removed some debugging prints


Modified: trunk/haver-gtk/bin/haver-gtk.pl
===================================================================
--- trunk/haver-gtk/bin/haver-gtk.pl    2004-05-29 00:01:45 UTC (rev 186)
+++ trunk/haver-gtk/bin/haver-gtk.pl    2004-05-29 20:03:30 UTC (rev 187)
@@ -61,11 +61,8 @@
 
 sub get_query_page ($) {
        my $page = $pages->get_page("=$_[0]");
-       print "g_q_p $_[0] got $page\n";
        if(!$page) {
-               print "404, opening\n";
                $page = $pages->new_page('Query', $_[0]);
-               print "got $page\n";
                $page->print_page("Starting query with $_[0]");
        }
        return $page;
@@ -231,7 +228,6 @@
        $cmd->register('alias',
                handler => sub {
                        my ($alias, $text) = @_;
-                       print "Alias: $alias => $text\n";
                        $cmd->alias($alias => $text);
                },
                parser => sub {

Modified: trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Channel.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Channel.pm        2004-05-29 
00:01:45 UTC (rev 186)
+++ trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Channel.pm        2004-05-29 
20:03:30 UTC (rev 187)
@@ -62,11 +62,6 @@
                next if exists($page->{uhash}->{$uid});
                $count++;
                my $li = Gtk::ListItem->new($uid);
-               if(!$li) {
-                       print "!li: $!, abort\n";
-                       die;
-               }
-               print "ok, $li. ii\n";
                $page->{ulist}->add($li);
                $li->show;
                $page->{uhash}->{$uid} = $li;

Modified: trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Text.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Text.pm   2004-05-29 00:01:45 UTC 
(rev 186)
+++ trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Text.pm   2004-05-29 20:03:30 UTC 
(rev 187)
@@ -31,7 +31,6 @@
 
 sub new ($$) {
        my ($class, $name) = @_;
-       print "create text n=$name\n";
        $class = ref($class) || $class;
        
        my $frame = Gtk::Frame->new();