Changeset 68

Timestamp:

05/06/08 15:49:23 (8 months ago)

Author:

scott

Message:

Various bug fixes for CuIRC…

Client is almost usable now. Fixes include:

• TextEditor? input widget stays in focus at all times
• Page up and page down actually scroll the main screen (although the scroll gets reset on incoming message).
• /msg no longer crashes client (same with /kick).

Files:

• trunk/Curses-UI-POE/examples/irc_client (modified) (5 diffs)

trunk/Curses-UI-POE/examples/irc_client

@@ -135 +135 @@
 use Curses;
 use Carp qw( carp );
+use constant KEY_TAB => "\t";
 
 my @nicks;
@@ -283 +284 @@
         );
 
+    my $set_editor_focus = sub {
+        $editor->focus;
+        $editor->draw;
+    };
+
+    $nicks->onFocus($set_editor_focus);
+    $viewer->onFocus($set_editor_focus);
+    $menu->onFocus($set_editor_focus);
 
     my (%Channel, $Current, @History);
@@ -321 +330 @@
 
         nick => sub { $poe_kernel->post( IRC => nick => $_[1] ) },
-        kick => sub { $poe_kernel->post( IRC => kick => $_[1..$#_] ) },
-        msg  => sub { $poe_kernel->post( IRC => privmsg => $_[1..$#_] ) },
+        kick => sub { $poe_kernel->post( IRC => kick => @_[1..$#_] ) },
+        msg  => sub { $poe_kernel->post( IRC => privmsg => @_[1..$#_] ) },
         
         quote => sub {
@@ -364 +373 @@
         }
     }, KEY_ENTER;
+
+    set_binding $editor sub {
+        # Do nothing...overload the lose-focus event.
+    }, KEY_TAB, KEY_BTAB;
+
+    # Why doesn't this work?
+    set_binding $editor sub {
+        warn "Calling \$viewer->cursor_pageup";
+        $viewer->cursor_pageup;
+        $viewer->draw;
+    }, KEY_PPAGE;
+
+    set_binding $editor sub {
+        warn "Calling \$viewer->cursor_pagedown";
+        $viewer->cursor_pagedown;
+        $viewer->draw;
+    }, KEY_NPAGE;
 
     set_binding $editor sub { shift->text($History[--$Current]) }, KEY_UP;
@@ -371 +397 @@
         else                        { shift->text( $History[$Current] ) }
     }, KEY_DOWN;
+
+    # Focus on the editor.
+    $editor->focus;
+    $editor->draw;
 
     $_[-1] = bless {