gtk.defs 46.2 KB
Newer Older
1
;; generated by makeenums.pl  ; -*- scheme -*-
2 3


4
; enumerations from "./gtkclist.h"
5

6 7 8 9 10 11
(define-enum GtkCellType
   (empty GTK_CELL_EMPTY)
   (text GTK_CELL_TEXT)
   (pixmap GTK_CELL_PIXMAP)
   (pixtext GTK_CELL_PIXTEXT)
   (widget GTK_CELL_WIDGET))
12

13
; enumerations from "./gtkctree.h"
14

15 16 17 18
(define-enum GtkCTreePos
   (before GTK_CTREE_POS_BEFORE)
   (as-child GTK_CTREE_POS_AS_CHILD)
   (after GTK_CTREE_POS_AFTER))
19

20 21 22
(define-enum GtkCTreeLineStyle
   (solid GTK_CTREE_LINES_SOLID)
   (dotted GTK_CTREE_LINES_DOTTED)
23
   (tabbed GTK_CTREE_LINES_TABBED)
24
   (none GTK_CTREE_LINES_NONE))
25

26 27 28 29 30 31 32 33
(define-enum GtkCTreeExpansion
   (expand GTK_CTREE_EXPANSION_EXPAND)
   (expand-recursive GTK_CTREE_EXPANSION_EXPAND_RECURSIVE)
   (collapse GTK_CTREE_EXPANSION_COLLAPSE)
   (collapse-recursive GTK_CTREE_EXPANSION_COLLAPSE_RECURSIVE)
   (toggle GTK_CTREE_EXPANSION_TOGGLE)
   (toggle-recursive GTK_CTREE_EXPANSION_TOGGLE_RECURSIVE))

34
; enumerations from "./gtkdebug.h"
35

36 37 38 39
(define-flags GtkDebugFlag
   (objects GTK_DEBUG_OBJECTS)
   (misc GTK_DEBUG_MISC)
   (signals GTK_DEBUG_SIGNALS))
40

41
; enumerations from "./gtkenums.h"
42

43 44 45 46 47
(define-flags GtkAccelFlags
   (visible GTK_ACCEL_VISIBLE)
   (signal-visible GTK_ACCEL_SIGNAL_VISIBLE)
   (locked GTK_ACCEL_LOCKED)
   (mask GTK_ACCEL_MASK))
48

49 50 51 52 53
(define-enum GtkArrowType
   (up GTK_ARROW_UP)
   (down GTK_ARROW_DOWN)
   (left GTK_ARROW_LEFT)
   (right GTK_ARROW_RIGHT))
54

55 56 57 58
(define-flags GtkAttachOptions
   (expand GTK_EXPAND)
   (shrink GTK_SHRINK)
   (fill GTK_FILL))
59

60 61 62 63 64 65
(define-enum GtkButtonBoxStyle
   (default-style GTK_BUTTONBOX_DEFAULT_STYLE)
   (spread GTK_BUTTONBOX_SPREAD)
   (edge GTK_BUTTONBOX_EDGE)
   (start GTK_BUTTONBOX_START)
   (end GTK_BUTTONBOX_END))
66

67 68 69 70
(define-enum GtkCurveType
   (linear GTK_CURVE_TYPE_LINEAR)
   (spline GTK_CURVE_TYPE_SPLINE)
   (free GTK_CURVE_TYPE_FREE))
71

72 73 74 75 76 77 78
(define-enum GtkDirectionType
   (tab-forward GTK_DIR_TAB_FORWARD)
   (tab-backward GTK_DIR_TAB_BACKWARD)
   (up GTK_DIR_UP)
   (down GTK_DIR_DOWN)
   (left GTK_DIR_LEFT)
   (right GTK_DIR_RIGHT))
79

80 81 82 83 84
(define-enum GtkJustification
   (left GTK_JUSTIFY_LEFT)
   (right GTK_JUSTIFY_RIGHT)
   (center GTK_JUSTIFY_CENTER)
   (fill GTK_JUSTIFY_FILL))
85

86 87 88 89 90 91 92
(define-enum GtkMatchType
   (all GTK_MATCH_ALL)
   (all-tail GTK_MATCH_ALL_TAIL)
   (head GTK_MATCH_HEAD)
   (tail GTK_MATCH_TAIL)
   (exact GTK_MATCH_EXACT)
   (last GTK_MATCH_LAST))
93

94 95 96 97
(define-enum GtkMenuFactoryType
   (menu GTK_MENU_FACTORY_MENU)
   (menu-bar GTK_MENU_FACTORY_MENU_BAR)
   (option-menu GTK_MENU_FACTORY_OPTION_MENU))
98

99 100 101 102
(define-enum GtkMetricType
   (pixels GTK_PIXELS)
   (inches GTK_INCHES)
   (centimeters GTK_CENTIMETERS))
103

104 105 106
(define-enum GtkOrientation
   (horizontal GTK_ORIENTATION_HORIZONTAL)
   (vertical GTK_ORIENTATION_VERTICAL))
107

108 109 110
(define-enum GtkPackType
   (start GTK_PACK_START)
   (end GTK_PACK_END))
Elliot Lee's avatar
Elliot Lee committed
111

112 113 114 115 116 117 118
(define-enum GtkPathPriorityType
   (lowest GTK_PATH_PRIO_LOWEST)
   (gtk GTK_PATH_PRIO_GTK)
   (application GTK_PATH_PRIO_APPLICATION)
   (rc GTK_PATH_PRIO_RC)
   (highest GTK_PATH_PRIO_HIGHEST)
   (mask GTK_PATH_PRIO_MASK))
119

120 121 122 123
(define-enum GtkPathType
   (widget GTK_PATH_WIDGET)
   (widget-class GTK_PATH_WIDGET_CLASS)
   (class GTK_PATH_CLASS))
124

125 126 127
(define-enum GtkPolicyType
   (always GTK_POLICY_ALWAYS)
   (automatic GTK_POLICY_AUTOMATIC))
128

129 130 131 132 133
(define-enum GtkPositionType
   (left GTK_POS_LEFT)
   (right GTK_POS_RIGHT)
   (top GTK_POS_TOP)
   (bottom GTK_POS_BOTTOM))
134

135 136 137
(define-enum GtkPreviewType
   (color GTK_PREVIEW_COLOR)
   (grayscale GTK_PREVIEW_GRAYSCALE))
138

139 140
(define-enum GtkReliefStyle
   (normal GTK_RELIEF_NORMAL)
141
   (half GTK_RELIEF_HALF)
142
   (none GTK_RELIEF_NONE))
143

144 145 146 147 148
(define-enum GtkResizeMode
   (parent GTK_RESIZE_PARENT)
   (queue GTK_RESIZE_QUEUE)
   (immediate GTK_RESIZE_IMMEDIATE))

149 150 151 152 153 154 155
(define-flags GtkSignalRunType
   (first GTK_RUN_FIRST)
   (last GTK_RUN_LAST)
   (both GTK_RUN_BOTH)
   (mask GTK_RUN_MASK)
   (no-recurse GTK_RUN_NO_RECURSE)
   (action GTK_RUN_ACTION))
156

157 158 159 160 161 162 163
(define-enum GtkScrollType
   (none GTK_SCROLL_NONE)
   (step-backward GTK_SCROLL_STEP_BACKWARD)
   (step-forward GTK_SCROLL_STEP_FORWARD)
   (page-backward GTK_SCROLL_PAGE_BACKWARD)
   (page-forward GTK_SCROLL_PAGE_FORWARD)
   (jump GTK_SCROLL_JUMP))
164

165 166 167 168 169
(define-enum GtkSelectionMode
   (single GTK_SELECTION_SINGLE)
   (browse GTK_SELECTION_BROWSE)
   (multiple GTK_SELECTION_MULTIPLE)
   (extended GTK_SELECTION_EXTENDED))
170

171 172 173 174 175 176
(define-enum GtkShadowType
   (none GTK_SHADOW_NONE)
   (in GTK_SHADOW_IN)
   (out GTK_SHADOW_OUT)
   (etched-in GTK_SHADOW_ETCHED_IN)
   (etched-out GTK_SHADOW_ETCHED_OUT))
177

178 179 180 181 182 183
(define-enum GtkStateType
   (normal GTK_STATE_NORMAL)
   (active GTK_STATE_ACTIVE)
   (prelight GTK_STATE_PRELIGHT)
   (selected GTK_STATE_SELECTED)
   (insensitive GTK_STATE_INSENSITIVE))
184

185 186 187
(define-enum GtkSubmenuDirection
   (left GTK_DIRECTION_LEFT)
   (right GTK_DIRECTION_RIGHT))
188

189 190 191
(define-enum GtkSubmenuPlacement
   (top-bottom GTK_TOP_BOTTOM)
   (left-right GTK_LEFT_RIGHT))
192

193 194 195 196
(define-enum GtkToolbarStyle
   (icons GTK_TOOLBAR_ICONS)
   (text GTK_TOOLBAR_TEXT)
   (both GTK_TOOLBAR_BOTH))
197

198 199 200 201 202
(define-enum GtkTroughType
   (none GTK_TROUGH_NONE)
   (start GTK_TROUGH_START)
   (end GTK_TROUGH_END)
   (jump GTK_TROUGH_JUMP))
203

204 205 206 207
(define-enum GtkUpdateType
   (continuous GTK_UPDATE_CONTINUOUS)
   (discontinuous GTK_UPDATE_DISCONTINUOUS)
   (delayed GTK_UPDATE_DELAYED))
208

209 210 211 212
(define-enum GtkVisibility
   (none GTK_VISIBILITY_NONE)
   (partial GTK_VISIBILITY_PARTIAL)
   (full GTK_VISIBILITY_FULL))
213

214 215 216 217
(define-enum GtkWindowPosition
   (none GTK_WIN_POS_NONE)
   (center GTK_WIN_POS_CENTER)
   (mouse GTK_WIN_POS_MOUSE))
218

219 220 221 222
(define-enum GtkWindowType
   (toplevel GTK_WINDOW_TOPLEVEL)
   (dialog GTK_WINDOW_DIALOG)
   (popup GTK_WINDOW_POPUP))
223

224
; enumerations from "./gtkfontsel.h"
225 226 227 228 229

(define-enum GtkFontMetricType
   (ixels-metric PIXELS_METRIC)
   (oints-metric POINTS_METRIC))

230
; enumerations from "./gtkobject.h"
231

232 233 234 235 236 237
(define-flags GtkObjectFlags
   (destroyed GTK_DESTROYED)
   (floating GTK_FLOATING)
   (connected GTK_CONNECTED)
   (reserved-2 GTK_RESERVED_2)
   (object-flag-last GTK_OBJECT_FLAG_LAST))
Elliot Lee's avatar
Elliot Lee committed
238

239 240 241 242
(define-flags GtkArgFlags
   (readable GTK_ARG_READABLE)
   (writable GTK_ARG_WRITABLE)
   (construct GTK_ARG_CONSTRUCT)
243
   (child-arg GTK_ARG_CHILD_ARG)
244 245
   (mask GTK_ARG_MASK)
   (readwrite GTK_ARG_READWRITE))
246

247
; enumerations from "./gtkpacker.h"
248

249 250 251 252
(define-flags GtkPackerOptions
   (expand GTK_PACK_EXPAND)
   (fill-x GTK_FILL_X)
   (fill-y GTK_FILL_Y))
253

254 255 256 257 258
(define-enum GtkSideType
   (top GTK_SIDE_TOP)
   (bottom GTK_SIDE_BOTTOM)
   (left GTK_SIDE_LEFT)
   (right GTK_SIDE_RIGHT))
Elliot Lee's avatar
Elliot Lee committed
259

260 261
(define-enum GtkAnchorType
   (center GTK_ANCHOR_CENTER)
262 263 264 265 266 267 268 269
   (north GTK_ANCHOR_NORTH)
   (north-west GTK_ANCHOR_NORTH_WEST)
   (north-east GTK_ANCHOR_NORTH_EAST)
   (south GTK_ANCHOR_SOUTH)
   (south-west GTK_ANCHOR_SOUTH_WEST)
   (south-east GTK_ANCHOR_SOUTH_EAST)
   (west GTK_ANCHOR_WEST)
   (east GTK_ANCHOR_EAST)
270 271 272 273 274 275 276 277 278
   (n GTK_ANCHOR_N)
   (nw GTK_ANCHOR_NW)
   (ne GTK_ANCHOR_NE)
   (s GTK_ANCHOR_S)
   (sw GTK_ANCHOR_SW)
   (se GTK_ANCHOR_SE)
   (w GTK_ANCHOR_W)
   (e GTK_ANCHOR_E))

279
; enumerations from "./gtkprivate.h"
Tim Janik's avatar
Tim Janik committed
280

281 282 283 284 285 286 287 288
(define-flags GtkPrivateFlags
   (user-style PRIVATE_GTK_USER_STYLE)
   (redraw-pending PRIVATE_GTK_REDRAW_PENDING)
   (resize-pending PRIVATE_GTK_RESIZE_PENDING)
   (resize-needed PRIVATE_GTK_RESIZE_NEEDED)
   (leave-pending PRIVATE_GTK_LEAVE_PENDING)
   (has-shape-mask PRIVATE_GTK_HAS_SHAPE_MASK)
   (in-reparent PRIVATE_GTK_IN_REPARENT))
Tim Janik's avatar
Tim Janik committed
289

290
; enumerations from "./gtkspinbutton.h"
Elliot Lee's avatar
Elliot Lee committed
291

292
(define-enum GtkSpinButtonUpdatePolicy
293
   (always GTK_UPDATE_ALWAYS)
294
   (if-valid GTK_UPDATE_IF_VALID))
295

296 297 298 299 300 301 302 303 304
(define-enum GtkSpinType
   (step-forward GTK_SPIN_STEP_FORWARD)
   (step-backward GTK_SPIN_STEP_BACKWARD)
   (page-forward GTK_SPIN_PAGE_FORWARD)
   (page-backward GTK_SPIN_PAGE_BACKWARD)
   (home GTK_SPIN_HOME)
   (end GTK_SPIN_END)
   (user-defined GTK_SPIN_USER_DEFINED))

305
; enumerations from "./gtktoolbar.h"
Elliot Lee's avatar
Elliot Lee committed
306

307 308 309 310 311 312
(define-enum GtkToolbarChildType
   (space GTK_TOOLBAR_CHILD_SPACE)
   (button GTK_TOOLBAR_CHILD_BUTTON)
   (togglebutton GTK_TOOLBAR_CHILD_TOGGLEBUTTON)
   (radiobutton GTK_TOOLBAR_CHILD_RADIOBUTTON)
   (widget GTK_TOOLBAR_CHILD_WIDGET))
Elliot Lee's avatar
Elliot Lee committed
313

314
; enumerations from "./gtktree.h"
Tim Janik's avatar
Tim Janik committed
315

316 317 318
(define-enum GtkTreeViewMode
   (line GTK_TREE_VIEW_LINE)
   (item GTK_TREE_VIEW_ITEM))
Tim Janik's avatar
Tim Janik committed
319

320
; enumerations from "./gtktypeutils.h"
Tim Janik's avatar
Tim Janik committed
321

322 323 324 325
(define-enum GtkFundamentalType
   (invalid GTK_TYPE_INVALID)
   (none GTK_TYPE_NONE)
   (char GTK_TYPE_CHAR)
Tim Janik's avatar
Tim Janik committed
326
   (uchar GTK_TYPE_UCHAR)
327 328 329 330 331 332 333 334 335 336 337 338 339
   (bool GTK_TYPE_BOOL)
   (int GTK_TYPE_INT)
   (uint GTK_TYPE_UINT)
   (long GTK_TYPE_LONG)
   (ulong GTK_TYPE_ULONG)
   (float GTK_TYPE_FLOAT)
   (double GTK_TYPE_DOUBLE)
   (string GTK_TYPE_STRING)
   (enum GTK_TYPE_ENUM)
   (flags GTK_TYPE_FLAGS)
   (boxed GTK_TYPE_BOXED)
   (pointer GTK_TYPE_POINTER)
   (signal GTK_TYPE_SIGNAL)
Tim Janik's avatar
Tim Janik committed
340 341
   (args GTK_TYPE_ARGS)
   (callback GTK_TYPE_CALLBACK)
342
   (c-callback GTK_TYPE_C_CALLBACK)
Tim Janik's avatar
Tim Janik committed
343
   (foreign GTK_TYPE_FOREIGN)
344 345
   (object GTK_TYPE_OBJECT))

346
; enumerations from "./gtkwidget.h"
Elliot Lee's avatar
Elliot Lee committed
347

348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363
(define-flags GtkWidgetFlags
   (toplevel GTK_TOPLEVEL)
   (no-window GTK_NO_WINDOW)
   (realized GTK_REALIZED)
   (mapped GTK_MAPPED)
   (visible GTK_VISIBLE)
   (sensitive GTK_SENSITIVE)
   (parent-sensitive GTK_PARENT_SENSITIVE)
   (can-focus GTK_CAN_FOCUS)
   (has-focus GTK_HAS_FOCUS)
   (can-default GTK_CAN_DEFAULT)
   (has-default GTK_HAS_DEFAULT)
   (has-grab GTK_HAS_GRAB)
   (rc-style GTK_RC_STYLE)
   (basic GTK_BASIC))

364
; enumerations from "../gdk/gdkprivate.h"
Elliot Lee's avatar
Elliot Lee committed
365

366 367 368 369 370 371
(define-flags GdkDebugFlag
   (misc GDK_DEBUG_MISC)
   (events GDK_DEBUG_EVENTS)
   (dnd GDK_DEBUG_DND)
   (color-context GDK_DEBUG_COLOR_CONTEXT)
   (xim GDK_DEBUG_XIM))
Tim Janik's avatar
Tim Janik committed
372

373 374 375 376 377 378 379
; enumerations from "../gdk/gdkrgb.h"

(define-enum GdkRgbDither
   (none GDK_RGB_DITHER_NONE)
   (normal GDK_RGB_DITHER_NORMAL)
   (max GDK_RGB_DITHER_MAX))

380
; enumerations from "../gdk/gdktypes.h"
Tim Janik's avatar
Tim Janik committed
381

382 383 384 385 386 387 388 389
(define-enum GdkWindowType
   (root GDK_WINDOW_ROOT)
   (toplevel GDK_WINDOW_TOPLEVEL)
   (child GDK_WINDOW_CHILD)
   (dialog GDK_WINDOW_DIALOG)
   (temp GDK_WINDOW_TEMP)
   (pixmap GDK_WINDOW_PIXMAP)
   (foreign GDK_WINDOW_FOREIGN))
Elliot Lee's avatar
Elliot Lee committed
390

391 392 393
(define-enum GdkWindowClass
   (output GDK_INPUT_OUTPUT)
   (only GDK_INPUT_ONLY))
Elliot Lee's avatar
Elliot Lee committed
394

395 396 397 398
(define-enum GdkImageType
   (normal GDK_IMAGE_NORMAL)
   (shared GDK_IMAGE_SHARED)
   (fastest GDK_IMAGE_FASTEST))
Tim Janik's avatar
Tim Janik committed
399

400 401 402 403 404 405 406
(define-enum GdkVisualType
   (static-gray GDK_VISUAL_STATIC_GRAY)
   (grayscale GDK_VISUAL_GRAYSCALE)
   (static-color GDK_VISUAL_STATIC_COLOR)
   (pseudo-color GDK_VISUAL_PSEUDO_COLOR)
   (true-color GDK_VISUAL_TRUE_COLOR)
   (direct-color GDK_VISUAL_DIRECT_COLOR))
Tim Janik's avatar
Tim Janik committed
407

408 409 410
(define-enum GdkFontType
   (font GDK_FONT_FONT)
   (fontset GDK_FONT_FONTSET))
Tim Janik's avatar
Tim Janik committed
411

412 413 414 415 416 417 418 419 420
(define-flags GdkWindowAttributesType
   (title GDK_WA_TITLE)
   (x GDK_WA_X)
   (y GDK_WA_Y)
   (cursor GDK_WA_CURSOR)
   (colormap GDK_WA_COLORMAP)
   (visual GDK_WA_VISUAL)
   (wmclass GDK_WA_WMCLASS)
   (noredir GDK_WA_NOREDIR))
Tim Janik's avatar
Tim Janik committed
421

422 423 424 425
(define-flags GdkWindowHints
   (pos GDK_HINT_POS)
   (min-size GDK_HINT_MIN_SIZE)
   (max-size GDK_HINT_MAX_SIZE))
Elliot Lee's avatar
Elliot Lee committed
426

427 428 429 430
(define-enum GdkFunction
   (copy GDK_COPY)
   (invert GDK_INVERT)
   (xor GDK_XOR))
Elliot Lee's avatar
Elliot Lee committed
431

432 433 434 435 436
(define-enum GdkFill
   (solid GDK_SOLID)
   (tiled GDK_TILED)
   (stippled GDK_STIPPLED)
   (opaque-stippled GDK_OPAQUE_STIPPLED))
Elliot Lee's avatar
Elliot Lee committed
437

438 439 440
(define-enum GdkFillRule
   (even-odd-rule GDK_EVEN_ODD_RULE)
   (winding-rule GDK_WINDING_RULE))
Elliot Lee's avatar
Elliot Lee committed
441

442 443 444 445
(define-enum GdkLineStyle
   (solid GDK_LINE_SOLID)
   (on-off-dash GDK_LINE_ON_OFF_DASH)
   (double-dash GDK_LINE_DOUBLE_DASH))
Elliot Lee's avatar
Elliot Lee committed
446

447 448 449 450 451
(define-enum GdkCapStyle
   (not-last GDK_CAP_NOT_LAST)
   (butt GDK_CAP_BUTT)
   (round GDK_CAP_ROUND)
   (projecting GDK_CAP_PROJECTING))
Elliot Lee's avatar
Elliot Lee committed
452

453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538
(define-enum GdkJoinStyle
   (miter GDK_JOIN_MITER)
   (round GDK_JOIN_ROUND)
   (bevel GDK_JOIN_BEVEL))

(define-enum GdkCursorType
   (num-glyphs GDK_NUM_GLYPHS)
   (x-cursor GDK_X_CURSOR)
   (arrow GDK_ARROW)
   (based-arrow-down GDK_BASED_ARROW_DOWN)
   (based-arrow-up GDK_BASED_ARROW_UP)
   (boat GDK_BOAT)
   (bogosity GDK_BOGOSITY)
   (bottom-left-corner GDK_BOTTOM_LEFT_CORNER)
   (bottom-right-corner GDK_BOTTOM_RIGHT_CORNER)
   (bottom-side GDK_BOTTOM_SIDE)
   (bottom-tee GDK_BOTTOM_TEE)
   (box-spiral GDK_BOX_SPIRAL)
   (center-ptr GDK_CENTER_PTR)
   (circle GDK_CIRCLE)
   (clock GDK_CLOCK)
   (coffee-mug GDK_COFFEE_MUG)
   (cross GDK_CROSS)
   (cross-reverse GDK_CROSS_REVERSE)
   (crosshair GDK_CROSSHAIR)
   (diamond-cross GDK_DIAMOND_CROSS)
   (dot GDK_DOT)
   (dotbox GDK_DOTBOX)
   (double-arrow GDK_DOUBLE_ARROW)
   (draft-large GDK_DRAFT_LARGE)
   (draft-small GDK_DRAFT_SMALL)
   (draped-box GDK_DRAPED_BOX)
   (exchange GDK_EXCHANGE)
   (fleur GDK_FLEUR)
   (gobbler GDK_GOBBLER)
   (gumby GDK_GUMBY)
   (hand1 GDK_HAND1)
   (hand2 GDK_HAND2)
   (heart GDK_HEART)
   (icon GDK_ICON)
   (iron-cross GDK_IRON_CROSS)
   (left-ptr GDK_LEFT_PTR)
   (left-side GDK_LEFT_SIDE)
   (left-tee GDK_LEFT_TEE)
   (leftbutton GDK_LEFTBUTTON)
   (ll-angle GDK_LL_ANGLE)
   (lr-angle GDK_LR_ANGLE)
   (man GDK_MAN)
   (middlebutton GDK_MIDDLEBUTTON)
   (mouse GDK_MOUSE)
   (pencil GDK_PENCIL)
   (pirate GDK_PIRATE)
   (plus GDK_PLUS)
   (question-arrow GDK_QUESTION_ARROW)
   (right-ptr GDK_RIGHT_PTR)
   (right-side GDK_RIGHT_SIDE)
   (right-tee GDK_RIGHT_TEE)
   (rightbutton GDK_RIGHTBUTTON)
   (rtl-logo GDK_RTL_LOGO)
   (sailboat GDK_SAILBOAT)
   (sb-down-arrow GDK_SB_DOWN_ARROW)
   (sb-h-double-arrow GDK_SB_H_DOUBLE_ARROW)
   (sb-left-arrow GDK_SB_LEFT_ARROW)
   (sb-right-arrow GDK_SB_RIGHT_ARROW)
   (sb-up-arrow GDK_SB_UP_ARROW)
   (sb-v-double-arrow GDK_SB_V_DOUBLE_ARROW)
   (shuttle GDK_SHUTTLE)
   (sizing GDK_SIZING)
   (spider GDK_SPIDER)
   (spraycan GDK_SPRAYCAN)
   (star GDK_STAR)
   (target GDK_TARGET)
   (tcross GDK_TCROSS)
   (top-left-arrow GDK_TOP_LEFT_ARROW)
   (top-left-corner GDK_TOP_LEFT_CORNER)
   (top-right-corner GDK_TOP_RIGHT_CORNER)
   (top-side GDK_TOP_SIDE)
   (top-tee GDK_TOP_TEE)
   (trek GDK_TREK)
   (ul-angle GDK_UL_ANGLE)
   (umbrella GDK_UMBRELLA)
   (ur-angle GDK_UR_ANGLE)
   (watch GDK_WATCH)
   (xterm GDK_XTERM)
   (last-cursor GDK_LAST_CURSOR)
   (cursor-is-pixmap GDK_CURSOR_IS_PIXMAP))
Elliot Lee's avatar
Elliot Lee committed
539

540 541 542 543
(define-enum GdkFilterReturn
   (continue GDK_FILTER_CONTINUE)
   (translate GDK_FILTER_TRANSLATE)
   (remove GDK_FILTER_REMOVE))
Elliot Lee's avatar
Elliot Lee committed
544

545 546 547 548
(define-enum GdkVisibilityState
   (unobscured GDK_VISIBILITY_UNOBSCURED)
   (partial GDK_VISIBILITY_PARTIAL)
   (fully-obscured GDK_VISIBILITY_FULLY_OBSCURED))
Tim Janik's avatar
Tim Janik committed
549

550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582
(define-enum GdkEventType
   (nothing GDK_NOTHING)
   (delete GDK_DELETE)
   (destroy GDK_DESTROY)
   (expose GDK_EXPOSE)
   (motion-notify GDK_MOTION_NOTIFY)
   (button-press GDK_BUTTON_PRESS)
   (2button-press GDK_2BUTTON_PRESS)
   (3button-press GDK_3BUTTON_PRESS)
   (button-release GDK_BUTTON_RELEASE)
   (key-press GDK_KEY_PRESS)
   (key-release GDK_KEY_RELEASE)
   (enter-notify GDK_ENTER_NOTIFY)
   (leave-notify GDK_LEAVE_NOTIFY)
   (focus-change GDK_FOCUS_CHANGE)
   (configure GDK_CONFIGURE)
   (map GDK_MAP)
   (unmap GDK_UNMAP)
   (property-notify GDK_PROPERTY_NOTIFY)
   (selection-clear GDK_SELECTION_CLEAR)
   (selection-request GDK_SELECTION_REQUEST)
   (selection-notify GDK_SELECTION_NOTIFY)
   (proximity-in GDK_PROXIMITY_IN)
   (proximity-out GDK_PROXIMITY_OUT)
   (drag-begin GDK_DRAG_BEGIN)
   (drag-request GDK_DRAG_REQUEST)
   (drop-enter GDK_DROP_ENTER)
   (drop-leave GDK_DROP_LEAVE)
   (drop-data-avail GDK_DROP_DATA_AVAIL)
   (client-event GDK_CLIENT_EVENT)
   (visibility-notify GDK_VISIBILITY_NOTIFY)
   (no-expose GDK_NO_EXPOSE)
   (other-event GDK_OTHER_EVENT))
Tim Janik's avatar
Tim Janik committed
583

584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605
(define-flags GdkEventMask
   (exposure-mask GDK_EXPOSURE_MASK)
   (pointer-motion-mask GDK_POINTER_MOTION_MASK)
   (pointer-motion-hint-mask GDK_POINTER_MOTION_HINT_MASK)
   (button-motion-mask GDK_BUTTON_MOTION_MASK)
   (button1-motion-mask GDK_BUTTON1_MOTION_MASK)
   (button2-motion-mask GDK_BUTTON2_MOTION_MASK)
   (button3-motion-mask GDK_BUTTON3_MOTION_MASK)
   (button-press-mask GDK_BUTTON_PRESS_MASK)
   (button-release-mask GDK_BUTTON_RELEASE_MASK)
   (key-press-mask GDK_KEY_PRESS_MASK)
   (key-release-mask GDK_KEY_RELEASE_MASK)
   (enter-notify-mask GDK_ENTER_NOTIFY_MASK)
   (leave-notify-mask GDK_LEAVE_NOTIFY_MASK)
   (focus-change-mask GDK_FOCUS_CHANGE_MASK)
   (structure-mask GDK_STRUCTURE_MASK)
   (property-change-mask GDK_PROPERTY_CHANGE_MASK)
   (visibility-notify-mask GDK_VISIBILITY_NOTIFY_MASK)
   (proximity-in-mask GDK_PROXIMITY_IN_MASK)
   (proximity-out-mask GDK_PROXIMITY_OUT_MASK)
   (substructure-mask GDK_SUBSTRUCTURE_MASK)
   (all-events-mask GDK_ALL_EVENTS_MASK))
Tim Janik's avatar
Tim Janik committed
606

607 608 609 610 611 612 613
(define-enum GdkNotifyType
   (ancestor GDK_NOTIFY_ANCESTOR)
   (virtual GDK_NOTIFY_VIRTUAL)
   (inferior GDK_NOTIFY_INFERIOR)
   (nonlinear GDK_NOTIFY_NONLINEAR)
   (nonlinear-virtual GDK_NOTIFY_NONLINEAR_VIRTUAL)
   (unknown GDK_NOTIFY_UNKNOWN))
614

615 616 617 618
(define-enum GdkCrossingMode
   (normal GDK_CROSSING_NORMAL)
   (grab GDK_CROSSING_GRAB)
   (ungrab GDK_CROSSING_UNGRAB))
619

620 621 622 623 624 625 626 627 628 629 630 631 632 633
(define-flags GdkModifierType
   (shift-mask GDK_SHIFT_MASK)
   (lock-mask GDK_LOCK_MASK)
   (control-mask GDK_CONTROL_MASK)
   (mod1-mask GDK_MOD1_MASK)
   (mod2-mask GDK_MOD2_MASK)
   (mod3-mask GDK_MOD3_MASK)
   (mod4-mask GDK_MOD4_MASK)
   (mod5-mask GDK_MOD5_MASK)
   (button1-mask GDK_BUTTON1_MASK)
   (button2-mask GDK_BUTTON2_MASK)
   (button3-mask GDK_BUTTON3_MASK)
   (button4-mask GDK_BUTTON4_MASK)
   (button5-mask GDK_BUTTON5_MASK)
634
   (release-mask GDK_RELEASE_MASK)
635
   (modifier-mask GDK_MODIFIER_MASK))
Tim Janik's avatar
Tim Janik committed
636

637 638 639
(define-enum GdkSubwindowMode
   (clip-by-children GDK_CLIP_BY_CHILDREN)
   (include-inferiors GDK_INCLUDE_INFERIORS))
640

641 642 643 644
(define-flags GdkInputCondition
   (read GDK_INPUT_READ)
   (write GDK_INPUT_WRITE)
   (exception GDK_INPUT_EXCEPTION))
Tim Janik's avatar
Tim Janik committed
645

646 647 648 649 650 651
(define-enum GdkStatus
   (ok GDK_OK)
   (error GDK_ERROR)
   (error-param GDK_ERROR_PARAM)
   (error-file GDK_ERROR_FILE)
   (error-mem GDK_ERROR_MEM))
Tim Janik's avatar
Tim Janik committed
652

653 654 655
(define-enum GdkByteOrder
   (lsb-first GDK_LSB_FIRST)
   (msb-first GDK_MSB_FIRST))
656

657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675
(define-flags GdkGCValuesMask
   (foreground GDK_GC_FOREGROUND)
   (background GDK_GC_BACKGROUND)
   (font GDK_GC_FONT)
   (function GDK_GC_FUNCTION)
   (fill GDK_GC_FILL)
   (tile GDK_GC_TILE)
   (stipple GDK_GC_STIPPLE)
   (clip-mask GDK_GC_CLIP_MASK)
   (subwindow GDK_GC_SUBWINDOW)
   (ts-x-origin GDK_GC_TS_X_ORIGIN)
   (ts-y-origin GDK_GC_TS_Y_ORIGIN)
   (clip-x-origin GDK_GC_CLIP_X_ORIGIN)
   (clip-y-origin GDK_GC_CLIP_Y_ORIGIN)
   (exposures GDK_GC_EXPOSURES)
   (line-width GDK_GC_LINE_WIDTH)
   (line-style GDK_GC_LINE_STYLE)
   (cap-style GDK_GC_CAP_STYLE)
   (join-style GDK_GC_JOIN_STYLE))
676

677 678 679
(define-enum GdkSelection
   (primary GDK_SELECTION_PRIMARY)
   (secondary GDK_SELECTION_SECONDARY))
680

681 682 683
(define-enum GdkPropertyState
   (new-value GDK_PROPERTY_NEW_VALUE)
   (delete GDK_PROPERTY_DELETE))
684

685 686 687 688
(define-enum GdkPropMode
   (replace GDK_PROP_MODE_REPLACE)
   (prepend GDK_PROP_MODE_PREPEND)
   (append GDK_PROP_MODE_APPEND))
689

690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713
(define-enum GdkDndType
   (notdnd GDK_DNDTYPE_NOTDND)
   (unknown GDK_DNDTYPE_UNKNOWN)
   (rawdata GDK_DNDTYPE_RAWDATA)
   (file GDK_DNDTYPE_FILE)
   (files GDK_DNDTYPE_FILES)
   (text GDK_DNDTYPE_TEXT)
   (dir GDK_DNDTYPE_DIR)
   (link GDK_DNDTYPE_LINK)
   (exe GDK_DNDTYPE_EXE)
   (url GDK_DNDTYPE_URL)
   (mime GDK_DNDTYPE_MIME)
   (end GDK_DNDTYPE_END))

(define-enum GdkInputSource
   (mouse GDK_SOURCE_MOUSE)
   (pen GDK_SOURCE_PEN)
   (eraser GDK_SOURCE_ERASER)
   (cursor GDK_SOURCE_CURSOR))

(define-enum GdkInputMode
   (disabled GDK_MODE_DISABLED)
   (screen GDK_MODE_SCREEN)
   (window GDK_MODE_WINDOW))
714

715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785
(define-enum GdkAxisUse
   (ignore GDK_AXIS_IGNORE)
   (x GDK_AXIS_X)
   (y GDK_AXIS_Y)
   (pressure GDK_AXIS_PRESSURE)
   (xtilt GDK_AXIS_XTILT)
   (ytilt GDK_AXIS_YTILT)
   (last GDK_AXIS_LAST))

(define-enum GdkTarget
   (bitmap GDK_TARGET_BITMAP)
   (colormap GDK_TARGET_COLORMAP)
   (drawable GDK_TARGET_DRAWABLE)
   (pixmap GDK_TARGET_PIXMAP)
   (string GDK_TARGET_STRING))

(define-enum GdkSelectionType
   (atom GDK_SELECTION_TYPE_ATOM)
   (bitmap GDK_SELECTION_TYPE_BITMAP)
   (colormap GDK_SELECTION_TYPE_COLORMAP)
   (drawable GDK_SELECTION_TYPE_DRAWABLE)
   (integer GDK_SELECTION_TYPE_INTEGER)
   (pixmap GDK_SELECTION_TYPE_PIXMAP)
   (window GDK_SELECTION_TYPE_WINDOW)
   (string GDK_SELECTION_TYPE_STRING))

(define-enum GdkExtensionMode
   (none GDK_EXTENSION_EVENTS_NONE)
   (all GDK_EXTENSION_EVENTS_ALL)
   (cursor GDK_EXTENSION_EVENTS_CURSOR))

(define-flags GdkIMStyle
   (preedit-area GdkIMPreeditArea)
   (preedit-callbacks GdkIMPreeditCallbacks)
   (preedit-position GdkIMPreeditPosition)
   (preedit-nothing GdkIMPreeditNothing)
   (preedit-none GdkIMPreeditNone)
   (status-area GdkIMStatusArea)
   (status-callbacks GdkIMStatusCallbacks)
   (status-nothing GdkIMStatusNothing)
   (status-none GdkIMStatusNone))

(define-flags GdkWMDecoration
   (all GDK_DECOR_ALL)
   (border GDK_DECOR_BORDER)
   (resizeh GDK_DECOR_RESIZEH)
   (title GDK_DECOR_TITLE)
   (menu GDK_DECOR_MENU)
   (minimize GDK_DECOR_MINIMIZE)
   (maximize GDK_DECOR_MAXIMIZE))

(define-flags GdkWMFunction
   (all GDK_FUNC_ALL)
   (resize GDK_FUNC_RESIZE)
   (move GDK_FUNC_MOVE)
   (minimize GDK_FUNC_MINIMIZE)
   (maximize GDK_FUNC_MAXIMIZE)
   (close GDK_FUNC_CLOSE))

(define-enum GdkColorContextMode
   (undefined GDK_CC_MODE_UNDEFINED)
   (bw GDK_CC_MODE_BW)
   (std-cmap GDK_CC_MODE_STD_CMAP)
   (true GDK_CC_MODE_TRUE)
   (my-gray GDK_CC_MODE_MY_GRAY)
   (palette GDK_CC_MODE_PALETTE))

(define-enum GdkOverlapType
   (in GDK_OVERLAP_RECTANGLE_IN)
   (out GDK_OVERLAP_RECTANGLE_OUT)
   (part GDK_OVERLAP_RECTANGLE_PART))
786
;; -*- scheme -*-
Elliot Lee's avatar
Elliot Lee committed
787 788


789 790 791
;;;
;;; manual portion from gtk-boxed.defs
;;;
Elliot Lee's avatar
Elliot Lee committed
792 793 794 795 796



;;; Gtk boxed types

Tim Janik's avatar
Tim Janik committed
797 798 799
(define-boxed GtkAccelGroup
  gtk_accel_group_ref
  gtk_accel_group_unref)
Elliot Lee's avatar
Elliot Lee committed
800

801 802 803
(define-boxed GtkSelectionData
)

Elliot Lee's avatar
Elliot Lee committed
804 805 806 807 808 809
(define-boxed GtkStyle
  gtk_style_ref
  gtk_style_unref)

;;; Gdk boxed types

810 811 812
                                        ;(define-boxed GdkPoint
                                        ;  gdk_point_copy
                                        ;  gdk_point_destroy)
Elliot Lee's avatar
Elliot Lee committed
813 814 815 816 817 818 819 820 821 822 823

(define-boxed GdkColormap
  gdk_colormap_ref
  gdk_colormap_unref)

(define-boxed GdkVisual
  gdk_visual_ref
  gdk_visual_unref)

(define-boxed GdkFont
  gdk_font_ref
Owen Taylor's avatar
Owen Taylor committed
824
  gdk_font_unref)
Elliot Lee's avatar
Elliot Lee committed
825 826 827 828 829 830 831

(define-boxed GdkWindow
  gdk_window_ref
  gdk_window_unref)

(define-boxed GdkEvent
  gdk_event_copy
832 833 834 835 836 837 838 839 840 841 842
  gdk_event_free
  "sizeof(GdkEvent)")

(define-boxed GdkColor
  gdk_color_copy
  gdk_color_free
  "sizeof(GdkColor)")

(define-func gtk_style_get_white_interp
  GdkColor
  ((GtkStyle style)))
Elliot Lee's avatar
Elliot Lee committed
843 844 845

;;; Functions

846 847 848 849 850 851 852 853
;; Gdk

(define-func gdk_font_load
  GdkFont
  ((string name)))

;; main

Elliot Lee's avatar
Elliot Lee committed
854 855
(define-func gtk_exit
  none
856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895
  ((int code (= "0"))))

(define-func gtk_main
  none
  ())

(define-func gtk_main_quit
  none
  ())

(define-func gtk_main_iteration
  bool
  ())

(define-func gtk_timeout_add_interp
  int
  ((int interval)
   (callback function)))

(define-func gtk_timeout_remove
  none
  ((int tag)))

(define-func gtk_idle_add_interp
  int
  ((callback function)))

(define-func gtk_idle_remove
  none
  ((int tag)))

(define-func gtk_input_add_interp
  int
  ((int source)
   (GdkInputCondition condition)
   (callback callback)))

(define-func gtk_input_remove
  none
  ((int tag)))
Elliot Lee's avatar
Elliot Lee committed
896 897 898

(define-func gtk_rc_parse
  none
899
  ((string file)))
Elliot Lee's avatar
Elliot Lee committed
900 901

(define-func g_mem_chunk_info
902 903
  none
  ())
Elliot Lee's avatar
Elliot Lee committed
904 905 906 907 908

;; GtkObject

(define-func gtk_object_destroy
  none
909 910 911 912 913 914 915 916 917 918
  ((GtkObject object)))

;; Signals

(define-func gtk_signal_connect_interp
  int
  ((GtkObject object)
   (string name)
   (callback func)
   (bool after (= "0"))))
Elliot Lee's avatar
Elliot Lee committed
919 920 921

;; GtkWidget

922 923 924 925 926 927 928 929 930 931 932
(define-object GtkWidget (GtkObject)
  (fields
   (GtkStyle style)))

(define-func gtk_grab_add
  none
  ((GtkWidget widget)))

(define-func gtk_grab_remove
  none
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
933 934 935

(define-func GTK_WIDGET_STATE
  GtkStateType
936
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
937 938 939

(define-func GTK_WIDGET_FLAGS
  GtkWidgetFlags
940
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
941 942 943

(define-func GTK_WIDGET_SET_FLAGS
  none
944 945
  ((GtkWidget widget)
   (GtkWidgetFlags flags)))
Elliot Lee's avatar
Elliot Lee committed
946 947 948

(define-func GTK_WIDGET_UNSET_FLAGS
  none
949 950
  ((GtkWidget widget)
   (GtkWidgetFlags flags)))
Elliot Lee's avatar
Elliot Lee committed
951 952 953

(define-func gtk_widget_destroy
  none
954
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
955 956 957

(define-func gtk_widget_unparent
  none
958
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
959 960 961

(define-func gtk_widget_show
  none
962
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
963 964 965

(define-func gtk_widget_hide
  none
966
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
967 968 969

(define-func gtk_widget_map
  none
970
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
971 972 973

(define-func gtk_widget_unmap
  none
974
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
975 976 977

(define-func gtk_widget_realize
  none
978
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
979 980 981

(define-func gtk_widget_unrealize
  none
982
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
983

Tim Janik's avatar
Tim Janik committed
984 985 986 987 988 989 990 991
(define-func gtk_widget_add_accelerator
  none
  ((GtkWidget widget)
   (string accel_signal)
   (GtkAccelGroup accel_group)
   (guint accel_key)
   (guint accel_mods)
   (GtkAccelFlags accel_flags)))
Elliot Lee's avatar
Elliot Lee committed
992 993 994

(define-func gtk_widget_remove_accelerator
  none
995
  ((GtkWidget widget)
Tim Janik's avatar
Tim Janik committed
996 997 998
   (GtkAccelGroup accel_group)
   (guint accel_key)
   (guint accel_mods)))
Elliot Lee's avatar
Elliot Lee committed
999

1000 1001 1002 1003
(define-func gtk_widget_event
  bool
  ((GtkWidget widget)
   (GdkEvent event)))
Elliot Lee's avatar
Elliot Lee committed
1004 1005 1006

(define-func gtk_widget_activate
  none
1007
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1008 1009 1010

(define-func gtk_widget_reparent
  none
1011 1012
  ((GtkWidget widget)
   (GtkWidget new_parent)))
Elliot Lee's avatar
Elliot Lee committed
1013 1014 1015

(define-func gtk_widget_popup
  none
1016 1017 1018
  ((GtkWidget widget)
   (int x)
   (int y)))
Elliot Lee's avatar
Elliot Lee committed
1019 1020 1021

(define-func gtk_widget_basic
  bool
1022
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1023 1024 1025

(define-func gtk_widget_grab_focus
  none
1026
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1027 1028 1029

(define-func gtk_widget_grab_default
  none
1030
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1031 1032 1033

(define-func gtk_widget_restore_state
  none
1034
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1035 1036 1037

(define-func gtk_widget_set_name
  none
1038 1039
  ((GtkWidget widget)
   (string name)))
Elliot Lee's avatar
Elliot Lee committed
1040 1041 1042

(define-func gtk_widget_get_name
  static_string
1043
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1044 1045 1046

(define-func gtk_widget_set_state
  none
1047 1048
  ((GtkWidget widget)
   (GtkStateType state)))
Elliot Lee's avatar
Elliot Lee committed
1049 1050 1051

(define-func gtk_widget_set_sensitive
  none
1052 1053
  ((GtkWidget widget)
   (bool sensitive)))
Elliot Lee's avatar
Elliot Lee committed
1054 1055 1056

(define-func gtk_widget_set_style
  none
1057 1058
  ((GtkWidget widget)
   (GtkStyle style)))
Elliot Lee's avatar
Elliot Lee committed
1059 1060 1061

(define-func gtk_widget_set_uposition
  none
1062 1063 1064
  ((GtkWidget widget)
   (int x)
   (int y)))
Elliot Lee's avatar
Elliot Lee committed
1065 1066 1067

(define-func gtk_widget_set_usize
  none
1068 1069 1070
  ((GtkWidget widget)
   (int height)
   (int width)))
Elliot Lee's avatar
Elliot Lee committed
1071 1072 1073

(define-func gtk_widget_set_events
  none
1074 1075
  ((GtkWidget widget)
   (GdkEventMask events)))
Elliot Lee's avatar
Elliot Lee committed
1076 1077 1078

(define-func gtk_widget_set_extension_events
  none
1079 1080
  ((GtkWidget widget)
   (GdkEventMask events)))
Elliot Lee's avatar
Elliot Lee committed
1081 1082 1083

(define-func gtk_widget_get_toplevel
  GtkWidget
1084
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1085

1086 1087 1088 1089
                                        ;(define-func gtk_widget_get_ancestor
                                        ;  GtkWidget
                                        ;  ((GtkWidget widget)
                                        ;   (GtkType type)))
Elliot Lee's avatar
Elliot Lee committed
1090 1091 1092

(define-func gtk_widget_get_colormap
  GdkColormap
1093
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1094 1095 1096

(define-func gtk_widget_get_visual
  GdkVisual
1097
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1098 1099 1100

(define-func gtk_widget_get_style
  GtkStyle
1101
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1102 1103 1104

(define-func gtk_widget_get_events
  GdkEventMask
1105
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1106 1107 1108

(define-func gtk_widget_get_extension_events
  GdkEventMask
1109
  ((GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1110 1111 1112

(define-func gtk_widget_push_colormap
  none
1113
  ((GdkColormap cmap)))
Elliot Lee's avatar
Elliot Lee committed
1114 1115 1116

(define-func gtk_widget_push_visual
  none
1117
  ((GdkVisual visual)))
Elliot Lee's avatar
Elliot Lee committed
1118 1119 1120

(define-func gtk_widget_push_style
  none
1121
  ((GtkStyle style)))
Elliot Lee's avatar
Elliot Lee committed
1122 1123

(define-func gtk_widget_pop_colormap
1124 1125
  none
  ())
Elliot Lee's avatar
Elliot Lee committed
1126 1127

(define-func gtk_widget_pop_visual
1128 1129
  none
  ())
Elliot Lee's avatar
Elliot Lee committed
1130 1131

(define-func gtk_widget_pop_style
1132 1133
  none
  ())
Elliot Lee's avatar
Elliot Lee committed
1134 1135 1136

(define-func gtk_widget_set_default_colormap
  none
1137
  ((GdkColormap cmap)))
Elliot Lee's avatar
Elliot Lee committed
1138 1139 1140

(define-func gtk_widget_set_default_visual
  none
1141
  ((GdkVisual visual)))
Elliot Lee's avatar
Elliot Lee committed
1142 1143 1144

(define-func gtk_widget_set_default_style
  none
1145
  ((GtkStyle style)))
Elliot Lee's avatar
Elliot Lee committed
1146 1147

(define-func gtk_widget_get_default_colormap
1148 1149
  GdkColormap
  ())
Elliot Lee's avatar
Elliot Lee committed
1150 1151

(define-func gtk_widget_get_default_visual
1152 1153
  GdkVisual
  ())
Elliot Lee's avatar
Elliot Lee committed
1154 1155

(define-func gtk_widget_get_default_style
1156 1157
  GtkStyle
  ())
Elliot Lee's avatar
Elliot Lee committed
1158 1159 1160 1161 1162 1163 1164

;;; Container

(define-object GtkContainer (GtkWidget))

(define-func gtk_container_border_width
  none
1165 1166
  ((GtkContainer container)
   (int border_width)))
Elliot Lee's avatar
Elliot Lee committed
1167 1168 1169

(define-func gtk_container_add
  none
1170 1171
  ((GtkContainer container)
   (GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1172 1173 1174

(define-func gtk_container_remove
  none
1175 1176
  ((GtkContainer container)
   (GtkWidget widget)))
Elliot Lee's avatar
Elliot Lee committed
1177 1178 1179

(define-func gtk_container_disable_resize
  none
1180
  ((GtkContainer container)))
Elliot Lee's avatar
Elliot Lee committed
1181 1182 1183

(define-func gtk_container_enable_resize
  none
1184
  ((GtkContainer container)))
Elliot Lee's avatar
Elliot Lee committed
1185 1186 1187

(define-func gtk_container_block_resize
  none
1188
  ((GtkContainer container)))
Elliot Lee's avatar
Elliot Lee committed
1189 1190 1191

(define-func gtk_container_unblock_resize
  none
1192
  ((GtkContainer container)))
Elliot Lee's avatar
Elliot Lee committed
1193 1194 1195

(define-func gtk_container_need_resize
  bool
1196
  ((GtkContainer container)))
Elliot Lee's avatar
Elliot Lee committed
1197 1198 1199

(define-func gtk_container_focus
  GtkDirectionType
1200 1201
  ((GtkContainer container)
   (GtkDirectionType direction)))
Elliot Lee's avatar
Elliot Lee committed