Buttons explanations¶

To create any button, you should use _gtkButtonNew

How to create them ?

• A simple button with a label :

typeof win = ObjGtkWidget;;
typeof button = ObjGtkWidget;;

fun CBbutton (obj, uparam)=
    _fooS "The button has been clicked";
    _fooS strcat "user param is : " uparam;
    0;;

fun main ()=
    _showconsole;

    /* Create a window ...*/
    set win = ...
    /* Create the button : 
    use _gtkButtonNew function with :
    - the channel
    - the parent (here a window)
    - the label
    - the flag. For a simple button, use SCOL_GTK_BUTTON_LABEL
    - no supplemental parameter needed, so, nil it's ok */
    set button = _gtkButtonNew _channel win "My button" SCOL_GTK_BUTTON_LABEL nil;
    /* Define the callback 
    use _gtkButtonCB with :
    - the Scol object
    - the reflex
    - any parameter at your convenience
    - the flag. To get the "clicked" signal, use SCOL_GTK_BUTTON_CB_CLICKED
    It's all*/
    _gtkButtonCB button @CBbutton "yes !" SCOL_GTK_BUTTON_CB_CLICKED;
    ...
    ;;

• A button with a mnemonic :
  A mnemonic is, by example, a keyboard shortcut

fun CBbutton (obj, uparam)=
    _fooS "The button has been clicked";
    _fooS strcat "user param is : " uparam;
    0;;

fun main ()=
    _showconsole;

    /* Create a window ...*/
    set win = ...
    /* Create the button : 
    - the flag. For a simple button, use SCOL_GTK_BUTTON_MNEMONIC
    - no supplemental parameter needed, so, nil it's ok */
    set button = _gtkButtonNew _channel win "My button" SCOL_GTK_BUTTON_MNEMONIC nil;
    /* Define the callback 
    - the flag. To get the "clicked" signal, use SCOL_GTK_BUTTON_CB_CLICKED */
    _gtkButtonCB button @CBbutton "yes !" SCOL_GTK_BUTTON_CB_CLICKED;
    ...
    ;;