--- deliantra/Deliantra-Client/bin/deliantra 2007/12/29 13:44:31 1.22
+++ deliantra/Deliantra-Client/bin/deliantra 2008/03/20 22:28:35 1.28
@@ -80,7 +80,7 @@
# prepend private library directory
BEGIN {
for (grep !ref, @INC) {
- my $path = "$_/Deliantra/Client/private/dc";
+ my $path = "$_/Deliantra/Client/private";
if (-d $path) {
unshift @INC, $path;
last;
@@ -110,8 +110,10 @@
use DC::UI::Inventory;
use DC::UI::SpellList;
use DC::UI::Dockable;
+use DC::UI::Dockbar;
use DC::UI::MessageWindow;
use DC::UI::ChatView;
+use DC::MessageDistributor;
use DC::Pod;
use DC::MapWidget;
use DC::Macro;
@@ -180,6 +182,7 @@
our $HELP_WINDOW;
our $MESSAGE_WINDOW;
+our $MESSAGE_DIST;
our $FLOORBOX;
our $GAUGES;
our $STATWIDS;
@@ -206,7 +209,7 @@
}
sub message {
- $MESSAGE_WINDOW->message (@_);
+ $MESSAGE_DIST->message (@_);
}
#############################################################################
@@ -719,7 +722,7 @@
mapw => $mapsize,
maph => $mapsize,
- client => "cfplus $DC::VERSION $] $^O",
+ client => "$DC::VERSION $] $^O",
map_widget => $MAPWIDGET,
statusbox => $STATUSBOX,
@@ -807,7 +810,7 @@
$table->add_at (0, $row, new DC::UI::Label align => 1, text => "Force OpenGL 1.1");
$table->add_at (1, $row++, new DC::UI::CheckBox
state => $CFG->{force_opengl11},
- tooltip => "Limit CFPlus to use OpenGL 1.1 features only. This will normally result in "
+ tooltip => "Limit Deliantra to use OpenGL 1.1 features only. This will normally result in "
. "higher memory usage and slower performance. It will, however, help tremendously on "
. "cards that claim to support a feature but fall back to software rendering. "
. "Nvidia Geforce FX cards are known to claim features the hardware doesn't support, "
@@ -885,7 +888,7 @@
range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
tooltip => "The font size used by the message/server log window only. Changes are instant, "
. "but you still need to press apply to correctly re-layout the widget.",
- on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
+ on_changed => sub { $MESSAGE_DIST->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
);
$table->add_at (0, $row, new DC::UI::Label align => 1, text => "Gauge fontsize");
@@ -1527,7 +1530,7 @@
$HOST_ENTRY = new DC::UI::Entry
expand => 1,
text => $CFG->{profile}{default}{host},
- tooltip => "The hostname or ip address of the Deliantra server to connect to",
+ tooltip => "The hostname or ip address of the Deliantra server to connect to (e.g. gameserver.deliantra.net)",
on_changed => sub {
my ($self, $value) = @_;
$CFG->{profile}{default}{host} = $value;
@@ -1540,7 +1543,7 @@
expand => 1,
text => "Server List",
other => $METASERVER,
- tooltip => "Show a list of available crossfire servers",
+ tooltip => "Show a list of available Deliantra servers",
on_activate => sub { $METASERVER->toggle_visibility; 0 },
on_visibility_change => sub { $METASERVER->hide unless $_[1]; 1 },
);
@@ -1600,7 +1603,7 @@
. "computing time. A value of 0 disables this feature, but that is not recommended.",
on_changed => sub {
my ($self, $value) = @_;
- $MESSAGE_WINDOW->set_max_para ($CFG->{logview_max_par} = $value*1);
+ $MESSAGE_DIST->set_max_par ($CFG->{logview_max_par} = $value*1);
0
},
);
@@ -2170,8 +2173,8 @@
$MAPWIDGET->connect (activate_console => sub {
my ($mapwidget, $preset) = @_;
- $MESSAGE_WINDOW->activate_console ($preset)
- if $MESSAGE_WINDOW;
+ $MESSAGE_DIST->activate_console ($preset)
+ if $MESSAGE_DIST;
});
$MAPWIDGET->show;
$MAPWIDGET->grab_focus;
@@ -2193,7 +2196,8 @@
;
$METASERVER = metaserver_dialog;
- $MESSAGE_WINDOW = new DC::UI::MessageWindow;
+ $MESSAGE_WINDOW = new DC::UI::Dockbar (name => 'message_window', title => 'Messages');
+ $MESSAGE_DIST = new DC::MessageDistributor dockbar => $MESSAGE_WINDOW;
$SETUP_DIALOG->add ($SETUP_NOTEBOOK = new DC::UI::Notebook expand => 1, debug => 1,
filter => new DC::UI::ScrolledWindow expand => 1, scroll_y => 1);
@@ -2372,7 +2376,7 @@
} else {
#TODO: compatibility cruft
DC::read_cfg "$Deliantra::OLDDIR/cfplusrc";
- print STDERR "INFO: used old configuratrion file\n";
+ print STDERR "INFO: used old configuration file\n";
}
DC::DB::Server::run;