[Oorexx-svn] SF.net SVN: oorexx:[5499] incubator/orxcurses

[<wda...@us...>]

Revision: 5499
          http://oorexx.svn.sourceforge.net/oorexx/?rev=5499&view=rev
Author:   wdashley
Date:     2010-01-22 19:06:20 +0000 (Fri, 22 Jan 2010)

Log Message:
-----------
Correct method argument type.

Modified Paths:
--------------
    incubator/orxcurses/orxncurses.cpp
    incubator/orxcurses/test5-4.rex
    incubator/orxcurses/test5-4a.rex

Modified: incubator/orxcurses/orxncurses.cpp
===================================================================
--- incubator/orxcurses/orxncurses.cpp	2010-01-22 17:47:48 UTC (rev 5498)
+++ incubator/orxcurses/orxncurses.cpp	2010-01-22 19:06:20 UTC (rev 5499)
@@ -1995,7 +1995,7 @@
 RexxMethod2(int,                       // Return type
             OrxCurInsch,               // Object_method name
             CSELF, cself,              // Self
-            CSTRING, ch)
+            int, ch)
 {
 
     if (cself == NULL) {
@@ -2004,7 +2004,7 @@
                                  context->NewStringFromAsciiz("Window"));
         return 0;
     }
-    return (int)winsch((WINDOW *)cself, (chtype)*ch);
+    return (int)winsch((WINDOW *)cself, (chtype)ch);
 }
 
 /**
@@ -2026,7 +2026,7 @@
             CSELF, cself,              // Self
             int, y,
             int, x,
-            CSTRING, ch)
+            int, ch)
 {
 
     if (cself == NULL) {
@@ -2035,7 +2035,7 @@
                                  context->NewStringFromAsciiz("Window"));
         return 0;
     }
-    return mvwinsch((WINDOW *)cself, SUBTRACTONE(y), SUBTRACTONE(x), (chtype)*ch);
+    return mvwinsch((WINDOW *)cself, SUBTRACTONE(y), SUBTRACTONE(x), (chtype)ch);
 }
 
 /**
@@ -2894,7 +2894,7 @@
 RexxMethod2(int,                       // Return type
             OrxCurPechochar,           // Object_method name
             CSELF, cself,              // Self
-            CSTRING, ch)
+            int, ch)
 {
 
     if (cself == NULL) {
@@ -2903,7 +2903,7 @@
                                  context->NewStringFromAsciiz("Window"));
         return 0;
     }
-    return pechochar((WINDOW *)cself, (chtype)*ch);
+    return pechochar((WINDOW *)cself, (chtype)ch);
 }
 
 /**

Modified: incubator/orxcurses/test5-4.rex
===================================================================
--- incubator/orxcurses/test5-4.rex	2010-01-22 17:47:48 UTC (rev 5498)
+++ incubator/orxcurses/test5-4.rex	2010-01-22 19:06:20 UTC (rev 5499)
@@ -50,7 +50,7 @@
 
 do i = len to 1 by -1
    scr~move(6, 6)
-   scr~insch(text~substr(i, 1))
+   scr~insch(text~substr(i, 1)~c2d())
    scr~refresh()
    scr~napms(100)
    end

Modified: incubator/orxcurses/test5-4a.rex
===================================================================
--- incubator/orxcurses/test5-4a.rex	2010-01-22 17:47:48 UTC (rev 5498)
+++ incubator/orxcurses/test5-4a.rex	2010-01-22 19:06:20 UTC (rev 5499)
@@ -51,7 +51,7 @@
 
 do i = len to 1 by -1
    scr~move(5, 5)
-   scr~insch(text~substr(i, 1))
+   scr~insch(text~substr(i, 1)~c2d())
    scr~refresh()
    scr~napms(100)
    end


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.