git.chise.org Git - chise/xemacs-chise.git.1/blob - lisp/gtk-widgets.el

   1 ;;; gtk-widgets.el --- Import GTK functions into XEmacs
   2
   3 ;; Copyright (C) 2000 Free Software Foundation
   4
   5 ;; Maintainer: William Perry <wmperry@gnu.org>
   6 ;; Keywords: extensions, dumped
   7
   8 ;; This file is part of XEmacs.
   9
  10 ;; XEmacs is free software; you can redistribute it and/or modify it
  11 ;; under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; XEmacs is distributed in the hope that it will be useful, but
  16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18 ;; General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  23 ;; 02111-1307, USA.
  24
  25 ;;; Synched up with: Not in FSF
  26
  27 ;;; Commentary:
  28
  29 ;; This file is dumped with XEmacs.
  30
  31 (eval-and-compile
  32   (require 'gtk-ffi))
  33
  34 (gtk-import-function GtkAccelGroup gtk_accel_group_new)
  35
  36 (gtk-import-function GtkType gtk_accel_label_get_type)
  37 (gtk-import-function GtkWidget gtk_accel_label_new GtkString)
  38 (gtk-import-function guint gtk_accel_label_get_accel_width GtkAccelLabel)
  39 (gtk-import-function nil gtk_accel_label_set_accel_widget GtkAccelLabel GtkWidget)
  40 (gtk-import-function gboolean gtk_accel_label_refetch GtkAccelLabel)
  41
  42 \f
  43 (gtk-import-function GtkType gtk_adjustment_get_type)
  44 (gtk-import-function GtkObject gtk_adjustment_new gfloat gfloat gfloat gfloat gfloat gfloat)
  45 (gtk-import-function nil gtk_adjustment_changed GtkAdjustment)
  46 (gtk-import-function nil gtk_adjustment_value_changed GtkAdjustment)
  47 (gtk-import-function nil gtk_adjustment_clamp_page GtkAdjustment gfloat gfloat)
  48 (gtk-import-function nil gtk_adjustment_set_value GtkAdjustment gfloat)
  49
  50 \f
  51 (gtk-import-function GtkType gtk_alignment_get_type)
  52 (gtk-import-function GtkWidget gtk_alignment_new gfloat gfloat gfloat gfloat)
  53 (gtk-import-function nil gtk_alignment_set GtkAlignment gfloat gfloat gfloat gfloat)
  54
  55 \f
  56 (gtk-import-function GtkType gtk_arrow_get_type)
  57 (gtk-import-function GtkWidget gtk_arrow_new GtkArrowType GtkShadowType)
  58 (gtk-import-function nil gtk_arrow_set GtkArrow GtkArrowType GtkShadowType)
  59
  60 \f
  61 (gtk-import-function GtkType gtk_aspect_frame_get_type)
  62 (gtk-import-function GtkWidget gtk_aspect_frame_new GtkString gfloat gfloat gfloat gboolean)
  63 (gtk-import-function nil gtk_aspect_frame_set GtkAspectFrame gfloat gfloat gfloat gboolean)
  64
  65 \f
  66 (gtk-import-function GtkType gtk_bin_get_type)
  67
  68 \f
  69 (gtk-import-function GtkType gtk_box_get_type)
  70 (gtk-import-function nil gtk_box_pack_start
  71                      (GtkBox     . box)
  72                      (GtkWidget  . child)
  73                      (gboolean   . expand)
  74                      (gboolean   . fill)
  75                      (guint      . padding))
  76
  77 (gtk-import-function nil gtk_box_pack_end
  78                      (GtkBox     . box)
  79                      (GtkWidget  . child)
  80                      (gboolean   . expand)
  81                      (gboolean   . fill)
  82                      (guint      . padding))
  83
  84 (gtk-import-function nil gtk_box_pack_start_defaults
  85                      (GtkBox     . box)
  86                      (GtkWidget  . child))
  87
  88 (gtk-import-function nil gtk_box_pack_end_defaults
  89                      (GtkBox     . box)
  90                      (GtkWidget  . child))
  91
  92 (gtk-import-function nil gtk_box_set_homogeneous
  93                      (GtkBox     . box)
  94                      (gboolean   . homogeneous))
  95
  96 (gtk-import-function nil gtk_box_set_spacing
  97                      (GtkBox     . box)
  98                      (gint       . spacing))
  99
 100 (gtk-import-function nil gtk_box_reorder_child
 101                      (GtkBox      . box)
 102                      (GtkWidget  . child)
 103                      (gint       . position))
 104
 105 ;;;Handcoded in ui-byhand.c... #### FIXME
 106 ;;;void    gtk_box_query_child_packing (GtkBox       *box,
 107 ;;;                                     GtkWidget    *child,
 108 ;;;                                     gboolean     *expand,
 109 ;;;                                     gboolean     *fill,
 110 ;;;                                     guint        *padding,
 111 ;;;                                     GtkPackType  *pack_type);
 112
 113 (gtk-import-function nil gtk_box_set_child_packing
 114                      (GtkBox      . box)
 115                      (GtkWidget   . child)
 116                      (gboolean    . expand)
 117                      (gboolean    . fill)
 118                      (guint       . padding)
 119                      (GtkPackType . pack_type))
 120
 121 \f
 122 (gtk-import-function GtkType gtk_button_get_type)
 123 (gtk-import-function GtkWidget gtk_button_new)
 124 (gtk-import-function GtkWidget gtk_button_new_with_label GtkString)
 125 (gtk-import-function nil gtk_button_pressed GtkButton)
 126 (gtk-import-function nil gtk_button_released GtkButton)
 127 (gtk-import-function nil gtk_button_clicked GtkButton)
 128 (gtk-import-function nil gtk_button_enter GtkButton)
 129 (gtk-import-function nil gtk_button_leave GtkButton)
 130 (gtk-import-function nil gtk_button_set_relief GtkButton GtkReliefStyle)
 131 (gtk-import-function GtkReliefStyle gtk_button_get_relief GtkButton)
 132
 133 (defun gtk-button-new-with-pixmap (glyph)
 134   "Construct a new GtkButton object with a pixmap."
 135   (let ((button (gtk-button-new))
 136         (pixmap nil))
 137     (if (glyphp glyph)
 138         (setq pixmap (gtk-pixmap-new glyph nil))
 139       (setq pixmap glyph))
 140     (gtk-widget-show pixmap)
 141     (gtk-container-add button pixmap)
 142     button))
 143
 144 \f
 145 (gtk-import-function GtkType gtk_button_box_get_type)
 146
 147 ;Handcoded in ui-byhand.c... #### FIXME
 148 ;;;void gtk_button_box_get_child_size_default (gint *min_width, gint *min_height);
 149 ;;;void gtk_button_box_get_child_ipadding_default (gint *ipad_x, gint *ipad_y);
 150
 151 (gtk-import-function nil gtk_button_box_set_child_size_default gint gint)
 152 (gtk-import-function nil gtk_button_box_set_child_ipadding_default gint gint)
 153 (gtk-import-function gint gtk_button_box_get_spacing GtkButtonBox)
 154 (gtk-import-function GtkButtonBoxStyle gtk_button_box_get_layout GtkButtonBox)
 155
 156 ;Handcoded in ui-byhand.c... #### FIXME
 157 ;;;void gtk_button_box_get_child_size (GtkButtonBox *widget,
 158 ;;;                                 gint *min_width, gint *min_height);
 159 ;;;void gtk_button_box_get_child_ipadding (GtkButtonBox *widget, gint *ipad_x, gint *ipad_y);
 160
 161 (gtk-import-function nil gtk_button_box_set_spacing GtkButtonBox gint)
 162 (gtk-import-function nil gtk_button_box_set_layout GtkButtonBox GtkButtonBoxStyle)
 163 (gtk-import-function nil gtk_button_box_set_child_size GtkButtonBox gint gint)
 164 (gtk-import-function nil gtk_button_box_set_child_ipadding GtkButtonBox gint gint)
 165
 166 \f
 167 (gtk-import-function GtkType gtk_calendar_get_type)
 168 (gtk-import-function GtkWidget gtk_calendar_new)
 169 (gtk-import-function gint gtk_calendar_select_month GtkCalendar guint guint)
 170 (gtk-import-function nil gtk_calendar_select_day GtkCalendar guint)
 171 (gtk-import-function gint gtk_calendar_mark_day GtkCalendar guint)
 172 (gtk-import-function gint gtk_calendar_unmark_day GtkCalendar guint)
 173 (gtk-import-function nil gtk_calendar_clear_marks GtkCalendar)
 174 (gtk-import-function nil gtk_calendar_display_options GtkCalendar GtkCalendarDisplayOptions)
 175
 176 ;Handcoded in ui-byhand.c... #### FIXME
 177 ;void      gtk_calendar_get_date        (GtkCalendar *calendar,
 178 ;                                        guint       *year,
 179 ;                                        guint       *month,
 180 ;                                        guint       *day);
 181
 182 (gtk-import-function nil gtk_calendar_freeze GtkCalendar)
 183 (gtk-import-function nil gtk_calendar_thaw GtkCalendar)
 184
 185 \f
 186 (gtk-import-function GtkType gtk_check_button_get_type)
 187 (gtk-import-function GtkWidget gtk_check_button_new)
 188 (gtk-import-function GtkWidget gtk_check_button_new_with_label GtkString)
 189
 190 \f
 191 (gtk-import-function GtkType gtk_check_menu_item_get_type)
 192 (gtk-import-function GtkWidget gtk_check_menu_item_new)
 193 (gtk-import-function GtkWidget gtk_check_menu_item_new_with_label GtkString)
 194 (gtk-import-function nil gtk_check_menu_item_set_active GtkCheckMenuItem gboolean)
 195 (gtk-import-function nil gtk_check_menu_item_set_show_toggle GtkCheckMenuItem gboolean)
 196 (gtk-import-function nil gtk_check_menu_item_toggled GtkCheckMenuItem)
 197
 198 \f
 199 (gtk-import-function GtkType gtk_clist_get_type)
 200 (gtk-import-function GtkWidget gtk_clist_new gint)
 201
 202 (gtk-import-function GtkWidget gtk_clist_new_with_titles
 203                      (gint           . columns)
 204                      (GtkArrayOfString . titles))
 205
 206 ;; set adjustments of clist
 207 (gtk-import-function nil gtk_clist_set_hadjustment GtkCList GtkAdjustment)
 208 (gtk-import-function nil gtk_clist_set_vadjustment GtkCList GtkAdjustment)
 209
 210 ;; get adjustments of clist
 211 (gtk-import-function GtkAdjustment gtk_clist_get_hadjustment GtkCList)
 212 (gtk-import-function GtkAdjustment gtk_clist_get_vadjustment GtkCList)
 213
 214 ;; set the border style of the clist
 215 (gtk-import-function nil gtk_clist_set_shadow_type GtkCList GtkShadowType)
 216
 217 ;; set the clist's selection mode
 218 (gtk-import-function nil gtk_clist_set_selection_mode GtkCList GtkSelectionMode)
 219
 220 ;; enable clists reorder ability
 221 (gtk-import-function nil gtk_clist_set_reorderable GtkCList gboolean)
 222 (gtk-import-function nil gtk_clist_set_use_drag_icons GtkCList gboolean)
 223 (gtk-import-function nil gtk_clist_set_button_actions GtkCList guint guint)
 224
 225 ;; freeze all visual updates of the list, and then thaw the list after
 226 ;; you have made a number of changes and the updates wil occure in a
 227 ;; more efficent mannor than if you made them on a unfrozen list
 228 (gtk-import-function nil gtk_clist_freeze GtkCList)
 229 (gtk-import-function nil gtk_clist_thaw GtkCList)
 230
 231 ;; show and hide the column title buttons
 232 (gtk-import-function nil gtk_clist_column_titles_show GtkCList)
 233 (gtk-import-function nil gtk_clist_column_titles_hide GtkCList)
 234
 235 ;; set the column title to be a active title (responds to button presses,
 236 ;; prelights, and grabs keyboard focus), or passive where it acts as just
 237 ;; a title
 238 (gtk-import-function nil gtk_clist_column_title_active GtkCList gint)
 239 (gtk-import-function nil gtk_clist_column_title_passive GtkCList gint)
 240 (gtk-import-function nil gtk_clist_column_titles_active GtkCList)
 241 (gtk-import-function nil gtk_clist_column_titles_passive GtkCList)
 242
 243 ;; set the title in the column title button
 244 (gtk-import-function nil gtk_clist_set_column_title GtkCList gint GtkString)
 245
 246 ;; returns the title of column. Returns NULL if title is not set */
 247 (gtk-import-function GtkString gtk_clist_get_column_title GtkCList gint)
 248
 249 ;; set a widget instead of a title for the column title button
 250 (gtk-import-function nil gtk_clist_set_column_widget GtkCList gint GtkWidget)
 251
 252 ;; returns the column widget
 253 (gtk-import-function GtkWidget gtk_clist_get_column_widget GtkCList gint)
 254
 255 ;; set the justification on a column
 256 (gtk-import-function nil gtk_clist_set_column_justification GtkCList gint GtkJustification)
 257
 258 ;; set visibility of a column
 259 (gtk-import-function nil gtk_clist_set_column_visibility GtkCList gint gboolean)
 260
 261 ;; enable/disable column resize operations by mouse
 262 (gtk-import-function nil gtk_clist_set_column_resizeable GtkCList gint gboolean)
 263
 264 ;; resize column automatically to its optimal width
 265 (gtk-import-function nil gtk_clist_set_column_auto_resize GtkCList gint gboolean)
 266 (gtk-import-function gint gtk_clist_columns_autosize GtkCList)
 267
 268 ;; return the optimal column width, i.e. maximum of all cell widths
 269 (gtk-import-function gint gtk_clist_optimal_column_width GtkCList gint)
 270
 271 ;; set the pixel width of a column; this is a necessary step in
 272 ;; creating a CList because otherwise the column width is chozen from
 273 ;; the width of the column title, which will never be right
 274
 275 (gtk-import-function nil gtk_clist_set_column_width GtkCList gint gint)
 276
 277 ;; set column minimum/maximum width. min/max_width < 0 => no restriction
 278 (gtk-import-function nil gtk_clist_set_column_min_width GtkCList gint gint)
 279 (gtk-import-function nil gtk_clist_set_column_max_width GtkCList gint gint)
 280
 281 ;; change the height of the rows, the default (height=0) is
 282 ;; the hight of the current font.
 283 (gtk-import-function nil gtk_clist_set_row_height GtkCList guint)
 284
 285 ;; scroll the viewing area of the list to the given column and row;
 286 ;; row_align and col_align are between 0-1 representing the location the
 287 ;; row should appear on the screnn, 0.0 being top or left, 1.0 being
 288 ;; bottom or right; if row or column is -1 then then there is no change
 289 (gtk-import-function nil gtk_clist_moveto GtkCList gint gint gfloat gfloat)
 290
 291 ;; returns whether the row is visible
 292 (gtk-import-function GtkVisibility gtk_clist_row_is_visible GtkCList gint)
 293
 294 ;; returns the cell type
 295 (gtk-import-function GtkCellType gtk_clist_get_cell_type GtkCList gint gint)
 296
 297 ;; sets a given cell's text, replacing it's current contents
 298 (gtk-import-function nil gtk_clist_set_text GtkCList gint gint GtkString)
 299
 300 ;; for the "get" functions, any of the return pointer can be
 301 ;; NULL if you are not interested
 302 ;;
 303 ;;;Handcoded in ui-byhand.c... #### FIXME
 304 ;;;gint gtk_clist_get_text (GtkCList  *clist,
 305 ;;;                      gint       row,
 306 ;;;                      gint       column,
 307 ;;;                      gchar    **text);
 308
 309 ;; #### BILL!!! Implement these!
 310 ;; (gtk-import-function nil gtk_clist_get_pixmap)
 311 ;; (gtk-import-function nil gtk_clist_get_pixtext)
 312
 313 (gtk-import-function nil gtk_clist_set_pixmap
 314                      (GtkCList . clist)
 315                      (gint     . row)
 316                      (gint     . column)
 317                      (GdkPixmap . pixmap)
 318                      (GdkBitmap . mask))
 319 (gtk-import-function nil gtk_clist_set_pixtext
 320                      (GtkCList . clist)
 321                      (gint     . row)
 322                      (gint     . column)
 323                      (GtkString . text)
 324                      (gint      . spacing)
 325                      (GdkPixmap . pixmap)
 326                      (GdkBitmap . mask))
 327
 328 ;; sets the foreground color of a row, the color must already
 329 ;; be allocated
 330 (gtk-import-function nil gtk_clist_set_foreground GtkCList gint GdkColor)
 331
 332 ;; sets the background color of a row, the color must already
 333 ;; be allocated
 334 (gtk-import-function nil gtk_clist_set_background GtkCList gint GdkColor)
 335
 336 ;; set / get cell styles
 337 (gtk-import-function nil gtk_clist_set_cell_style GtkCList gint gint GtkStyle)
 338 (gtk-import-function GtkStyle gtk_clist_get_cell_style GtkCList gint gint)
 339 (gtk-import-function nil gtk_clist_set_row_style GtkCList gint GtkStyle)
 340 (gtk-import-function GtkStyle gtk_clist_get_row_style GtkCList gint)
 341
 342 ;; this sets a horizontal and vertical shift for drawing
 343 ;; the contents of a cell; it can be positive or negitive;
 344 ;; this is particulary useful for indenting items in a column
 345 (gtk-import-function nil gtk_clist_set_shift GtkCList gint gint gint gint)
 346
 347 ;; set/get selectable flag of a single row
 348 (gtk-import-function nil gtk_clist_set_selectable GtkCList gint gboolean)
 349 (gtk-import-function gboolean gtk_clist_get_selectable GtkCList gint)
 350
 351 ;; prepend/append returns the index of the row you just added,
 352 ;; making it easier to append and modify a row
 353
 354 (gtk-import-function gint gtk_clist_prepend
 355                      (GtkCList         . clist)
 356                      (GtkArrayOfString . text))
 357
 358 (gtk-import-function gint gtk_clist_append
 359                      (GtkCList         . clist)
 360                      (GtkArrayOfString . text))
 361
 362 ;; inserts a row at index row and returns the row where it was
 363 ;; actually inserted (may be different from "row" in auto_sort mode)
 364 (gtk-import-function gint gtk_clist_insert
 365                      (GtkCList . clist)
 366                      (gint     . row)
 367                      (GtkArrayOfString . text))
 368
 369 ;; removes row at index row
 370 (gtk-import-function nil gtk_clist_remove GtkCList gint)
 371
 372 ;; sets a arbitrary data pointer for a given row
 373 (gtk-import-function nil gtk_clist_set_row_data GtkCList gint gpointer)
 374
 375 ;; sets a data pointer for a given row with destroy notification
 376 ;; #### Need to handle callbacks.
 377 ;;;void gtk_clist_set_row_data_full (GtkCList         *clist,
 378 ;;;                               gint              row,
 379 ;;;                               gpointer          data,
 380 ;;;                               GtkDestroyNotify  destroy);
 381
 382 ;; returns the data set for a row
 383 (gtk-import-function gpointer gtk_clist_get_row_data GtkCList gint)
 384
 385 ;; givin a data pointer, find the first (and hopefully only!)
 386 ;; row that points to that data, or -1 if none do
 387 (gtk-import-function gint gtk_clist_find_row_from_data GtkCList gpointer)
 388
 389 ;; force selection of a row
 390 (gtk-import-function nil gtk_clist_select_row GtkCList gint gint)
 391
 392 ;; force unselection of a row
 393 (gtk-import-function nil gtk_clist_unselect_row GtkCList gint gint)
 394
 395 ;; undo the last select/unselect operation
 396 (gtk-import-function nil gtk_clist_undo_selection GtkCList)
 397
 398 ;; clear the entire list -- this is much faster than removing
 399 ;; each item with gtk_clist_remove
 400 (gtk-import-function nil gtk_clist_clear GtkCList)
 401
 402 ;; return the row column corresponding to the x and y coordinates,
 403 ;; the returned values are only valid if the x and y coordinates
 404 ;; are respectively to a window == clist->clist_window
 405 ;;
 406 ;;;Handcoded in ui-byhand.c... #### FIXME
 407 ;;;gint gtk_clist_get_selection_info (GtkCList *clist,
 408 ;;;                                gint      x,
 409 ;;;                                gint      y,
 410 ;;;                                gint     *row,
 411 ;;;                                gint     *column);
 412
 413 ;; in multiple or extended mode, select all rows
 414 (gtk-import-function nil gtk_clist_select_all GtkCList)
 415
 416 ;; in all modes except browse mode, deselect all rows
 417 (gtk-import-function nil gtk_clist_unselect_all GtkCList)
 418
 419 ;; swap the position of two rows
 420 (gtk-import-function nil gtk_clist_swap_rows GtkCList gint gint)
 421
 422 ;; move row from source_row position to dest_row position
 423 (gtk-import-function nil gtk_clist_row_move GtkCList gint gint)
 424
 425 ;; sets a compare function different to the default
 426 ;;;void gtk_clist_set_compare_func (GtkCList            *clist,
 427 ;;;                              GtkCListCompareFunc  cmp_func);
 428
 429 ;; the column to sort by
 430 (gtk-import-function nil gtk_clist_set_sort_column GtkCList gint)
 431
 432 ;; how to sort : ascending or descending
 433 (gtk-import-function nil gtk_clist_set_sort_type GtkCList GtkSortType)
 434
 435 ;; sort the list with the current compare function
 436 (gtk-import-function nil gtk_clist_sort GtkCList)
 437
 438 ;; Automatically sort upon insertion
 439 (gtk-import-function nil gtk_clist_set_auto_sort GtkCList gboolean)
 440
 441 \f
 442 ;; ColorSelection
 443
 444 (gtk-import-function GtkType gtk_color_selection_get_type)
 445 (gtk-import-function GtkWidget gtk_color_selection_new)
 446 (gtk-import-function nil gtk_color_selection_set_update_policy GtkColorSelection GtkUpdateType)
 447 (gtk-import-function nil gtk_color_selection_set_opacity GtkColorSelection gint)
 448 (gtk-import-function nil gtk_color_selection_set_color GtkColorSelection gdouble)
 449
 450 ;;;Handcoded in ui-byhand.c... #### FIXME
 451 ;void       gtk_color_selection_get_color         (GtkColorSelection     *colorsel,
 452 ;                                                  gdouble               *color);
 453
 454 ;; ColorSelectionDialog
 455 (gtk-import-function GtkType gtk_color_selection_dialog_get_type)
 456 (gtk-import-function GtkWidget gtk_color_selection_dialog_new GtkString)
 457
 458 \f
 459 (gtk-import-function GtkType gtk_combo_get_type)
 460 (gtk-import-function GtkWidget gtk_combo_new)
 461
 462 ;; the text in the entry must be or not be in the list
 463 (gtk-import-function nil gtk_combo_set_value_in_list GtkCombo gint gint)
 464
 465 ;; set/unset arrows working for changing the value (can be annoying)
 466 (gtk-import-function nil gtk_combo_set_use_arrows GtkCombo gint)
 467
 468 ;; up/down arrows change value if current value not in list
 469 (gtk-import-function nil gtk_combo_set_use_arrows_always GtkCombo gint)
 470
 471 ;; perform case-sensitive compares
 472 (gtk-import-function nil gtk_combo_set_case_sensitive GtkCombo gint)
 473
 474 ;; call this function on an item if it isn't a label or you
 475 ;; want it to have a different value to be displayed in the entry
 476 (gtk-import-function nil gtk_combo_set_item_string GtkCombo GtkItem GtkString)
 477
 478 (gtk-import-function nil gtk_combo_set_popdown_strings
 479                      (GtkCombo . combo)
 480                      (GtkListOfString . strings))
 481
 482 (gtk-import-function nil gtk_combo_disable_activate GtkCombo)
 483
 484 \f
 485 (gtk-import-function GtkType gtk_container_get_type)
 486 (gtk-import-function nil gtk_container_set_border_width GtkContainer guint)
 487 (gtk-import-function nil gtk_container_add GtkContainer GtkWidget)
 488 (gtk-import-function nil gtk_container_remove GtkContainer GtkWidget)
 489 (gtk-import-function nil gtk_container_set_resize_mode GtkContainer GtkResizeMode)
 490 (gtk-import-function nil gtk_container_check_resize GtkContainer)
 491
 492 ;; You can emulate this with (mapcar (lambda (x) ..) (gtk-container-children))
 493
 494 ;;(gtk-import-function nil gtk_container_foreach GtkContainer GtkCallback)
 495
 496 ; I don't think we really want to deal with this... ever.  #### FIXME?
 497 ;void    gtk_container_foreach_full      (GtkContainer     *container,
 498 ;                                         GtkCallback       callback,
 499 ;                                         GtkCallbackMarshal marshal,
 500 ;                                         gpointer          callback_data,
 501 ;                                         GtkDestroyNotify  notify);
 502
 503 (gtk-import-function GtkListOfObject gtk_container_children
 504                      (GtkContainer . container))
 505
 506 (gtk-import-function gint gtk_container_focus GtkContainer GtkDirectionType)
 507
 508 ;;; Widget-level methods
 509 (gtk-import-function nil gtk_container_set_reallocate_redraws GtkContainer gboolean)
 510 (gtk-import-function nil gtk_container_set_focus_child GtkContainer GtkWidget)
 511 (gtk-import-function nil gtk_container_set_focus_vadjustment GtkContainer GtkAdjustment)
 512 (gtk-import-function nil gtk_container_set_focus_hadjustment GtkContainer GtkAdjustment)
 513 (gtk-import-function nil gtk_container_register_toplevel GtkContainer)
 514 (gtk-import-function nil gtk_container_unregister_toplevel GtkContainer)
 515
 516 (gtk-import-function GtkListOfObject gtk_container_get_toplevels)
 517
 518 (gtk-import-function nil gtk_container_resize_children GtkContainer)
 519 (gtk-import-function guint gtk_container_child_type GtkContainer)
 520
 521 ; the `arg_name' argument needs to be a const static string */
 522 ;void    gtk_container_add_child_arg_type   (const gchar      *arg_name,
 523 ;                                           GtkType           arg_type,
 524 ;                                           guint             arg_flags,
 525 ;                                           guint             arg_id);
 526
 527 ;/* Allocate a GtkArg array of size nargs that hold the
 528 ; * names and types of the args that can be used with
 529 ; * gtk_container_child_getv/gtk_container_child_setv.
 530 ; * if (arg_flags!=NULL),
 531 ; * (*arg_flags) will be set to point to a newly allocated
 532 ; * guint array that holds the flags of the args.
 533 ; * It is the callers response to do a
 534 ; * g_free (returned_args); g_free (*arg_flags).
 535 ; */
 536 ;GtkArg* gtk_container_query_child_args    (GtkType            class_type,
 537 ;                                           guint32          **arg_flags,
 538 ;                                           guint             *nargs);
 539
 540 ;/* gtk_container_child_getv() sets an arguments type and value, or just
 541 ; * its type to GTK_TYPE_INVALID.
 542 ; * if GTK_FUNDAMENTAL_TYPE (arg->type) == GTK_TYPE_STRING, it's the callers
 543 ; * response to do a g_free (GTK_VALUE_STRING (arg));
 544 ; */
 545 ;void    gtk_container_child_getv          (GtkContainer      *container,
 546 ;                                           GtkWidget         *child,
 547 ;                                           guint              n_args,
 548 ;                                           GtkArg            *args);
 549 ;void    gtk_container_child_setv          (GtkContainer      *container,
 550 ;                                           GtkWidget         *child,
 551 ;                                           guint              n_args,
 552 ;                                           GtkArg            *args);
 553
 554 ;/* gtk_container_add_with_args() takes a variable argument list of the form:
 555 ; * (..., gchar *arg_name, ARG_VALUES, [repeatedly name/value pairs,] NULL)
 556 ; * where ARG_VALUES type depend on the argument and can consist of
 557 ; * more than one c-function argument.
 558 ; */
 559 ;void    gtk_container_add_with_args       (GtkContainer      *container,
 560 ;                                           GtkWidget         *widget,
 561 ;                                           const gchar       *first_arg_name,
 562 ;                                           ...);
 563 ;void    gtk_container_addv                (GtkContainer      *container,
 564 ;                                           GtkWidget         *widget,
 565 ;                                           guint              n_args,
 566 ;                                           GtkArg            *args);
 567 ;void   gtk_container_child_set            (GtkContainer      *container,
 568 ;                                           GtkWidget         *child,
 569 ;                                           const gchar       *first_arg_name,
 570 ;                                           ...);
 571
 572 \f
 573 (gtk-import-function GtkType gtk_curve_get_type)
 574 (gtk-import-function GtkWidget gtk_curve_new)
 575 (gtk-import-function nil gtk_curve_reset GtkCurve)
 576 (gtk-import-function nil gtk_curve_set_gamma GtkCurve gfloat)
 577 (gtk-import-function nil gtk_curve_set_range GtkCurve gfloat gfloat gfloat gfloat)
 578
 579 ;Handcoded in ui-byhand.c... #### FIXME
 580 ;;void          gtk_curve_get_vector    (GtkCurve *curve,
 581 ;;                                       int veclen, gfloat vector[]);
 582 ;;
 583 ;;void          gtk_curve_set_vector    (GtkCurve *curve,
 584 ;;                                       int veclen, gfloat vector[]);
 585
 586 (gtk-import-function nil gtk_curve_set_curve_type GtkCurve GtkCurveType)
 587
 588 \f
 589 (gtk-import-function GtkType gtk_data_get_type)
 590
 591 \f
 592 (gtk-import-function GtkType gtk_dialog_get_type)
 593 (gtk-import-function GtkWidget gtk_dialog_new)
 594
 595 \f
 596 (gtk-import-function GtkType gtk_drawing_area_get_type)
 597 (gtk-import-function GtkWidget gtk_drawing_area_new)
 598 (gtk-import-function nil gtk_drawing_area_size GtkDrawingArea gint gint)
 599
 600 \f
 601 (gtk-import-function GtkType gtk_editable_get_type)
 602 (gtk-import-function nil gtk_editable_select_region GtkEditable gint gint)
 603
 604 ;;;Handcoded in ui-byhand.c... #### FIXME
 605 ;;;(gtk-import-function nil gtk_editable_insert_text GtkEditable GtkString gint pointer-to-gint)
 606
 607 (gtk-import-function nil gtk_editable_delete_text GtkEditable gint gint)
 608 (gtk-import-function GtkString gtk_editable_get_chars GtkEditable gint gint)
 609 (gtk-import-function nil gtk_editable_cut_clipboard GtkEditable)
 610 (gtk-import-function nil gtk_editable_copy_clipboard GtkEditable)
 611 (gtk-import-function nil gtk_editable_paste_clipboard GtkEditable)
 612 (gtk-import-function nil gtk_editable_claim_selection GtkEditable gboolean guint)
 613 (gtk-import-function nil gtk_editable_delete_selection GtkEditable)
 614 (gtk-import-function nil gtk_editable_changed GtkEditable)
 615 (gtk-import-function nil gtk_editable_set_position GtkEditable gint)
 616 (gtk-import-function gint gtk_editable_get_position GtkEditable)
 617 (gtk-import-function nil gtk_editable_set_editable GtkEditable gboolean)
 618
 619 \f
 620 (gtk-import-function GtkType gtk_entry_get_type)
 621 (gtk-import-function GtkWidget gtk_entry_new)
 622 (gtk-import-function GtkWidget gtk_entry_new_with_max_length guint)
 623 (gtk-import-function nil gtk_entry_set_text GtkEntry GtkString)
 624 (gtk-import-function nil gtk_entry_append_text GtkEntry GtkString)
 625 (gtk-import-function nil gtk_entry_prepend_text GtkEntry GtkString)
 626 (gtk-import-function nil gtk_entry_set_position GtkEntry gint)
 627
 628 ;; returns a reference to the text
 629 (gtk-import-function GtkString gtk_entry_get_text GtkEntry)
 630 (gtk-import-function nil gtk_entry_select_region GtkEntry gint gint)
 631 (gtk-import-function nil gtk_entry_set_visibility GtkEntry gboolean)
 632 (gtk-import-function nil gtk_entry_set_editable GtkEntry gboolean)
 633
 634 ;; text is truncated if needed
 635 (gtk-import-function nil gtk_entry_set_max_length GtkEntry guint)
 636
 637 \f
 638 (gtk-import-function GtkType gtk_event_box_get_type)
 639 (gtk-import-function GtkWidget gtk_event_box_new)
 640
 641 \f
 642 (gtk-import-function GtkType gtk_file_selection_get_type)
 643 (gtk-import-function GtkWidget gtk_file_selection_new GtkString)
 644 (gtk-import-function nil gtk_file_selection_set_filename GtkFileSelection GtkString)
 645 (gtk-import-function GtkString gtk_file_selection_get_filename GtkFileSelection)
 646 (gtk-import-function nil gtk_file_selection_complete GtkFileSelection GtkString)
 647 (gtk-import-function nil gtk_file_selection_show_fileop_buttons GtkFileSelection)
 648 (gtk-import-function nil gtk_file_selection_hide_fileop_buttons GtkFileSelection)
 649
 650 \f
 651 (gtk-import-function GtkType gtk_fixed_get_type)
 652 (gtk-import-function GtkWidget gtk_fixed_new)
 653 (gtk-import-function nil gtk_fixed_put GtkFixed GtkWidget gint gint)
 654 (gtk-import-function nil gtk_fixed_move  GtkFixed GtkWidget gint gint)
 655
 656 \f
 657 (gtk-import-function GtkType gtk_font_selection_get_type)
 658 (gtk-import-function GtkWidget gtk_font_selection_new)
 659 (gtk-import-function GtkString gtk_font_selection_get_font_name GtkFontSelection)
 660 ;(gtk-import-function GdkFont gtk_font_selection_get_font GtkFontSelection)
 661 (gtk-import-function gboolean gtk_font_selection_set_font_name GtkFontSelection GtkString)
 662
 663
 664 (gtk-import-function nil gtk_font_selection_set_filter
 665                      (GtkFontSelection  . fontsel)
 666                      (GtkFontFilterType . filter_type)
 667                      (GtkFontType       . font_type)
 668                      (GtkArrayOfString  . foundries)
 669                      (GtkArrayOfString  . weights)
 670                      (GtkArrayOfString  . slants)
 671                      (GtkArrayOfString  . setwidths)
 672                      (GtkArrayOfString  . spacings)
 673                      (GtkArrayOfString  . charsets))
 674
 675 (gtk-import-function GtkString gtk_font_selection_get_preview_text GtkFontSelection)
 676 (gtk-import-function nil gtk_font_selection_set_preview_text GtkFontSelection GtkString)
 677
 678 ;; GtkFontSelectionDialog functions.
 679 ;;   most of these functions simply call the corresponding function in the
 680 ;;   GtkFontSelection.
 681
 682 (gtk-import-function GtkType gtk_font_selection_dialog_get_type)
 683 (gtk-import-function GtkWidget gtk_font_selection_dialog_new GtkString)
 684
 685 ;; This returns the X Logical Font Description fontname, or NULL if no font
 686 ;; is selected. Note that there is a slight possibility that the font might not
 687 ;; have been loaded OK. You should call gtk_font_selection_dialog_get_font()
 688 ;; to see if it has been loaded OK.
 689 (gtk-import-function GtkString gtk_font_selection_dialog_get_font_name GtkFontSelectionDialog)
 690
 691 ;; This will return the current GdkFont, or NULL if none is selected or there
 692 ;; was a problem loading it. Remember to use gdk_font_ref/unref() if you want
 693 ;; to use the font (in a style, for example)
 694 ;; GdkFont* gtk_font_selection_dialog_get_font      (GtkFontSelectionDialog *fsd);
 695
 696 ;; This sets the currently displayed font. It should be a valid X Logical
 697 ;; Font Description font name (anything else will be ignored), e.g.
 698 ;; "-adobe-courier-bold-o-normal--25-*-*-*-*-*-*-*"
 699 ;; It returns TRUE on success.
 700 (gtk-import-function gboolean gtk_font_selection_dialog_set_font_name GtkFontSelectionDialog GtkString)
 701
 702 ;; This sets one of the font filters, to limit the fonts shown. The filter_type
 703 ;; is GTK_FONT_FILTER_BASE or GTK_FONT_FILTER_USER. The font type is a
 704 ;; combination of the bit flags GTK_FONT_BITMAP, GTK_FONT_SCALABLE and
 705 ;; GTK_FONT_SCALABLE_BITMAP (or GTK_FONT_ALL for all font types).
 706 ;; The foundries, weights etc. are arrays of strings containing property
 707 ;; values, e.g. 'bold', 'demibold', and *MUST* finish with a NULL.
 708 ;; Standard long names are also accepted, e.g. 'italic' instead of 'i'.
 709 ;;
 710 ;; e.g. to allow only fixed-width fonts ('char cell' or 'monospaced') to be
 711 ;; selected use:
 712 ;;
 713 ;;gchar *spacings[] = { "c", "m", NULL };
 714 ;;gtk_font_selection_dialog_set_filter (GTK_FONT_SELECTION_DIALOG (fontsel),
 715 ;;                                     GTK_FONT_FILTER_BASE, GTK_FONT_ALL,
 716 ;;                                     NULL, NULL, NULL, NULL, spacings, NULL);
 717 ;;
 718 ;;  to allow only true scalable fonts to be selected use:
 719 ;;
 720 ;;  gtk_font_selection_dialog_set_filter (GTK_FONT_SELECTION_DIALOG (fontsel),
 721 ;;                                     GTK_FONT_FILTER_BASE, GTK_FONT_SCALABLE,
 722 ;;                                     NULL, NULL, NULL, NULL, NULL, NULL);
 723
 724 ;;; #### BILL!!! You can do this by just call
 725 ;;; gtk_font_selection_set_filter on the appropriate slot of the
 726 ;;; dialog.  Why bother with another function?
 727 ;;;void    gtk_font_selection_dialog_set_filter (GtkFontSelectionDialog *fsd,
 728 ;;;                                              GtkFontFilterType filter_type,
 729 ;;;                                              GtkFontType       font_type,
 730 ;;;                                              gchar           **foundries,
 731 ;;;                                              gchar           **weights,
 732 ;;;                                              gchar           **slants,
 733 ;;;                                              gchar           **setwidths,
 734 ;;;                                              gchar           **spacings,
 735 ;;;                                              gchar           **charsets);
 736
 737 ;; This returns the text in the preview entry.
 738 (gtk-import-function GtkString gtk_font_selection_dialog_get_preview_text GtkFontSelectionDialog)
 739
 740 ;; This sets the text in the preview entry. It will be copied by the entry,
 741 ;; so there's no need to g_strdup() it first.
 742 (gtk-import-function nil gtk_font_selection_dialog_set_preview_text GtkFontSelectionDialog GtkString)
 743
 744 \f
 745 (gtk-import-function GtkType gtk_frame_get_type)
 746 (gtk-import-function GtkWidget gtk_frame_new GtkString)
 747 (gtk-import-function nil gtk_frame_set_label GtkFrame GtkString)
 748 (gtk-import-function nil gtk_frame_set_label_align GtkFrame gfloat gfloat)
 749 (gtk-import-function nil gtk_frame_set_shadow_type GtkFrame GtkShadowType)
 750
 751 \f
 752 (gtk-import-function GtkType gtk_gamma_curve_get_type)
 753 (gtk-import-function GtkWidget gtk_gamma_curve_new)
 754
 755 \f
 756 (gtk-import-function GtkType gtk_handle_box_get_type)
 757 (gtk-import-function GtkWidget gtk_handle_box_new)
 758 (gtk-import-function nil gtk_handle_box_set_shadow_type GtkHandleBox GtkShadowType)
 759 (gtk-import-function nil gtk_handle_box_set_handle_position GtkHandleBox GtkPositionType)
 760 (gtk-import-function nil gtk_handle_box_set_snap_edge GtkHandleBox GtkPositionType)
 761
 762 \f
 763 (gtk-import-function GtkType gtk_hbox_get_type)
 764 (gtk-import-function GtkWidget gtk_hbox_new gboolean gint)
 765
 766 \f
 767 (gtk-import-function GtkType gtk_hbutton_box_get_type)
 768 (gtk-import-function GtkWidget gtk_hbutton_box_new)
 769
 770 ;; buttons can be added by gtk_container_add()
 771 (gtk-import-function gint gtk_hbutton_box_get_spacing_default)
 772 (gtk-import-function nil gtk_hbutton_box_set_spacing_default gint)
 773
 774 (gtk-import-function GtkButtonBoxStyle gtk_hbutton_box_get_layout_default)
 775 (gtk-import-function nil gtk_hbutton_box_set_layout_default GtkButtonBoxStyle)
 776
 777 \f
 778 (gtk-import-function GtkType gtk_hpaned_get_type)
 779 (gtk-import-function GtkWidget gtk_hpaned_new)
 780
 781 \f
 782 (gtk-import-function GtkType gtk_hruler_get_type)
 783 (gtk-import-function GtkWidget gtk_hruler_new)
 784
 785 \f
 786 (gtk-import-function GtkType gtk_hscale_get_type)
 787 (gtk-import-function GtkWidget gtk_hscale_new GtkAdjustment)
 788
 789 \f
 790 (gtk-import-function GtkType gtk_hscrollbar_get_type)
 791 (gtk-import-function GtkWidget gtk_hscrollbar_new GtkAdjustment)
 792
 793 \f
 794 (gtk-import-function GtkType gtk_hseparator_get_type)
 795 (gtk-import-function GtkWidget gtk_hseparator_new)
 796
 797 \f
 798 (gtk-import-function GtkType gtk_input_dialog_get_type)
 799 (gtk-import-function GtkWidget gtk_input_dialog_new)
 800
 801 \f
 802 (gtk-import-function GtkType gtk_invisible_get_type)
 803 (gtk-import-function GtkWidget gtk_invisible_new)
 804
 805 \f
 806 (gtk-import-function GtkType gtk_item_get_type)
 807 (gtk-import-function nil gtk_item_select GtkItem)
 808 (gtk-import-function nil gtk_item_deselect GtkItem)
 809 (gtk-import-function nil gtk_item_toggle GtkItem)
 810
 811 \f
 812 (gtk-import-function GtkType gtk_label_get_type)
 813 (gtk-import-function GtkWidget gtk_label_new GtkString)
 814 (gtk-import-function nil gtk_label_set_text GtkLabel GtkString)
 815 (gtk-import-function nil gtk_label_set_justify GtkLabel GtkJustification)
 816 (gtk-import-function nil gtk_label_set_pattern GtkLabel GtkString)
 817 (gtk-import-function nil gtk_label_set_line_wrap GtkLabel gboolean)
 818
 819 ;;;Handcoded in ui-byhand.c... #### FIXME
 820 ;void       gtk_label_get           (GtkLabel          *label,
 821 ;                                    gchar            **str);
 822
 823 ;; Convenience function to set the name and pattern by parsing
 824 ;; a string with embedded underscores, and return the appropriate
 825 ;; key symbol for the accelerator.
 826 (gtk-import-function guint gtk_label_parse_uline GtkLabel GtkString)
 827
 828 \f
 829 (gtk-import-function GtkType gtk_layout_get_type)
 830 (gtk-import-function GtkWidget gtk_layout_new GtkAdjustment GtkAdjustment)
 831 (gtk-import-function nil gtk_layout_put GtkLayout GtkWidget gint gint)
 832 (gtk-import-function nil gtk_layout_move GtkLayout GtkWidget gint gint)
 833 (gtk-import-function nil gtk_layout_set_size GtkLayout guint guint)
 834
 835 (gtk-import-function GtkAdjustment gtk_layout_get_hadjustment GtkLayout)
 836 (gtk-import-function GtkAdjustment gtk_layout_get_vadjustment GtkLayout)
 837 (gtk-import-function nil gtk_layout_set_hadjustment GtkLayout GtkAdjustment)
 838 (gtk-import-function nil gtk_layout_set_vadjustment GtkLayout GtkAdjustment)
 839
 840 ;; These disable and enable moving and repainting the scrolling window
 841 ;; of the GtkLayout, respectively.  If you want to update the layout's
 842 ;; offsets but do not want it to repaint itself, you should use these
 843 ;; functions.
 844
 845 ;; - I don't understand these are supposed to work, so I suspect
 846 ;; - they don't now.                    OWT 1/20/98
 847
 848 (gtk-import-function nil gtk_layout_freeze GtkLayout)
 849 (gtk-import-function nil gtk_layout_thaw GtkLayout)
 850
 851 \f
 852 (gtk-import-function GtkType gtk_list_get_type)
 853 (gtk-import-function GtkWidget gtk_list_new)
 854
 855 (gtk-import-function nil gtk_list_insert_items
 856                      (GtkList         . list)
 857                      (GtkListOfObject . items)
 858                      (gint            . position))
 859
 860 (gtk-import-function nil gtk_list_append_items
 861                      (GtkList         . list)
 862                      (GtkListOfObject . items))
 863 (gtk-import-function nil gtk_list_prepend_items
 864                      (GtkList         . list)
 865                      (GtkListOfObject . items))
 866 (gtk-import-function nil gtk_list_remove_items
 867                      (GtkList         . list)
 868                      (GtkListOfObject . items))
 869 (gtk-import-function nil gtk_list_remove_items_no_unref
 870                      (GtkList         . list)
 871                      (GtkListOfObject . items))
 872
 873 (gtk-import-function nil gtk_list_clear_items GtkList gint gint)
 874 (gtk-import-function nil gtk_list_select_item GtkList gint)
 875 (gtk-import-function nil gtk_list_unselect_item GtkList gint)
 876 (gtk-import-function nil gtk_list_select_child GtkList GtkWidget)
 877 (gtk-import-function nil gtk_list_unselect_child GtkList GtkWidget)
 878 (gtk-import-function gint gtk_list_child_position GtkList GtkWidget)
 879 (gtk-import-function nil gtk_list_set_selection_mode GtkList GtkSelectionMode)
 880 (gtk-import-function nil gtk_list_extend_selection GtkList GtkScrollType gfloat gboolean)
 881 (gtk-import-function nil gtk_list_start_selection GtkList)
 882 (gtk-import-function nil gtk_list_end_selection GtkList)
 883 (gtk-import-function nil gtk_list_select_all GtkList)
 884 (gtk-import-function nil gtk_list_unselect_all GtkList)
 885 (gtk-import-function nil gtk_list_scroll_horizontal GtkList GtkScrollType gfloat)
 886 (gtk-import-function nil gtk_list_scroll_vertical GtkList  GtkScrollType gfloat)
 887 (gtk-import-function nil gtk_list_toggle_add_mode GtkList)
 888 (gtk-import-function nil gtk_list_toggle_focus_row GtkList)
 889 (gtk-import-function nil gtk_list_toggle_row GtkList GtkWidget)
 890 (gtk-import-function nil gtk_list_undo_selection GtkList)
 891 (gtk-import-function nil gtk_list_end_drag_selection GtkList)
 892
 893 \f
 894 (gtk-import-function GtkType gtk_list_item_get_type)
 895 (gtk-import-function GtkWidget gtk_list_item_new)
 896 (gtk-import-function GtkWidget gtk_list_item_new_with_label GtkString)
 897 (gtk-import-function nil gtk_list_item_select GtkListItem)
 898 (gtk-import-function nil gtk_list_item_deselect GtkListItem)
 899
 900 \f
 901 (gtk-import-variable guint gtk_major_version)
 902 (gtk-import-variable guint gtk_minor_version)
 903 (gtk-import-variable guint gtk_micro_version)
 904 (gtk-import-variable guint gtk_interface_age)
 905 (gtk-import-variable guint gtk_binary_age)
 906
 907 (gtk-import-function GtkString gtk_check_version
 908                      (guint . required_major)
 909                      (guint . required_minor)
 910                      (guint . required_micro))
 911
 912 (gtk-import-function gboolean gtk_events_pending)
 913 (gtk-import-function guint gtk_main_level)
 914 (gtk-import-function nil gtk_main)
 915 (gtk-import-function nil gtk_main_quit)
 916 (gtk-import-function gint gtk_main_iteration)
 917 (gtk-import-function gint gtk_main_iteration_do (gboolean . blocking))
 918 (gtk-import-function gint gtk_true)
 919 (gtk-import-function gint gtk_false)
 920
 921 \f
 922 (gtk-import-function GtkType gtk_menu_get_type)
 923 (gtk-import-function GtkWidget gtk_menu_new)
 924
 925 ;; Wrappers for the Menu Shell operations
 926 (gtk-import-function nil gtk_menu_append GtkMenu GtkWidget)
 927 (gtk-import-function nil gtk_menu_prepend GtkMenu GtkWidget)
 928 (gtk-import-function nil gtk_menu_insert GtkMenu GtkWidget gint)
 929
 930 ;; Display the menu onscreen
 931 (gtk-import-function nil gtk_menu_popup GtkMenu GtkWidget GtkWidget
 932                      gpointer   ;; GtkMenuPositionFunc  func
 933                      gpointer
 934                      guint
 935                      guint)
 936
 937 ;; Position the menu according to it's position function. Called
 938 ;; from gtkmenuitem.c when a menu-item changes its allocation
 939 (gtk-import-function nil gtk_menu_reposition GtkMenu)
 940 (gtk-import-function nil gtk_menu_popdown GtkMenu)
 941
 942 ;; Keep track of the last menu item selected. (For the purposes
 943 ;; of the option menu
 944 (gtk-import-function GtkWidget gtk_menu_get_active GtkMenu)
 945 (gtk-import-function nil gtk_menu_set_active GtkMenu guint)
 946
 947 ;; set/get the acclerator group that holds global accelerators (should
 948 ;; be added to the corresponding toplevel with gtk_window_add_accel_group().
 949 (gtk-import-function nil gtk_menu_set_accel_group GtkMenu GtkAccelGroup)
 950 (gtk-import-function GtkAccelGroup gtk_menu_get_accel_group GtkMenu)
 951
 952 ;; get the accelerator group that is used internally by the menu for
 953 ;; underline accelerators while the menu is popped up.
 954 (gtk-import-function GtkAccelGroup gtk_menu_get_uline_accel_group GtkMenu)
 955 (gtk-import-function GtkAccelGroup gtk_menu_ensure_uline_accel_group GtkMenu)
 956
 957 ;; A reference count is kept for a widget when it is attached to
 958 ;; a particular widget. This is typically a menu item; it may also
 959 ;; be a widget with a popup menu - for instance, the Notebook widget.
 960 (gtk-import-function nil gtk_menu_attach_to_widget GtkMenu GtkWidget gpointer)
 961 (gtk-import-function nil gtk_menu_detach GtkMenu)
 962
 963 ;; This should be dumped in favor of data set when the menu is popped
 964 ;; up - that is currently in the ItemFactory code, but should be
 965 ;; in the Menu code.
 966 (gtk-import-function GtkWidget gtk_menu_get_attach_widget GtkMenu)
 967 (gtk-import-function nil gtk_menu_set_tearoff_state GtkMenu gboolean)
 968
 969 ;; This sets the window manager title for the window that
 970 ;; appears when a menu is torn off
 971 (gtk-import-function nil gtk_menu_set_title GtkMenu GtkString)
 972
 973 (gtk-import-function nil gtk_menu_reorder_child GtkMenu GtkWidget gint)
 974
 975 \f
 976 (gtk-import-function GtkType gtk_menu_bar_get_type)
 977 (gtk-import-function GtkWidget gtk_menu_bar_new)
 978 (gtk-import-function nil gtk_menu_bar_append GtkMenuBar GtkWidget)
 979 (gtk-import-function nil gtk_menu_bar_prepend GtkMenuBar GtkWidget)
 980 (gtk-import-function nil gtk_menu_bar_insert GtkMenuBar GtkWidget gint)
 981 (gtk-import-function nil gtk_menu_bar_set_shadow_type GtkMenuBar GtkShadowType)
 982
 983 \f
 984 (gtk-import-function GtkType gtk_menu_item_get_type)
 985 (gtk-import-function GtkWidget gtk_menu_item_new)
 986 (gtk-import-function GtkWidget gtk_menu_item_new_with_label GtkString)
 987 (gtk-import-function nil gtk_menu_item_set_submenu GtkMenuItem GtkWidget)
 988 (gtk-import-function nil gtk_menu_item_remove_submenu GtkMenuItem)
 989 (gtk-import-function nil gtk_menu_item_set_placement GtkMenuItem GtkSubmenuPlacement)
 990 (gtk-import-function nil gtk_menu_item_configure GtkMenuItem gint gint)
 991 (gtk-import-function nil gtk_menu_item_select GtkMenuItem)
 992 (gtk-import-function nil gtk_menu_item_deselect GtkMenuItem)
 993 (gtk-import-function nil gtk_menu_item_activate GtkMenuItem)
 994 (gtk-import-function nil gtk_menu_item_right_justify GtkMenuItem)
 995
 996 \f
 997 (gtk-import-function GtkType gtk_misc_get_type)
 998 (gtk-import-function nil gtk_misc_set_alignment
 999                      (GtkMisc . misc)
1000                      (gfloat  . xalign)
1001                      (gfloat  . yalign))
1002
1003 (gtk-import-function nil gtk_misc_set_padding
1004                      (GtkMisc . misc)
1005                      (gint    . xpad)
1006                      (gint    . ypad))
1007
1008 \f
1009 (gtk-import-function GtkType gtk_notebook_get_type)
1010 (gtk-import-function GtkWidget gtk_notebook_new)
1011 (gtk-import-function nil gtk_notebook_append_page GtkNotebook GtkWidget GtkWidget)
1012 (gtk-import-function nil gtk_notebook_append_page_menu GtkNotebook GtkWidget GtkWidget GtkWidget)
1013 (gtk-import-function nil gtk_notebook_prepend_page GtkNotebook GtkWidget GtkWidget)
1014 (gtk-import-function nil gtk_notebook_prepend_page_menu GtkNotebook GtkWidget GtkWidget GtkWidget)
1015 (gtk-import-function nil gtk_notebook_insert_page GtkNotebook GtkWidget GtkWidget gint)
1016 (gtk-import-function nil gtk_notebook_insert_page_menu GtkNotebook GtkWidget GtkWidget GtkWidget gint)
1017 (gtk-import-function nil gtk_notebook_remove_page GtkNotebook gint)
1018
1019 ;;query, set current NoteebookPage
1020 (gtk-import-function gint gtk_notebook_get_current_page GtkNotebook)
1021 (gtk-import-function GtkWidget gtk_notebook_get_nth_page GtkNotebook gint)
1022 (gtk-import-function gint gtk_notebook_page_num GtkNotebook GtkWidget)
1023 (gtk-import-function nil gtk_notebook_set_page GtkNotebook gint)
1024 (gtk-import-function nil gtk_notebook_next_page GtkNotebook)
1025 (gtk-import-function nil gtk_notebook_prev_page GtkNotebook)
1026
1027 ;; set Notebook, NotebookTab style
1028 (gtk-import-function nil gtk_notebook_set_show_border GtkNotebook gboolean)
1029 (gtk-import-function nil gtk_notebook_set_show_tabs GtkNotebook gboolean)
1030 (gtk-import-function nil gtk_notebook_set_tab_pos GtkNotebook GtkPositionType)
1031 (gtk-import-function nil gtk_notebook_set_homogeneous_tabs GtkNotebook gboolean)
1032 (gtk-import-function nil gtk_notebook_set_tab_border GtkNotebook guint)
1033 (gtk-import-function nil gtk_notebook_set_tab_hborder GtkNotebook guint)
1034 (gtk-import-function nil gtk_notebook_set_tab_vborder GtkNotebook guint)
1035 (gtk-import-function nil gtk_notebook_set_scrollable GtkNotebook gboolean)
1036
1037 ;; enable/disable PopupMenu
1038 (gtk-import-function nil gtk_notebook_popup_enable GtkNotebook)
1039 (gtk-import-function nil gtk_notebook_popup_disable GtkNotebook)
1040
1041 ;; query/set NotebookPage Properties
1042 (gtk-import-function GtkWidget gtk_notebook_get_tab_label GtkNotebook GtkWidget)
1043 (gtk-import-function nil gtk_notebook_set_tab_label GtkNotebook GtkWidget GtkWidget)
1044 (gtk-import-function nil gtk_notebook_set_tab_label_text GtkNotebook GtkWidget GtkString)
1045 (gtk-import-function GtkWidget gtk_notebook_get_menu_label GtkNotebook GtkWidget)
1046 (gtk-import-function nil gtk_notebook_set_menu_label GtkNotebook GtkWidget GtkWidget)
1047 (gtk-import-function nil gtk_notebook_set_menu_label_text GtkNotebook GtkWidget GtkString)
1048
1049 ;;;Handcoded in ui-byhand.c... #### FIXME
1050 ;;;void gtk_notebook_query_tab_label_packing (GtkNotebook *notebook,
1051 ;;;                                        GtkWidget   *child,
1052 ;;;                                        gboolean    *expand,
1053 ;;;                                        gboolean    *fill,
1054 ;;;                                        GtkPackType *pack_type);
1055 (gtk-import-function nil gtk_notebook_set_tab_label_packing GtkNotebook GtkWidget gboolean gboolean GtkPackType)
1056
1057 (gtk-import-function nil gtk_notebook_reorder_child GtkNotebook GtkWidget gint)
1058
1059 \f
1060 (gtk-import-function GtkType gtk_object_get_type)
1061 ;(gtk-import-function 'GtkObject gtk_object_newv 'guint 'guint 'GtkArg)
1062 (gtk-import-function nil gtk_object_sink GtkObject)
1063 (gtk-import-function nil gtk_object_ref GtkObject)
1064 (gtk-import-function nil gtk_object_unref GtkObject)
1065
1066 ;; Need to implement callbacks better before I can do this.
1067 ;;void gtk_object_weakref         (GtkObject        *object,
1068 ;;                         GtkDestroyNotify  notify,
1069 ;;                         gpointer          data);
1070 ;;void gtk_object_weakunref (GtkObject      *object,
1071 ;;                         GtkDestroyNotify  notify,
1072 ;;                         gpointer          data);
1073
1074 (gtk-import-function nil gtk_object_destroy GtkObject)
1075
1076 ;; gtk_object_[gs]etv* () are handled by our generic 'get' and 'put'
1077 ;; handlers for types of GtkObject
1078
1079 \f
1080 (gtk-import-function GtkType gtk_option_menu_get_type)
1081 (gtk-import-function GtkWidget gtk_option_menu_new)
1082 (gtk-import-function GtkWidget gtk_option_menu_get_menu GtkOptionMenu)
1083 (gtk-import-function nil gtk_option_menu_set_menu GtkOptionMenu GtkWidget)
1084 (gtk-import-function nil gtk_option_menu_remove_menu GtkOptionMenu)
1085 (gtk-import-function nil gtk_option_menu_set_history GtkOptionMenu guint)
1086
1087 \f
1088 (gtk-import-function GtkType gtk_packer_get_type)
1089 (gtk-import-function GtkWidget gtk_packer_new)
1090 (gtk-import-function nil gtk_packer_add_defaults GtkPacker GtkWidget
1091                      GtkSideType GtkAnchorType GtkPackerOptions)
1092 (gtk-import-function nil gtk_packer_add GtkPacker
1093                      GtkWidget
1094                      GtkSideType
1095                      GtkAnchorType
1096                      GtkPackerOptions
1097                      guint
1098                      guint
1099                      guint
1100                      guint
1101                      guint)
1102
1103 (gtk-import-function nil gtk_packer_set_child_packing GtkPacker
1104                      GtkWidget
1105                      GtkSideType
1106                      GtkAnchorType
1107                      GtkPackerOptions
1108                      guint
1109                      guint
1110                      guint
1111                      guint
1112                      guint)
1113
1114 (gtk-import-function nil gtk_packer_reorder_child GtkPacker GtkWidget gint)
1115 (gtk-import-function nil gtk_packer_set_spacing GtkPacker guint)
1116 (gtk-import-function nil gtk_packer_set_default_border_width GtkPacker guint)
1117 (gtk-import-function nil gtk_packer_set_default_pad GtkPacker guint guint)
1118 (gtk-import-function nil gtk_packer_set_default_ipad GtkPacker guint guint)
1119
1120 \f
1121 (gtk-import-function GtkType gtk_paned_get_type)
1122 (gtk-import-function nil gtk_paned_add1 GtkPaned GtkWidget)
1123 (gtk-import-function nil gtk_paned_add2 GtkPaned GtkWidget)
1124 (gtk-import-function nil gtk_paned_pack1 GtkPaned GtkWidget gboolean gboolean)
1125 (gtk-import-function nil gtk_paned_pack2 GtkPaned GtkWidget gboolean gboolean)
1126 (gtk-import-function nil gtk_paned_set_position GtkPaned gint)
1127 (gtk-import-function nil gtk_paned_set_handle_size GtkPaned guint)
1128 (gtk-import-function nil gtk_paned_set_gutter_size GtkPaned guint)
1129
1130 ;; Internal function... do we need to expose this?
1131 (gtk-import-function nil gtk_paned_compute_position GtkPaned gint gint gint)
1132
1133 \f
1134 (gtk-import-function GtkType gtk_pixmap_get_type)
1135 (gtk-import-function GtkWidget gtk_pixmap_new
1136                      (GdkPixmap . pixmap)
1137                      (GdkPixmap . mask))
1138 (gtk-import-function nil gtk_pixmap_set
1139                      (GtkPixmap . object)
1140                      (GdkPixmap . pixmap)
1141                      (GdkPixmap . mask))
1142
1143 ;Handcoded in ui-byhand.c... #### FIXME
1144 ;;;void    gtk_pixmap_get        (GtkPixmap  *pixmap,
1145 ;;;                               GdkPixmap **val,
1146 ;;;                               GdkBitmap **mask);
1147
1148 (gtk-import-function nil gtk_pixmap_set_build_insensitive
1149                      (GtkPixmap . pixmap)
1150                      (guint     . build))
1151
1152 \f
1153 (gtk-import-function GtkType gtk_plug_get_type)
1154 (gtk-import-function GtkWidget gtk_plug_new guint)
1155 (gtk-import-function nil gtk_plug_construct GtkPlug guint)
1156
1157 \f
1158 (gtk-import-function GtkType gtk_progress_get_type)
1159 (gtk-import-function nil gtk_progress_set_show_text GtkProgress gint)
1160 (gtk-import-function nil gtk_progress_set_text_alignment GtkProgress gfloat gfloat)
1161 (gtk-import-function nil gtk_progress_set_format_string GtkProgress GtkString)
1162 (gtk-import-function nil gtk_progress_set_adjustment GtkProgress GtkAdjustment)
1163 (gtk-import-function nil gtk_progress_configure GtkProgress gfloat gfloat gfloat)
1164 (gtk-import-function nil gtk_progress_set_percentage GtkProgress gfloat)
1165 (gtk-import-function nil gtk_progress_set_value GtkProgress gfloat)
1166 (gtk-import-function gfloat gtk_progress_get_value GtkProgress)
1167 (gtk-import-function nil gtk_progress_set_activity_mode GtkProgress guint)
1168 (gtk-import-function GtkString gtk_progress_get_current_text GtkProgress)
1169 (gtk-import-function GtkString gtk_progress_get_text_from_value GtkProgress gfloat)
1170 (gtk-import-function gfloat gtk_progress_get_current_percentage GtkProgress)
1171 (gtk-import-function gfloat gtk_progress_get_percentage_from_value GtkProgress gfloat)
1172
1173 \f
1174 (gtk-import-function GtkType gtk_progress_bar_get_type)
1175 (gtk-import-function GtkWidget gtk_progress_bar_new)
1176 (gtk-import-function GtkWidget gtk_progress_bar_new_with_adjustment GtkAdjustment)
1177 (gtk-import-function nil gtk_progress_bar_set_bar_style GtkProgressBar GtkProgressBarStyle)
1178 (gtk-import-function nil gtk_progress_bar_set_discrete_blocks GtkProgressBar guint)
1179 (gtk-import-function nil gtk_progress_bar_set_activity_step GtkProgressBar guint)
1180 (gtk-import-function nil gtk_progress_bar_set_activity_blocks GtkProgressBar guint)
1181 (gtk-import-function nil gtk_progress_bar_set_orientation GtkProgressBar GtkProgressBarOrientation)
1182 (gtk-import-function nil gtk_progress_bar_update GtkProgressBar gfloat)
1183
1184 \f
1185 ;; All of the gpointers below really need to be `GSList *'
1186 ;; For now, need to create the first radio button with 'nil' and then use
1187 ;; (gtk-radio-button-group first-radio) for the rest.
1188 (gtk-import-function GtkType gtk_radio_button_get_type)
1189 (gtk-import-function GtkWidget gtk_radio_button_new gpointer)
1190 (gtk-import-function GtkWidget gtk_radio_button_new_from_widget GtkRadioButton)
1191 (gtk-import-function GtkWidget gtk_radio_button_new_with_label gpointer GtkString)
1192 (gtk-import-function GtkWidget gtk_radio_button_new_with_label_from_widget GtkRadioButton GtkString)
1193 (gtk-import-function gpointer gtk_radio_button_group GtkRadioButton)
1194 (gtk-import-function nil gtk_radio_button_set_group GtkRadioButton gpointer)
1195
1196 \f
1197 (gtk-import-function GtkType gtk_radio_menu_item_get_type)
1198
1199 ;; #### BILLL!!
1200 ;; All of these gpointer args should be GList *
1201 (gtk-import-function GtkWidget gtk_radio_menu_item_new gpointer)
1202 (gtk-import-function GtkWidget gtk_radio_menu_item_new_with_label gpointer GtkString)
1203 (gtk-import-function gpointer gtk_radio_menu_item_group GtkRadioMenuItem)
1204 (gtk-import-function nil gtk_radio_menu_item_set_group GtkRadioMenuItem gpointer)
1205
1206 \f
1207 (gtk-import-function GtkType gtk_range_get_type)
1208 (gtk-import-function GtkAdjustment gtk_range_get_adjustment GtkRange)
1209 (gtk-import-function nil gtk_range_set_update_policy GtkRange GtkUpdateType)
1210 (gtk-import-function nil gtk_range_set_adjustment GtkRange GtkAdjustment)
1211
1212 (gtk-import-function nil gtk_range_draw_background GtkRange)
1213 (gtk-import-function nil gtk_range_clear_background GtkRange)
1214 (gtk-import-function nil gtk_range_draw_trough GtkRange)
1215 (gtk-import-function nil gtk_range_draw_slider GtkRange)
1216 (gtk-import-function nil gtk_range_draw_step_forw GtkRange)
1217 (gtk-import-function nil gtk_range_draw_step_back GtkRange)
1218 (gtk-import-function nil gtk_range_slider_update GtkRange)
1219
1220 ;;; #### BILL!!! I think all of these are just for subclassing
1221 ;;; widgets, which we will not be able to do.  Maybe much later.
1222 ;;;gint           gtk_range_trough_click           (GtkRange      *range,
1223 ;;;                                              gint           x,
1224 ;;;                                              gint           y,
1225 ;;;                                              gfloat        *jump_perc);
1226
1227 (gtk-import-function nil gtk_range_default_hslider_update GtkRange)
1228 (gtk-import-function nil gtk_range_default_vslider_update GtkRange)
1229
1230 ;;;gint           gtk_range_default_htrough_click  (GtkRange      *range,
1231 ;;;                                              gint           x,
1232 ;;;                                              gint           y,
1233 ;;;                                              gfloat        *jump_perc);
1234 ;;;gint           gtk_range_default_vtrough_click  (GtkRange      *range,
1235 ;;;                                              gint           x,
1236 ;;;                                              gint           y,
1237 ;;;                                              gfloat        *jump_perc);
1238
1239 (gtk-import-function nil gtk_range_default_hmotion GtkRange gint gint)
1240 (gtk-import-function nil gtk_range_default_vmotion GtkRange gint gint)
1241
1242 \f
1243 (gtk-import-function GtkType gtk_ruler_get_type)
1244 (gtk-import-function nil gtk_ruler_set_metric GtkRuler GtkMetricType)
1245 (gtk-import-function nil gtk_ruler_set_range GtkRuler gfloat gfloat gfloat gfloat)
1246 (gtk-import-function nil gtk_ruler_draw_ticks GtkRuler)
1247 (gtk-import-function nil gtk_ruler_draw_pos GtkRuler)
1248
1249 \f
1250 (gtk-import-function GtkType gtk_scale_get_type)
1251 (gtk-import-function nil gtk_scale_set_digits GtkScale gint)
1252 (gtk-import-function nil gtk_scale_set_draw_value GtkScale gboolean)
1253 (gtk-import-function nil gtk_scale_set_value_pos GtkScale GtkPositionType)
1254 (gtk-import-function gint gtk_scale_get_value_width GtkScale)
1255 (gtk-import-function nil gtk_scale_draw_value GtkScale)
1256
1257 \f
1258 (gtk-import-function GtkType gtk_scrollbar_get_type)
1259
1260 \f
1261 (gtk-import-function GtkType gtk_scrolled_window_get_type)
1262 (gtk-import-function GtkWidget gtk_scrolled_window_new GtkAdjustment GtkAdjustment)
1263 (gtk-import-function nil gtk_scrolled_window_set_hadjustment GtkScrolledWindow GtkAdjustment)
1264 (gtk-import-function nil gtk_scrolled_window_set_vadjustment GtkScrolledWindow GtkAdjustment)
1265 (gtk-import-function GtkAdjustment gtk_scrolled_window_get_hadjustment GtkScrolledWindow)
1266 (gtk-import-function GtkAdjustment gtk_scrolled_window_get_vadjustment GtkScrolledWindow)
1267 (gtk-import-function nil gtk_scrolled_window_set_policy GtkScrolledWindow GtkPolicyType GtkPolicyType)
1268 (gtk-import-function nil gtk_scrolled_window_set_placement GtkScrolledWindow GtkCornerType)
1269 (gtk-import-function nil gtk_scrolled_window_add_with_viewport GtkScrolledWindow GtkWidget)
1270
1271 \f
1272 (gtk-import-function GtkType gtk_separator_get_type)
1273
1274 \f
1275 (gtk-import-function GtkType gtk_socket_get_type)
1276 (gtk-import-function GtkWidget gtk_socket_new)
1277 (gtk-import-function nil gtk_socket_steal GtkSocket guint)
1278
1279 \f
1280 (gtk-import-function GtkType gtk_table_get_type)
1281 (gtk-import-function GtkWidget gtk_table_new guint guint gboolean)
1282 (gtk-import-function nil gtk_table_resize GtkTable guint guint)
1283
1284 (gtk-import-function nil gtk_table_attach GtkTable GtkWidget
1285                      guint guint guint guint GtkAttachOptions GtkAttachOptions guint
1286                      guint)
1287
1288 (gtk-import-function nil gtk_table_attach_defaults GtkTable GtkWidget guint guint guint guint)
1289 (gtk-import-function nil gtk_table_set_row_spacing GtkTable guint guint)
1290 (gtk-import-function nil gtk_table_set_col_spacing GtkTable guint guint)
1291 (gtk-import-function nil gtk_table_set_row_spacings GtkTable guint)
1292 (gtk-import-function nil gtk_table_set_col_spacings GtkTable guint)
1293 (gtk-import-function nil gtk_table_set_homogeneous GtkTable gboolean)
1294
1295 \f
1296 (gtk-import-function GtkType gtk_tearoff_menu_item_get_type)
1297 (gtk-import-function GtkWidget gtk_tearoff_menu_item_new)
1298
1299 \f
1300 (gtk-import-function GtkType gtk_text_get_type)
1301 (gtk-import-function GtkWidget gtk_text_new GtkAdjustment GtkAdjustment)
1302 (gtk-import-function nil gtk_text_set_editable GtkText gboolean)
1303 (gtk-import-function nil gtk_text_set_word_wrap GtkText gint)
1304 (gtk-import-function nil gtk_text_set_line_wrap GtkText gint)
1305 (gtk-import-function nil gtk_text_set_adjustments GtkText GtkAdjustment GtkAdjustment)
1306 (gtk-import-function nil gtk_text_set_point GtkText guint)
1307 (gtk-import-function guint gtk_text_get_point GtkText)
1308 (gtk-import-function guint gtk_text_get_length GtkText)
1309 (gtk-import-function nil gtk_text_freeze GtkText)
1310 (gtk-import-function nil gtk_text_thaw GtkText)
1311 (gtk-import-function nil gtk_text_insert GtkText GdkFont GdkColor GdkColor GtkString gint)
1312 (gtk-import-function nil gtk_text_backward_delete GtkText guint)
1313 (gtk-import-function nil gtk_text_forward_delete GtkText guint)
1314
1315 \f
1316 (gtk-import-function GtkType gtk_tips_query_get_type)
1317 (gtk-import-function GtkWidget gtk_tips_query_new)
1318 (gtk-import-function nil gtk_tips_query_start_query GtkTipsQuery)
1319 (gtk-import-function nil gtk_tips_query_stop_query GtkTipsQuery)
1320 (gtk-import-function nil gtk_tips_query_set_caller GtkTipsQuery GtkWidget)
1321 (gtk-import-function nil gtk_tips_query_set_labels GtkTipsQuery GtkString GtkString)
1322
1323 \f
1324 (gtk-import-function GtkType gtk_toggle_button_get_type)
1325 (gtk-import-function GtkWidget gtk_toggle_button_new)
1326 (gtk-import-function GtkWidget gtk_toggle_button_new_with_label GtkString)
1327 (gtk-import-function nil gtk_toggle_button_set_mode GtkToggleButton gboolean)
1328 (gtk-import-function nil gtk_toggle_button_set_active GtkToggleButton gboolean)
1329 (gtk-import-function gboolean gtk_toggle_button_get_active GtkToggleButton)
1330 (gtk-import-function nil gtk_toggle_button_toggled GtkToggleButton)
1331
1332 \f
1333 (gtk-import-function GtkType gtk_toolbar_get_type)
1334 (gtk-import-function GtkWidget gtk_toolbar_new GtkOrientation GtkToolbarStyle)
1335
1336 ;; Simple button items
1337 ;;; Handcoded in ui-byhand.c... #### FIXME
1338 ;;;GtkWidget* gtk_toolbar_append_item     (GtkToolbar      *toolbar,
1339 ;;;                                     const char      *text,
1340 ;;;                                     const char      *tooltip_text,
1341 ;;;                                     const char      *tooltip_private_text,
1342 ;;;                                     GtkWidget       *icon,
1343 ;;;                                     GtkSignalFunc    callback,
1344 ;;;                                     gpointer         user_data);
1345 ;;;GtkWidget* gtk_toolbar_prepend_item    (GtkToolbar      *toolbar,
1346 ;;;                                     const char      *text,
1347 ;;;                                     const char      *tooltip_text,
1348 ;;;                                     const char      *tooltip_private_text,
1349 ;;;                                     GtkWidget       *icon,
1350 ;;;                                     GtkSignalFunc    callback,
1351 ;;;                                     gpointer         user_data);
1352 ;;;GtkWidget* gtk_toolbar_insert_item     (GtkToolbar      *toolbar,
1353 ;;;                                     const char      *text,
1354 ;;;                                     const char      *tooltip_text,
1355 ;;;                                     const char      *tooltip_private_text,
1356 ;;;                                     GtkWidget       *icon,
1357 ;;;                                     GtkSignalFunc    callback,
1358 ;;;                                     gpointer         user_data,
1359 ;;;                                     gint             position);
1360
1361 ;; Space Items
1362 (gtk-import-function nil gtk_toolbar_append_space GtkToolbar)
1363 (gtk-import-function nil gtk_toolbar_prepend_space GtkToolbar)
1364 (gtk-import-function nil gtk_toolbar_insert_space GtkToolbar gint)
1365
1366 ;; Any element type
1367 ;; Cannot currently do this!  Need to have something similar to
1368 ;; GtkCallback in order to deal with this.
1369 ;; Of what possible use are these functions?  I don't see the
1370 ;; difference between them and the _item functions.
1371 ;;
1372 ;; From looking at the code in gtktoolbar.c, the GtkWidget argument
1373 ;; here is ignored!!!
1374 '(gtk-import-function GtkWidget gtk_toolbar_append_element GtkToolbar
1375                       GtkToolbarChildType
1376                       GtkWidget
1377                       GtkString
1378                       GtkString
1379                       GtkString
1380                       GtkWidget
1381                       GtkSignal
1382                       gpointer)
1383
1384 '(gtk-import-function GtkWidget gtk_toolbar_prepend_element GtkToolbar
1385                       GtkToolbarChildType
1386                       GtkWidget
1387                       GtkString
1388                       GtkString
1389                       GtkString
1390                       GtkWidget
1391                       GtkSignal
1392                       gpointer)
1393
1394 '(gtk-import-function GtkWidget gtk_toolbar_insert_element GtkToolbar
1395                       GtkToolbarChildType
1396                       GtkWidget
1397                       GtkString
1398                       GtkString
1399                       GtkString
1400                       GtkWidget
1401                       GtkSignal
1402                       gpointer
1403                       gint)
1404
1405 ;; Generic Widgets
1406 (gtk-import-function nil gtk_toolbar_append_widget GtkToolbar GtkWidget GtkString GtkString)
1407 (gtk-import-function nil gtk_toolbar_prepend_widget GtkToolbar GtkWidget GtkString GtkString)
1408 (gtk-import-function nil gtk_toolbar_insert_widget GtkToolbar GtkWidget GtkString GtkString gint)
1409
1410 ;; Style functions
1411 (gtk-import-function nil gtk_toolbar_set_orientation GtkToolbar GtkOrientation)
1412 (gtk-import-function nil gtk_toolbar_set_style GtkToolbar GtkToolbarStyle)
1413 (gtk-import-function nil gtk_toolbar_set_space_size GtkToolbar gint)
1414 (gtk-import-function nil gtk_toolbar_set_space_style GtkToolbar GtkToolbarSpaceStyle)
1415 (gtk-import-function nil gtk_toolbar_set_tooltips GtkToolbar gint)
1416 (gtk-import-function nil gtk_toolbar_set_button_relief GtkToolbar GtkReliefStyle)
1417 (gtk-import-function GtkReliefStyle gtk_toolbar_get_button_relief GtkToolbar)
1418
1419 \f
1420 (gtk-import-function GtkType gtk_tooltips_get_type)
1421 (gtk-import-function GtkObject gtk_tooltips_new)
1422 (gtk-import-function nil gtk_tooltips_enable GtkTooltips)
1423 (gtk-import-function nil gtk_tooltips_disable GtkTooltips)
1424 (gtk-import-function nil gtk_tooltips_set_delay GtkTooltips guint)
1425 (gtk-import-function nil gtk_tooltips_set_tip GtkTooltips GtkWidget GtkString GtkString)
1426 (gtk-import-function nil gtk_tooltips_set_colors GtkTooltips GdkColor GdkColor)
1427
1428 ;;;GtkTooltipsData* gtk_tooltips_data_get          (GtkWidget     *widget);
1429
1430 (gtk-import-function nil gtk_tooltips_force_window GtkTooltips)
1431
1432 \f
1433 (gtk-import-function GtkType gtk_tree_get_type)
1434 (gtk-import-function GtkWidget gtk_tree_new)
1435
1436 (gtk-import-function nil gtk_tree_append
1437                      (GtkTree    . tree)
1438                      (GtkWidget  . tree_item))
1439 (gtk-import-function nil gtk_tree_prepend
1440                      (GtkTree    . tree)
1441                      (GtkWidget  . tree_item))
1442
1443 (gtk-import-function nil gtk_tree_insert
1444                      (GtkTree    . tree)
1445                      (GtkWidget  . tree_item)
1446                      (gint       . position))
1447
1448 (gtk-import-function nil gtk_tree_remove_items
1449                      (GtkTree         . tree)
1450                      (GtkListOfObject . items))
1451
1452 (gtk-import-function nil gtk_tree_clear_items
1453                      (GtkTree . tree)
1454                      (gint    . start)
1455                      (gint    . end))
1456
1457 (gtk-import-function nil gtk_tree_select_item
1458                      (GtkTree . tree)
1459                      (gint    . item))
1460
1461 (gtk-import-function nil gtk_tree_unselect_item
1462                      (GtkTree . tree)
1463                      (gint    . item))
1464
1465 (gtk-import-function nil gtk_tree_select_child
1466                      (GtkTree    . tree)
1467                      (GtkWidget  . tree_item))
1468
1469 (gtk-import-function nil gtk_tree_unselect_child
1470                      (GtkTree    . tree)
1471                      (GtkWidget  . tree_item))
1472
1473 (gtk-import-function gint gtk_tree_child_position
1474                      (GtkTree    . tree)
1475                      (GtkWidget  . child))
1476
1477 (gtk-import-function nil gtk_tree_set_selection_mode
1478                      (GtkTree          . tree)
1479                      (GtkSelectionMode . mode))
1480
1481 (gtk-import-function nil gtk_tree_set_view_mode
1482                      (GtkTree         . tree)
1483                      (GtkTreeViewMode . mode))
1484
1485 (gtk-import-function nil gtk_tree_set_view_lines
1486                      (GtkTree  . tree)
1487                      (gboolean . flag))
1488
1489 ;; deprecated function, use gtk_container_remove instead.
1490 (gtk-import-function nil gtk_tree_remove_item
1491                      (GtkTree   . tree)
1492                      (GtkWidget . child))
1493
1494 \f
1495 (gtk-import-function GtkType gtk_tree_item_get_type)
1496 (gtk-import-function GtkWidget gtk_tree_item_new)
1497 (gtk-import-function GtkWidget gtk_tree_item_new_with_label GtkString)
1498 (gtk-import-function nil gtk_tree_item_set_subtree GtkTreeItem GtkWidget)
1499 (gtk-import-function nil gtk_tree_item_remove_subtree GtkTreeItem)
1500 (gtk-import-function nil gtk_tree_item_select GtkTreeItem)
1501 (gtk-import-function nil gtk_tree_item_deselect GtkTreeItem)
1502 (gtk-import-function nil gtk_tree_item_expand GtkTreeItem)
1503 (gtk-import-function nil gtk_tree_item_collapse GtkTreeItem)
1504
1505 \f
1506 (gtk-import-function GtkString gtk_type_name GtkType)
1507 (gtk-import-function guint gtk_type_from_name GtkString)
1508
1509 \f
1510 (gtk-import-function GtkType gtk_vbox_get_type)
1511 (gtk-import-function GtkWidget gtk_vbox_new gboolean gint)
1512
1513 \f
1514 (gtk-import-function GtkType gtk_vbutton_box_get_type)
1515 (gtk-import-function GtkWidget gtk_vbutton_box_new)
1516
1517 ;; buttons can be added by gtk_container_add()
1518 (gtk-import-function gint gtk_vbutton_box_get_spacing_default)
1519 (gtk-import-function nil gtk_vbutton_box_set_spacing_default gint)
1520
1521 (gtk-import-function GtkButtonBoxStyle gtk_vbutton_box_get_layout_default)
1522 (gtk-import-function nil gtk_vbutton_box_set_layout_default GtkButtonBoxStyle)
1523
1524 \f
1525 (gtk-import-function GtkType gtk_viewport_get_type)
1526 (gtk-import-function GtkWidget gtk_viewport_new GtkAdjustment GtkAdjustment)
1527 (gtk-import-function GtkAdjustment gtk_viewport_get_hadjustment GtkViewport)
1528 (gtk-import-function GtkAdjustment gtk_viewport_get_vadjustment GtkViewport)
1529 (gtk-import-function nil gtk_viewport_set_hadjustment GtkViewport GtkAdjustment)
1530 (gtk-import-function nil gtk_viewport_set_vadjustment GtkViewport GtkAdjustment)
1531 (gtk-import-function nil gtk_viewport_set_shadow_type GtkViewport GtkShadowType)
1532
1533 \f
1534 (gtk-import-function GtkType gtk_vpaned_get_type)
1535 (gtk-import-function GtkWidget gtk_vpaned_new)
1536
1537 \f
1538 (gtk-import-function GtkType gtk_vruler_get_type)
1539 (gtk-import-function GtkWidget gtk_vruler_new)
1540
1541 \f
1542 (gtk-import-function GtkType gtk_vscale_get_type)
1543 (gtk-import-function GtkWidget gtk_vscale_new GtkAdjustment)
1544
1545 \f
1546 (gtk-import-function GtkType gtk_vscrollbar_get_type)
1547 (gtk-import-function GtkWidget gtk_vscrollbar_new GtkAdjustment)
1548
1549 \f
1550 (gtk-import-function GtkType gtk_vseparator_get_type)
1551 (gtk-import-function GtkWidget gtk_vseparator_new)
1552
1553 \f
1554 (gtk-import-function GtkType gtk_widget_get_type)
1555 (gtk-import-function nil gtk_widget_ref GtkWidget)
1556 (gtk-import-function nil gtk_widget_unref GtkWidget)
1557 (gtk-import-function nil gtk_widget_destroy GtkWidget)
1558 (gtk-import-function nil gtk_widget_unparent GtkWidget)
1559 (gtk-import-function nil gtk_widget_show GtkWidget)
1560 (gtk-import-function nil gtk_widget_show_now GtkWidget)
1561 (gtk-import-function nil gtk_widget_hide GtkWidget)
1562 (gtk-import-function nil gtk_widget_show_all GtkWidget)
1563 (gtk-import-function nil gtk_widget_hide_all GtkWidget)
1564 (gtk-import-function nil gtk_widget_map GtkWidget)
1565 (gtk-import-function nil gtk_widget_unmap GtkWidget)
1566 (gtk-import-function nil gtk_widget_realize GtkWidget)
1567 (gtk-import-function nil gtk_widget_unrealize GtkWidget)
1568
1569 (gtk-import-function nil gtk_widget_queue_draw GtkWidget)
1570 (gtk-import-function nil gtk_widget_queue_draw_area GtkWidget gint gint gint gint)
1571 (gtk-import-function nil gtk_widget_queue_clear GtkWidget)
1572 (gtk-import-function nil gtk_widget_queue_clear_area GtkWidget gint gint gint gint)
1573 (gtk-import-function nil gtk_widget_queue_resize GtkWidget)
1574
1575 ;;; #### BILL!!!
1576 ;(gtk-import-function nil gtk_widget_draw 'GtkWidget 'GdkRectangle)
1577 ;(gtk-import-function nil gtk_widget_size_request 'GtkWidget 'GtkRequisition)
1578 ;(gtk-import-function nil gtk_widget_size_allocate 'GtkWidget 'GtkAllocation)
1579 ;(gtk-import-function nil gtk_widget_get_child_requisition 'GtkWidget 'GtkRequisition)
1580 ;(gtk-import-function 'gint gtk_widget_intersect 'GtkWidget 'GdkRectangle 'GdkRectangle)
1581
1582 (gtk-import-function nil gtk_widget_draw_focus GtkWidget)
1583 (gtk-import-function nil gtk_widget_draw_default GtkWidget)
1584 (gtk-import-function nil gtk_widget_add_accelerator GtkWidget GtkString GtkAccelGroup
1585                      guint guint GtkAccelFlags)
1586 (gtk-import-function nil gtk_widget_remove_accelerator GtkWidget GtkAccelGroup guint guint)
1587 (gtk-import-function nil gtk_widget_remove_accelerators GtkWidget GtkString gboolean)
1588 (gtk-import-function guint gtk_widget_accelerator_signal GtkWidget GtkAccelGroup guint guint)
1589 (gtk-import-function nil gtk_widget_lock_accelerators GtkWidget)
1590 (gtk-import-function nil gtk_widget_unlock_accelerators GtkWidget)
1591 (gtk-import-function gboolean gtk_widget_accelerators_locked GtkWidget)
1592 (gtk-import-function gint gtk_widget_event GtkWidget GdkEvent)
1593 (gtk-import-function gboolean gtk_widget_activate GtkWidget)
1594 (gtk-import-function gboolean gtk_widget_set_scroll_adjustments GtkWidget GtkAdjustment GtkAdjustment)
1595 (gtk-import-function nil gtk_widget_reparent GtkWidget GtkWidget)
1596 (gtk-import-function nil gtk_widget_popup GtkWidget gint gint)
1597 (gtk-import-function nil gtk_widget_grab_focus GtkWidget)
1598 (gtk-import-function nil gtk_widget_grab_default GtkWidget)
1599 (gtk-import-function nil gtk_widget_set_name GtkWidget GtkString)
1600 (gtk-import-function GtkString gtk_widget_get_name GtkWidget)
1601 (gtk-import-function nil gtk_widget_set_state GtkWidget GtkStateType)
1602 (gtk-import-function nil gtk_widget_set_sensitive GtkWidget gboolean)
1603 (gtk-import-function nil gtk_widget_set_app_paintable GtkWidget gboolean)
1604 (gtk-import-function nil gtk_widget_set_parent GtkWidget GtkWidget)
1605 (gtk-import-function nil gtk_widget_set_parent_window GtkWindow GdkWindow)
1606 (gtk-import-function GdkWindow gtk_widget_get_parent_window GtkWidget)
1607 (gtk-import-function nil gtk_widget_set_uposition GtkWidget gint gint)
1608 (gtk-import-function nil gtk_widget_set_usize GtkWidget gint gint)
1609 (gtk-import-function nil gtk_widget_set_events GtkWidget GdkEventMask)
1610 (gtk-import-function nil gtk_widget_add_events GtkWidget GdkEventMask)
1611 (gtk-import-function nil gtk_widget_set_extension_events GtkWidget GdkExtensionMode)
1612 (gtk-import-function GdkExtensionMode gtk_widget_get_extension_events GtkWidget)
1613 (gtk-import-function GtkWidget gtk_widget_get_toplevel GtkWidget)
1614 (gtk-import-function GtkWidget gtk_widget_get_ancestor GtkWidget guint)
1615 (gtk-import-function GdkColormap gtk_widget_get_colormap GtkWidget)
1616 (gtk-import-function GdkVisual gtk_widget_get_visual GtkWidget)
1617
1618 (gtk-import-function nil gtk_widget_set_colormap GtkWidget GdkColormap)
1619 (gtk-import-function nil gtk_widget_set_visual GtkWidget GdkVisual)
1620 (gtk-import-function GdkEventMask gtk_widget_get_events GtkWidget)
1621
1622 ;;; Hrm - this should return a cons cell.
1623 ;;; Handcoded in ui-byhand.c... #### FIXME
1624 ;;void       gtk_widget_get_pointer     (GtkWidget      *widget,
1625 ;;                                       gint           *x,
1626 ;;                                       gint           *y);
1627
1628 (gtk-import-function gboolean gtk_widget_is_ancestor GtkWidget GtkWidget)
1629 (gtk-import-function gboolean gtk_widget_hide_on_delete GtkWidget)
1630
1631 ;;; Widget styles
1632 (gtk-import-function nil gtk_widget_set_style GtkWidget GtkStyle)
1633 (gtk-import-function nil gtk_widget_set_rc_style GtkWidget)
1634 (gtk-import-function nil gtk_widget_ensure_style GtkWidget)
1635 (gtk-import-function GtkStyle gtk_widget_get_style GtkWidget)
1636 (gtk-import-function nil gtk_widget_restore_default_style GtkWidget)
1637 (gtk-import-function nil gtk_widget_modify_style GtkWidget GtkStyle)
1638
1639 (gtk-import-function nil gtk_widget_set_composite_name GtkWidget GtkString)
1640 (gtk-import-function GtkString gtk_widget_get_composite_name GtkWidget)
1641 (gtk-import-function nil gtk_widget_reset_rc_styles GtkWidget)
1642
1643 ;; Push/pop pairs, to change default values upon a widget's creation.
1644 ;; This will override the values that got set by the
1645 ;; gtk_widget_set_default_* () functions.
1646 (gtk-import-function nil gtk_widget_push_style GtkStyle)
1647 (gtk-import-function nil gtk_widget_push_colormap GdkColormap)
1648 (gtk-import-function nil gtk_widget_push_visual GdkVisual)
1649 (gtk-import-function nil gtk_widget_push_composite_child)
1650 (gtk-import-function nil gtk_widget_pop_composite_child)
1651 (gtk-import-function nil gtk_widget_pop_style)
1652 (gtk-import-function nil gtk_widget_pop_colormap)
1653 (gtk-import-function nil gtk_widget_pop_visual)
1654
1655 ;; Set certain default values to be used at widget creation time.
1656 (gtk-import-function nil gtk_widget_set_default_style GtkStyle)
1657 (gtk-import-function nil gtk_widget_set_default_colormap GdkColormap)
1658 (gtk-import-function nil gtk_widget_set_default_visual GdkVisual)
1659 (gtk-import-function GtkStyle gtk_widget_get_default_style)
1660 (gtk-import-function GdkColormap gtk_widget_get_default_colormap)
1661 (gtk-import-function GdkVisual gtk_widget_get_default_visual)
1662
1663 ;; Counterpart to gdk_window_shape_combine_mask.
1664 (gtk-import-function nil gtk_widget_shape_combine_mask GtkWidget GdkBitmap gint gint)
1665
1666 ;; internal function
1667 (gtk-import-function nil gtk_widget_reset_shapes GtkWidget)
1668
1669 ;; Compute a widget's path in the form "GtkWindow.MyLabel", and
1670 ;; return newly alocated strings.
1671 ;; Ignored for now #### BILL!!!
1672 ;void        gtk_widget_path               (GtkWidget *widget,
1673 ;                                           guint     *path_length,
1674 ;                                           gchar    **path,
1675 ;                                           gchar    **path_reversed);
1676 ;void        gtk_widget_class_path         (GtkWidget *widget,
1677 ;                                           guint     *path_length,
1678 ;                                           gchar    **path,
1679 ;                                           gchar    **path_reversed);
1680
1681 \f
1682 (gtk-import-function GtkType gtk_window_get_type)
1683 (gtk-import-function GtkWidget gtk_window_new GtkWindowType)
1684 (gtk-import-function nil gtk_window_set_title GtkWindow GtkString)
1685 (gtk-import-function nil gtk_window_set_wmclass GtkWindow GtkString GtkString)
1686 (gtk-import-function nil gtk_window_set_policy GtkWindow gint gint gint)
1687 (gtk-import-function nil gtk_window_add_accel_group GtkWindow GtkAccelGroup)
1688 (gtk-import-function nil gtk_window_remove_accel_group GtkWindow GtkAccelGroup)
1689 (gtk-import-function nil gtk_window_set_position GtkWindow GtkWindowPosition)
1690 (gtk-import-function gint gtk_window_activate_focus GtkWindow)
1691 (gtk-import-function gint gtk_window_activate_default GtkWindow)
1692 (gtk-import-function nil gtk_window_set_transient_for GtkWindow GtkWindow)
1693 ;(gtk-import-function nil gtk_window_set_geometry_hints GtkWindow GtkWidget GdkGeometry GdkWindowHints)
1694 (gtk-import-function nil gtk_window_set_default_size GtkWindow gint gint)
1695 (gtk-import-function nil gtk_window_set_modal GtkWindow gboolean)
1696
1697 ;; Internal functions - do we really want to expose these?
1698 ;; NO
1699 '(gtk-import-function nil gtk_window_set_focus GtkWindow GtkWidget)
1700 '(gtk-import-function nil gtk_window_set_default GtkWindow GtkWidget)
1701 '(gtk-import-function nil gtk_window_remove_embedded_xid GtkWindow guint)
1702 '(gtk-import-function nil gtk_window_add_embedded_xid GtkWindow guint)
1703 '(gtk-import-function nil gtk_window_reposition GtkWindow gint gint)
1704
1705 \f
1706 (gtk-import-function GtkType gtk_spin_button_get_type)
1707 (gtk-import-function nil gtk_spin_button_configure
1708                      (GtkSpinButton . spin_button)
1709                      (GtkAdjustment . adjustment)
1710                      (gfloat        . climb_rate)
1711                      (guint         . digits))
1712 (gtk-import-function GtkWidget gtk_spin_button_new
1713                      (GtkAdjustment . adjustment)
1714                      (gfloat        . climb_rate)
1715                      (guint         . digits))
1716 (gtk-import-function nil gtk_spin_button_set_adjustment
1717                      (GtkSpinButton . spin_button)
1718                      (GtkAdjustment . adjustment))
1719 (gtk-import-function GtkAdjustment gtk_spin_button_get_adjustment
1720                      (GtkSpinButton . spin_button))
1721 (gtk-import-function nil gtk_spin_button_set_digits
1722                      (GtkSpinButton . spin_button)
1723                      (guint         . digits))
1724 (gtk-import-function gfloat gtk_spin_button_get_value_as_float
1725                      (GtkSpinButton . spin_button))
1726 (gtk-import-function gint gtk_spin_button_get_value_as_int
1727                      (GtkSpinButton . spin_button))
1728 (gtk-import-function nil gtk_spin_button_set_value
1729                      (GtkSpinButton . spin_button)
1730                      (gfloat        . value))
1731 (gtk-import-function nil gtk_spin_button_set_update_policy
1732                      (GtkSpinButton . spin_button)
1733                      (GtkSpinButtonUpdatePolicy . policy))
1734 (gtk-import-function nil gtk_spin_button_set_numeric
1735                      (GtkSpinButton . spin_button)
1736                      (gboolean      . numeric))
1737 (gtk-import-function nil gtk_spin_button_spin
1738                      (GtkSpinButton . spin_button)
1739                      (GtkSpinType   . direction)
1740                      (gfloat        . increment))
1741 (gtk-import-function nil gtk_spin_button_set_wrap
1742                      (GtkSpinButton . spin_button)
1743                      (gboolean      . wrap))
1744 (gtk-import-function nil gtk_spin_button_set_shadow_type
1745                      (GtkSpinButton . spin_button)
1746                      (GtkShadowType . shadow_type))
1747 (gtk-import-function nil gtk_spin_button_set_snap_to_ticks
1748                      (GtkSpinButton . spin_button)
1749                      (gboolean      . snap_to_ticks))
1750 (gtk-import-function  nil gtk_spin_button_update
1751                       (GtkSpinButton . spin_button))
1752
1753 \f
1754 (gtk-import-function GtkType gtk_statusbar_get_type)
1755 (gtk-import-function GtkWidget gtk_statusbar_new)
1756 (gtk-import-function guint gtk_statusbar_get_context_id
1757                      (GtkStatusbar . statusbar)
1758                      (GtkString    . context_description))
1759
1760 ;; Returns message_id used for gtk_statusbar_remove
1761 (gtk-import-function guint gtk_statusbar_push
1762                      (GtkStatusbar . statusbar)
1763                      (guint        . context_id)
1764                      (GtkString    . text))
1765 (gtk-import-function nil gtk_statusbar_pop
1766                      (GtkStatusbar . statusbar)
1767                      (guint        . context_id))
1768 (gtk-import-function nil gtk_statusbar_remove
1769                      (GtkStatusbar . statusbar)
1770                      (guint        . context_id)
1771                      (guint        . message_id))
1772
1773 \f
1774 (gtk-import-function GtkType gtk_ctree_get_type)
1775 (gtk-import-function none gtk_ctree_construct
1776                      (GtkCTree . ctree)
1777                      (gint     . columns)
1778                      (gint     . tree_column)
1779                      (GtkArrayOfString . titles))
1780 (gtk-import-function GtkWidget gtk_ctree_new_with_titles
1781                      (gint . columns)
1782                      (gint . tree_column)
1783                      (GtkArrayOfString . titles))
1784 (gtk-import-function GtkWidget gtk_ctree_new
1785                      (gint . columns)
1786                      (gint . tree_column))
1787
1788 (gtk-import-function GtkCTreeNode gtk_ctree_insert_node
1789                      (GtkCTree . ctree)
1790                      (GtkCTreeNode . parent)
1791                      (GtkCTreeNode . sibling)
1792                      (GtkArrayOfString . text)
1793                      (guint . spacing)
1794                      (GdkPixmap . pixmap_closed)
1795                      (GdkBitmap . mask_closed)
1796                      (GdkPixmap . pixmap_opened)
1797                      (GdkBitmap . mask_opened)
1798                      (gboolean . is_leaf)
1799                      (gboolean . expanded))
1800
1801 (gtk-import-function none gtk_ctree_remove_node
1802                      (GtkCTree . ctree)
1803                      (GtkCTreeNode . node))
1804
1805 (gtk-import-function none gtk_ctree_expand
1806                      (GtkCTree . ctree)
1807                      (GtkCTreeNode . node))
1808
1809 (gtk-import-function none gtk_ctree_move
1810                      (GtkCTree  . ctree)
1811                      (GtkCTreeNode . node)
1812                      (GtkCTreeNode . new_parent)
1813                      (GtkCTreeNode . new_sibling))
1814
1815 (gtk-import-function void gtk_ctree_expand_recursive
1816                      (GtkCTree     . ctree)
1817                      (GtkCTreeNode . node))
1818
1819 (gtk-import-function void gtk_ctree_expand_to_depth
1820                      (GtkCTree     . ctree)
1821                      (GtkCTreeNode . node)
1822                      (gint         . depth))
1823
1824 (gtk-import-function void gtk_ctree_collapse
1825                      (GtkCTree     . ctree)
1826                      (GtkCTreeNode . node))
1827
1828 (gtk-import-function void gtk_ctree_collapse_recursive
1829                      (GtkCTree     . ctree)
1830                      (GtkCTreeNode . node))
1831
1832 (gtk-import-function void gtk_ctree_collapse_to_depth
1833                      (GtkCTree     . ctree)
1834                      (GtkCTreeNode . node)
1835                      (gint         . depth))
1836
1837 (gtk-import-function void gtk_ctree_toggle_expansion
1838                      (GtkCTree     . ctree)
1839                      (GtkCTreeNode . node))
1840
1841 (gtk-import-function void gtk_ctree_toggle_expansion_recursive
1842                      (GtkCTree     . ctree)
1843                      (GtkCTreeNode . node))
1844
1845 (gtk-import-function void gtk_ctree_select
1846                      (GtkCTree     . ctree)
1847                      (GtkCTreeNode . node))
1848
1849 (gtk-import-function void gtk_ctree_select_recursive
1850                      (GtkCTree     . ctree)
1851                      (GtkCTreeNode . node))
1852
1853 (gtk-import-function void gtk_ctree_unselect
1854                      (GtkCTree     . ctree)
1855                      (GtkCTreeNode . node))
1856
1857 (gtk-import-function void gtk_ctree_unselect_recursive
1858                      (GtkCTree     . ctree)
1859                      (GtkCTreeNode . node))
1860
1861 ;; NOTE!!! The header file here was WRONG!  It had a third arg 'gint state'
1862 (gtk-import-function void gtk_ctree_real_select_recursive
1863                      (GtkCTree     . ctree)
1864                      (GtkCTreeNode . node))
1865
1866 ;; Analogs of GtkCList functions
1867 (gtk-import-function void gtk_ctree_node_set_text
1868                      (GtkCTree . ctree)
1869                      (GtkCTreeNode . node)
1870                      (gint . column)
1871                      (GtkString . text))
1872
1873 (gtk-import-function void gtk_ctree_node_set_pixmap
1874                      (GtkCTree . ctree)
1875                      (GtkCTreeNode . node)
1876                      (gint . column)
1877                      (GdkPixmap . pixmap)
1878                      (GdkBitmap . mask))
1879
1880 (gtk-import-function void gtk_ctree_node_set_pixtext
1881                      (GtkCTree . ctree)
1882                      (GtkCTreeNode . node)
1883                      (gint . column)
1884                      (GtkString . text)
1885                      (guint . spacing)
1886                      (GdkPixmap . pixmap)
1887                      (GdkBitmap . mask))
1888
1889 (gtk-import-function void gtk_ctree_set_node_info
1890                      (GtkCTree . ctree)
1891                      (GtkCTreeNode . node)
1892                      (GtkString . text)
1893                      (guint . spacing)
1894                      (GdkPixmap . pixmap_closed)
1895                      (GdkBitmap . mask_closed)
1896                      (GdkPixmap . pixmap_opened)
1897                      (GdkBitmap . mask_opened)
1898                      (gboolean  . is_leaf)
1899                      (gboolean  . expanded))
1900
1901 (gtk-import-function void gtk_ctree_node_set_shift
1902                      (GtkCTree     . ctree)
1903                      (GtkCTreeNode . node)
1904                      (gint         . column)
1905                      (gint         . vertical)
1906                      (gint         . horizontal))
1907
1908 (gtk-import-function void gtk_ctree_node_set_selectable
1909                      (GtkCTree     . ctree)
1910                      (GtkCTreeNode . node)
1911                      (gboolean     . selectable))
1912
1913 (gtk-import-function gboolean gtk_ctree_node_get_selectable
1914                      (GtkCTree     . ctree)
1915                      (GtkCTreeNode . node))
1916
1917 (gtk-import-function GtkCellType gtk_ctree_node_get_cell_type
1918                      (GtkCTree     . ctree)
1919                      (GtkCTreeNode . node)
1920                      (gint         . column))
1921
1922 (gtk-import-function void gtk_ctree_node_set_row_style
1923                      (GtkCTree     . ctree)
1924                      (GtkCTreeNode . node)
1925                      (GtkStyle     . style))
1926
1927 (gtk-import-function GtkStyle gtk_ctree_node_get_row_style
1928                      (GtkCTree     . ctree)
1929                      (GtkCTreeNode . node))
1930
1931 (gtk-import-function void gtk_ctree_node_set_cell_style
1932                      (GtkCTree     . ctree)
1933                      (GtkCTreeNode . node)
1934                      (gint         . column)
1935                      (GtkStyle     . style))
1936
1937 (gtk-import-function GtkStyle gtk_ctree_node_get_cell_style
1938                      (GtkCTree     . ctree)
1939                      (GtkCTreeNode . node)
1940                      (gint         . column))
1941
1942 (gtk-import-function void gtk_ctree_node_set_foreground
1943                      (GtkCTree     . ctree)
1944                      (GtkCTreeNode . node)
1945                      (GdkColor     . color))
1946
1947 (gtk-import-function void gtk_ctree_node_set_background
1948                      (GtkCTree     . ctree)
1949                      (GtkCTreeNode . node)
1950                      (GdkColor     . color))
1951
1952 (gtk-import-function void gtk_ctree_node_moveto
1953                      (GtkCTree     . ctree)
1954                      (GtkCTreeNode . node)
1955                      (gint         . column)
1956                      (gfloat       . row_align)
1957                      (gfloat       . col_align))
1958
1959 (gtk-import-function GtkVisibility gtk_ctree_node_is_visible
1960                      (GtkCTree     . ctree)
1961                      (GtkCTreeNode . node))
1962
1963 ;; GtkCTree specific functions
1964 (gtk-import-function void gtk_ctree_set_indent
1965                      (GtkCTree                . ctree)
1966                      (gint                    . indent))
1967
1968 (gtk-import-function void gtk_ctree_set_spacing
1969                      (GtkCTree                . ctree)
1970                      (gint                    . spacing))
1971
1972 (gtk-import-function void gtk_ctree_set_show_stub
1973                      (GtkCTree                . ctree)
1974                      (gboolean                . show_stub))
1975
1976 (gtk-import-function void gtk_ctree_set_line_style
1977                      (GtkCTree                . ctree)
1978                      (GtkCTreeLineStyle       . line_style))
1979
1980 (gtk-import-function void gtk_ctree_set_expander_style
1981                      (GtkCTree                . ctree)
1982                      (GtkCTreeExpanderStyle   . expander_style))
1983
1984 ;; Tree sorting functions
1985 (gtk-import-function void gtk_ctree_sort_node
1986                      (GtkCTree     . ctree)
1987                      (GtkCTreeNode . node))
1988
1989 (gtk-import-function void gtk_ctree_sort_recursive
1990                      (GtkCTree     . ctree)
1991                      (GtkCTreeNode . node))
1992
1993 ;; Finding tree information
1994 (gtk-import-function gboolean gtk_ctree_is_viewable
1995                      (GtkCTree     . ctree)
1996                      (GtkCTreeNode . node))
1997 (gtk-import-function GtkCTreeNode gtk_ctree_last
1998                      (GtkCTree     . ctree)
1999                      (GtkCTreeNode . node))
2000 (gtk-import-function GtkCTreeNode gtk_ctree_find_node_ptr
2001                      (GtkCTree     . ctree)
2002                      (GtkCTreeRow  . ctree_row))
2003 (gtk-import-function GtkCTreeNode gtk_ctree_node_nth
2004                      (GtkCTree     . ctree)
2005                      (guint        . row))
2006 (gtk-import-function gboolean gtk_ctree_find
2007                      (GtkCTree     . ctree)
2008                      (GtkCTreeNode . node)
2009                      (GtkCTreeNode . child))
2010 (gtk-import-function gboolean gtk_ctree_is_ancestor
2011                      (GtkCTree     . ctree)
2012                      (GtkCTreeNode . node)
2013                      (GtkCTreeNode . child))
2014 (gtk-import-function gboolean gtk_ctree_is_hot_spot
2015                      (GtkCTree     . ctree)
2016                      (gint         . x)
2017                      (gint         . y))
2018
2019 (defun gtk-ctree-post-recursive (ctree node func data)
2020   (gtk-ctree-recurse ctree node func data t nil))
2021
2022 (defun gtk-ctree-post-recursive-to-depth (ctree node depth func data)
2023   (gtk-ctree-recurse ctree node func data t depth))
2024
2025 (defun gtk-ctree-pre-recursive (ctree node func data)
2026   (gtk-ctree-recurse ctree node func data nil nil))
2027
2028 (defun gtk-ctree-pre-recursive-to-depth (ctree node depth func data)
2029   (gtk-ctree-recurse ctree node func data nil depth))
2030
2031 \f
2032 (gtk-import-function GtkType gtk_preview_get_type)
2033 (gtk-import-function void gtk_preview_uninit)
2034 (gtk-import-function GtkWidget gtk_preview_new
2035                      (GtkPreviewType . type))
2036 (gtk-import-function void gtk_preview_size
2037                      (GtkPreview      . preview)
2038                      (gint            . width)
2039                      (gint            . height))
2040 (gtk-import-function void gtk_preview_put
2041                      (GtkPreview      . preview)
2042                      (GdkWindow       . window)
2043                      (GdkGC           . gc)
2044                      (gint            . srcx)
2045                      (gint            . srcy)
2046                      (gint            . destx)
2047                      (gint            . desty)
2048                      (gint            . width)
2049                      (gint            . height))
2050 (gtk-import-function void gtk_preview_draw_row
2051                      (GtkPreview      . preview)
2052                      (GtkString       . data)
2053                      (gint            . x)
2054                      (gint            . y)
2055                      (gint            . w))
2056 (gtk-import-function void gtk_preview_set_expand
2057                      (GtkPreview      . preview)
2058                      (gboolean        . expand))
2059 (gtk-import-function void gtk_preview_set_gamma
2060                      (double          . gamma))
2061 (gtk-import-function void gtk_preview_set_color_cube
2062                      (guint           . nred_shades)
2063                      (guint           . ngreen_shades)
2064                      (guint           . nblue_shades)
2065                      (guint           . ngray_shades))
2066 (gtk-import-function void gtk_preview_set_install_cmap
2067                      (gboolean        . install_cmap))
2068 (gtk-import-function void gtk_preview_set_reserved
2069                      (gint            . nreserved))
2070 ;;;(gtk-import-function void gtk_preview_set_dither
2071 ;;;                  (GtkPreview      . preview)
2072 ;;;                  (GdkRgbDither    . dither))
2073
2074 (gtk-import-function GdkVisual gtk_preview_get_visual)
2075 (gtk-import-function GdkColormap gtk_preview_get_cmap)
2076 (gtk-import-function GtkPreviewInfo gtk_preview_get_info)
2077
2078 ;; This function reinitializes the preview colormap and visual from
2079 ;; the current gamma/color_cube/install_cmap settings. It must only
2080 ;; be called if there are no previews or users's of the preview
2081 ;; colormap in existence.
2082 (gtk-import-function void gtk_preview_reset)