Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/gtk-ffi
In directory common-lisp.net:/tmp/cvs-serv7571/cells-gtk-root/gtk-ffi
Modified Files:
gtk-ffi.lisp
Log Message:
Cleaning up
Date: Sun Dec 5 05:50:26 2004
Author: ktilton
Index: cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp
diff -u cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp:1.1 cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp:1.2
--- cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp:1.1 Thu Nov 18 12:53:26 2004
+++ cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp Sun Dec 5 05:50:25 2004
@@ -145,11 +145,11 @@
(user_data3 c-pointer))
(def-gtk-lib-functions :gtk
- ;; main-loop
- (gtk-init ((argc (c-ptr-null int))
- (argv c-pointer)))
+ ;; main-loop
+ (gtk-init ((argc (c-ptr-null int))
+ (argv c-pointer)))
(gtk-init-check ((argc (c-ptr-null int))
- (argv c-pointer))
+ (argv c-pointer))
boolean)
(gtk-events-pending ()
boolean)
@@ -161,302 +161,302 @@
(gtk-main-quit ())
(gtk-get-current-event-time ()
uint32)
-
+
;;container
(gtk-container-add ((container c-pointer)
- (widget c-pointer))
- c-pointer)
+ (widget c-pointer))
+ c-pointer)
(gtk-container-remove ((container c-pointer)
- (widget c-pointer)))
-
+ (widget c-pointer)))
+
;;box
(gtk-box-pack-start ((box c-pointer)
- (widget c-pointer)
- (expand boolean)
- (fill boolean)
- (padding int)))
+ (widget c-pointer)
+ (expand boolean)
+ (fill boolean)
+ (padding int)))
(gtk-box-pack-start-defaults ((box c-pointer)
- (widget c-pointer)))
+ (widget c-pointer)))
(gtk-box-set-homogeneous ((box c-pointer)
- (homogeneous boolean)))
+ (homogeneous boolean)))
(gtk-box-set-spacing ((box c-pointer)
- (spacing int)))
+ (spacing int)))
(gtk-hbox-new ((homogeneous boolean)
- (spacing int))
+ (spacing int))
c-pointer)
(gtk-vbox-new ((homogeneous boolean)
- (spacing int))
+ (spacing int))
c-pointer)
-
+
;;table
(gtk-table-new ((rows uint)
- (columns uint)
- (homogeneous boolean))
+ (columns uint)
+ (homogeneous boolean))
c-pointer)
(gtk-table-attach ((table c-pointer)
- (child c-pointer)
- (l-attach uint)
- (r-attach uint)
- (t-attach uint)
- (b-attach uint)
- (x-options int)
- (y-options int)
- (x-padding int)
- (y-padding int)))
+ (child c-pointer)
+ (l-attach uint)
+ (r-attach uint)
+ (t-attach uint)
+ (b-attach uint)
+ (x-options int)
+ (y-options int)
+ (x-padding int)
+ (y-padding int)))
(gtk-table-attach-defaults ((table c-pointer)
- (child c-pointer)
- (l-attach uint)
- (r-attach uint)
- (t-attach uint)
- (b-attach uint)))
+ (child c-pointer)
+ (l-attach uint)
+ (r-attach uint)
+ (t-attach uint)
+ (b-attach uint)))
(gtk-table-set-homogeneous ((table c-pointer)
- (homogeneous boolean)))
-
+ (homogeneous boolean)))
+
;;paned
(gtk-paned-add1 ((paned c-pointer)
- (child c-pointer)))
+ (child c-pointer)))
(gtk-paned-add2 ((paned c-pointer)
- (child c-pointer)))
+ (child c-pointer)))
(gtk-hpaned-new ()
c-pointer)
(gtk-vpaned-new ()
c-pointer)
-
+
;;expander
(gtk-expander-new ((label c-string))
c-pointer)
(gtk-expander-set-expanded ((expander c-pointer)
- (expanded boolean)))
+ (expanded boolean)))
(gtk-expander-set-spacing ((expander c-pointer)
- (spacing c-pointer)))
+ (spacing c-pointer)))
(gtk-expander-set-label ((expander c-pointer)
- (label c-pointer)))
+ (label c-pointer)))
(gtk-expander-set-use-underline ((expander c-pointer)
- (use-underline boolean)))
+ (use-underline boolean)))
(gtk-expander-set-use-markup ((expander c-pointer)
- (use-markup boolean)))
+ (use-markup boolean)))
(gtk-expander-set-label-widget ((expander c-pointer)
- (label-widget c-pointer)))
-
+ (label-widget c-pointer)))
+
;;alignment
(gtk-alignment-new ((xalign single-float)
- (yalign single-float)
- (xscale single-float)
- (yscale single-float))
+ (yalign single-float)
+ (xscale single-float)
+ (yscale single-float))
c-pointer)
(gtk-alignment-set ((alignment c-pointer)
- (xalign single-float)
- (yalign single-float)
- (xscale single-float)
- (yscale single-float)))
+ (xalign single-float)
+ (yalign single-float)
+ (xscale single-float)
+ (yscale single-float)))
;;frame
(gtk-frame-new ((label c-string))
c-pointer)
(gtk-frame-set-label ((frame c-pointer)
- (label c-pointer)))
+ (label c-pointer)))
(gtk-frame-set-label-widget ((frame c-pointer)
- (label-widget c-pointer)))
+ (label-widget c-pointer)))
(gtk-frame-set-label-align ((frame c-pointer)
- (xalign single-float)
- (yalign single-float)))
+ (xalign single-float)
+ (yalign single-float)))
(gtk-frame-set-shadow-type ((frame c-pointer)
- (shadow-type int)))
+ (shadow-type int)))
;;aspect-frame
(gtk-aspect-frame-new ((label c-string)
- (xalign single-float)
- (yalign single-float)
- (ratio single-float)
- (obey_child boolean))
+ (xalign single-float)
+ (yalign single-float)
+ (ratio single-float)
+ (obey_child boolean))
c-pointer)
-
+
;;separetor
(gtk-hseparator-new ()
c-pointer)
(gtk-vseparator-new ()
c-pointer)
-
+
;;scrolling
(gtk-scrolled-window-new ((hadjustment c-pointer)
- (vadjustment c-pointer))
+ (vadjustment c-pointer))
c-pointer)
(gtk-scrolled-window-set-policy ((scrolled-window c-pointer)
- (h-policy int)
- (v-policy int)))
+ (h-policy int)
+ (v-policy int)))
(gtk-scrolled-window-add-with-viewport ((scrolled-window c-pointer)
- (child c-pointer)))
+ (child c-pointer)))
(gtk-scrolled-window-set-placement ((scrolled-window c-pointer)
- (placement int)))
+ (placement int)))
(gtk-scrolled-window-set-shadow-type ((scrolled-window c-pointer)
- (type int)))
-
+ (type int)))
+
;;notebook
(gtk-notebook-new ()
c-pointer)
(gtk-notebook-append-page ((notebook c-pointer)
- (child c-pointer)
- (tab-label c-pointer))
+ (child c-pointer)
+ (tab-label c-pointer))
int)
(gtk-notebook-append-page-menu ((notebook c-pointer)
- (child c-pointer)
- (tab-label c-pointer)
- (menu-label c-pointer))
+ (child c-pointer)
+ (tab-label c-pointer)
+ (menu-label c-pointer))
int)
(gtk-notebook-prepend-page ((notebook c-pointer)
- (child c-pointer)
- (tab-label c-pointer))
+ (child c-pointer)
+ (tab-label c-pointer))
int)
(gtk-notebook-prepend-page-menu ((notebook c-pointer)
- (child c-pointer)
- (tab-label c-pointer)
- (menu-label c-pointer))
+ (child c-pointer)
+ (tab-label c-pointer)
+ (menu-label c-pointer))
int)
(gtk-notebook-insert-page ((notebook c-pointer)
- (child c-pointer)
- (tab-label c-pointer)
- (pos int))
+ (child c-pointer)
+ (tab-label c-pointer)
+ (pos int))
int)
(gtk-notebook-insert-page-menu ((notebook c-pointer)
- (child c-pointer)
- (tab-label c-pointer)
- (menu-label c-pointer)
- (pos int))
+ (child c-pointer)
+ (tab-label c-pointer)
+ (menu-label c-pointer)
+ (pos int))
int)
(gtk-notebook-remove-page ((notebook c-pointer)
- (page-num int)))
+ (page-num int)))
(gtk-notebook-set-current-page ((notebook c-pointer)
- (page-num int)))
+ (page-num int)))
(gtk-notebook-set-tab-pos ((notebook c-pointer)
- (pos int)))
+ (pos int)))
(gtk-notebook-set-show-tabs ((notebook c-pointer)
- (show-tabs boolean)))
+ (show-tabs boolean)))
(gtk-notebook-set-show-border ((notebook c-pointer)
- (show-border boolean)))
+ (show-border boolean)))
(gtk-notebook-set-scrollable ((notebook c-pointer)
- (scrollable boolean)))
+ (scrollable boolean)))
(gtk-notebook-set-tab-border ((notebook c-pointer)
- (border-width int)))
+ (border-width int)))
(gtk-notebook-popup-enable ((notebook c-pointer)))
(gtk-notebook-popup-disable ((notebook c-pointer)))
(gtk-notebook-set-homogeneous-tabs ((notebook c-pointer)
- (homogeneous-tabs boolean)))
-
+ (homogeneous-tabs boolean)))
+
;;label
(gtk-label-new ((text c-pointer))
c-pointer)
(gtk-label-set-text ((label c-pointer)
- (text c-pointer)))
+ (text c-pointer)))
(gtk-label-set-text-with-mnemonic ((label c-pointer)
- (text c-pointer)))
+ (text c-pointer)))
(gtk-label-set-line-wrap ((label c-pointer)
- (wrap boolean)))
+ (wrap boolean)))
(gtk-label-set-selectable ((label c-pointer)
- (selectable boolean)))
+ (selectable boolean)))
(gtk-label-set-use-markup ((label c-pointer)
- (use-markup boolean)))
+ (use-markup boolean)))
(gtk-label-set-markup ((label c-pointer)
- (markup c-pointer)))
+ (markup c-pointer)))
(gtk-label-set-markup-with-mnemonic ((label c-pointer)
- (markup c-pointer)))
-
+ (markup c-pointer)))
+
(gtk-accel-label-new ((str c-pointer))
c-pointer)
(gtk-accel-label-set-accel-widget ((label c-pointer)
- (widget c-pointer)))
-
+ (widget c-pointer)))
+
;;progress
(gtk-progress-bar-new ()
c-pointer)
(gtk-progress-bar-pulse ((pbar c-pointer)))
(gtk-progress-bar-set-text ((pbar c-pointer)
- (text c-string)))
+ (text c-string)))
(gtk-progress-bar-set-fraction ((pbar c-pointer)
- (fraction double-float)))
+ (fraction double-float)))
(gtk-progress-bar-set-pulse-step ((pbar c-pointer)
- (fraction double-float)))
+ (fraction double-float)))
(gtk-progress-bar-set-orientation ((pbar c-pointer)
- (orientation int)))
+ (orientation int)))
(gtk-progress-bar-set-bar-style ((pbar c-pointer)
- (style int)))
+ (style int)))
(gtk-progress-bar-set-discrete-blocks ((pbar c-pointer)
- (blocks uint)))
+ (blocks uint)))
(gtk-progress-bar-set-activity-step ((pbar c-pointer)
- (step uint)))
+ (step uint)))
(gtk-progress-bar-set-activity-blocks ((pbar c-pointer)
- (blocks uint)))
+ (blocks uint)))
(gtk-progress-bar-update ((pbar c-pointer)
- (percentage double-float)))
-
+ (percentage double-float)))
+
;;image
(gtk-image-new-from-file ((filename c-string))
c-pointer)
(gtk-image-new-from-stock ((stock c-string)
- (icon-size int))
+ (icon-size int))
c-pointer)
(gtk-image-set-from-stock ((image c-pointer)
- (stock c-string)
- (icon-size int)))
+ (stock c-string)
+ (icon-size int)))
(gtk-image-get-pixbuf ((image c-pointer))
c-pointer)
-
+
;;statusbar
(gtk-statusbar-new ()
c-pointer)
(gtk-statusbar-get-context-id ((sbar c-pointer)
- (description c-string))
- uint)
+ (description c-string))
+ uint)
(gtk-statusbar-push ((sbar c-pointer)
- (context-id uint)
- (text c-pointer))
+ (context-id uint)
+ (text c-string))
uint)
(gtk-statusbar-pop ((sbar c-pointer)
- (context-id uint)))
+ (context-id uint)))
(gtk-statusbar-remove ((sbar c-pointer)
- (context-id uint)
- (message-id uint)))
+ (context-id uint)
+ (message-id uint)))
(gtk-statusbar-set-has-resize-grip ((sbar c-pointer)
- (setting boolean)))
-
+ (setting boolean)))
+
;;widget
(gtk-widget-show ((widget c-pointer)))
(gtk-widget-show-all ((widget c-pointer)))
(gtk-widget-hide ((widget c-pointer)))
(gtk-widget-destroy ((widget c-pointer)))
(gtk-widget-set-sensitive ((widget c-pointer)
- (sensitive boolean)))
+ (sensitive boolean)))
(gtk-widget-set-size-request ((widget c-pointer)
- (width int)
- (height int)))
+ (width int)
+ (height int)))
(gtk-widget-get-parent-window ((widget c-pointer))
c-pointer)
(gtk-widget-add-accelerator ((widget c-pointer)
- (gsignal c-string)
- (accel-group c-pointer)
- (key uint)
- (mods int)
- (flags int)))
+ (gsignal c-string)
+ (accel-group c-pointer)
+ (key uint)
+ (mods int)
+ (flags int)))
(gtk-widget-grab-focus ((widget c-pointer)))
-
+
;;window
(gtk-window-new ((type int))
- c-pointer)
+ c-pointer)
(gtk-window-set-title ((widget c-pointer)
- (title c-pointer)))
+ (title c-pointer)))
(gtk-window-set-icon-from-file ((window c-pointer)
- (filename c-string)
- (err c-pointer))
+ (filename c-string)
+ (err c-pointer))
boolean)
(gtk-window-set-default-size ((widget c-pointer)
- (width int)
- (height int)))
+ (width int)
+ (height int)))
(gtk-window-set-resizable ((widget c-pointer)
- (resizable boolean)))
+ (resizable boolean)))
(gtk-window-set-decorated ((widget c-pointer)
- (decorated boolean)))
+ (decorated boolean)))
(gtk-window-set-auto-startup-notification ((setting boolean)))
(gtk-window-set-position ((widget c-pointer)
- (position int)))
+ (position int)))
(gtk-window-maximize ((widget c-pointer)))
(gtk-window-unmaximize ((widget c-pointer)))
(gtk-window-iconify ((widget c-pointer)))
@@ -464,236 +464,236 @@
(gtk-window-fullscreen ((widget c-pointer)))
(gtk-window-unfullscreen ((widget c-pointer)))
(gtk-window-add-accel-group ((window c-pointer)
- (accel-group c-pointer)))
-
+ (accel-group c-pointer)))
+
;;button
(gtk-button-new ()
- c-pointer)
+ c-pointer)
(gtk-button-set-label ((button c-pointer)
- (label c-pointer)))
+ (label c-pointer)))
(gtk-button-set-relief ((button c-pointer)
- (style int)))
+ (style int)))
(gtk-button-set-use-stock ((button c-pointer)
- (use-stock boolean)))
+ (use-stock boolean)))
;;toggle-button
(gtk-toggle-button-new ()
- c-pointer)
+ c-pointer)
(gtk-toggle-button-set-mode ((button c-pointer)
- (draw-indicator boolean)))
+ (draw-indicator boolean)))
(gtk-toggle-button-set-active ((button c-pointer)
- (active boolean)))
+ (active boolean)))
(gtk-toggle-button-get-active ((button c-pointer))
- boolean)
+ boolean)
;;check-button
(gtk-check-button-new ()
- c-pointer)
+ c-pointer)
;;radio-button
(gtk-radio-button-new ((gslist c-pointer))
- c-pointer)
+ c-pointer)
(gtk-radio-button-new-from-widget ((radio-group c-pointer))
- c-pointer)
+ c-pointer)
;;entry
(gtk-entry-new ()
- c-pointer)
+ c-pointer)
(gtk-entry-set-text ((entry c-pointer)
- (text c-pointer)))
+ (text c-pointer)))
(gtk-entry-get-text ((entry c-pointer))
- c-pointer)
+ c-pointer)
(gtk-entry-set-max-length ((entry c-pointer)
- (max-length int)))
+ (max-length int)))
(gtk-entry-set-editable ((entry c-pointer)
- (editable boolean)))
+ (editable boolean)))
(gtk-entry-set-completion ((entry c-pointer)
- (completion c-pointer)))
+ (completion c-pointer)))
(gtk-entry-set-has-frame ((entry c-pointer)
- (has-frame boolean)))
-
+ (has-frame boolean)))
+
;;entry-completion
(gtk-entry-completion-new ()
c-pointer)
(gtk-entry-completion-set-model ((completion c-pointer)
- (model c-pointer)))
+ (model c-pointer)))
(gtk-entry-completion-set-text-column ((completion c-pointer)
- (column int)))
-
+ (column int)))
+
;;range
(gtk-range-set-range ((range c-pointer)
- (minval double-float)
- (maxval double-float)))
+ (minval double-float)
+ (maxval double-float)))
(gtk-range-set-value ((range c-pointer)
- (val double-float)))
+ (val double-float)))
(gtk-range-set-inverted ((range c-pointer)
- (inverted boolean)))
+ (inverted boolean)))
(gtk-range-set-increments ((range c-pointer)
- (step double-float)
- (page double-float)))
+ (step double-float)
+ (page double-float)))
(gtk-range-set-update-policy ((range c-pointer)
- (policy int)))
+ (policy int)))
(gtk-range-get-value ((range c-pointer))
- double-float)
-
- ;;scale
+ double-float)
+
+ ;;scale
(gtk-scale-set-draw-value ((scale c-pointer)
- (draw-value boolean)))
+ (draw-value boolean)))
(gtk-scale-set-value-pos ((scale c-pointer)
- (pos-type int)))
+ (pos-type int)))
(gtk-scale-set-digits ((scale c-pointer)
- (digits int)))
-
- ;;hscale
+ (digits int)))
+
+ ;;hscale
(gtk-hscale-new ((adjustment c-pointer))
c-pointer)
(gtk-hscale-new-with-range ((minval double-float)
- (maxval double-float)
- (step double-float))
+ (maxval double-float)
+ (step double-float))
c-pointer)
-
+
;;vscale
(gtk-vscale-new ((adjustment c-pointer))
c-pointer)
(gtk-vscale-new-with-range ((minval double-float)
- (maxval double-float)
- (step double-float))
+ (maxval double-float)
+ (step double-float))
c-pointer)
-
+
;;spin-button
(gtk-spin-button-new ((adjustment c-pointer)
- (climb-rate double-float)
- (digits uint))
+ (climb-rate double-float)
+ (digits uint))
c-pointer)
(gtk-spin-button-new-with-range ((minval double-float)
- (maxval double-float)
- (step double-float))
+ (maxval double-float)
+ (step double-float))
c-pointer)
(gtk-spin-button-set-value ((spin-button c-pointer)
- (value double-float)))
+ (value double-float)))
(gtk-spin-button-get-value ((spin-button c-pointer))
- double-float)
+ double-float)
(gtk-spin-button-get-value-as-int ((spin-button c-pointer))
- int)
+ int)
(gtk-spin-button-set-wrap ((spin-button c-pointer)
- (wrap boolean)))
-
+ (wrap boolean)))
+
;;list-store
(gtk-list-store-newv ((n-columns int)
- (col-types (c-array-ptr int)))
+ (col-types (c-array-ptr int)))
c-pointer)
(gtk-list-store-set-valist ((store c-pointer)
- (iter c-pointer)
- (data c-pointer)))
+ (iter c-pointer)
+ (data c-pointer)))
(gtk-list-store-set-value ((store c-pointer)
- (iter c-pointer)
- (column int)
- (value c-pointer)))
+ (iter c-pointer)
+ (column int)
+ (value c-pointer)))
(gtk-list-store-append ((list-store c-pointer)
- (iter c-pointer)))
+ (iter c-pointer)))
(gtk-list-store-clear ((list-store c-pointer)))
-
+
;;tree-store
(gtk-tree-store-newv ((n-columns int)
- (col-types (c-array-ptr int)))
+ (col-types (c-array-ptr int)))
c-pointer)
(gtk-tree-store-set-valist ((store c-pointer)
- (iter c-pointer)
- (data c-pointer)))
+ (iter c-pointer)
+ (data c-pointer)))
(gtk-tree-store-set-value ((store c-pointer)
- (iter c-pointer)
- (column int)
- (value c-pointer)))
+ (iter c-pointer)
+ (column int)
+ (value c-pointer)))
(gtk-tree-store-append ((list-store c-pointer)
- (iter c-pointer)
- (parent c-pointer)))
+ (iter c-pointer)
+ (parent c-pointer)))
(gtk-tree-store-clear ((list-store c-pointer)))
-
+
;;tree-view
(gtk-tree-view-new ()
c-pointer)
(gtk-tree-view-set-model ((tree-view c-pointer)
- (model c-pointer)))
+ (model c-pointer)))
(gtk-tree-view-insert-column ((tree-view c-pointer)
- (column c-pointer)
- (pos int))
+ (column c-pointer)
+ (pos int))
int)
(gtk-tree-view-get-selection ((tree-view c-pointer))
- c-pointer)
-
+ c-pointer)
+
;;tree-model
(gtk-tree-model-get ((tree-model c-pointer)
- (iter c-pointer)
- (column int)
- (data c-pointer)
- (eof int)))
+ (iter c-pointer)
+ (column int)
+ (data c-pointer)
+ (eof int)))
(gtk-tree-model-get-iter-from-string ((tree-model c-pointer)
- (iter c-pointer)
- (path c-string))
+ (iter c-pointer)
+ (path c-string))
boolean)
-
+
;;tree-path
(gtk-tree-path-new-from-string ((path c-string))
c-pointer)
(gtk-tree-path-free ((path c-pointer)))
-
+
;;tree-selection
- (gtk-tree-selection-set-mode ((sel c-pointer)
- (mode int)))
- (gtk-tree-selection-get-mode ((sel c-pointer))
- int)
- (gtk-tree-selection-select-path ((sel c-pointer)
- (path c-pointer)))
- (gtk-tree-selection-get-selected ((sel c-pointer)
- (model c-pointer)
- (iter c-pointer))
- boolean)
- (gtk-tree-selection-selected-foreach ((sel c-pointer)
- (callback-f #.(callback-function ((model c-pointer)
- (path c-pointer)
- (iter c-pointer)
- (data c-pointer))))
- (data c-pointer)))
+ (gtk-tree-selection-set-mode ((sel c-pointer)
+ (mode int)))
+ (gtk-tree-selection-get-mode ((sel c-pointer))
+ int)
+ (gtk-tree-selection-select-path ((sel c-pointer)
+ (path c-pointer)))
+ (gtk-tree-selection-get-selected ((sel c-pointer)
+ (model c-pointer)
+ (iter c-pointer))
+ boolean)
+ (gtk-tree-selection-selected-foreach ((sel c-pointer)
+ (callback-f #.(callback-function ((model c-pointer)
+ (path c-pointer)
+ (iter c-pointer)
+ (data c-pointer))))
+ (data c-pointer)))
;;tree-view-column
(gtk-tree-view-column-new ()
c-pointer)
(gtk-tree-view-column-pack-start ((tree-column c-pointer)
- (renderer c-pointer)
- (expand boolean)))
+ (renderer c-pointer)
+ (expand boolean)))
(gtk-tree-view-column-add-attribute ((tree-column c-pointer)
- (renderer c-pointer)
- (attribute c-string)
- (column int)))
+ (renderer c-pointer)
+ (attribute c-string)
+ (column int)))
(gtk-tree-view-column-set-spacing ((tree-column c-pointer)
- (spacing int)))
+ (spacing int)))
(gtk-tree-view-column-set-visible ((tree-column c-pointer)
- (spacing boolean)))
+ (spacing boolean)))
(gtk-tree-view-column-set-reorderable ((tree-column c-pointer)
- (resizable boolean)))
+ (resizable boolean)))
(gtk-tree-view-column-set-sort-column-id ((tree-column c-pointer)
- (col-id int)))
+ (col-id int)))
(gtk-tree-view-column-set-sort-indicator ((tree-column c-pointer)
- (resizable boolean)))
+ (resizable boolean)))
(gtk-tree-view-column-set-resizable ((tree-column c-pointer)
- (resizable boolean)))
+ (resizable boolean)))
(gtk-tree-view-column-set-fixed-width ((tree-column c-pointer)
- (fixed-width int)))
+ (fixed-width int)))
(gtk-tree-view-column-set-min-width ((tree-column c-pointer)
- (min-width int)))
+ (min-width int)))
(gtk-tree-view-column-set-max-width ((tree-column c-pointer)
- (max-width int)))
+ (max-width int)))
(gtk-tree-view-column-set-title ((tree-column c-pointer)
- (title c-pointer)))
+ (title c-pointer)))
(gtk-tree-view-column-set-expand ((tree-column c-pointer)
- (expand boolean)))
+ (expand boolean)))
(gtk-tree-view-column-set-clickable ((tree-column c-pointer)
- (clickable boolean)))
+ (clickable boolean)))
(gtk-tree-view-column-set-cell-data-func ((tree-column c-pointer)
- (cell-renderer c-pointer)
- (func #.(callback-function ((tree-column c-pointer)
- (cell-renderer c-pointer)
- (tree-model c-pointer)
- (iter c-pointer)
- (data c-pointer))))
- (data c-pointer)
- (destroy c-pointer)))
+ (cell-renderer c-pointer)
+ (func #.(callback-function ((tree-column c-pointer)
+ (cell-renderer c-pointer)
+ (tree-model c-pointer)
+ (iter c-pointer)
+ (data c-pointer))))
+ (data c-pointer)
+ (destroy c-pointer)))
;;cell-renderers
(gtk-cell-renderer-text-new ()
c-pointer)
@@ -701,154 +701,154 @@
c-pointer)
(gtk-cell-renderer-pixbuf-new ()
c-pointer)
-
+
;;combo-box
(gtk-combo-box-new-text ()
c-pointer)
(gtk-combo-box-append-text ((combo-box c-pointer)
- (text c-pointer)))
+ (text c-pointer)))
(gtk-combo-box-remove-text ((combo-box c-pointer)
- (position int)))
+ (position int)))
(gtk-combo-box-set-active ((combo-box c-pointer)
- (index int)))
+ (index int)))
(gtk-combo-box-get-active ((combo-box c-pointer))
int)
-
+
;;toolbar
(gtk-toolbar-new ()
c-pointer)
(gtk-toolbar-insert ((toolbar c-pointer)
- (item c-pointer)
- (pos int)))
+ (item c-pointer)
+ (pos int)))
(gtk-toolbar-set-show-arrow ((toolbar c-pointer)
- (show-arrow boolean)))
+ (show-arrow boolean)))
(gtk-toolbar-set-orientation ((toolbar c-pointer)
- (orientation int)))
+ (orientation int)))
(gtk-toolbar-set-tooltips ((toolbar c-pointer)
- (enable boolean)))
+ (enable boolean)))
(gtk-toolbar-set-style ((toolbar c-pointer)
- (style int)))
-
+ (style int)))
+
;;tooltips
(gtk-tooltips-new ()
c-pointer)
(gtk-tooltips-set-tip ((tooltips c-pointer)
- (widget c-pointer)
- (tip-text c-pointer)
- (tip-private c-string)))
+ (widget c-pointer)
+ (tip-text c-pointer)
+ (tip-private c-string)))
(gtk-tooltips-enable ((tooltips c-pointer)))
(gtk-tooltips-disable ((tooltips c-pointer)))
(gtk-tooltips-set-delay ((tooltips c-pointer)
- (delay uint)))
+ (delay uint)))
;;tool-item
(gtk-tool-item-new ()
c-pointer)
(gtk-tool-item-set-homogeneous ((tool-item c-pointer)
- (homogeneous boolean)))
+ (homogeneous boolean)))
(gtk-tool-item-set-expand ((tool-item c-pointer)
- (expand boolean)))
+ (expand boolean)))
(gtk-tool-item-set-tooltip ((tool-item c-pointer)
- (tooltips c-pointer)
- (tip-text c-string)
- (tip-private c-string)))
+ (tooltips c-pointer)
+ (tip-text c-string)
+ (tip-private c-string)))
(gtk-tool-item-set-is-important ((tool-item c-pointer)
- (is-important boolean)))
-
+ (is-important boolean)))
+
(gtk-separator-tool-item-new ()
- c-pointer)
+ c-pointer)
(gtk-separator-tool-item-set-draw ((item c-pointer)
- (draw boolean)))
-
+ (draw boolean)))
+
;;tool-button
(gtk-tool-button-new ((icon-widget c-pointer)
- (label c-pointer))
+ (label c-pointer))
c-pointer)
(gtk-tool-button-new-from-stock ((stock-id c-string))
c-pointer)
(gtk-tool-button-set-label ((tool-button c-pointer)
- (label c-pointer)))
+ (label c-pointer)))
(gtk-tool-button-set-use-underline ((tool-button c-pointer)
- (use-underline boolean)))
+ (use-underline boolean)))
(gtk-tool-button-set-stock-id ((tool-button c-pointer)
- (stock-id c-string)))
+ (stock-id c-string)))
(gtk-tool-button-set-icon-widget ((tool-button c-pointer)
- (icon-widget c-pointer)))
+ (icon-widget c-pointer)))
(gtk-tool-button-set-label-widget ((tool-button c-pointer)
- (label-widget c-pointer)))
+ (label-widget c-pointer)))
;;menu
(gtk-menu-shell-append ((menu-shell c-pointer)
- (child c-pointer)))
+ (child c-pointer)))
(gtk-menu-shell-prepend ((menu-shell c-pointer)
- (child c-pointer)))
+ (child c-pointer)))
(gtk-menu-shell-insert ((menu-shell c-pointer)
- (child c-pointer)
- (position int)))
+ (child c-pointer)
+ (position int)))
(gtk-menu-bar-new ()
c-pointer)
-
+
(gtk-menu-new ()
c-pointer)
(gtk-menu-set-title ((menu c-pointer)
- (title c-string)))
+ (title c-string)))
(gtk-menu-attach ((menu c-pointer)
- (child c-pointer)
- (lattach uint)
- (rattach uint)
- (tattach uint)
- (battach uint)))
+ (child c-pointer)
+ (lattach uint)
+ (rattach uint)
+ (tattach uint)
+ (battach uint)))
(gtk-menu-attach-to-widget ((menu c-pointer)
- (widget c-pointer)
- (func #.(callback-function ((widget c-pointer)
- (menu c-pointer))))))
-
+ (widget c-pointer)
+ (func #.(callback-function ((widget c-pointer)
+ (menu c-pointer))))))
+
(gtk-menu-popup ((menu c-pointer)
- (p-menu-shell c-pointer)
- (p-menu-item c-pointer)
- (func #.(callback-function ((menu c-pointer)
- (x (c-ptr int))
- (y (c-ptr int))
- (push-in (c-ptr boolean))
- (data c-pointer))))
- (data c-pointer)
- (button uint)
- (activate-time uint32)))
-
+ (p-menu-shell c-pointer)
+ (p-menu-item c-pointer)
+ (func #.(callback-function ((menu c-pointer)
+ (x (c-ptr int))
+ (y (c-ptr int))
+ (push-in (c-ptr boolean))
+ (data c-pointer))))
+ (data c-pointer)
+ (button uint)
+ (activate-time uint32)))
+
(gtk-menu-item-new ()
c-pointer)
(gtk-menu-item-new-with-label ((label c-string))
c-pointer)
(gtk-menu-item-set-right-justified ((menu-item c-pointer)
- (right-justified boolean)))
+ (right-justified boolean)))
(gtk-menu-item-set-submenu ((menu-item c-pointer)
- (submenu c-pointer)))
+ (submenu c-pointer)))
(gtk-menu-item-remove-submenu ((menu-item c-pointer)))
(gtk-menu-item-set-accel-path ((menu-item c-pointer)
- (acell-path c-pointer)))
+ (acell-path c-pointer)))
(gtk-accel-map-add-entry ((accel-path c-pointer)
- (accel-key uint)
- (accel-mods int)))
+ (accel-key uint)
+ (accel-mods int)))
(gtk-check-menu-item-new ()
c-pointer)
(gtk-check-menu-item-new-with-label ((label c-string))
c-pointer)
(gtk-check-menu-item-set-active ((check-menu c-pointer)
- (active boolean)))
+ (active boolean)))
(gtk-check-menu-item-get-active ((check-menu c-pointer))
boolean)
-
+
(gtk-radio-menu-item-new ((group c-pointer))
c-pointer)
(gtk-radio-menu-item-new-from-widget ((group c-pointer))
c-pointer)
(gtk-radio-menu-item-new-with-label ((group c-pointer)
- (label c-string))
+ (label c-string))
c-pointer)
(gtk-radio-menu-item-new-with-label-from-widget ((radio c-pointer)
- (label c-string))
+ (label c-string))
c-pointer)
(gtk-radio-menu-item-get-group ((radio c-pointer))
c-pointer)
@@ -858,89 +858,89 @@
(gtk-image-menu-item-new-with-label ((label c-string))
c-pointer)
(gtk-image-menu-item-new-from-stock ((stock-id c-string)
- (accel-group c-pointer))
+ (accel-group c-pointer))
c-pointer)
(gtk-image-menu-item-set-image ((menu-item c-pointer)
- (image c-pointer)))
-
-
+ (image c-pointer)))
+
+
(gtk-separator-menu-item-new ()
c-pointer)
(gtk-tearoff-menu-item-new ()
c-pointer)
-
+
;;calendar
(gtk-calendar-new ()
c-pointer)
(gtk-calendar-get-date ((cal c-pointer)
- (year c-pointer)
- (month c-pointer)
- (day c-pointer)))
+ (year c-pointer)
+ (month c-pointer)
+ (day c-pointer)))
(gtk-calendar-select-month ((cal c-pointer)
- (month uint)
- (year uint))
+ (month uint)
+ (year uint))
int)
(gtk-calendar-select-day ((cal c-pointer)
- (day uint)))
-
+ (day uint)))
+
;;arrow
(gtk-arrow-new ((arrow-type int)
- (shadow-type int))
+ (shadow-type int))
c-pointer)
(gtk-arrow-set ((arrow c-pointer)
- (arrow-type int)
- (shadow-type int)))
-
+ (arrow-type int)
+ (shadow-type int)))
+
;;dialog
(gtk-dialog-new ()
c-pointer)
(gtk-dialog-run ((dialog c-pointer))
int)
(gtk-dialog-response ((dialog c-pointer)
- (response-id int)))
+ (response-id int)))
(gtk-dialog-add-button ((dialog c-pointer)
- (button-text c-string)
- (response-id int))
+ (button-text c-string)
+ (response-id int))
c-pointer)
(gtk-dialog-add-action-widget ((dialog c-pointer)
- (child c-pointer)
- (response-id c-pointer)))
+ (child c-pointer)
+ (response-id c-pointer)))
(gtk-dialog-set-has-separator ((dialog c-pointer)
- (has-separator boolean)))
+ (has-separator boolean)))
(gtk-dialog-set-default-response ((dialog c-pointer)
- (response-id int)))
+ (response-id int)))
;;message-dialog
(gtk-message-dialog-new ((parent c-pointer)
- (flags int)
- (type int)
- (buttons int)
- (message c-string))
+ (flags int)
+ (type int)
+ (buttons int)
+ (message c-string))
c-pointer)
(gtk-message-dialog-set-markup ((dialog c-pointer)
- (str c-string)))
+ (str c-string)))
;;file-chooser
(gtk-file-chooser-set-action ((chooser c-pointer)
- (action int)))
+ (action int)))
(gtk-file-chooser-set-local-only ((chooser c-pointer)
- (local-only boolean)))
+ (local-only boolean)))
(gtk-file-chooser-set-select-multiple ((chooser c-pointer)
- (select-multiple boolean)))
+ (select-multiple boolean)))
(gtk-file-chooser-set-current-name ((chooser c-pointer)
- (name c-string)))
+ (name c-string)))
(gtk-file-chooser-set-filename ((chooser c-pointer)
- (filename c-string))
+ (filename c-string))
boolean)
(gtk-file-chooser-get-filename ((chooser c-pointer))
c-string :malloc-free)
(gtk-file-chooser-get-filenames ((chooser c-pointer))
c-pointer)
(gtk-file-chooser-set-current-folder ((chooser c-pointer)
- (folder c-string))
+ (folder c-string))
boolean)
(gtk-file-chooser-get-current-folder ((chooser c-pointer))
c-string :malloc-free)
(gtk-file-chooser-set-uri ((chooser c-pointer)
- (uri c-string))
+ (uri c-string))
boolean)
(gtk-file-chooser-get-uri ((chooser c-pointer))
c-string :malloc-free)
@@ -949,102 +949,102 @@
(gtk-file-chooser-get-uris ((chooser c-pointer))
c-pointer)
(gtk-file-chooser-set-current-folder-uri ((chooser c-pointer)
- (folder c-string))
+ (folder c-string))
boolean)
(gtk-file-chooser-get-current-folder-uri ((chooser c-pointer))
c-string :malloc-free)
(gtk-file-chooser-set-use-preview-label ((chooser c-pointer)
- (use-label boolean)))
+ (use-label boolean)))
(gtk-file-chooser-add-filter ((chooser c-pointer)
- (filter c-pointer)))
+ (filter c-pointer)))
(gtk-file-chooser-set-filter ((chooser c-pointer)
- (filter c-pointer)))
+ (filter c-pointer)))
;;file-chooser-widget
(gtk-file-chooser-widget-new ((action int))
c-pointer)
;;file-chooser-dialog
(gtk-file-chooser-dialog-new ((title c-string)
- (parent c-pointer)
- (action int)
- (cancel-text c-string)
- (cancel-response-id int)
- (accept-text c-string)
- (accept-response-id int)
- (null c-pointer))
+ (parent c-pointer)
+ (action int)
+ (cancel-text c-string)
+ (cancel-response-id int)
+ (accept-text c-string)
+ (accept-response-id int)
+ (null c-pointer))
c-pointer)
- ;;file-filter
+ ;;file-filter
(gtk-file-filter-new ()
c-pointer)
(gtk-file-filter-set-name ((filter c-pointer)
- (name c-string)))
+ (name c-string)))
(gtk-file-filter-add-mime-type ((filter c-pointer)
- (mime-type c-string)))
+ (mime-type c-string)))
(gtk-file-filter-add-pattern ((filter c-pointer)
- (pattern c-string)))
-
+ (pattern c-string)))
+
;;text-view
(gtk-text-view-new ()
c-pointer)
(gtk-text-view-set-buffer ((text-view c-pointer)
- (buffer c-pointer)))
+ (buffer c-pointer)))
;;text-buffer
(gtk-text-buffer-new ((table c-pointer))
c-pointer)
(gtk-text-buffer-set-text ((buffer c-pointer)
- (text c-pointer)
- (len int)))
-
+ (text c-pointer)
+ (len int)))
+
;;text-tag-table
(gtk-text-tag-table-new ()
c-pointer)
-
+
;;accel-group
(gtk-accel-group-new ()
c-pointer)
-
+
;;ui-manager
(gtk-ui-manager-new ()
c-pointer)
(gtk-ui-manager-set-add-tearoffs ((ui-manager c-pointer)
- (add-tearoffs boolean)))
+ (add-tearoffs boolean)))
(gtk-ui-manager-insert-action-group ((ui-manager c-pointer)
- (action-group c-pointer)
- (pos int)))
+ (action-group c-pointer)
+ (pos int)))
(gtk-ui-manager-get-toplevels ((ui-manager c-pointer)
- (types int))
+ (types int))
c-pointer)
-
+
;;action-group
(gtk-action-group-new ((name c-string))
c-pointer)
(gtk-action-group-set-sensitive ((action-group c-pointer)
- (sensitive boolean)))
+ (sensitive boolean)))
(gtk-action-group-set-visible ((action-group c-pointer)
- (visible boolean)))
+ (visible boolean)))
(gtk-action-group-add-action ((action-group c-pointer)
- (action c-pointer)))
+ (action c-pointer)))
(gtk-action-group-remove-action ((action-group c-pointer)
- (action c-pointer)))
+ (action c-pointer)))
(gtk-action-group-add-action-with-accel ((action-group c-pointer)
- (action c-pointer)
- (accel c-string)))
+ (action c-pointer)
+ (accel c-string)))
;;action
(gtk-action-new ((name c-string)
- (label c-pointer)
- (tooltip c-pointer)
- (stock-id c-string))
+ (label c-pointer)
+ (tooltip c-pointer)
+ (stock-id c-string))
c-pointer)
-
+
(gtk-event-box-new ()
c-pointer)
(gtk-event-box-set-above-child ((event-box c-pointer)
- (above boolean)))
+ (above boolean)))
(gtk-event-box-set-visible-window ((event-box c-pointer)
- (visible-window boolean)))
+ (visible-window boolean)))
-)
+ )
(def-c-struct gdk-event-button
(type int)
