Author: nornagon
Date: 2004-12-30 01:27:26 -0500 (Thu, 30 Dec 2004)
New Revision: 477
Modified:
trunk/clients/termvisual/termvisual.pl
Log:
Colors vaguely acceptable in Term::Visual client
Modified: trunk/clients/termvisual/termvisual.pl
===================================================================
--- trunk/clients/termvisual/termvisual.pl 2004-12-30 06:15:23 UTC (rev
476)
+++ trunk/clients/termvisual/termvisual.pl 2004-12-30 06:27:26 UTC (rev
477)
@@ -15,18 +15,24 @@
use Socket;
use Term::Visual;
+use Curses;
use Haver::Protocol;
use Haver::Config;
my ($config, %ucommands, %scommands);
my %palette = (
- channel => 'cyan on black',
+ channel => 'bright cyan on black',
nick => 'white on black',
+ nickdecs => 'bright black on black',
ncolor => 'bright white on black',
- nickdecs => 'white on black',
);
+our %Bindings = (
+ Up => 'history',
+ Down => 'history',
+);
+
POE::Session->create(
inline_states => {
_start => \&handle_start,
@@ -355,6 +361,9 @@
my ($heap, $name, $color) = (get_heap(), shift, join(" ", @_));
$palette{$name} = $color;
$heap->{vt}->set_palette(%palette);
+ Term::Visual::_refresh_buffer($heap->{vt}, $heap->{window_id});
+ Term::Visual::_refresh_edit($heap->{vt}, $heap->{window_id});
+ Term::Visual::doupdate();
}
# Misc functions
