main.bas

Go to the documentation of this file.

FUNCTION menu_button3_event CDECL ALIAS "menu_button3_event" ( _

  BYVAL Widget AS GtkWidget PTR, _

  BYVAL Event AS GdkEvent PTR, _

  BYVAL PopUp AS gpointer) AS gboolean EXPORT



  WITH *CAST(GdkEventButton PTR, Event)

    IF .button <> 3 THEN RETURN FALSE

    gtk_menu_popup(PopUp, NULL, NULL, NULL, NULL, .button, .time)

  END WITH

  RETURN TRUE



END FUNCTION







SUB on_boolcell_toggled CDECL ALIAS "on_boolcell_toggled" ( _

  BYVAL CellRenderer AS GtkCellRendererToggle PTR, _

  BYVAL Path AS gchar PTR, _

  BYVAL Store AS gpointer) EXPORT



  DIM AS gboolean v

  DIM AS GtkTreeIter iter

  VAR model = GTK_TREE_MODEL(Store)

  gtk_tree_model_get_iter_from_string(model, @iter, Path)

  gtk_tree_model_get(model, @iter, 1, @v, -1)

  gtk_tree_store_set(Store, @iter, 1, IIF(v, 0, 1), -1)



END SUB







SUB on_StopVar_clicked CDECL ALIAS "on_StopVar_clicked" ( _

  BYVAL Button AS GtkButton PTR, _

  BYVAL user_data AS gpointer) EXPORT



?" --> callback on_StopVar_clicked"

  gtk_button_set_label(Button, "This text get set form code in file tobac/on_StopVar_clicked.bas")



END SUB







SUB act_tools CDECL ALIAS "act_tools" ( _

  BYVAL Action AS GtkAction PTR, _

  BYVAL PopUp AS gpointer) EXPORT



  gtk_menu_popup(PopUp, NULL, NULL, NULL, NULL, 1, gtk_get_current_event_time())



END SUB