gtk2/gtk/gtk.defs

1872 lines
34 KiB
Plaintext
Raw Normal View History

;; -*- scheme -*-
1997-11-24 22:37:52 +00:00
;;; Gtk enums
(define-enum GtkWindowType
(toplevel GTK_WINDOW_TOPLEVEL)
(dialog GTK_WINDOW_DIALOG)
(popup GTK_WINDOW_POPUP))
(define-enum GtkStateType
(normal GTK_STATE_NORMAL)
(active GTK_STATE_ACTIVE)
(prelight GTK_STATE_PRELIGHT)
(selected GTK_STATE_SELECTED)
(insensitive GTK_STATE_INSENSITIVE))
(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))
(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))
(define-enum GtkArrowType
(up GTK_ARROW_UP)
(down GTK_ARROW_DOWN)
(left GTK_ARROW_LEFT)
(right GTK_ARROW_RIGHT))
(define-enum GtkPackType
(start GTK_PACK_START)
(end GTK_PACK_END))
(define-enum GtkPolicyType
(always GTK_POLICY_ALWAYS)
(automatic GTK_POLICY_AUTOMATIC))
(define-enum GtkUpdateType
(continuous GTK_UPDATE_CONTINUOUS)
(discontinuous GTK_UPDATE_DISCONTINUOUS)
1997-11-24 22:37:52 +00:00
(delayed GTK_UPDATE_DELAYED))
(define-flags GtkAttachOptions
(expand GTK_EXPAND)
(shrink GTK_SHRINK)
(fill GTK_FILL))
(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))
(define-enum GtkWindowPosition
(none GTK_WIN_POS_NONE)
(center GTK_WIN_POS_CENTER)
(mouse GTK_WIN_POS_MOUSE))
(define-enum GtkSubmenuDirection
(left GTK_DIRECTION_LEFT)
(right GTK_DIRECTION_RIGHT))
(define-enum GtkSubmenuPlacement
(top-bottom GTK_TOP_BOTTOM)
(left-right GTK_LEFT_RIGHT))
(define-enum GtkMenuFactoryType
(menu GTK_MENU_FACTORY_MENU)
(menu-bar GTK_MENU_FACTORY_MENU_BAR)
(option-menu GTK_MENU_FACTORY_OPTION_MENU))
(define-enum GtkMetricType
(pixels GTK_PIXELS)
(inches GTK_INCHES)
(centimeters GTK_CENTIMETERS))
(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))
(define-enum GtkTroughType
(none GTK_TROUGH_NONE)
(start GTK_TROUGH_START)
(end GTK_TROUGH_END))
(define-enum GtkPositionType
(left GTK_POS_LEFT)
(right GTK_POS_RIGHT)
(top GTK_POS_TOP)
(bottom GTK_POS_BOTTOM))
(define-enum GtkPreviewType
(color GTK_PREVIEW_COLOR)
(grayscale GTK_PREVIEW_GRAYSCALE))
(define-flags GtkWidgetFlags
(visible GTK_VISIBLE)
(mapped GTK_MAPPED)
(unmapped GTK_UNMAPPED)
(realized GTK_REALIZED)
(sensitive GTK_SENSITIVE)
(parent-sensitive GTK_PARENT_SENSITIVE)
(no-window GTK_NO_WINDOW)
(has-focus GTK_HAS_FOCUS)
(can-focus GTK_CAN_FOCUS)
(has-default GTK_HAS_DEFAULT)
(can-default GTK_CAN_DEFAULT)
(propagate-state GTK_PROPAGATE_STATE)
(anchored GTK_ANCHORED)
(basic GTK_BASIC)
(user-style GTK_USER_STYLE))
(define-enum GtkSelectionMode
(single GTK_SELECTION_SINGLE)
(browse GTK_SELECTION_BROWSE)
(multiple GTK_SELECTION_MULTIPLE)
(extended GTK_SELECTION_EXTENDED))
(define-enum GtkCurveType
(linear GTK_CURVE_TYPE_LINEAR)
(spline GTK_CURVE_TYPE_SPLINE)
(free GTK_CURVE_TYPE_FREE))
(define-enum GtkFundamentalType
(invalid GTK_TYPE_INVALID)
(none GTK_TYPE_NONE)
(char GTK_TYPE_CHAR)
(bool GTK_TYPE_BOOL)
(int GTK_TYPE_INT)
(uint GTK_TYPE_UINT)
(long GTK_TYPE_LONG)
(ulong GTK_TYPE_ULONG)
(float GTK_TYPE_FLOAT)
(string GTK_TYPE_STRING)
(enum GTK_TYPE_ENUM)
(flags GTK_TYPE_FLAGS)
(boxed GTK_TYPE_BOXED)
(foreign GTK_TYPE_FOREIGN)
(callback GTK_TYPE_CALLBACK)
(args GTK_TYPE_ARGS)
(pointer GTK_TYPE_POINTER)
(signal GTK_TYPE_SIGNAL)
(c-callback GTK_TYPE_C_CALLBACK)
(object GTK_TYPE_OBJECT))
(define-enum GtkJustification
(left GTK_JUSTIFY_LEFT)
(right GTK_JUSTIFY_RIGHT)
(center GTK_JUSTIFY_CENTER)
(fill GTK_JUSTIFY_FILL))
(define-enum GtkButtonBoxStyle
(default GTK_BUTTONBOX_DEFAULT_STYLE)
(spread GTK_BUTTONBOX_SPREAD)
(edge GTK_BUTTONBOX_EDGE)
(start GTK_BUTTONBOX_START)
(end GTK_BUTTONBOX_END))
(define-enum GtkOrientation
(horizontal GTK_ORIENTATION_HORIZONTAL)
(vertical GTK_ORIENTATION_VERTICAL))
1997-11-24 22:37:52 +00:00
;;; Gdk enums
(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))
(define-enum GdkWindowClass
(input-output GDK_INPUT_OUTPUT)
(input-only GDK_INPUT_ONLY))
(define-enum GdkImageType
(normal GDK_IMAGE_NORMAL)
(shared GDK_IMAGE_SHARED)
(fastest GDK_IMAGE_FASTEST))
(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))
(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))
(define-flags GdkWindowHints
(pos GDK_HINT_POS)
(min-size GDK_HINT_MIN_SIZE)
(max-size GDK_HINT_MAX_SIZE))
(define-enum GdkFunction
(copy GDK_COPY)
(invert GDK_INVERT)
(xor GDK_XOR))
(define-enum GdkFill
(solid GDK_SOLID)
(tiled GDK_TILED)
(stippled GDK_STIPPLED)
(opaque-stippled GDK_OPAQUE_STIPPLED))
(define-enum GdkLineStyle
(solid GDK_LINE_SOLID)
(on-off-dash GDK_LINE_ON_OFF_DASH)
(double-dash GDK_LINE_DOUBLE_DASH))
(define-enum GdkCapStyle
(not-last GDK_CAP_NOT_LAST)
(butt GDK_CAP_BUTT)
(round GDK_CAP_ROUND)
(projecting GDK_CAP_PROJECTING))
(define-enum GdkJoinStyle
(miter GDK_JOIN_MITER)
(round GDK_JOIN_ROUND)
(bevel GDK_JOIN_BEVEL))
(define-enum GdkCursorType
(cursor GDK_LAST_CURSOR))
(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)
(other-event GDK_OTHER_EVENT))
(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)
(all-events-mask GDK_ALL_EVENTS_MASK))
(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))
(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))
(define-enum GdkSubwindowMode
(clip-by-children GDK_CLIP_BY_CHILDREN)
(include-inferiors GDK_INCLUDE_INFERIORS))
(define-flags GdkInputCondition
(read GDK_INPUT_READ)
(write GDK_INPUT_WRITE)
(exception GDK_INPUT_EXCEPTION))
(define-enum GdkStatus
(ok GDK_OK)
(error GDK_ERROR)
(error-param GDK_ERROR_PARAM)
(error-file GDK_ERROR_FILE)
(error-mem GDK_ERROR_MEM))
(define-enum GdkByteOrder
(lsb-first GDK_LSB_FIRST)
(msb-first GDK_MSB_FIRST))
(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))
(define-enum GdkSelection
(primary GDK_SELECTION_PRIMARY)
(secondary GDK_SELECTION_SECONDARY))
(define-enum GdkPropertyState
(new-value GDK_PROPERTY_NEW_VALUE)
(delete GDK_PROPERTY_DELETE))
(define-enum GdkPropMode
(replace GDK_PROP_MODE_REPLACE)
(prepend GDK_PROP_MODE_PREPEND)
(append GDK_PROP_MODE_APPEND))
;;; Gtk boxed types
(define-boxed GtkAcceleratorTable
gtk_accelerator_table_ref
gtk_accelerator_table_unref)
(define-boxed GtkStyle
gtk_style_ref
gtk_style_unref)
;;; Gdk boxed types
;(define-boxed GdkPoint
; gdk_point_copy
; gdk_point_destroy)
1997-11-24 22:37:52 +00:00
(define-boxed GdkColormap
gdk_colormap_ref
gdk_colormap_unref)
(define-boxed GdkVisual
gdk_visual_ref
gdk_visual_unref)
(define-boxed GdkFont
gdk_font_ref
gdk_font_unref)
1997-11-24 22:37:52 +00:00
(define-boxed GdkWindow
gdk_window_ref
gdk_window_unref)
(define-boxed GdkEvent
gdk_event_copy
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)))
1997-11-24 22:37:52 +00:00
;;; Functions
;; Gdk
(define-func gdk_font_load
GdkFont
((string name)))
;; main
1997-11-24 22:37:52 +00:00
(define-func gtk_exit
none
((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)))
1997-11-24 22:37:52 +00:00
(define-func gtk_rc_parse
none
((string file)))
1997-11-24 22:37:52 +00:00
(define-func g_mem_chunk_info
none
())
1997-11-24 22:37:52 +00:00
;; GtkObject
(define-func gtk_object_destroy
none
((GtkObject object)))
;; Signals
(define-func gtk_signal_connect_interp
int
((GtkObject object)
(string name)
(callback func)
(bool after (= "0"))))
1997-11-24 22:37:52 +00:00
;; GtkWidget
(define-object GtkWidget (GtkObject)
(fields
(GtkStyle style)))
(define-func gtk_grab_add
none
((GtkWidget widget)))
(define-func gtk_grab_remove
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func GTK_WIDGET_STATE
GtkStateType
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func GTK_WIDGET_FLAGS
GtkWidgetFlags
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func GTK_WIDGET_SET_FLAGS
none
((GtkWidget widget)
(GtkWidgetFlags flags)))
1997-11-24 22:37:52 +00:00
(define-func GTK_WIDGET_UNSET_FLAGS
none
((GtkWidget widget)
(GtkWidgetFlags flags)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_destroy
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_unparent
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_show
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_hide
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_map
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_unmap
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_realize
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_unrealize
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
;(define-func gtk_widget_install_accelerator
; none
; ((GtkWidget widget)
; (GtkAcceleratorTable table)
; (string signal_name)
; (char key)
; (...)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_remove_accelerator
none
((GtkWidget widget)
(GtkAcceleratorTable table)
(string signal_name)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_event
bool
((GtkWidget widget)
(GdkEvent event)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_activate
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_reparent
none
((GtkWidget widget)
(GtkWidget new_parent)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_popup
none
((GtkWidget widget)
(int x)
(int y)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_basic
bool
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_grab_focus
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_grab_default
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_restore_state
none
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_name
none
((GtkWidget widget)
(string name)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_get_name
static_string
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_state
none
((GtkWidget widget)
(GtkStateType state)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_sensitive
none
((GtkWidget widget)
(bool sensitive)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_style
none
((GtkWidget widget)
(GtkStyle style)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_uposition
none
((GtkWidget widget)
(int x)
(int y)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_usize
none
((GtkWidget widget)
(int height)
(int width)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_events
none
((GtkWidget widget)
(GdkEventMask events)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_extension_events
none
((GtkWidget widget)
(GdkEventMask events)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_get_toplevel
GtkWidget
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
;(define-func gtk_widget_get_ancestor
; GtkWidget
; ((GtkWidget widget)
; (GtkType type)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_get_colormap
GdkColormap
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_get_visual
GdkVisual
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_get_style
GtkStyle
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_get_events
GdkEventMask
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_get_extension_events
GdkEventMask
((GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_push_colormap
none
((GdkColormap cmap)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_push_visual
none
((GdkVisual visual)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_push_style
none
((GtkStyle style)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_pop_colormap
none
())
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_pop_visual
none
())
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_pop_style
none
())
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_default_colormap
none
((GdkColormap cmap)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_default_visual
none
((GdkVisual visual)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_set_default_style
none
((GtkStyle style)))
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_get_default_colormap
GdkColormap
())
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_get_default_visual
GdkVisual
())
1997-11-24 22:37:52 +00:00
(define-func gtk_widget_get_default_style
GtkStyle
())
1997-11-24 22:37:52 +00:00
;;; Container
(define-object GtkContainer (GtkWidget))
(define-func gtk_container_border_width
none
((GtkContainer container)
(int border_width)))
1997-11-24 22:37:52 +00:00
(define-func gtk_container_add
none
((GtkContainer container)
(GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_container_remove
none
((GtkContainer container)
(GtkWidget widget)))
1997-11-24 22:37:52 +00:00
(define-func gtk_container_disable_resize
none
((GtkContainer container)))
1997-11-24 22:37:52 +00:00
(define-func gtk_container_enable_resize
none
((GtkContainer container)))
1997-11-24 22:37:52 +00:00
(define-func gtk_container_block_resize
none
((GtkContainer container)))
1997-11-24 22:37:52 +00:00
(define-func gtk_container_unblock_resize
none
((GtkContainer container)))
1997-11-24 22:37:52 +00:00
(define-func gtk_container_need_resize
bool
((GtkContainer container)))
1997-11-24 22:37:52 +00:00
(define-func gtk_container_focus
GtkDirectionType
((GtkContainer container)
(GtkDirectionType direction)))
1997-11-24 22:37:52 +00:00
;;; Bin
(define-object GtkBin (GtkContainer))
;;; Window
(define-object GtkWindow (GtkBin))
(define-func gtk_window_new
GtkWidget
((GtkWindowType type)))
1997-11-24 22:37:52 +00:00
(define-func gtk_window_set_title
none
((GtkWindow window)
(string title)))
1997-11-24 22:37:52 +00:00
(define-func gtk_window_set_focus
none
((GtkWindow window)
(GtkWidget focus)))
1997-11-24 22:37:52 +00:00
(define-func gtk_window_set_default
none
((GtkWindow window)
(GtkWidget default)))
1997-11-24 22:37:52 +00:00
(define-func gtk_window_set_policy
none
((GtkWindow window)
(bool allow_shrink)
(bool allow_grow)
(bool auto_shrink)))
1997-11-24 22:37:52 +00:00
(define-func gtk_window_add_accelerator_table
none
((GtkWindow window)
(GtkAcceleratorTable table)))
1997-11-24 22:37:52 +00:00
(define-func gtk_window_remove_accelerator_table
none
((GtkWindow window)
(GtkAcceleratorTable table)))
1997-11-24 22:37:52 +00:00
(define-func gtk_window_position
none
((GtkWindow window)
(GtkWindowPosition position)))
1997-11-24 22:37:52 +00:00
;;; Box
(define-object GtkBox (GtkContainer))
(define-func gtk_box_pack_start
none
((GtkBox box)
(GtkWidget child)
(bool expand (= "TRUE"))
(bool fill (= "TRUE"))
(int padding (= "0"))))
(define-func gtk_box_pack_end
none
((GtkBox box)
(GtkWidget child)
(bool expand (= "TRUE"))
(bool fill (= "TRUE"))
(int padding (= "0"))))
(define-func gtk_box_pack_start_defaults
none
((GtkBox box)
(GtkWidget child)))
(define-func gtk_box_pack_end_defaults
none
((GtkBox box)
(GtkWidget child)))
(define-func gtk_box_set_homogeneous
none
((GtkBox box)
(bool homogenous)))
(define-func gtk_box_set_spacing
none
((GtkBox box)
(int spacing)))
1997-11-24 22:37:52 +00:00
;;; Table
(define-object GtkTable (GtkContainer))
(define-func gtk_table_new
GtkWidget
((int rows)
(int columns)
(bool homogenous)))
(define-func gtk_table_attach
none
((GtkTable table)
(GtkWidget child)
(int left_attach)
(int right_attach)
(int top_attach)
(int bottom_attach)
(GtkAttachOptions xoptions (= "GTK_EXPAND|GTK_FILL"))
(GtkAttachOptions yoptions (= "GTK_EXPAND|GTK_FILL"))
(int xpadding (= "0"))
(int ypadding (= "0"))))
(define-func gtk_table_attach_defaults
none
((GtkTable table)
(GtkWidget child)
(int left_attach)
(int right_attach)
(int top_attach)
(int bottom_attach)))
(define-func gtk_table_set_row_spacing
none
((GtkTable table)
(int row)
(int spacing)))
(define-func gtk_table_set_col_spacing
none
((GtkTable table)
(int column)
(int spacing)))
(define-func gtk_table_set_row_spacings
none
((GtkTable table)
(int spacing)))
(define-func gtk_table_set_col_spacings
none
((GtkTable table)
(int spacing)))
1997-11-24 22:37:52 +00:00
;;; Button
(define-object GtkButton (GtkContainer))
(define-func gtk_button_new
GtkWidget
())
(define-func gtk_button_new_with_label
GtkWidget
((string label)))
(define-func gtk_button_pressed
none
((GtkButton button)))
(define-func gtk_button_released
none
((GtkButton button)))
(define-func gtk_button_clicked
none
((GtkButton button)))
(define-func gtk_button_enter
none
((GtkButton button)))
(define-func gtk_button_leave
none
((GtkButton button)))
1997-11-24 22:37:52 +00:00
;;; ToggleButton
(define-object GtkToggleButton (GtkButton))
(define-func gtk_toggle_button_new
GtkWidget
())
(define-func gtk_toggle_button_new_with_label
GtkWidget
((string label)))
(define-func gtk_toggle_button_set_mode
none
((GtkToggleButton toggle_button)
(bool draw_indicator)))
(define-func gtk_toggle_button_set_state
none
((GtkToggleButton toggle_button)
(bool state)))
(define-func gtk_toggle_button_toggled
none
((GtkToggleButton toggle_button)))
1997-11-24 22:37:52 +00:00
;;; CheckButton
(define-object GtkCheckButton (GtkToggleButton))
(define-func gtk_check_button_new
GtkWidget
())
(define-func gtk_check_button_new_with_label
GtkWidget
((string label)))
1997-11-24 22:37:52 +00:00
;;; RadioButton
(define-object GtkRadioButton (GtkCheckButton))
(define-func gtk_radio_button_new_interp
GtkWidget
((GtkRadioButton group (null-ok))))
1997-11-24 22:37:52 +00:00
(define-func gtk_radio_button_new_with_label_interp
GtkWidget
((GtkRadioButton group (null-ok))
(string label)))
1997-11-24 22:37:52 +00:00
;;; Misc
1997-11-24 22:37:52 +00:00
(define-object GtkMisc (GkWidget))
(define-func gtk_misc_set_alignment
none
((GtkMisc misc)
(float xalign)
(float yalign)))
(define-func gtk_misc_set_padding
none
((GtkMisc misc)
(int xpad)
(int ypad)))
;;; Label
(define-object GtkLabel (GtkMisc))
(define-func gtk_label_new
1997-11-24 22:37:52 +00:00
GtkWidget
((string str)))
(define-func gtk_label_set
none
((GtkLabel label)
(string str)))
(define-func gtk_label_get_interp
static_string
((GtkLabel label)))
;; VBox
(define-object GtkVBox (GtkBox))
1997-11-24 22:37:52 +00:00
(define-func gtk_vbox_new
GtkWidget
((bool homogenous)
(int spacing)))
;; HBox
(define-object GtkHBox (GtkBox))
1997-11-24 22:37:52 +00:00
(define-func gtk_hbox_new
GtkWidget
((bool homogenous)
(int spacing)))
;; Separator
(define-object GtkSeparator (GtkWidget))
;; HSeparator
(define-object GtkHSeparator (GtkSeparator))
1997-11-24 22:37:52 +00:00
(define-func gtk_hseparator_new
GtkWidget
())
1997-11-24 22:37:52 +00:00
;; VSeparator
(define-object GtkVSeparator (GtkSeparator))
(define-func gtk_vseparator_new
GtkWidget
())
;; Frame
(define-object GtkFrame (GtkBin))
(define-func gtk_frame_new
GtkWidget
((string label (null-ok))))
(define-func gtk_frame_set_label
1997-11-24 22:37:52 +00:00
none
((GtkFrame frame)
(string label)))
1997-11-24 22:37:52 +00:00
(define-func gtk_frame_set_label_align
none
((GtkFrame frame)
(float xalign)
(float yalign)))
(define-func gtk_frame_set_shadow_type
none
((GtkFrame frame)
(GtkShadowType type)))
;; Progress Bar
(define-object GtkProgressBar (GtkWidget)
(fields
(float percentage)))
(define-func gtk_progress_bar_new
1997-11-24 22:37:52 +00:00
GtkWidget
())
1997-11-24 22:37:52 +00:00
(define-func gtk_progress_bar_update
1997-11-24 22:37:52 +00:00
none
((GtkProgressBar progress_bar)
(float percentage)))
1997-11-24 22:37:52 +00:00
;(define-func gtk_progress_bar_percentage
; float
; ((GtkProgressBar progress_bar)))
;; Tooltips
(define-object GtkTooltips (GtkData))
(define-func gtk_tooltips_new
GtkTooltips
())
(define-func gtk_tooltips_destroy
1997-11-24 22:37:52 +00:00
none
((GtkTooltips tooltips)))
1997-11-24 22:37:52 +00:00
(define-func gtk_tooltips_enable
1997-11-24 22:37:52 +00:00
none
((GtkTooltips tooltips)))
1997-11-24 22:37:52 +00:00
(define-func gtk_tooltips_disable
1997-11-24 22:37:52 +00:00
none
((GtkTooltips tooltips)))
1997-11-24 22:37:52 +00:00
(define-func gtk_tooltips_set_delay
1997-11-24 22:37:52 +00:00
none
((GtkTooltips tooltips)
(int delay)))
1997-11-24 22:37:52 +00:00
(define-func gtk_tooltips_set_tips
1997-11-24 22:37:52 +00:00
none
((GtkTooltips tooltips)
(GtkWidget widget)
(string tips_text (null-ok))))
1997-11-24 22:37:52 +00:00
(define-func gtk_tooltips_set_colors
none
((GtkTooltips tooltips)
(GdkColor background)
(GdkColor foreground)))
;; MenuShell
(define-object GtkMenuShell (GtkContainer))
(define-func gtk_menu_shell_append
none
((GtkMenuShell menu_shell)
(GtkWidget child)))
(define-func gtk_menu_shell_prepend
none
((GtkMenuShell menu_shell)
(GtkWidget child)))
(define-func gtk_menu_shell_insert
none
((GtkMenuShell menu_shell)
(GtkWidget child)
(int position)))
(define-func gtk_menu_shell_deactivate
none
((GtkMenuShell menu_shell)))
;; MenuBar
(define-object GtkMenuBar (GtkMenuShell))
(define-func gtk_menu_bar_new
1997-11-24 22:37:52 +00:00
GtkWidget
())
1997-11-24 22:37:52 +00:00
(define-func gtk_menu_bar_append
none
((GtkMenuBar menu_bar)
(GtkWidget child)))
(define-func gtk_menu_bar_prepend
none
((GtkMenuBar menu_bar)
(GtkWidget child)))
(define-func gtk_menu_bar_insert
none
((GtkMenuBar menu_bar)
(GtkWidget child)
(int position)))
;; Menu
(define-object GtkMenu (GtkMenuShell))
(define-func gtk_menu_new
1997-11-24 22:37:52 +00:00
GtkWidget
())
(define-func gtk_menu_append
none
((GtkMenu menu)
(GtkWidget child)))
(define-func gtk_menu_prepend
none
((GtkMenu menu)
(GtkWidget child)))
(define-func gtk_menu_insert
none
((GtkMenu menu)
(GtkWidget child)
(int position)))
(define-func gtk_menu_popup_interp
none
((GtkMenu menu)
(GtkWidget parent_menu_shell)
(GtkWidget parent_menu_item)
(int button)
(int activate_time)))
1997-11-24 22:37:52 +00:00
(define-func gtk_menu_popdown
none
((GtkMenu menu)))
(define-func gtk_menu_get_active
1997-11-24 22:37:52 +00:00
GtkWidget
((GtkMenu menu)))
1997-11-24 22:37:52 +00:00
(define-func gtk_menu_set_active
none
((GtkMenu menu)
(int index)))
(define-func gtk_menu_set_accelerator_table
none
((GtkMenu menu)
(GtkAcceleratorTable table)))
;; Item
(define-object GtkItem (GtkBin))
(define-func gtk_item_select
none
((GtkItem item)))
(define-func gtk_item_deselect
none
((GtkItem item)))
(define-func gtk_item_toggle
none
((GtkItem item)))
;; MenuItem
(define-object GtkMenuItem (GtkItem))
(define-func gtk_menu_item_new
1997-11-24 22:37:52 +00:00
GtkWidget
())
1997-11-24 22:37:52 +00:00
(define-func gtk_menu_item_new_with_label
GtkWidget
((string label)))
(define-func gtk_menu_item_set_submenu
none
((GtkMenuItem menu_item)
(GtkWidget submenu)))
(define-func gtk_menu_item_set_placement
none
((GtkMenuItem menu_item)
(GtkSubmenuPlacement placement)))
(define-func gtk_menu_item_accelerator_size
none
((GtkMenuItem menu_item)))
(define-func gtk_menu_item_configure
none
((GtkMenuItem menu_item)
(bool show_toggle_indicator)
(bool show_submenu_indicator)))
(define-func gtk_menu_item_select
none
((GtkMenuItem menu_item)))
(define-func gtk_menu_item_deselect
none
((GtkMenuItem menu_item)))
(define-func gtk_menu_item_activate
none
((GtkMenuItem menu_item)))
;; CheckMenuItem
(define-object GtkCheckMenuItem (GtkMenuItem))
(define-func gtk_check_menu_item_new
GtkWidget
())
(define-func gtk_check_menu_item_new_with_label
1997-11-24 22:37:52 +00:00
GtkWidget
((string label)))
(define-func gtk_check_menu_item_set_state
none
((GtkCheckMenuItem check_menu_item)
(bool state)))
(define-func gtk_check_menu_item_toggled
none
((GtkCheckMenuItem check_menu_item)))
;; RadioMenuItem
(define-object GtkRadioMenuItem (GtkCheckMenuItem))
(define-func gtk_radio_menu_item_new_interp
GtkWidget
((GtkRadioMenuItem group (null-ok))))
(define-func gtk_radio_menu_item_new_with_label_interp
GtkWidget
((GtkRadioMenuItem group (null-ok))
(string label)))
;; OptionMenu
(define-object GtkOptionMenu (GtkButton))
(define-func gtk_option_menu_new
GtkWidget
())
(define-func gtk_option_menu_get_menu
GtkWidget
((GtkOptionMenu option_menu)))
(define-func gtk_option_menu_set_menu
none
((GtkOptionMenu option_menu)
(GtkWidget menu)))
(define-func gtk_option_menu_remove_menu
none
((GtkOptionMenu option_menu)))
(define-func gtk_option_menu_set_history
none
((GtkOptionMenu option_menu)
(int index)))
;; Pixmaps
(define-object GtkPixmap (GtkMisc))
(define-func gtk_pixmap_new_interp
GtkWidget
((string xpm_file)
(GtkWidget intended_parent)))
;; Data
(define-object GtkData (GtkObject))
;; Adjustment
(define-object GtkAdjustment (GtkData))
(define-func gtk_adjustment_new
GtkObject
((float value)
(float lower)
(float upper)
(float step_increment)
(float page_increment)
(float page_size)))
;; ScrolledWidow
(define-object GtkScrolledWindow (GtkContainer))
(define-func gtk_scrolled_window_new
GtkWidget
((GtkAdjustment hadjustment (null-ok) (= "NULL"))
(GtkAdjustment vadjustment (null-ok) (= "NULL"))))
(define-func gtk_scrolled_window_get_hadjustment
GtkAdjustment
((GtkScrolledWindow scrolled_window)))
(define-func gtk_scrolled_window_get_vadjustment
GtkAdjustment
((GtkScrolledWindow scrolled_window)))
(define-func gtk_scrolled_window_set_policy
none
((GtkScrolledWindow scrolled_window)
(GtkPolicyType hscrollbar_policy)
(GtkPolicyType vscrollbar_policy)))
;; ListItem
(define-object GtkListItem (GtkItem))
(define-func gtk_list_item_new
GtkWidget
())
(define-func gtk_list_item_new_with_label
GtkWidget
((string label)))
(define-func gtk_list_item_select
none
((GtkListItem list_item)))
(define-func gtk_list_item_deselect
none
((GtkListItem list_item)))
;; List
(define-object GtkList (GtkContainer))
(define-func gtk_list_new
GtkWidget
())
(define-func gtk_list_append_item
none
((GtkList list)
(GtkListItem item)))
(define-func gtk_list_prepend_item
none
((GtkList list)
(GtkListItem item)))
;; XXX many missing
(define-func gtk_list_clear_items
none
((GtkList list)
(int start)
(int end)))
(define-func gtk_list_select_item
none
((GtkList list)
(int item)))
(define-func gtk_list_unselect_item
none
((GtkList list)
(int item)))
(define-func gtk_list_select_child
none
((GtkList list)
(GtkWidget child)))
(define-func gtk_list_unselect_child
none
((GtkList list)
(GtkWidget child)))
(define-func gtk_list_child_position
int
((GtkList list)
(GtkWidget child)))
(define-func gtk_list_set_selection_mode
none
((GtkList list)
(GtkSelectionMode mode)))
;; Notebook
(define-object GtkNotebook (GtkContainer)
(fields
(GtkPositionType tab_pos)))
(define-func gtk_notebook_new
GtkWidget
())
(define-func gtk_notebook_append_page
none
((GtkNotebook notebook)
(GtkWidget child)
(GtkWidget tab_label)))
(define-func gtk_notebook_prepend_page
none
((GtkNotebook notebook)
(GtkWidget child)
(GtkWidget tab_label)))
(define-func gtk_notebook_insert_page
none
((GtkNotebook notebook)
(GtkWidget child)
(GtkWidget tab_label)
(int position)))
(define-func gtk_notebook_remove_page
none
((GtkNotebook notebook)
(int page_num)))
(define-func gtk_notebook_current_page
int
((GtkNotebook notebook)))
(define-func gtk_notebook_set_page
none
((GtkNotebook notebook)
(int page_num)))
(define-func gtk_notebook_next_page
none
((GtkNotebook notebook)))
(define-func gtk_notebook_prev_page
none
((GtkNotebook notebook)))
(define-func gtk_notebook_set_tab_pos
none
((GtkNotebook notebook)
(GtkPositionType pos)))
(define-func gtk_notebook_set_show_tabs
none
((GtkNotebook notebook)
(bool show_tabs)))
(define-func gtk_notebook_set_show_border
none
((GtkNotebook notebook)
(bool show_border)))
;; Entry
(define-object GtkEntry (GtkWidget))
(define-func gtk_entry_new
GtkWidget
())
(define-func gtk_entry_set_text
none
((GtkEntry entry)
(string text)))
(define-func gtk_entry_append_text
none
((GtkEntry entry)
(string text)))
(define-func gtk_entry_prepend_text
none
((GtkEntry entry)
(string text)))
(define-func gtk_entry_set_position
none
((GtkEntry entry)
(int position)))
(define-func gtk_entry_get_text
static_string
((GtkEntry entry)))
;; Text
(define-object GtkText (GtkWidget))
(define-func gtk_text_new
GtkWidget
((GtkAdjustment hadj (null-ok))
(GtkAdjustment vadj (null-ok))))
(define-func gtk_text_set_editable
none
((GtkText text)
(bool editable)))
(define-func gtk_text_set_adjustments
none
((GtkText text)
(GtkAdjustment hadj)
(GtkAdjustment vadj)))
(define-func gtk_text_set_point
none
((GtkText text)
(uint index)))
(define-func gtk_text_get_point
uint
((GtkText text)))
(define-func gtk_text_get_length
uint
((GtkText text)))
(define-func gtk_text_freeze
none
((GtkText text)))
(define-func gtk_text_thaw
none
((GtkText text)))
(define-func gtk_text_insert
none
((GtkText text)
(GdkFont font (null-ok))
(GdkColor fore (null-ok))
(GdkColor back (null-ok))
(string chars)
(int length)))
(define-func gtk_text_backward_delete
none
((GtkText text)
(uint nchars)))
(define-func gtk_text_foreward_delete
none
((GtkText text)
(uint nchars)))
;; Alignment
(define-object GtkAlignment (GtkBin))
(define-func gtk_alignment_new
GtkWidget
((float xalign)
(float yalign)
(float xscale)
(float yscale)))
(define-func gtk_alignment_set
none
((GtkAlignment alignment)
(float xalign)
(float yalign)
(float xscale)
(float yscale)))
;; Color
; XXX lots missing
(define-func gdk_color_parse_interp
GdkColor
((string spec)))
;; Preview
(define-object GtkPreview (GtkWidget))
;; XXX lots missing
(define-func gtk_preview_set_install_cmap
none
((bool install_cmap)))
(define-func gtk_preview_set_reserved
none
((int nreserved)))
(define-func gtk_preview_get_visual
GdkVisual
())
(define-func gtk_preview_get_cmap
GdkColormap
())
;; ColorSelectionDialog
(define-object GtkColorSelectionDialog (GtkWindow)
(fields
(GtkWidget colorsel)
(GtkWidget main_vbox)
(GtkWidget ok_button)
(GtkWidget reset_button)
(GtkWidget cancel_button)
(GtkWidget help_button)))
(define-func gtk_color_selection_dialog_new
GtkWidget
((string title)))
;; ColorSelection
(define-object GtkColorSelection (GtkVBox))
(define-func gtk_color_selection_new
GtkWidget
())
(define-func gtk_color_selection_set_update_policy
none
((GtkColorSelection colorsel)
(GtkUpdateType policy)))
(define-func gtk_color_selection_set_opacity
none
((GtkColorSelection colorsel)
(bool use_opacity)))
;; Range
(define-object GtkRange (GtkWidget))
(define-func gtk_range_get_adjustment
GtkAdjustment
((GtkRange range)))
(define-func gtk_range_set_update_policy
none
((GtkRange range)
(GtkUpdateType policy)))
(define-func gtk_range_set_adjustment
none
((GtkRange range)
(GtkAdjustment adjustment)))
;; Scale
(define-object GtkScale (GtkRange))
(define-func gtk_scale_set_digits
none
((GtkScale scale)
(bool digits)))
(define-func gtk_scale_set_draw_value
none
((GtkScale scale)
(bool draw_value)))
(define-func gtk_scale_set_value_pos
none
((GtkScale scale)
(GtkPositionType pos)))
;; HScale
(define-object GtkHScale (GtkScale))
(define-func gtk_hscale_new
GtkWidget
((GtkAdjustment adjustment)))
;; VScale
(define-object GtkVScale (GtkScale))
(define-func gtk_vscale_new
GtkWidget
((GtkAdjustment adjustment)))
;; Scrollbar
(define-object GtkScrollbar (GtkRange))
;; HScrollbar
(define-object GtkHScrollbar (GtkScrollbar))
(define-func gtk_hscrollbar_new
GtkWidget
((GtkAdjustment adjustment)))
;; VScrollbar
(define-object GtkVScrollbar (GtkScrollbar))
(define-func gtk_vscrollbar_new
GtkWidget
((GtkAdjustment adjustment)))
;; Dialog
(define-object GtkDialog (GtkWindow)
(fields
(GtkWidget vbox)
(GtkWidget action_area)))
(define-func gtk_dialog_new
GtkWidget
())
;; Paned
(define-object GtkPaned (GtkContainer))
(define-func gtk_paned_add1
none
((GtkPaned paned)
(GtkWidget child)))
(define-func gtk_paned_add2
none
((GtkPaned paned)
(GtkWidget child)))
(define-func gtk_paned_handle_size
none
((GtkPaned paned)
(int size)))
(define-func gtk_paned_gutter_size
none
((GtkPaned paned)
(int size)))
;; HPaned
(define-object GtkHPaned (GtkPaned))
(define-func gtk_hpaned_new
GtkWidget
())
;; VPaned
(define-object GtkVPaned (GtkPaned))
(define-func gtk_vpaned_new
GtkWidget
())
;;; hack
;(define-func panel_register_toy
; none
; ((gpointer panel)
; (GtkWidget applet)
; (string id)
; (string params)
; (int x)
; (int y)
; (int flags)))
;(define-func panel_quit
; none
; ((gpointer panel)))
;(define-func panel_new_applet
; none
; ((gpointer panel)
; (string applet)
; (string params)))