Merge pull request #91 from lkppo/iup-sample-fix

Iup sample fix

Author: dkl

examples/GUI/IUP/buttons.bas

@@ -1,10 +1,10 @@
- 
+ 
 #include once "IUP/iup.bi" 
 
 #define NULL 0 
 
-declare function ok_onclick cdecl (byval handler as Ihandle ptr) as integer 
-declare function close_onclick cdecl (byval handler as Ihandle ptr) as integer 
+declare function ok_onclick cdecl (byval handler as Ihandle ptr) as long 
+declare function close_onclick cdecl (byval handler as Ihandle ptr) as long 
 
 	if( IupOpen( NULL, NULL ) = IUP_ERROR ) then
 		end 1
@@ -40,7 +40,7 @@ declare function close_onclick cdecl (byval handler as Ihandle ptr) as integer
 	end 0
 
 '' 
-function ok_onclick cdecl (byval handler as Ihandle ptr) as integer 
+function ok_onclick cdecl (byval handler as Ihandle ptr) as long 
 
   IupMessage( "IupMessage", "Press OK" ) 
 
@@ -49,7 +49,7 @@ function ok_onclick cdecl (byval handler as Ihandle ptr) as integer
 end function 
 
 '' 
-function close_onclick cdecl (byval handler as Ihandle ptr) as integer 
+function close_onclick cdecl (byval handler as Ihandle ptr) as long 
 
   function = IUP_CLOSE
 

examples/GUI/IUP/color.bas

@@ -1,10 +1,10 @@
-
+
 #include once "IUP/iup.bi"
 
 #define NULL 0
 
 '':::::
-function ok_cb cdecl (byval handler as Ihandle ptr) as integer
+function ok_cb cdecl (byval handler as Ihandle ptr) as long
   dim as Ihandle ptr red_text
   dim as Ihandle ptr green_text
   dim as Ihandle ptr blue_text

examples/GUI/IUP/textbox.bas

@@ -1,4 +1,4 @@
-#include once "IUP/iup.bi"
+#include once "IUP/iup.bi"
 const NULL = 0
 const NEWLINE = !"\n"
 
@@ -11,7 +11,7 @@ function on_click_ok cdecl(byval handler as Ihandle ptr) as long
 
 	print "OK clicked! content of textbox: <" + text + ">"
 
-	IupSetAttribute(label, IUP_TITLE, _
+	IupSetStrAttribute(label, IUP_TITLE, _
 		"Thanks. You entered <" + text + ">." + NEWLINE + _
 		"val() result: " & val(text) & ". " + NEWLINE + _
 		"IupGetInt() result: " & IupGetInt(textbox, IUP_VALUE) & "." + NEWLINE + _