Author: bdonlan
Date: 2004-06-05 16:53:32 -0400 (Sat, 05 Jun 2004)
New Revision: 225
Added:
trunk/haver-gtk/lib/Haver/UI/
Removed:
trunk/haver-gtk/lib/Haver/Client/
Modified:
trunk/haver-gtk/Build.PL
trunk/haver-gtk/bin/haver-gtk.pl
trunk/haver-gtk/lib/Haver/UI/Gtk/Page.pm
trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Channel.pm
trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Chat.pm
trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Query.pm
trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Rawlog.pm
trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Server.pm
trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Text.pm
trunk/haver-gtk/lib/Haver/UI/Gtk/Pages.pm
Log:
Rename: Haver::Client::Gtk -> Haver::UI::Gtk
Modified: trunk/haver-gtk/Build.PL
===================================================================
--- trunk/haver-gtk/Build.PL 2004-06-05 20:48:38 UTC (rev 224)
+++ trunk/haver-gtk/Build.PL 2004-06-05 20:53:32 UTC (rev 225)
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use Module::Build;
my $build = Module::Build->new(
-# module_name => 'Haver::Client::Gtk',
+# module_name => 'Haver::UI::Gtk',
dist_name => 'haver-gtk',
dist_version_from => 'bin/haver-gtk.pl',
dist_author => 'Bryan Donlan <[EMAIL PROTECTED]>',
Modified: trunk/haver-gtk/bin/haver-gtk.pl
===================================================================
--- trunk/haver-gtk/bin/haver-gtk.pl 2004-06-05 20:48:38 UTC (rev 224)
+++ trunk/haver-gtk/bin/haver-gtk.pl 2004-06-05 20:53:32 UTC (rev 225)
@@ -41,12 +41,12 @@
use Haver::Config;
use Haver::Client::POE;
use Haver::Client::Command::Callback;
-use Haver::Client::Gtk::Pages;
-use Haver::Client::Gtk::Page::Channel;
-use Haver::Client::Gtk::Page::Text;
-use Haver::Client::Gtk::Page::Query;
-use Haver::Client::Gtk::Page::Rawlog;
-use Haver::Client::Gtk::Page::Server;
+use Haver::UI::Gtk::Pages;
+use Haver::UI::Gtk::Page::Channel;
+use Haver::UI::Gtk::Page::Text;
+use Haver::UI::Gtk::Page::Query;
+use Haver::UI::Gtk::Page::Rawlog;
+use Haver::UI::Gtk::Page::Server;
use Data::Dumper;
use Carp;
@@ -71,14 +71,14 @@
sub notify_sub {
my ($page, $added) = @_;
print "notify_sub ref = ", ref $page, " added = $added\n";
- if ($page->isa('Haver::Client::Gtk::Page::Channel')) {
+ if ($page->isa('Haver::UI::Gtk::Page::Channel')) {
print "is channel\n";
if ($added) {
$channels{$page->get_channel()} = $page;
} else {
delete $channels{$page->get_channel()};
}
- } elsif ($page->isa('Haver::Client::Gtk::Page::Query')) {
+ } elsif ($page->isa('Haver::UI::Gtk::Page::Query')) {
print "is query\n";
if ($added) {
$queries{$page->get_uid()} = $page;
@@ -91,7 +91,7 @@
sub get_query_page ($) {
my $page = $queries{$_[0]};
if(!$page) {
- $page = $pages->add_page(new
Haver::Client::Gtk::Page::Query($_[0]));
+ $page = $pages->add_page(new
Haver::UI::Gtk::Page::Query($_[0]));
$page->print_page("Starting query with $_[0]");
}
return $page;
@@ -205,7 +205,7 @@
);
my $vbox = Gtk::VBox->new(0,0);
- $pages = new Haver::Client::Gtk::Pages;
+ $pages = new Haver::UI::Gtk::Pages;
$pages->register_notify(\¬ify_sub);
$vbox->pack_start($pages->get_gui(), 1, 1, 0);
$pages->get_gui()->show;
@@ -229,8 +229,8 @@
$gui{main_window}->show;
- $status = $pages->add_page(new
Haver::Client::Gtk::Page::Server("Server"));
- $pages->add_page(new Haver::Client::Gtk::Page::Rawlog("!rawlog"));
+ $status = $pages->add_page(new Haver::UI::Gtk::Page::Server("Server"));
+ $pages->add_page(new Haver::UI::Gtk::Page::Rawlog("!rawlog"));
$pages->set_page(0);
$kernel->yield('connect_win');
@@ -399,7 +399,7 @@
sub haver_joined {
my ($kernel, $heap, $channel) = @_[KERNEL,HEAP,ARG1];
unless (exists $channels{$channel}) {
- $pages->add_page(new
Haver::Client::Gtk::Page::Channel($channel, TRUE));
+ $pages->add_page(new Haver::UI::Gtk::Page::Channel($channel,
TRUE));
}
}
@@ -429,7 +429,7 @@
my ($kernel, $heap, $args) = @_[KERNEL,HEAP,ARG1];
my ($chan) = @$args;
- my $page = $channels{$chan} || $pages->add_page(new
Haver::Client::Gtk::Page::Channel($chan, FALSE));
+ my $page = $channels{$chan} || $pages->add_page(new
Haver::UI::Gtk::Page::Channel($chan, FALSE));
$page->join();
$pages->set_page($page);
}
Copied: trunk/haver-gtk/lib/Haver/UI (from rev 223,
trunk/haver-gtk/lib/Haver/Client)
Modified: trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Channel.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Channel.pm 2004-06-05
04:04:18 UTC (rev 223)
+++ trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Channel.pm 2004-06-05 20:53:32 UTC
(rev 225)
@@ -1,5 +1,5 @@
# vim: set ft=perl ts=4 sw=4:
-# Haver::Client::Gtk::Page::Channel - pages with userlist, etc
+# Haver::UI::Gtk::Page::Channel - pages with userlist, etc
#
# Copyright (C) 2004 Bryan Donlan, Dylan William Hardison.
#
@@ -17,7 +17,7 @@
# along with this module; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package Haver::Client::Gtk::Page::Channel;
+package Haver::UI::Gtk::Page::Channel;
use strict;
use warnings;
use constant {
@@ -26,7 +26,7 @@
};
use POE;
-use base 'Haver::Client::Gtk::Page::Chat';
+use base 'Haver::UI::Gtk::Page::Chat';
our $VERSION = 0.01;
Modified: trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Chat.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Chat.pm 2004-06-05 04:04:18 UTC
(rev 223)
+++ trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Chat.pm 2004-06-05 20:53:32 UTC
(rev 225)
@@ -1,5 +1,5 @@
# vim: set ft=perl ts=4 sw=4:
-# Haver::Client::Gtk::Page::Chat - chat-like pages
+# Haver::UI::Gtk::Page::Chat - chat-like pages
#
# Copyright (C) 2004 Bryan Donlan, Dylan William Hardison.
#
@@ -20,11 +20,11 @@
# In the future, this might handle some input-related functions, but for now
# it only does [p]msg formatting
-package Haver::Client::Gtk::Page::Chat;
+package Haver::UI::Gtk::Page::Chat;
use warnings;
use strict;
-use base 'Haver::Client::Gtk::Page::Text';
+use base 'Haver::UI::Gtk::Page::Text';
sub _display_msg {
my ($self, $args) = @_;
Modified: trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Query.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Query.pm 2004-06-05 04:04:18 UTC
(rev 223)
+++ trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Query.pm 2004-06-05 20:53:32 UTC
(rev 225)
@@ -1,5 +1,5 @@
# vim: set ft=perl ts=4 sw=4:
-# Haver::Client::Gtk::Page::Query - user query pages
+# Haver::UI::Gtk::Page::Query - user query pages
#
# Copyright (C) 2004 Bryan Donlan, Dylan William Hardison.
#
@@ -17,7 +17,7 @@
# along with this module; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package Haver::Client::Gtk::Page::Query;
+package Haver::UI::Gtk::Page::Query;
use warnings;
use strict;
use constant {
@@ -26,7 +26,7 @@
};
use POE;
-use base 'Haver::Client::Gtk::Page::Chat';
+use base 'Haver::UI::Gtk::Page::Chat';
our $VERSION = 0.01;
Modified: trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Rawlog.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Rawlog.pm 2004-06-05 04:04:18 UTC
(rev 223)
+++ trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Rawlog.pm 2004-06-05 20:53:32 UTC
(rev 225)
@@ -1,5 +1,5 @@
# vim: set ft=perl ts=4 sw=4:
-# Haver::Client::Gtk::Page::Rawlog - rawlog window for haver-gtk
+# Haver::UI::Gtk::Page::Rawlog - rawlog window for haver-gtk
#
# Copyright (C) 2004 Bryan Donlan, Dylan William Hardison.
#
@@ -17,12 +17,12 @@
# along with this module; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package Haver::Client::Gtk::Page::Rawlog;
+package Haver::UI::Gtk::Page::Rawlog;
use warnings;
use strict;
use POE;
-use base 'Haver::Client::Gtk::Page::Text';
+use base 'Haver::UI::Gtk::Page::Text';
### METHODS
@@ -43,7 +43,7 @@
$class = ref $class || $class || __PACKAGE__;
$title ||= 'Rawlog';
- my $self = Haver::Client::Gtk::Page::Text::new($class, $title);
+ my $self = Haver::UI::Gtk::Page::Text::new($class, $title);
return $self;
}
Modified: trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Server.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Server.pm 2004-06-05 04:04:18 UTC
(rev 223)
+++ trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Server.pm 2004-06-05 20:53:32 UTC
(rev 225)
@@ -1,5 +1,5 @@
# vim: set ft=perl ts=4 sw=4:
-# Haver::Client::Gtk::Page::Server - server warning/error notification, etc
+# Haver::UI::Gtk::Page::Server - server warning/error notification, etc
#
# Copyright (C) 2004 Bryan Donlan, Dylan William Hardison.
#
@@ -17,12 +17,12 @@
# along with this module; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package Haver::Client::Gtk::Page::Server;
+package Haver::UI::Gtk::Page::Server;
use warnings;
use strict;
use POE;
-use base 'Haver::Client::Gtk::Page::Text';
+use base 'Haver::UI::Gtk::Page::Text';
our $package = __PACKAGE__;
our $VERSION = 0.01;
Modified: trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Text.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Page/Text.pm 2004-06-05 04:04:18 UTC
(rev 223)
+++ trunk/haver-gtk/lib/Haver/UI/Gtk/Page/Text.pm 2004-06-05 20:53:32 UTC
(rev 225)
@@ -1,5 +1,5 @@
# vim: set ft=perl ts=4 sw=4:
-# Haver::Client::Gtk::Page::Text - Class for text pages
+# Haver::UI::Gtk::Page::Text - Class for text pages
#
# Copyright (C) 2004 Bryan Donlan, Dylan William Hardison.
#
@@ -17,7 +17,7 @@
# along with this module; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package Haver::Client::Gtk::Page::Text;
+package Haver::UI::Gtk::Page::Text;
use strict;
use warnings;
use constant {
@@ -26,7 +26,7 @@
};
use Gtk;
-use base "Haver::Client::Gtk::Page";
+use base "Haver::UI::Gtk::Page";
our $VERSION = 0.01;
@@ -34,7 +34,7 @@
my ($class, $name) = @_;
$class = ref($class) || $class;
- my $self = Haver::Client::Gtk::Page::new($class, $name);
+ my $self = Haver::UI::Gtk::Page::new($class, $name);
my $frame = $self->{frame};
Modified: trunk/haver-gtk/lib/Haver/UI/Gtk/Page.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Page.pm 2004-06-05 04:04:18 UTC
(rev 223)
+++ trunk/haver-gtk/lib/Haver/UI/Gtk/Page.pm 2004-06-05 20:53:32 UTC (rev
225)
@@ -1,5 +1,5 @@
# vim: set ft=perl ts=4 sw=4:
-# Haver::Client::Gtk::Page.pm - base class for all haver-gtk pages
+# Haver::UI::Gtk::Page.pm - base class for all haver-gtk pages
#
# Copyright (C) 2004 Bryan Donlan, Dylan William Hardison.
#
@@ -17,7 +17,7 @@
# along with this module; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package Haver::Client::Gtk::Page;
+package Haver::UI::Gtk::Page;
use warnings;
use strict;
Modified: trunk/haver-gtk/lib/Haver/UI/Gtk/Pages.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Pages.pm 2004-06-05 04:04:18 UTC
(rev 223)
+++ trunk/haver-gtk/lib/Haver/UI/Gtk/Pages.pm 2004-06-05 20:53:32 UTC (rev
225)
@@ -1,5 +1,5 @@
# vim: set ft=perl ts=4 sw=4:
-# Haver::Client::Gtk::Pages - tabbed window support
+# Haver::UI::Gtk::Pages - tabbed window support
#
# Copyright (C) 2004 Bryan Donlan, Dylan William Hardison.
#
@@ -16,7 +16,7 @@
# You should have received a copy of the GNU General Public License
# along with this module; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package Haver::Client::Gtk::Pages;
+package Haver::UI::Gtk::Pages;
use warnings;
use strict;
