[Haver-commits] r232 - in trunk/haver-gtk: bin lib/Haver/UI/Gtk

[haver]

Author: bdonlan
Date: 2004-06-08 21:54:40 -0400 (Tue, 08 Jun 2004)
New Revision: 232

Modified:
   trunk/haver-gtk/bin/haver-gtk.pl
   trunk/haver-gtk/lib/Haver/UI/Gtk/Page.pm
   trunk/haver-gtk/lib/Haver/UI/Gtk/Pages.pm
Log:
Removing some debug prints

Modified: trunk/haver-gtk/bin/haver-gtk.pl
===================================================================
--- trunk/haver-gtk/bin/haver-gtk.pl    2004-06-09 00:52:16 UTC (rev 231)
+++ trunk/haver-gtk/bin/haver-gtk.pl    2004-06-09 01:54:40 UTC (rev 232)
@@ -70,16 +70,16 @@
 
 sub notify_sub {
        my ($page, $added) = @_;
-       print "notify_sub ref = ", ref $page, " added = $added\n";
+       #print "notify_sub ref = ", ref $page, " added = $added\n";
        if ($page->isa('Haver::UI::Gtk::Page::Channel')) {
-               print "is channel\n";
+               #print "is channel\n";
                if ($added) {
                        $channels{$page->get_channel()} = $page;
                } else {
                        delete $channels{$page->get_channel()};
                }
        } elsif ($page->isa('Haver::UI::Gtk::Page::Query')) {
-               print "is query\n";
+               #print "is query\n";
                if ($added) {
                        $queries{$page->get_uid()} = $page;
                } else {

Modified: trunk/haver-gtk/lib/Haver/UI/Gtk/Page.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/UI/Gtk/Page.pm    2004-06-09 00:52:16 UTC (rev 
231)
+++ trunk/haver-gtk/lib/Haver/UI/Gtk/Page.pm    2004-06-09 01:54:40 UTC (rev 
232)
@@ -66,7 +66,7 @@
        my ($self, $warnlist) = @_;
        my %warnings;
        foreach my $entry (@$warnlist) {
-               print Dumper $entry;
+               #print Dumper $entry;
                my $eid = $entry->{eid};
                push @{$warnings{$eid}}, $entry;
        }
@@ -87,7 +87,7 @@
        };
        bless $self, $class;
        my $oe = $self->_object_states({});
-       print Dumper $oe;
+       #print Dumper $oe;
        $self->{session} = POE::Session->create(
                object_states => [
                $self => $self->_object_states({}),

Modified: trunk/haver-gtk/lib/Haver/UI/Gtk/Pages.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/UI/Gtk/Pages.pm   2004-06-09 00:52:16 UTC (rev 
231)
+++ trunk/haver-gtk/lib/Haver/UI/Gtk/Pages.pm   2004-06-09 01:54:40 UTC (rev 
232)
@@ -87,7 +87,7 @@
 
        $page->added($self) if $page->can('added');
 
-       print Dumper $self;
+       #print Dumper $self;
        $_->($page, TRUE) for (values %{$self->{notifies}});
 
        return $page;