src/ui/gtk/lib.slate

   1
   2 Gtk define: #LibNames &builder: [{'Win32' -> ({'gtk-wrapper' -> 'gtk-wrapper'.
   3                                                   'gtk' -> 'libgtk-win32-2.0-0'} as: Dictionary).
   4                                    'Linux' -> ({'gtk-wrapper' -> 'gtk-wrapper'.
   5                                                   'gtk' -> 'libgtk-x11-2.0'} as: Dictionary).
   6  } as: Dictionary].
   7
   8
   9
  10
  11
  12
  13 Gtk define: #LibWrapper -> (
  14   ExternalInterface newForLibrary: ((Gtk LibNames at: Platform current name) at: 'gtk-wrapper') primitives: q{
  15     (Pointer wrapper_gtk_dialog_get_vbox(Pointer))
  16
  17     (Void wrapper_gtk_lib_init())
  18
  19     (Pointer wrapper_gtk_stock_item_new())
  20     (CString wrapper_gtk_stock_item_get_stock_id(Pointer))
  21     (CString wrapper_gtk_stock_item_get_label(Pointer))
  22     (Int wrapper_gtk_stock_item_get_keyval(Pointer))
  23     (Int wrapper_gtk_stock_item_get_modifier(Pointer))
  24
  25     (Pointer wrapper_gtk_text_iter_new())
  26
  27     (Pointer wrapper_gtk_tree_iter_new())
  28
  29   }
  30 ).
  31
  32 Gtk LibWrapper enable.
  33
  34 l@(Gtk LibWrapper) init [
  35   l primitives wrapper_gtk_lib_init do.
  36 ].
  37
  38 Gtk define: #Lib -> (
  39   ExternalInterface newForLibrary: ((Gtk LibNames at: Platform current name) at: 'gtk') primitives: q{
  40
  41     (Pointer gtk_accel_group_new())
  42     (Void gtk_accel_group_connect(Pointer Int Int Int Pointer))
  43
  44     (CString gtk_accelerator_name(Int Int))
  45     (CString gtk_accelerator_get_label(Int Int))
  46     (Int gtk_accelerator_get_default_mod_mask())
  47     (Void gtk_accelerator_set_default_mod_mask(Int))
  48
  49     (Pointer gtk_adjustment_new(Double Double Double Double Double Double))
  50
  51     (Pointer gtk_alignment_new(Float Float Float Float))
  52
  53     (Void gtk_box_pack_start(Pointer Pointer Boolean Boolean Int))
  54     (Void gtk_box_pack_end(Pointer Pointer Boolean Boolean Int))
  55
  56     (Pointer gtk_button_new())
  57     (Pointer gtk_button_new_with_label(CString))
  58     (Pointer gtk_button_new_from_stock(CString))
  59
  60     (Pointer gtk_cell_renderer_pixbuf_new())
  61
  62     (Pointer gtk_cell_renderer_text_new())
  63
  64     (Pointer gtk_clipboard_get(Pointer))
  65
  66     (Void gtk_container_set_border_width(Pointer Int))
  67     (Void gtk_container_add(Pointer Pointer))
  68
  69     (Pointer gtk_dialog_new())
  70     (Pointer gtk_dialog_new_with_buttons(CString Pointer Int Pointer))
  71     "(Int gtk_dialog_run(Pointer))"
  72     (Pointer gtk_dialog_add_button(Pointer CString Int))
  73
  74     (Pointer gtk_file_chooser_dialog_new(CString Pointer Int CString))
  75     (CString gtk_file_chooser_get_filename(Pointer))
  76     (Boolean gtk_file_chooser_set_filename(Pointer CString))
  77
  78     (Pointer gtk_frame_new())
  79     (Void gtk_frame_set_label(Pointer CString))
  80
  81     (Pointer gtk_hbox_new(Boolean Int))
  82
  83     (Pointer gtk_hpaned_new())
  84
  85     (Pointer gtk_image_new_from_stock(CString Int))
  86     (Pointer gtk_image_new())
  87     (Void gtk_image_set_from_stock(Pointer CString Int))
  88
  89     (Pointer gtk_image_menu_item_new())
  90     (Pointer gtk_image_menu_item_new_with_mnemonic(CString))
  91     (Pointer gtk_image_menu_item_new_with_label(CString))
  92     (Pointer gtk_image_menu_item_new_from_stock(CString Pointer))
  93
  94     (Pointer gtk_label_new(CString))
  95     (Pointer gtk_label_new_with_mnemonic(CString))
  96     (Pointer gtk_label_new_with_mnemonic(CString))
  97     (Void gtk_label_set_use_underline(Pointer Boolean))
  98     (Boolean gtk_label_get_use_underline(Pointer))
  99     (Void gtk_label_set_label(Pointer CString))
 100
 101
 102     (Pointer gtk_list_store_newv(Int Bytes))
 103     (Void gtk_list_store_clear(Pointer))
 104     (Void gtk_list_store_append(Pointer Pointer))
 105     (Void gtk_list_store_set_value(Pointer Pointer Int Pointer))
 106     (Boolean gtk_list_store_iter_is_valid(Pointer Pointer))
 107
 108     (Void gtk_main_quit())
 109
 110     (Pointer gtk_menu_bar_new())
 111
 112     (Pointer gtk_menu_item_new())
 113     (Pointer gtk_menu_item_new_with_mnemonic(CString))
 114     (Void gtk_menu_item_set_submenu(Pointer Pointer))
 115
 116     (Void gtk_menu_shell_append(Pointer Pointer))
 117
 118     (Pointer gtk_menu_new())
 119
 120     (Pointer gtk_message_dialog_new(Pointer Int Int Int CString))
 121
 122     (Pointer gtk_notebook_new())
 123     (Int gtk_notebook_append_page(Pointer Pointer Pointer))
 124
 125     (Void gtk_paned_pack1(Pointer Pointer Boolean Boolean))
 126     (Void gtk_paned_pack2(Pointer Pointer Boolean Boolean))
 127     (Void gtk_paned_add1(Pointer Pointer))
 128     (Void gtk_paned_add2(Pointer Pointer))
 129
 130     (Pointer gtk_scrolled_window_new(Pointer Pointer))
 131     (Void gtk_scrolled_window_set_policy(Pointer Int Int))
 132
 133     (Pointer gtk_separator_menu_item_new())
 134
 135     (Pointer gtk_statusbar_new())
 136
 137     (Pointer gtk_stock_list_ids())
 138     (Boolean gtk_stock_lookup(CString Pointer))
 139
 140     (Pointer gtk_text_buffer_new(Pointer))
 141     (Boolean gtk_text_buffer_get_selection_bounds(Pointer Pointer Pointer))
 142     (Pointer gtk_text_buffer_get_selection_bound(Pointer))
 143     (CString gtk_text_buffer_get_text(Pointer Pointer Pointer Boolean))
 144     (Pointer gtk_text_buffer_get_insert(Pointer))
 145     (Void gtk_text_buffer_get_iter_at_mark(Pointer Pointer Pointer))
 146     (Void gtk_text_buffer_get_iter_at_line(Pointer Pointer Int))
 147     (Void gtk_text_buffer_get_iter_at_offset(Pointer Pointer Int))
 148     (Void gtk_text_buffer_move_mark_by_name(Pointer CString Pointer))
 149     (Void gtk_text_buffer_insert_at_cursor(Pointer CString Int))
 150     (Void gtk_text_buffer_get_start_iter(Pointer Pointer))
 151     (Void gtk_text_buffer_get_end_iter(Pointer Pointer))
 152     (Void gtk_text_buffer_delete(Pointer Pointer Pointer))
 153     (Void gtk_text_buffer_set_text(Pointer CString Int))
 154     (Void gtk_text_buffer_copy_clipboard(Pointer Pointer))
 155     (Void gtk_text_buffer_cut_clipboard(Pointer Pointer Boolean))
 156     (Void gtk_text_buffer_paste_clipboard(Pointer Pointer Pointer Boolean))
 157
 158     (Int gtk_text_iter_get_line(Pointer))
 159     (Void gtk_text_iter_set_line(Pointer Int))
 160     (Void gtk_text_iter_forward_to_end(Pointer))
 161     (Void gtk_text_iter_forward_to_line_end(Pointer))
 162     (Int gtk_text_iter_get_offset(Pointer))
 163
 164     (Pointer gtk_text_mark_new(CString Boolean))
 165
 166     (Pointer gtk_text_view_new())
 167     (Pointer gtk_text_view_get_buffer(Pointer))
 168     (Pointer gtk_text_view_new_with_buffer(Pointer))
 169     (Void gtk_text_view_set_wrap_mode(Pointer Int))
 170     (Void gtk_text_view_scroll_mark_onscreen(Pointer Pointer))
 171     (Boolean gtk_text_view_scroll_to_iter(Pointer Pointer Double Boolean Double Double))
 172
 173     (Pointer gtk_toolbar_new())
 174     (Void gtk_toolbar_insert(Pointer Pointer Int))
 175
 176     (Pointer gtk_tool_button_new_from_stock(CString))
 177
 178     (Pointer gtk_tool_item_new())
 179
 180
 181     (Pointer gtk_tree_model_get_path(Pointer Pointer))
 182     (CString gtk_tree_model_get_string_from_iter(Pointer Pointer))
 183     (Void gtk_tree_model_get_value(Pointer Pointer Int Pointer))
 184     (Int gtk_tree_model_get_n_columns(Pointer))
 185
 186     (Pointer gtk_tree_path_new())
 187     (CString gtk_tree_path_to_string(Pointer))
 188     (Void gtk_tree_path_free(Pointer))
 189
 190     (Boolean gtk_tree_selection_get_selected(Pointer Pointer Pointer))
 191     (Pointer gtk_tree_selection_get_tree_view(Pointer))
 192
 193     (Pointer gtk_tree_store_newv(Int Bytes))
 194     (Void gtk_tree_store_clear(Pointer))
 195     (Void gtk_tree_store_append(Pointer Pointer Pointer))
 196     (Void gtk_tree_store_set_value(Pointer Pointer Int Pointer))
 197     (Boolean gtk_tree_store_iter_is_valid(Pointer Pointer))
 198
 199     (Pointer gtk_tree_view_column_new())
 200     (Void gtk_tree_view_column_set_title(Pointer CString))
 201     (Void gtk_tree_view_column_pack_start(Pointer Pointer Boolean))
 202     (Void gtk_tree_view_column_add_attribute(Pointer Pointer CString Int))
 203
 204     (Pointer gtk_tree_view_new())
 205     (Pointer gtk_tree_view_new_with_model(Pointer))
 206     (Int gtk_tree_view_append_column(Pointer Pointer))
 207     (Pointer gtk_tree_view_get_model(Pointer))
 208     (Void gtk_tree_view_expand_all(Pointer))
 209     (Void gtk_tree_view_set_grid_lines(Pointer Int))
 210     (Pointer gtk_tree_view_get_selection(Pointer))
 211
 212     (Pointer gtk_vbox_new(Boolean Int))
 213
 214     (Pointer gtk_vpaned_new())
 215
 216     (Void gtk_widget_show(Pointer))
 217     (Void gtk_widget_show_all(Pointer))
 218     (Void gtk_widget_destroy(Pointer))
 219     (Void gtk_widget_set_size_request(Pointer Int Int))
 220     (Void gtk_widget_add_accelerator(Pointer CString Pointer Int Int Int))
 221
 222     (Pointer gtk_window_new(Int))
 223     (Void gtk_window_set_title(Pointer CString))
 224     (Void gtk_window_set_default_size(Pointer Int Int))
 225     (Void gtk_window_set_modal(Pointer Boolean))
 226     (Void gtk_window_add_accel_group(Pointer Pointer))
 227   }
 228 ).
 229
 230 Gtk Lib enable.
 231