Code: Select all
#G_TYPE_STRING = 16 << 2
ProcedureC gtk_end()
gtk_main_quit_()
EndProcedure
gtk_init_(0, 0)
win = gtk_window_new_(#GTK_WINDOW_TOPLEVEL)
gtk_window_set_title_(win, "Hello")
Type.l = #G_TYPE_STRING
Model = gtk_list_store_newv_(1, @Type)
gtk_list_store_append_(Model, @*Iter.GtkTreeIter)
Value.GValue
Value\g_type = #G_TYPE_STRING
Value\data\v_pointer = @"Mr. Bean"
gtk_list_store_set_value_(Model, @*Iter, 0, @Value)
a = gtk_tree_view_new_with_model_(Model)
Column = gtk_tree_view_column_new_()
Renderer = gtk_cell_renderer_text_new_()
gtk_tree_view_column_set_title_(Column, "Column Title")
gtk_tree_view_column_pack_start_(Column, Renderer, 1)
gtk_tree_view_column_add_attribute_(Column, Renderer, "text", 0)
gtk_tree_view_append_column_(a, Column)
gtk_container_add_(win, a)
gtk_window_set_default_size_(win, 300, 150)
gtk_signal_connect_full_(win, "destroy", @gtk_end(), 0, 0, 0, 0, 0)
gtk_widget_show_all_(win)
gtk_main_()