Hello world » History » Version 7
iri, 02/22/2011 02:27 PM
| 1 | 1 | iri | h1. Hello world |
|---|---|---|---|
| 2 | |||
| 3 | Here is a famous "Hello world" ! |
||
| 4 | |||
| 5 | 3 | iri | <pre><code class="php"> |
| 6 | 1 | iri | typeof win = ObjGtkWidget;; |
| 7 | typeof button = ObjGtkWidget;; |
||
| 8 | |||
| 9 | fun CBend (obj, uparam)= |
||
| 10 | 5 | iri | /* Stop the GTK+ loop */ |
| 11 | 1 | iri | _gtkMainQuit; |
| 12 | 5 | iri | _closemachine; |
| 13 | 1 | iri | 0;; |
| 14 | |||
| 15 | fun CBbutton (obj, uparam)= |
||
| 16 | _fooS strcat "user param is : " uparam; |
||
| 17 | 0;; |
||
| 18 | |||
| 19 | fun main ()= |
||
| 20 | /* display the console */ |
||
| 21 | _showconsole; |
||
| 22 | |||
| 23 | /* create a window */ |
||
| 24 | set win = _gtkWindowNew _channel nil "First example" [320 50] [500 400]; |
||
| 25 | /* define acallback when the window will be destroyed */ |
||
| 26 | _gtkWindowCBdestroyed win @CBend 0; |
||
| 27 | |||
| 28 | 4 | iri | /* create a button with a simple label */ |
| 29 | 1 | iri | set button = _gtkButtonNew _channel "Hello World !" SCOL_GTK_BUTTON_LABEL nil; |
| 30 | /* define a callback when the button will be clicked */ |
||
| 31 | 7 | iri | _gtkButtonCB button @CBbutton "It's great !" SCOL_GTK_BUTTON_CB_CLICKED; |
| 32 | 1 | iri | |
| 33 | /* Add the button to the window */ |
||
| 34 | _gtkWindowAddChild win button; |
||
| 35 | /* Show all */ |
||
| 36 | _gtkWidgetShowAll win; |
||
| 37 | /* Run the GTK+ loop */ |
||
| 38 | _gtkMain; |
||
| 39 | 0;; |
||
| 40 | </code></pre> |
||
| 41 | 2 | iri | |
| 42 | Return [[Examples]] |