From 1819da7f4157afc8b869d534ed99a0c08641de29 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Philipp=20Br=C3=BCschweiler?= <blei42@gmail.com>
Date: Thu, 25 Feb 2010 16:23:37 +0100
Subject: [PATCH] curses: simplification, use wide character library to print
 utf8 strings

---
 extra/curses/curses.factor  | 24 ++++++------------------
 extra/curses/ffi/ffi.factor |  2 +-
 2 files changed, 7 insertions(+), 19 deletions(-)

diff --git a/extra/curses/curses.factor b/extra/curses/curses.factor
index dce102b04e..7d3e4401d5 100644
--- a/extra/curses/curses.factor
+++ b/extra/curses/curses.factor
@@ -407,8 +407,8 @@ TUPLE: mouse-event
 
 : button-n? ( bstate n -- ? ) substate-n 0 = not ; inline
 
-: fill-in-type ( mouse-event substate -- )
-    {
+: fill-in-type ( mouse-event bstate button -- )
+    substate-n {
         { BUTTON1_RELEASED       [ +released+ ] }
         { BUTTON1_PRESSED        [ +pressed+ ] }
         { BUTTON1_CLICKED        [ +clicked+ ] }
@@ -418,22 +418,10 @@ TUPLE: mouse-event
 
 : fill-in-bstate ( mouse-event bstate -- )
     2dup {
-        {
-            [ dup 1 button-n? ]
-            [ [ 1 >>button ] dip 1 substate-n fill-in-type ]
-        }
-        {
-            [ dup 2 button-n? ]
-            [ [ 2 >>button ] dip 2 substate-n fill-in-type ]
-        }
-        {
-            [ dup 3 button-n? ]
-            [ [ 3 >>button ] dip 3 substate-n fill-in-type ]
-        }
-        {
-            [ dup 4 button-n? ]
-            [ [ 4 >>button ] dip 4 substate-n fill-in-type ]
-        }
+        { [ dup 1 button-n? ] [ [ 1 >>button ] dip 1 fill-in-type ] }
+        { [ dup 2 button-n? ] [ [ 2 >>button ] dip 2 fill-in-type ] }
+        { [ dup 3 button-n? ] [ [ 3 >>button ] dip 3 fill-in-type ] }
+        { [ dup 4 button-n? ] [ [ 4 >>button ] dip 4 fill-in-type ] }
     } cond
     {
         [ BUTTON_CTRL  bitand 0 = not [ t >>ctrl  ] when drop ]
diff --git a/extra/curses/ffi/ffi.factor b/extra/curses/ffi/ffi.factor
index dffdb37e2d..66fa511619 100644
--- a/extra/curses/ffi/ffi.factor
+++ b/extra/curses/ffi/ffi.factor
@@ -7,7 +7,7 @@ IN: curses.ffi
 << "curses" {
     { [ os winnt? ]  [ "libcurses.dll" ] }
     { [ os macosx? ] [ "libcurses.dylib" ] }
-    { [ os unix?  ]  [ "libncurses.so.5.7" ] }
+    { [ os unix?  ]  [ "libncursesw.so.5.7" ] }
 } cond cdecl add-library >>
 
 C-TYPE: WINDOW