Actions
Hello world » History » Revision 2
« Previous |
Revision 2/8
(diff)
| Next »
iri, 02/22/2011 01:59 AM
Hello world¶
Here is a famous "Hello world" !
typeof win = ObjGtkWidget;;
typeof button = ObjGtkWidget;;
fun CBend (obj, uparam)=
_gtkMainQuit;
0;;
fun CBbutton (obj, uparam)=
_fooS strcat "user param is : " uparam;
_fooS if (obj == button) then "Ok, same button" else "No !!";
0;;
fun main ()=
/* display the console */
_showconsole;
/* create a window */
set win = _gtkWindowNew _channel nil "First example" [320 50] [500 400];
/* define acallback when the window will be destroyed */
_gtkWindowCBdestroyed win @CBend 0;
/* create a button */
set button = _gtkButtonNew _channel "Hello World !" SCOL_GTK_BUTTON_LABEL nil;
/* define a callback when the button will be clicked */
_gtkButtonCBclicked button @CBbutton "It's great !";
/* Add the button to the window */
_gtkWindowAddChild win button;
/* Show all */
_gtkWidgetShowAll win;
/* Run the GTK+ loop */
_gtkMain;
0;;
Return Examples
Updated by iri almost 14 years ago · 2 revisions