[haver-commits] r478 - trunk/clients/termvisual

[haver]

Author: nornagon
Date: 2004-12-30 01:41:41 -0500 (Thu, 30 Dec 2004)
New Revision: 478

Modified:
   trunk/clients/termvisual/termvisual.pl
Log:
Coupla color fixes in Term::Visual client

Modified: trunk/clients/termvisual/termvisual.pl
===================================================================
--- trunk/clients/termvisual/termvisual.pl      2004-12-30 06:27:26 UTC (rev 
477)
+++ trunk/clients/termvisual/termvisual.pl      2004-12-30 06:41:41 UTC (rev 
478)
@@ -361,6 +361,8 @@
     my ($heap, $name, $color) = (get_heap(), shift, join(" ", @_));
     $palette{$name} = $color;
     $heap->{vt}->set_palette(%palette);
+    Term::Visual::_refresh_title($heap->{vt}, $heap->{window_id});
+    Term::Visual::_refresh_status($heap->{vt}, $heap->{window_id});
     Term::Visual::_refresh_buffer($heap->{vt}, $heap->{window_id});
     Term::Visual::_refresh_edit($heap->{vt}, $heap->{window_id});
     Term::Visual::doupdate();