Fix code generator for unsigned return types

Generate code according to previous commit and
add a testcase.

Author: dgud

lib/wx/api_gen/wx_gen_nif.erl

@@ -977,8 +977,13 @@ return_res1(#type{name="wxCharBuffer", base={binary,_},single=true,by_val=true})
     {"char * Result = ", ".data()"};
 return_res1(#type{name=Type,single=array,ref=reference}) ->
     {Type ++ " Result = ", ""};
-return_res1(#type{name=Type,single=true,by_val=true}) ->
-    {Type ++ " Result = ", ""}.
+return_res1(#type{name=Type,single=true,by_val=true, mod=Mods}) ->
+    case lists:member(unsigned, Mods) of
+        true ->
+            {io_lib:format("unsigned ~s Result = ", [Type]), ""};
+        false ->
+            {Type ++ " Result = ", ""}
+    end.
 
 filter(Ps) ->
     lists:filter(fun filter_arg/1, Ps).

lib/wx/test/wx_class_SUITE.erl

@@ -32,7 +32,7 @@
 	 init_per_testcase/2, end_per_testcase/2]).
 
 -export([calendarCtrl/1, treeCtrl/1, notebook/1, staticBoxSizer/1,
-         clipboard/1, helpFrame/1, htmlWindow/1, listCtrlSort/1, listCtrlVirtual/1,
+         clipboard/1, helpFrame/1, htmlWindow/1, image/1, listCtrlSort/1, listCtrlVirtual/1,
          radioBox/1, systemSettings/1, taskBarIcon/1, toolbar/1, popup/1, modal/1,
          textCtrl/1, locale/1]).
 
@@ -54,8 +54,8 @@ end_per_testcase(Func,Config) ->
 suite() -> [{ct_hooks,[ts_install_cth]}, {timetrap,{minutes,2}}].
 
 all() ->
-    [calendarCtrl, treeCtrl, notebook, staticBoxSizer,
-     clipboard, helpFrame, htmlWindow, listCtrlSort, listCtrlVirtual,
+    [calendarCtrl, treeCtrl, notebook, staticBoxSizer, clipboard,
+     helpFrame, htmlWindow, image, listCtrlSort, listCtrlVirtual,
      radioBox, systemSettings, taskBarIcon, toolbar, popup, modal,
      textCtrl, locale].
 
@@ -623,6 +623,19 @@ locale(_Config) ->
     io:format("initiated ~p~n",[R0]),
     lang_env(),
     ok.
+
+image(_Config) when is_list(_Config) ->
+    wx:new(),
+    Bin = << <<220:8, Row:8, Col:8>> ||
+              Row <- lists:seq(0, 127),
+              Col <- lists:seq(0, 127) >>,
+    Image = wxImage:new(128, 128, Bin),
+    220 = wxImage:getRed(Image, 42, 13),
+    42 = wxImage:getBlue(Image, 42, 13),
+    13 = wxImage:getGreen(Image, 42, 13),
+    ok.
+
+
 %% wx_test_lib:wx_destroy(Frame,Config).
 
 lang_env() ->