1 ;; Common Lisp bindings for GTK+ v2.0
2 ;; Copyright (C) 1999-2001 Espen S. Johnsen <esj@stud.cs.uit.no>
4 ;; This library is free software; you can redistribute it and/or
5 ;; modify it under the terms of the GNU Lesser General Public
6 ;; License as published by the Free Software Foundation; either
7 ;; version 2 of the License, or (at your option) any later version.
9 ;; This library is distributed in the hope that it will be useful,
10 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 ;; Lesser General Public License for more details.
14 ;; You should have received a copy of the GNU Lesser General Public
15 ;; License along with this library; if not, write to the Free Software
16 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18 ;; $Id: gtk.lisp,v 1.6 2001-10-21 23:22:04 espen Exp $
25 (defbinding check-version () string
26 (required-major unsigned-int)
27 (required-minor unsigned-int)
28 (required-micro unsigned-int))
30 (defbinding query-version () nil
31 (major unsigned-int :out)
32 (minor unsigned-int :out)
33 (micro unsigned-int :out))
36 (multiple-value-bind (major minor micro)
39 (format nil "Gtk+ v~A.~A" major minor)
40 (format nil "Gtk+ v~A.~A.~A" major minor micro))))
46 (defbinding label-select-region () nil
55 (defbinding accel-label-refetch () boolean
56 (accel-label accel-label))
62 (defbinding (bin-child "gtk_bin_get_child") () widget
65 (defun (setf bin-child) (child bin)
66 (let ((old-child (bin-child bin)))
68 (container-remove bin old-child)))
69 (container-add bin child)
75 (defbinding button-pressed () nil
78 (defbinding button-released () nil
81 (defbinding button-clicked () nil
84 (defbinding button-enter () nil
87 (defbinding button-leave () nil
94 (defbinding toggle-button-toggled () nil
95 (toggle-button toggle-button))
101 (defmethod (setf button-label) ((label string) (button check-button))
103 (setf (misc-xalign (bin-child button)) 0.0)
110 (defbinding %radio-button-get-group () pointer
111 (radio-button radio-button))
113 (defbinding %radio-button-set-group () nil
114 (radio-button radio-button)
117 (defun radio-button-add-to-group (button1 button2)
118 "Add BUTTON1 to the group which BUTTON2 belongs to."
119 (%radio-button-set-group button1 (%radio-button-get-group button2)))
122 (defmethod initialize-instance ((button radio-button)
123 &rest initargs &key group-with)
124 (declare (ignore initargs))
127 (radio-button-add-to-group item group-with)))
132 (defbinding %option-menu-set-menu () nil
133 (option-menu option-menu)
136 (defbinding %option-menu-remove-menu () nil
137 (option-menu option-menu))
139 (defun (setf option-menu-menu) (menu option-menu)
141 (%option-menu-remove-menu option-menu)
142 (%option-menu-set-menu option-menu menu))
149 (defbinding item-select () nil
152 (defbinding item-deselect () nil
155 (defbinding item-toggle () nil
162 (defun (setf menu-item-label) (label menu-item)
163 (make-instance 'accel-label
164 :label label :xalign 0.0 :yalign 0.5 :accel-widget menu-item
165 :visible t :parent menu-item)
168 (defbinding %menu-item-set-submenu () nil
169 (menu-item menu-item)
172 (defbinding %menu-item-remove-submenu () nil
173 (menu-item menu-item))
175 (defun (setf menu-item-submenu) (submenu menu-item)
177 (%menu-item-remove-submenu menu-item)
178 (%menu-item-set-submenu menu-item submenu))
181 (defbinding menu-item-select () nil
182 (menu-item menu-item))
184 (defbinding menu-item-deselect () nil
185 (menu-item menu-item))
187 (defbinding menu-item-activate () nil
188 (menu-item menu-item))
194 (defbinding check-menu-item-toggled () nil
195 (check-menu-item check-menu-item))
201 (defbinding %radio-menu-item-get-group () pointer
202 (radio-menu-item radio-menu-item))
204 (defbinding %radio-menu-item-set-group () nil
205 (radio-menu-item radio-menu-item)
208 (defun radio-menu-item-add-to-group (item1 item2)
209 "Add ITEM1 to the group which ITEM2 belongs to."
210 (%radio-menu-item-set-group item1 (%radio-menu-item-get-group item2)))
212 (defmethod initialize-instance ((item radio-menu-item)
213 &rest initargs &key group-with)
214 (declare (ignore initargs))
217 (radio-menu-item-add-to-group item group-with)))
223 (defbinding %window-set-wmclass () nil
225 (wmclass-name string)
226 (wmclass-class string))
228 (defun (setf window-wmclass) (wmclass window)
229 (%window-set-wmclass window (svref wmclass 0) (svref wmclass 1))
230 (values (svref wmclass 0) (svref wmclass 1)))
233 (defbinding window-wmclass () nil
235 (wmclass-name string :out)
236 (wmclass-class string :out))
238 (defbinding window-add-accel-group () nil
240 (accel-group accel-group))
242 (defbinding window-remove-accel-group () nil
244 (accel-group accel-group))
246 (defbinding window-activate-focus () int
249 (defbinding window-activate-default () int
252 (defbinding window-set-transient-for () nil
256 ;(defbinding window-set-geometry-hints)
262 (defbinding file-selection-complete () nil
263 (file-selection file-selection)
270 (defun (setf scrolled-window-scrollbar-policy) (policy window)
271 (setf (scrolled-window-hscrollbar-policy window) policy)
272 (setf (scrolled-window-vscrollbar-policy window) policy))
274 (defbinding scrolled-window-add-with-viewport () nil
275 (scrolled-window scrolled-window)
282 (defbinding box-pack-start () nil
287 (padding unsigned-int))
289 (defbinding box-pack-end () nil
294 (padding unsigned-int))
296 (defun box-pack (box child &key (pack :start) (expand t) (fill t) (padding 0))
298 (box-pack-start box child expand fill padding)
299 (box-pack-end box child expand fill padding)))
301 (defbinding box-reorder-child () nil
306 (defbinding box-query-child-packing () nil
309 (expand boolean :out)
311 (padding unsigned-int :out)
312 (pack-type pack-type :out))
314 (defbinding box-set-child-packing () nil
319 (padding unsigned-int)
320 (pack-type pack-type))
326 (defbinding button-box-get-child-size () nil
327 (button-box button-box)
329 (min-height int :out))
331 (defbinding button-box-set-child-size () nil
332 (button-box button-box)
336 (defbinding button-box-get-child-ipadding () nil
337 (button-box button-box)
341 (defbinding button-box-set-child-ipadding () nil
342 (button-box button-box)
350 ; (defbinding %color-selection-get-previous-color () nil
351 ; (colorsel color-selection)
354 ; (defun color-selection-previous-color (colorsel)
355 ; (let ((color (allocate-memory (* (size-of 'double-float) 4))))
356 ; (%color-selection-get-previous-color colorsel color)
357 ; (funcall (get-from-alien-function '(vector double-float 4)) color)))
359 ; (defbinding %color-selection-set-previous-color () nil
360 ; (colorsel color-selection)
361 ; (color (vector double-float 4)))
363 ; (defun (setf color-selection-previous-color) (color colorsel)
364 ; (%color-selection-set-previous-color colorsel color)
367 (defbinding (color-selection-is-adjusting-p
368 "gtk_color_selection_is_adjusting") () boolean
369 (colorsel color-selection))
375 (defbinding combo-set-value-in-list () nil
378 (ok-if-empty boolean))
380 ; (defbinding ("gtk_combo_set_item_string" (setf combo-item-string)) () nil
383 ; (item-value string))
385 (defbinding %combo-set-popdown-strings () nil
387 (strings (glist string)))
389 (defun (setf combo-popdown-strings) (strings combo)
390 (%combo-set-popdown-strings combo strings)
393 (defbinding combo-disable-activate () nil
400 (defbinding (statusbar-context-id "gtk_statusbar_get_context_id")
402 (statusbar statusbar)
403 (context-description string))
405 (defbinding statusbar-push () unsigned-int
406 (statusbar statusbar)
407 (context-id unsigned-int)
410 (defbinding statusbar-pop () nil
411 (statusbar statusbar)
412 (context-id unsigned-int))
414 (defbinding statusbar-remove () nil
415 (statusbar statusbar)
416 (context-id unsigned-int)
417 (message-id unsigned-int))
423 (defbinding fixed-put () nil
429 (defbinding fixed-move () nil
439 (defbinding (notebook-insert-page "gtk_notebook_insert_page_menu")
440 (notebook position child tab-label &optional menu-label) nil
443 ((if (stringp tab-label)
444 (label-new tab-label)
446 ((if (stringp menu-label)
447 (label-new menu-label)
448 menu-label) (or null widget))
451 (defun notebook-append-page (notebook child tab-label &optional menu-label)
452 (notebook-insert-page notebook -1 child tab-label menu-label))
454 (defun notebook-prepend-page (notebook child tab-label &optional menu-label)
455 (notebook-insert-page notebook 0 child tab-label menu-label))
457 (defbinding notebook-remove-page () nil
461 ; (defun notebook-current-page-num (notebook)
462 ; (let ((page-num (notebook-current-page notebook)))
463 ; (if (= page-num -1)
467 (defbinding (notebook-nth-page-child "gtk_notebook_get_nth_page") () widget
471 (defun notebook-page-child (notebook)
472 (notebook-nth-page-child notebook (notebook-page notebook)))
474 (defbinding %notebook-page-num () int
478 (defun notebook-child-num (notebook child)
479 (let ((page-num (%notebook-page-num notebook child)))
484 (defbinding notebook-next-page () nil
487 (defbinding notebook-prev-page () nil
490 (defbinding notebook-popup-enable () nil
493 (defbinding notebook-popup-disable () nil
496 ; (defbinding (notebook-tab-label "gtk_notebook_get_tab_label")
497 ; (notebook ref) widget
498 ; (notebook notebook)
499 ; ((if (typep ref 'widget)
501 ; (notebook-nth-page-child notebook ref))
504 ; (defbinding %notebook-set-tab-label () nil
505 ; (notebook notebook)
507 ; (tab-label widget))
509 ; (defun (setf notebook-tab-label) (tab-label notebook reference)
510 ; (let ((tab-label-widget (if (stringp tab-label)
511 ; (label-new tab-label)
513 ; (%notebook-set-tab-label
515 ; (if (typep reference 'widget)
517 ; (notebook-nth-page-child notebook reference))
521 ; (defbinding (notebook-menu-label "gtk_notebook_get_menu_label")
522 ; (notebook ref) widget
523 ; (notebook notebook)
524 ; ((if (typep ref 'widget)
526 ; (notebook-nth-page-child notebook ref))
529 ; (defbinding %notebook-set-menu-label () nil
530 ; (notebook notebook)
532 ; (menu-label widget))
534 ; (defun (setf notebook-menu-label) (menu-label notebook reference)
535 ; (let ((menu-label-widget (if (stringp menu-label)
536 ; (label-new menu-label)
538 ; (%notebook-set-menu-label
540 ; (if (typep reference 'widget)
542 ; (notebook-nth-page-child notebook reference))
544 ; menu-label-widget))
546 (defbinding notebook-query-tab-label-packing (notebook ref) nil
548 ((if (typep ref 'widget)
550 (notebook-nth-page-child notebook ref))
552 (expand boolean :out)
554 (pack-type pack-type :out))
557 notebook-set-tab-label-packing (notebook ref expand fill pack-type) nil
559 ((if (typep ref 'widget)
561 (notebook-nth-page-child notebook ref))
565 (pack-type pack-type))
567 (defbinding notebook-reorder-child () nil
576 (defbinding paned-pack1 () nil
582 (defbinding paned-pack2 () nil
589 (defbinding paned-child1 () widget
591 (resize boolean :out)
592 (shrink boolean :out))
595 (defbinding paned-child2 () widget
597 (resize boolean :out)
598 (shrink boolean :out))
600 (defun (setf paned-child1) (child paned)
601 (paned-pack1 paned child nil t))
603 (defun (setf paned-child2) (child paned)
604 (paned-pack2 paned child t t))
610 (defbinding layout-put () nil
616 (defbinding layout-move () nil
622 (defbinding layout-set-size () nil
627 (defbinding layout-get-size () nil
636 (defbinding menu-shell-insert () nil
637 (menu-shell menu-shell)
638 (menu-item menu-item)
641 (defun menu-shell-append (menu-shell menu-item)
642 (menu-shell-insert menu-shell menu-item -1))
644 (defun menu-shell-prepend (menu-shell menu-item)
645 (menu-shell-insert menu-shell menu-item 0))
647 (defbinding menu-shell-deactivate () nil
648 (menu-shell menu-shell))
650 (defbinding menu-shell-select-item () nil
651 (menu-shell menu-shell)
652 (menu-item menu-item))
654 (defbinding menu-shell-deselect () nil
655 (menu-shell menu-shell))
657 (defbinding menu-shell-activate-item () nil
658 (menu-shell menu-shell)
659 (menu-item menu-item)
660 (fore-deactivate boolean))
666 ; (defbinding menu-bar-insert () nil
667 ; (menu-bar menu-bar)
671 ; (defun menu-bar-append (menu-bar menu)
672 ; (menu-bar-insert menu-bar menu -1))
674 ; (defun menu-bar-prepend (menu-bar menu)
675 ; (menu-bar-insert menu-bar menu 0))
681 ;(defun menu-popup ...)
683 (defbinding menu-reposition () nil
686 (defbinding menu-popdown () nil
689 (defbinding %menu-set-active () nil
691 (index unsigned-int))
693 (defun (setf menu-active) (menu index)
694 (%menu-set-active menu index))
696 (defbinding menu-reorder-child () nil
698 (menu-item menu-item)
704 (defbinding table-resize () nil
707 (columns unsigned-int))
709 (defbinding table-attach (table child left right top bottom
710 &key (x-options '(:expand :fill))
711 (y-options '(:expand :fill))
712 (x-padding 0) (y-padding 0)) nil
718 (bottom unsigned-int)
719 (x-options attach-options)
720 (y-options attach-options)
721 (x-padding unsigned-int)
722 (y-padding unsigned-int))
725 (defbinding %table-set-row-spacing () nil
728 (spacing unsigned-int))
730 (defbinding %table-set-row-spacings () nil
732 (spacing unsigned-int))
734 (defun (setf table-row-spacing) (spacing table &optional row)
736 (%table-set-row-spacing table row spacing)
737 (%table-set-row-spacings table spacing))
740 (defbinding %table-get-row-spacing () unsigned-int
744 (defbinding %table-get-default-row-spacing () unsigned-int
747 (defun table-row-spacing (table &optional row)
749 (%table-get-row-spacing table row)
750 (%table-get-default-row-spacing table)))
753 (defbinding %table-set-col-spacing () nil
756 (spacing unsigned-int))
758 (defbinding %table-set-col-spacings () nil
760 (spacing unsigned-int))
762 (defun (setf table-col-spacing) (spacing table &optional col)
764 (%table-set-col-spacing table col spacing)
765 (%table-set-col-spacings table spacing))
768 (defbinding %table-get-col-spacing () unsigned-int
772 (defbinding %table-get-default-col-spacing () unsigned-int
775 (defun table-col-spacing (table &optional col)
777 (%table-get-col-spacing table col)
778 (%table-get-default-col-spacing table)))
783 (defmethod initialize-instance ((dialog dialog) &rest initargs)
784 (apply #'call-next-method dialog (plist-remove initargs :child))
785 (dolist (button-definition (get-all initargs :button))
786 (apply #'dialog-add-button dialog button-definition))
787 (dolist (child (get-all initargs :child))
788 (apply #'dialog-add-child dialog (mklist child))))
791 (defvar %*response-id-key* (gensym))
793 (defun %dialog-find-response-id-num (dialog response-id create-p)
795 (cadr (assoc response-id (rest (type-expand-1 'response-type))))
796 (let* ((response-ids (object-data dialog %*response-id-key*))
797 (response-id-num (position response-id response-ids)))
803 (setf (cdr (last response-ids)) (list response-id))
804 (1- (length response-ids)))
806 (setf (object-data dialog %*response-id-key*) (list response-id))
809 (error "Invalid response id: ~A" response-id))))))
811 (defun %dialog-find-response-id (dialog response-id-num)
812 (if (< response-id-num 0)
815 (list response-id-num)
816 (rest (type-expand-1 'response-type)) :test #'equalp))
817 (nth response-id-num (object-data dialog %*response-id-key*))))
820 (defmethod signal-connect ((dialog dialog) signal function &key object)
823 #'(lambda (dialog response-id-num)
824 (let ((response-id (%dialog-find-response-id dialog response-id-num)))
826 ((eq object t) (funcall function dialog response-id))
827 (object (funcall function object response-id))
828 (t (funcall function response-id))))))
830 (call-next-method))))
833 (defbinding dialog-response (dialog response-id) nil
835 ((%dialog-find-response-id-num dialog response-id nil) int))
837 (defbinding %dialog-set-default-response () nil
839 (response-id-num int))
841 (defun dialog-set-default-response (dialog response-id)
842 (%dialog-set-default-response
843 dialog (%dialog-find-response-id-num dialog response-id nil)))
845 (defbinding dialog-set-response-sensitive (dialog response-id sensitive) nil
847 ((%dialog-find-response-id-num dialog response-id nil) int)
851 (defbinding %dialog-add-button () button
854 (response-id-num int))
856 (defun dialog-add-button (dialog label &optional response-id default-p)
857 (let* ((response-id-num
859 (%dialog-find-response-id-num dialog response-id t)
860 (length (object-data dialog %*response-id-key*))))
861 (button (%dialog-add-button dialog label response-id-num)))
863 (%dialog-find-response-id-num dialog button t))
865 (%dialog-set-default-response dialog response-id-num))
869 (defbinding %dialog-add-action-widget () button
871 (action-widget widget)
872 (response-id-num int))
874 (defun dialog-add-action-widget (dialog widget &optional (response-id widget)
876 (let ((response-id-num (%dialog-find-response-id-num dialog response-id t)))
877 (%dialog-add-action-widget dialog widget response-id-num)
879 (%dialog-set-default-response dialog response-id-num))
883 (defun dialog-add-child (dialog child &rest args)
884 (apply #'container-add (slot-value dialog 'vbox) child args))
886 (defmethod container-children ((dialog dialog))
887 (container-children (dialog-vbox dialog)))
889 (defmethod (setf container-children) (children (dialog dialog))
890 (setf (container-children (dialog-vbox dialog)) children))
897 (defbinding toolbar-num-children () int
900 (defun %toolbar-position-num (toolbar position)
903 (:append (toolbar-num-children toolbar))
905 (assert (and (>= position 0) (< position (toolbar-num-children toolbar))))
908 (defbinding %toolbar-insert-element () widget
910 (type toolbar-child-type)
911 (widget (or null widget))
913 (tooltip-text string)
914 (tooltip-private-text string)
915 (icon (or null widget))
920 (defun toolbar-insert-element (toolbar position
921 &key tooltip-text tooltip-private-text
922 type widget icon text callback)
923 (let* ((icon-widget (typecase icon
924 ((or null widget) icon)
925 (t (pixmap-new icon))))
927 (%toolbar-insert-element
928 toolbar (or type (and widget :widget) :button)
929 widget text tooltip-text tooltip-private-text icon-widget
930 (%toolbar-position-num toolbar position))))
932 (signal-connect toolbar-child 'clicked callback))
935 (defun toolbar-append-element (toolbar &key tooltip-text tooltip-private-text
936 type widget icon text callback)
937 (toolbar-insert-element
938 toolbar :append :type type :widget widget :icon icon :text text
939 :tooltip-text tooltip-text :tooltip-private-text tooltip-private-text
942 (defun toolbar-prepend-element (toolbar &key tooltip-text tooltip-private-text
943 type widget icon text callback)
944 (toolbar-insert-element
945 toolbar :prepend :type type :widget widget :icon icon :text text
946 :tooltip-text tooltip-text :tooltip-private-text tooltip-private-text
949 (defun toolbar-insert-space (toolbar position)
950 (toolbar-insert-element toolbar position :type :space))
952 (defun toolbar-append-space (toolbar)
953 (toolbar-insert-space toolbar :append))
955 (defun toolbar-prepend-space (toolbar)
956 (toolbar-insert-space toolbar :prepend))
958 (defun toolbar-insert-widget (toolbar widget position &key tooltip-text
959 tooltip-private-text callback)
960 (toolbar-insert-element
961 toolbar position :widget widget :tooltip-text tooltip-text
962 :tooltip-private-text tooltip-private-text :callback callback))
964 (defun toolbar-append-widget (toolbar widget &key tooltip-text
965 tooltip-private-text callback)
966 (toolbar-insert-widget
967 toolbar widget :append :tooltip-text tooltip-text
968 :tooltip-private-text tooltip-private-text :callback callback))
970 (defun toolbar-prepend-widget (toolbar widget &key tooltip-text
971 tooltip-private-text callback)
972 (toolbar-insert-widget
973 toolbar widget :prepend :tooltip-text tooltip-text
974 :tooltip-private-text tooltip-private-text :callback callback))
976 (defun toolbar-insert-item (toolbar text icon position &key tooltip-text
977 tooltip-private-text callback)
978 (toolbar-insert-element
979 toolbar position :text text :icon icon :callback callback
980 :tooltip-text tooltip-text :tooltip-private-text tooltip-private-text))
982 (defun toolbar-append-item (toolbar text icon &key tooltip-text
983 tooltip-private-text callback)
985 toolbar text icon :append :callback callback
986 :tooltip-text tooltip-text :tooltip-private-text tooltip-private-text))
989 (defun toolbar-prepend-item (toolbar text icon &key tooltip-text
990 tooltip-private-text callback)
992 toolbar text icon :prepend :callback callback
993 :tooltip-text tooltip-text :tooltip-private-text tooltip-private-text))
995 (defun toolbar-enable-tooltips (toolbar)
996 (setf (toolbar-tooltips-p toolbar) t))
998 (defun toolbar-disable-tooltips (toolbar)
999 (setf (toolbar-tooltips-p toolbar) nil))
1005 (defbinding calendar-select-month () int
1007 (month unsigned-int)
1008 (year unsigned-int))
1010 (defbinding calendar-select-day () nil
1014 (defbinding calendar-mark-day () int
1018 (defbinding calendar-unmark-day () int
1022 (defbinding calendar-clear-marks () nil
1023 (calendar calendar))
1025 (defbinding calendar-display-options () nil
1027 (options calendar-display-options))
1029 (defbinding (calendar-date "gtk_calendar_get_date") () nil
1031 (year unsigned-int :out)
1032 (month unsigned-int :out)
1033 (day unsigned-int :out))
1035 (defbinding calendar-freeze () nil
1036 (calendar calendar))
1038 (defbinding calendar-thaw () nil
1039 (calendar calendar))
1046 ; (defbinding ("gtk_drawing_area_size" %drawing-area-set-size) () nil
1047 ; (drawing-area drawing-area)
1051 ; (defun (setf drawing-area-size) (size drawing-area)
1052 ; (%drawing-area-set-size drawing-area (svref size 0) (svref size 1))
1053 ; (values (svref size 0) (svref size 1)))
1056 ; (defbinding ("gtk_drawing_area_get_size" drawing-area-size) () nil
1057 ; (drawing-area drawing-area)
1059 ; (height int :out))
1065 (defbinding editable-select-region (editable &optional (start 0) end) nil
1070 (defbinding editable-insert-text
1071 (editable text &optional (position 0)) nil
1075 ((or position -1) int :in-out))
1077 (defun editable-append-text (editable text)
1078 (editable-insert-text editable text nil))
1080 (defun editable-prepend-text (editable text)
1081 (editable-insert-text editable text 0))
1083 (defbinding editable-delete-text (editable &optional (start 0) end) nil
1088 (defbinding (editable-text "gtk_editable_get_chars")
1089 (editable &optional (start 0) end) string
1094 (defun (setf editable-text) (text editable)
1096 (editable-delete-text
1098 (editable-insert-text editable text))
1099 (editable-delete-text editable))
1102 (defbinding editable-cut-clipboard () nil
1103 (editable editable))
1105 (defbinding editable-copy-clipboard () nil
1106 (editable editable))
1108 (defbinding editable-paste-clipboard () nil
1109 (editable editable))
1111 ; (defbinding editable-claim-selection () nil
1112 ; (editable editable)
1114 ; (time unsigned-int))
1116 (defbinding editable-delete-selection () nil
1117 (editable editable))
1119 ; (defbinding editable-changed () nil
1120 ; (editable editable))
1126 (defun spin-button-value-as-int (spin-button)
1127 (round (spin-button-value spin-button)))
1129 (defbinding spin-button-spin () nil
1130 (spin-button spin-button)
1131 (direction spin-type)
1132 (increment single-float))
1134 (defbinding spin-button-update () nil
1135 (spin-button spin-button))
1141 (defbinding ruler-set-range () nil
1143 (lower single-float)
1144 (upper single-float)
1145 (position single-float)
1146 (max-size single-float))
1148 (defbinding ruler-draw-ticks () nil
1151 (defbinding ruler-draw-pos () nil
1158 (defbinding range-draw-background () nil
1161 (defbinding range-clear-background () nil
1164 (defbinding range-draw-trough () nil
1167 (defbinding range-draw-slider () nil
1170 (defbinding range-draw-step-forw () nil
1173 (defbinding range-slider-update () nil
1176 (defbinding range-trough-click () int
1180 (jump-perc single-float :out))
1182 (defbinding range-default-hslider-update () nil
1185 (defbinding range-default-vslider-update () nil
1188 (defbinding range-default-htrough-click () int
1192 (jump-perc single-float :out))
1194 (defbinding range-default-vtrough-click () int
1198 (jump-perc single-float :out))
1200 (defbinding range-default-hmotion () int
1205 (defbinding range-default-vmotion () int
1214 ; (defbinding scale-draw-value () nil
1221 (defbinding progress-bar-pulse () nil
1222 (progress-bar progress-bar))
1228 (defbinding adjustment-changed () nil
1229 (adjustment adjustment))
1231 (defbinding adjustment-value-changed () nil
1232 (adjustment adjustment))
1234 (defbinding adjustment-clamp-page () nil
1235 (adjustment adjustment)
1236 (lower single-float)
1237 (upper single-float))
1243 (defbinding tooltips-enable () nil
1244 (tooltips tooltips))
1246 (defbinding tooltips-disable () nil
1247 (tooltips tooltips))
1249 (defun (setf tooltips-enabled-p) (enable tooltips)
1251 (tooltips-enable tooltips)
1252 (tooltips-disable tooltips)))
1254 (defbinding tooltips-set-tip () nil
1258 (tip-private string))
1260 (defbinding tooltips-force-window () nil
1261 (tooltips tooltips))
1267 (defbinding rc-add-default-file (filename) nil
1268 ((namestring (truename filename)) string))
1270 (defbinding rc-parse (filename) nil
1271 ((namestring (truename filename)) string))
1273 (defbinding rc-parse-string () nil
1276 (defbinding rc-reparse-all () nil)
1278 (defbinding rc-get-style () style
1283 ;;; Accelerator Groups
1285 (defbinding accel-group-get-default () accel-group)
1287 (deftype-method alien-ref accel-group (type-spec)
1288 (declare (ignore type-spec))
1291 (deftype-method alien-unref accel-group (type-spec)
1292 (declare (ignore type-spec))
1293 '%accel-group-unref)
1295 (defbinding %accel-group-ref () accel-group
1296 (accel-group (or accel-group pointer)))
1298 (defbinding %accel-group-unref () nil
1299 (accel-group (or accel-group pointer)))
1301 (defbinding accel-group-activate (accel-group key modifiers) boolean
1302 (accel-group accel-group)
1303 ((gdk:keyval-from-name key) unsigned-int)
1304 (modifiers gdk:modifier-type))
1306 (defbinding accel-groups-activate (object key modifiers) boolean
1308 ((gdk:keyval-from-name key) unsigned-int)
1309 (modifiers gdk:modifier-type))
1311 (defbinding accel-group-attach () nil
1312 (accel-group accel-group)
1315 (defbinding accel-group-detach () nil
1316 (accel-group accel-group)
1319 (defbinding accel-group-lock () nil
1320 (accel-group accel-group))
1322 (defbinding accel-group-unlock () nil
1323 (accel-group accel-group))
1326 ;;; Accelerator Groups Entries
1328 (defbinding accel-group-get-entry (accel-group key modifiers) accel-entry
1329 (accel-group accel-group)
1330 ((gdk:keyval-from-name key) unsigned-int)
1331 (modifiers gdk:modifier-type))
1333 (defbinding accel-group-lock-entry (accel-group key modifiers) nil
1334 (accel-group accel-group)
1335 ((gdk:keyval-from-name key) unsigned-int)
1336 (modifiers gdk:modifier-type))
1338 (defbinding accel-group-unlock-entry (accel-group key modifiers) nil
1339 (accel-group accel-group)
1340 ((gdk:keyval-from-name key) unsigned-int)
1341 (modifiers gdk:modifier-type))
1343 (defbinding accel-group-add
1344 (accel-group key modifiers flags object signal) nil
1345 (accel-group accel-group)
1346 ((gdk:keyval-from-name key) unsigned-int)
1347 (modifiers gdk:modifier-type)
1350 ((name-to-string signal) string))
1352 (defbinding accel-group-add (accel-group key modifiers object) nil
1353 (accel-group accel-group)
1354 ((gdk:keyval-from-name key) unsigned-int)
1355 (modifiers gdk:modifier-type)
1359 ;;; Accelerator Signals
1361 (defbinding accel-group-handle-add
1362 (object signal-id accel-group key modifiers flags) nil
1364 (signal-id unsigned-int)
1365 (accel-group accel-group)
1366 ((gdk:keyval-from-name key) unsigned-int)
1367 (modifiers gdk:modifier-type)
1368 (flags accel-flags))
1370 (defbinding accel-group-handle-remove
1371 (object accel-group key modifiers) nil
1373 (accel-group accel-group)
1374 ((gdk:keyval-from-name key) unsigned-int)
1375 (modifiers gdk:modifier-type))