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

[haver]

Author: nornagon
Date: 2005-01-03 20:28:13 -0500 (Mon, 03 Jan 2005)
New Revision: 510

Added:
   trunk/clients/termvisual/termvispatch.diff
Modified:
   trunk/clients/termvisual/termvisual.pl
Log:
Tab completion fixed in termvis client. Termvis patch necessary forcorrect 
functioning added.

Added: trunk/clients/termvisual/termvispatch.diff
===================================================================
--- trunk/clients/termvisual/termvispatch.diff  2005-01-01 22:42:10 UTC (rev 
509)
+++ trunk/clients/termvisual/termvispatch.diff  2005-01-04 01:28:13 UTC (rev 
510)
@@ -0,0 +1,18 @@
+--- /home/nornagon/Visual.pm   2005-01-04 12:24:17.000000000 +1100
++++ /home/nornagon/Visnew.pm   2005-01-03 18:40:25.000000000 +1100
+@@ -148,6 +148,7 @@
+   
+   $kernel->alias_set( $alias );
+   $console = POE::Wheel::Curses->new( InputEvent => 'private_input');
++  use_default_colors();
+   my $old_mouse_events = 0;
+   mousemask(0, $old_mouse_events);
+ 
+@@ -1354,6 +1355,7 @@
+      re      => COLOR_RED,      red     => COLOR_RED,
+      wh      => COLOR_WHITE,    white   => COLOR_WHITE,
+      ye      => COLOR_YELLOW,   yellow  => COLOR_YELLOW,
++       de              => -1,                         default => -1,
+    );
+ 
+   my %attribute_table =

Modified: trunk/clients/termvisual/termvisual.pl
===================================================================
--- trunk/clients/termvisual/termvisual.pl      2005-01-01 22:42:10 UTC (rev 
509)
+++ trunk/clients/termvisual/termvisual.pl      2005-01-04 01:28:13 UTC (rev 
510)
@@ -37,10 +37,10 @@
 my $config = $config_handle->config;
 
 my %palette = (
-    channel => 'bright cyan on black',
-    nick    => 'white on black',
-    nickdecs    => 'bright black on black',
-    ncolor  => 'white on black',
+    channel => 'bright cyan on default',
+    nick    => 'default on default',
+    nickdecs    => 'bright black on default',
+    ncolor  => 'default on default',
 );
 
 our %Bindings = (
@@ -393,7 +393,7 @@
 sub tab_complete {
     my $left = shift;
     # return if it's not a command
-    if (!($left =~ /^[$config->{CommandChars}]/)) { vt_print("b"); }
+    if (!($left =~ /^[$config->{CommandChars}]/)) { return; }
     $left =~ s/^([$config->{CommandChars}])//;
     my @ret = grep { /^$left/ } keys %ucommands;
     @ret = map { $_ = $1.$_.' ' } @ret;