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;;