Scol » Lib2D GTK

h1. Hello world

Here is a famous "Hello world" !

<pre><code class="c">

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

</code></pre>