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.11 2002-03-25 09:24:55 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))))
42 (defbinding get-default-language () string)
50 (defbinding accel-label-refetch () boolean
51 (accel-label accel-label))
56 (defbinding adjustment-changed () nil
57 (adjustment adjustment))
59 (defbinding adjustment-value-changed () nil
60 (adjustment adjustment))
62 (defbinding adjustment-clamp-page () nil
63 (adjustment adjustment)
69 ;;; Alignment -- no functions
70 ;;; Arrow -- no functions
79 (defun (setf bin-child) (child bin)
80 (when-bind (current-child (bin-child bin))
81 (container-remove bin current-child))
82 (container-add bin child)
87 ;;; Button box -- no functions
96 (defbinding box-pack-start () nil
101 (padding unsigned-int))
103 (defbinding box-pack-end () nil
108 (padding unsigned-int))
110 (defun box-pack (box child &key (pack :start) (expand t) (fill t) (padding 0))
112 (box-pack-start box child expand fill padding)
113 (box-pack-end box child expand fill padding)))
115 (defbinding box-reorder-child () nil
120 (defbinding box-query-child-packing () nil
123 (expand boolean :out)
125 (padding unsigned-int :out)
126 (pack-type pack-type :out))
128 (defbinding box-set-child-packing () nil
133 (padding unsigned-int)
134 (pack-type pack-type))
140 (defbinding button-pressed () nil
143 (defbinding button-released () nil
146 (defbinding button-clicked () nil
149 (defbinding button-enter () nil
152 (defbinding button-leave () nil
159 (defbinding calendar-select-month () int
164 (defbinding calendar-select-day () nil
168 (defbinding calendar-mark-day () int
172 (defbinding calendar-unmark-day () int
176 (defbinding calendar-clear-marks () nil
179 (defbinding calendar-display-options () nil
181 (options calendar-display-options))
183 (defbinding (calendar-date "gtk_calendar_get_date") () nil
185 (year unsigned-int :out)
186 (month unsigned-int :out)
187 (day unsigned-int :out))
189 (defbinding calendar-freeze () nil
192 (defbinding calendar-thaw () nil
205 ;;; Cell renderer pixbuf -- no functions
209 ;;; Cell renderer text
213 ;;; Cell renderer toggle -- no functions
217 ;;; Check button -- no functions
223 (defbinding check-menu-item-toggled () nil
224 (check-menu-item check-menu-item))
233 (defbinding (color-selection-is-adjusting-p
234 "gtk_color_selection_is_adjusting") () boolean
235 (colorsel color-selection))
239 ;;; Color selection dialog -- no functions
245 (defbinding combo-set-value-in-list () nil
248 (ok-if-empty boolean))
250 (defbinding combo-set-item-string () nil
255 (defbinding combo-set-popdown-strings () nil
257 (strings (glist string)))
259 (defbinding combo-disable-activate () nil
266 (defmethod shared-initialize ((dialog dialog) names &rest initargs)
268 (dolist (button-definition (get-all initargs :button))
269 (apply #'dialog-add-button dialog button-definition)))
272 (defvar %*response-id-key* (gensym))
274 (defun %dialog-find-response-id-num (dialog response-id &optional create-p error-p)
276 (cadr (assoc response-id (rest (type-expand-1 'response-type))))
277 (let* ((response-ids (object-data dialog %*response-id-key*))
278 (response-id-num (position response-id response-ids)))
284 (setf (cdr (last response-ids)) (list response-id))
285 (1- (length response-ids)))
287 (setf (object-data dialog %*response-id-key*) (list response-id))
290 (error "Invalid response: ~A" response-id))))))
292 (defun %dialog-find-response-id (dialog response-id-num)
293 (if (< response-id-num 0)
296 (list response-id-num)
297 (rest (type-expand-1 'response-type)) :test #'equalp))
298 (nth response-id-num (object-data dialog %*response-id-key*))))
301 (defmethod signal-connect ((dialog dialog) signal function &key object after)
302 (let ((response-id-num (%dialog-find-response-id-num dialog signal)))
307 #'(lambda (dialog id)
308 (when (= id response-id-num)
310 ((eq object t) (funcall function dialog))
311 (object (funcall function object))
312 (t (funcall function)))))
313 :object t :after after))
315 (call-next-method)))))
318 (defbinding dialog-run () nil
321 (defbinding dialog-response (dialog response-id) nil
323 ((%dialog-find-response-id-num dialog response-id nil t) int))
326 (defbinding %dialog-add-button () button
329 (response-id-num int))
331 (defun dialog-add-button (dialog label &optional response-id default-p)
332 (let* ((response-id-num
334 (%dialog-find-response-id-num dialog response-id t)
335 (length (object-data dialog %*response-id-key*))))
336 (button (%dialog-add-button dialog label response-id-num)))
338 (%dialog-find-response-id-num dialog button t))
340 (%dialog-set-default-response dialog response-id-num))
344 (defbinding %dialog-add-action-widget () button
346 (action-widget widget)
347 (response-id-num int))
349 (defun dialog-add-action-widget (dialog widget &optional (response-id widget)
351 (let ((response-id-num (%dialog-find-response-id-num dialog response-id t)))
352 (%dialog-add-action-widget dialog widget response-id-num)
354 (%dialog-set-default-response dialog response-id-num))
358 (defbinding %dialog-set-default-response () nil
360 (response-id-num int))
362 (defun dialog-set-default-response (dialog response-id)
363 (%dialog-set-default-response
364 dialog (%dialog-find-response-id-num dialog response-id nil t)))
366 (defbinding dialog-set-response-sensitive (dialog response-id sensitive) nil
368 ((%dialog-find-response-id-num dialog response-id nil t) int)
372 ;; Addition dialog functions
374 (defmethod container-add ((dialog dialog) (child widget) &rest args)
375 (apply #'container-add (slot-value dialog 'main-area) child args))
377 (defmethod container-remove ((dialog dialog) (child widget))
378 (container-remove (slot-value dialog 'main-area) child))
380 (defmethod container-children ((dialog dialog))
381 (container-children (dialog-main-area dialog)))
383 (defmethod (setf container-children) (children (dialog dialog))
384 (setf (container-children (dialog-main-area dialog)) children))
388 ;;; Drawing area -- no functions
393 (defbinding entry-get-layout () pango:layout
396 (defbinding entry-get-layout-offsets () nil
405 (defbinding label-get-layout-offsets () nil
410 (defbinding label-select-region () nil
415 (defbinding label-get-text () string
418 (defbinding label-get-layout () pango:layout
421 (defbinding label-get-selection-bounds () boolean
430 (defbinding %radio-button-get-group () pointer
431 (radio-button radio-button))
433 (defbinding %radio-button-set-group () nil
434 (radio-button radio-button)
437 (defun radio-button-add-to-group (button1 button2)
438 "Add BUTTON1 to the group which BUTTON2 belongs to."
439 (%radio-button-set-group button1 (%radio-button-get-group button2)))
442 (defmethod initialize-instance ((button radio-button)
443 &rest initargs &key group-with)
444 (declare (ignore initargs))
447 (radio-button-add-to-group item group-with)))
452 (defbinding %option-menu-set-menu () nil
453 (option-menu option-menu)
456 (defbinding %option-menu-remove-menu () nil
457 (option-menu option-menu))
459 (defun (setf option-menu-menu) (menu option-menu)
461 (%option-menu-remove-menu option-menu)
462 (%option-menu-set-menu option-menu menu))
469 (defbinding item-select () nil
472 (defbinding item-deselect () nil
475 (defbinding item-toggle () nil
482 (defun (setf menu-item-label) (label menu-item)
483 (make-instance 'accel-label
484 :label label :xalign 0.0 :yalign 0.5 :accel-widget menu-item
485 :visible t :parent menu-item)
488 (defbinding %menu-item-set-submenu () nil
489 (menu-item menu-item)
492 (defbinding %menu-item-remove-submenu () nil
493 (menu-item menu-item))
495 (defun (setf menu-item-submenu) (submenu menu-item)
497 (%menu-item-remove-submenu menu-item)
498 (%menu-item-set-submenu menu-item submenu))
501 (defbinding menu-item-select () nil
502 (menu-item menu-item))
504 (defbinding menu-item-deselect () nil
505 (menu-item menu-item))
507 (defbinding menu-item-activate () nil
508 (menu-item menu-item))
514 (defbinding %radio-menu-item-get-group () pointer
515 (radio-menu-item radio-menu-item))
517 (defbinding %radio-menu-item-set-group () nil
518 (radio-menu-item radio-menu-item)
521 (defun radio-menu-item-add-to-group (item1 item2)
522 "Add ITEM1 to the group which ITEM2 belongs to."
523 (%radio-menu-item-set-group item1 (%radio-menu-item-get-group item2)))
525 (defmethod initialize-instance ((item radio-menu-item)
526 &rest initargs &key group-with)
527 (declare (ignore initargs))
530 (radio-menu-item-add-to-group item group-with)))
536 (defbinding toggle-button-toggled () nil
537 (toggle-button toggle-button))
543 (defbinding window-set-wmclass () nil
545 (wmclass-name string)
546 (wmclass-class string))
548 (defbinding window-add-accel-group () nil
550 (accel-group accel-group))
552 (defbinding window-remove-accel-group () nil
554 (accel-group accel-group))
556 (defbinding window-activate-focus () int
559 (defbinding window-activate-default () int
562 (defbinding window-set-default-size (window width height) int
565 ((or height -1) int))
567 ;(defbinding window-set-geometry-hints)
569 (defbinding window-list-toplevels () (glist window))
571 (defbinding window-add-mnemonic (window key target) nil
573 ((gdk:keyval-from-name key) unsigned-int)
576 (defbinding window-remove-mnemonic (window key target) nil
578 ((gdk:keyval-from-name key) unsigned-int)
581 (defbinding window-mnemonic-activate (window key modifier) nil
583 ((gdk:keyval-from-name key) unsigned-int)
584 (modifier gdk:modifier-type))
586 (defbinding window-present () nil
589 (defbinding window-iconify () nil
592 (defbinding window-deiconify () nil
595 (defbinding window-stick () nil
598 (defbinding window-unstick () nil
601 (defbinding window-maximize () nil
604 (defbinding window-unmaximize () nil
607 (defbinding window-begin-resize-drag () nil
609 (edge gdk:window-edge)
611 (root-x int) (root-y int)
612 (timestamp (unsigned-int 32)))
614 (defbinding window-begin-move-drag () nil
616 (edge gdk:window-edge)
618 (root-x int) (root-y int)
619 (timestamp (unsigned-int 32)))
621 (defbinding window-set-frame-dimensions () nil
623 (left int) (top int) (rigth int) (bottom int))
625 (defbinding (window-default-icons "gtk_window_get_default_icon_list")
626 () (glist gdk:pixbuf))
628 (defbinding %window-get-default-size () nil
633 (defun window-get-default-size (window)
634 (multiple-value-bind (width height) (%window-get-default-size window)
635 (values (unless (= width -1) width) (unless (= height -1) height))))
637 (defbinding window-get-frame-dimensions () nil
639 (left int :out) (top int :out) (rigth int :out) (bottom int :out))
641 (defbinding %window-get-icon-list () (glist gdk:pixbuf)
644 (defmethod window-icon ((window window))
645 (let ((icon-list (%window-get-icon-list window)))
646 (if (endp (rest icon-list))
650 (defbinding window-get-position () nil
655 (defbinding window-get-size () nil
660 (defbinding window-move () nil
665 (defbinding window-parse-geometry () boolean
669 (defbinding window-reshow-with-initial-size () nil
672 (defbinding window-resize () nil
677 (defbinding %window-set-icon-list () nil
679 (icon-list (glist gdk:pixbuf)))
681 (defmethod (setf window-icon) (icon (window window))
682 (%window-set-icon-list window (mklist icon)))
689 (defbinding file-selection-complete () nil
690 (file-selection file-selection)
697 (defun (setf scrolled-window-scrollbar-policy) (policy window)
698 (setf (scrolled-window-hscrollbar-policy window) policy)
699 (setf (scrolled-window-vscrollbar-policy window) policy))
701 (defbinding scrolled-window-add-with-viewport () nil
702 (scrolled-window scrolled-window)
720 (defbinding (statusbar-context-id "gtk_statusbar_get_context_id")
722 (statusbar statusbar)
723 (context-description string))
725 (defbinding statusbar-push () unsigned-int
726 (statusbar statusbar)
727 (context-id unsigned-int)
730 (defbinding statusbar-pop () nil
731 (statusbar statusbar)
732 (context-id unsigned-int))
734 (defbinding statusbar-remove () nil
735 (statusbar statusbar)
736 (context-id unsigned-int)
737 (message-id unsigned-int))
743 (defbinding fixed-put () nil
749 (defbinding fixed-move () nil
759 (defbinding (notebook-insert-page "gtk_notebook_insert_page_menu")
760 (notebook position child tab-label &optional menu-label) nil
763 ((if (stringp tab-label)
764 (label-new tab-label)
766 ((if (stringp menu-label)
767 (label-new menu-label)
768 menu-label) (or null widget))
771 (defun notebook-append-page (notebook child tab-label &optional menu-label)
772 (notebook-insert-page notebook -1 child tab-label menu-label))
774 (defun notebook-prepend-page (notebook child tab-label &optional menu-label)
775 (notebook-insert-page notebook 0 child tab-label menu-label))
777 (defbinding notebook-remove-page () nil
781 ; (defun notebook-current-page-num (notebook)
782 ; (let ((page-num (notebook-current-page notebook)))
783 ; (if (= page-num -1)
787 (defbinding (notebook-nth-page-child "gtk_notebook_get_nth_page") () widget
791 (defun notebook-page-child (notebook)
792 (notebook-nth-page-child notebook (notebook-page notebook)))
794 (defbinding %notebook-page-num () int
798 (defun notebook-child-num (notebook child)
799 (let ((page-num (%notebook-page-num notebook child)))
804 (defbinding notebook-next-page () nil
807 (defbinding notebook-prev-page () nil
810 (defbinding notebook-popup-enable () nil
813 (defbinding notebook-popup-disable () nil
816 ; (defbinding (notebook-tab-label "gtk_notebook_get_tab_label")
817 ; (notebook ref) widget
818 ; (notebook notebook)
819 ; ((if (typep ref 'widget)
821 ; (notebook-nth-page-child notebook ref))
824 ; (defbinding %notebook-set-tab-label () nil
825 ; (notebook notebook)
827 ; (tab-label widget))
829 ; (defun (setf notebook-tab-label) (tab-label notebook reference)
830 ; (let ((tab-label-widget (if (stringp tab-label)
831 ; (label-new tab-label)
833 ; (%notebook-set-tab-label
835 ; (if (typep reference 'widget)
837 ; (notebook-nth-page-child notebook reference))
841 ; (defbinding (notebook-menu-label "gtk_notebook_get_menu_label")
842 ; (notebook ref) widget
843 ; (notebook notebook)
844 ; ((if (typep ref 'widget)
846 ; (notebook-nth-page-child notebook ref))
849 ; (defbinding %notebook-set-menu-label () nil
850 ; (notebook notebook)
852 ; (menu-label widget))
854 ; (defun (setf notebook-menu-label) (menu-label notebook reference)
855 ; (let ((menu-label-widget (if (stringp menu-label)
856 ; (label-new menu-label)
858 ; (%notebook-set-menu-label
860 ; (if (typep reference 'widget)
862 ; (notebook-nth-page-child notebook reference))
864 ; menu-label-widget))
866 (defbinding notebook-query-tab-label-packing (notebook ref) nil
868 ((if (typep ref 'widget)
870 (notebook-nth-page-child notebook ref))
872 (expand boolean :out)
874 (pack-type pack-type :out))
877 notebook-set-tab-label-packing (notebook ref expand fill pack-type) nil
879 ((if (typep ref 'widget)
881 (notebook-nth-page-child notebook ref))
885 (pack-type pack-type))
887 (defbinding notebook-reorder-child () nil
896 (defbinding paned-pack1 () nil
902 (defbinding paned-pack2 () nil
909 (defbinding paned-child1 () widget
911 (resize boolean :out)
912 (shrink boolean :out))
915 (defbinding paned-child2 () widget
917 (resize boolean :out)
918 (shrink boolean :out))
920 (defun (setf paned-child1) (child paned)
921 (paned-pack1 paned child nil t))
923 (defun (setf paned-child2) (child paned)
924 (paned-pack2 paned child t t))
930 (defbinding layout-put () nil
936 (defbinding layout-move () nil
942 (defbinding layout-set-size () nil
947 (defbinding layout-get-size () nil
956 (defbinding menu-shell-insert () nil
957 (menu-shell menu-shell)
958 (menu-item menu-item)
961 (defun menu-shell-append (menu-shell menu-item)
962 (menu-shell-insert menu-shell menu-item -1))
964 (defun menu-shell-prepend (menu-shell menu-item)
965 (menu-shell-insert menu-shell menu-item 0))
967 (defbinding menu-shell-deactivate () nil
968 (menu-shell menu-shell))
970 (defbinding menu-shell-select-item () nil
971 (menu-shell menu-shell)
972 (menu-item menu-item))
974 (defbinding menu-shell-deselect () nil
975 (menu-shell menu-shell))
977 (defbinding menu-shell-activate-item () nil
978 (menu-shell menu-shell)
979 (menu-item menu-item)
980 (fore-deactivate boolean))
986 ; (defbinding menu-bar-insert () nil
987 ; (menu-bar menu-bar)
991 ; (defun menu-bar-append (menu-bar menu)
992 ; (menu-bar-insert menu-bar menu -1))
994 ; (defun menu-bar-prepend (menu-bar menu)
995 ; (menu-bar-insert menu-bar menu 0))
1001 ;(defun menu-popup ...)
1003 (defbinding menu-reposition () nil
1006 (defbinding menu-popdown () nil
1009 (defbinding %menu-set-active () nil
1011 (index unsigned-int))
1013 (defun (setf menu-active) (menu index)
1014 (%menu-set-active menu index))
1016 (defbinding menu-reorder-child () nil
1018 (menu-item menu-item)
1024 (defbinding table-resize () nil
1027 (columns unsigned-int))
1029 (defbinding table-attach (table child left right top bottom
1030 &key (x-options '(:expand :fill))
1031 (y-options '(:expand :fill))
1032 (x-padding 0) (y-padding 0)) nil
1036 (right unsigned-int)
1038 (bottom unsigned-int)
1039 (x-options attach-options)
1040 (y-options attach-options)
1041 (x-padding unsigned-int)
1042 (y-padding unsigned-int))
1045 (defbinding %table-set-row-spacing () nil
1048 (spacing unsigned-int))
1050 (defbinding %table-set-row-spacings () nil
1052 (spacing unsigned-int))
1054 (defun (setf table-row-spacing) (spacing table &optional row)
1056 (%table-set-row-spacing table row spacing)
1057 (%table-set-row-spacings table spacing))
1060 (defbinding %table-get-row-spacing () unsigned-int
1064 (defbinding %table-get-default-row-spacing () unsigned-int
1067 (defun table-row-spacing (table &optional row)
1069 (%table-get-row-spacing table row)
1070 (%table-get-default-row-spacing table)))
1073 (defbinding %table-set-col-spacing () nil
1076 (spacing unsigned-int))
1078 (defbinding %table-set-col-spacings () nil
1080 (spacing unsigned-int))
1082 (defun (setf table-col-spacing) (spacing table &optional col)
1084 (%table-set-col-spacing table col spacing)
1085 (%table-set-col-spacings table spacing))
1088 (defbinding %table-get-col-spacing () unsigned-int
1092 (defbinding %table-get-default-col-spacing () unsigned-int
1095 (defun table-col-spacing (table &optional col)
1097 (%table-get-col-spacing table col)
1098 (%table-get-default-col-spacing table)))
1105 (defbinding toolbar-num-children () int
1108 (defun %toolbar-position-num (toolbar position)
1111 (:append (toolbar-num-children toolbar))
1113 (assert (and (>= position 0) (< position (toolbar-num-children toolbar))))
1116 (defbinding %toolbar-insert-element () widget
1118 (type toolbar-child-type)
1119 (widget (or null widget))
1121 (tooltip-text string)
1122 (tooltip-private-text string)
1123 (icon (or null widget))
1128 (defun toolbar-insert-element (toolbar position
1129 &key tooltip-text tooltip-private-text
1130 type widget icon text callback)
1131 (let* ((icon-widget (typecase icon
1132 ((or null widget) icon)
1133 (t (pixmap-new icon))))
1135 (%toolbar-insert-element
1136 toolbar (or type (and widget :widget) :button)
1137 widget text tooltip-text tooltip-private-text icon-widget
1138 (%toolbar-position-num toolbar position))))
1140 (signal-connect toolbar-child 'clicked callback))
1143 (defun toolbar-append-element (toolbar &key tooltip-text tooltip-private-text
1144 type widget icon text callback)
1145 (toolbar-insert-element
1146 toolbar :append :type type :widget widget :icon icon :text text
1147 :tooltip-text tooltip-text :tooltip-private-text tooltip-private-text
1148 :callback callback))
1150 (defun toolbar-prepend-element (toolbar &key tooltip-text tooltip-private-text
1151 type widget icon text callback)
1152 (toolbar-insert-element
1153 toolbar :prepend :type type :widget widget :icon icon :text text
1154 :tooltip-text tooltip-text :tooltip-private-text tooltip-private-text
1155 :callback callback))
1157 (defun toolbar-insert-space (toolbar position)
1158 (toolbar-insert-element toolbar position :type :space))
1160 (defun toolbar-append-space (toolbar)
1161 (toolbar-insert-space toolbar :append))
1163 (defun toolbar-prepend-space (toolbar)
1164 (toolbar-insert-space toolbar :prepend))
1166 (defun toolbar-insert-widget (toolbar widget position &key tooltip-text
1167 tooltip-private-text callback)
1168 (toolbar-insert-element
1169 toolbar position :widget widget :tooltip-text tooltip-text
1170 :tooltip-private-text tooltip-private-text :callback callback))
1172 (defun toolbar-append-widget (toolbar widget &key tooltip-text
1173 tooltip-private-text callback)
1174 (toolbar-insert-widget
1175 toolbar widget :append :tooltip-text tooltip-text
1176 :tooltip-private-text tooltip-private-text :callback callback))
1178 (defun toolbar-prepend-widget (toolbar widget &key tooltip-text
1179 tooltip-private-text callback)
1180 (toolbar-insert-widget
1181 toolbar widget :prepend :tooltip-text tooltip-text
1182 :tooltip-private-text tooltip-private-text :callback callback))
1184 (defun toolbar-insert-item (toolbar text icon position &key tooltip-text
1185 tooltip-private-text callback)
1186 (toolbar-insert-element
1187 toolbar position :text text :icon icon :callback callback
1188 :tooltip-text tooltip-text :tooltip-private-text tooltip-private-text))
1190 (defun toolbar-append-item (toolbar text icon &key tooltip-text
1191 tooltip-private-text callback)
1192 (toolbar-insert-item
1193 toolbar text icon :append :callback callback
1194 :tooltip-text tooltip-text :tooltip-private-text tooltip-private-text))
1197 (defun toolbar-prepend-item (toolbar text icon &key tooltip-text
1198 tooltip-private-text callback)
1199 (toolbar-insert-item
1200 toolbar text icon :prepend :callback callback
1201 :tooltip-text tooltip-text :tooltip-private-text tooltip-private-text))
1203 (defun toolbar-enable-tooltips (toolbar)
1204 (setf (toolbar-tooltips-p toolbar) t))
1206 (defun toolbar-disable-tooltips (toolbar)
1207 (setf (toolbar-tooltips-p toolbar) nil))
1218 (defbinding editable-select-region (editable &optional (start 0) end) nil
1223 (defbinding editable-insert-text
1224 (editable text &optional (position 0)) nil
1228 ((or position -1) int :in-out))
1230 (defun editable-append-text (editable text)
1231 (editable-insert-text editable text nil))
1233 (defun editable-prepend-text (editable text)
1234 (editable-insert-text editable text 0))
1236 (defbinding editable-delete-text (editable &optional (start 0) end) nil
1241 (defbinding (editable-text "gtk_editable_get_chars")
1242 (editable &optional (start 0) end) string
1247 (defun (setf editable-text) (text editable)
1249 (editable-delete-text
1251 (editable-insert-text editable text))
1252 (editable-delete-text editable))
1255 (defbinding editable-cut-clipboard () nil
1256 (editable editable))
1258 (defbinding editable-copy-clipboard () nil
1259 (editable editable))
1261 (defbinding editable-paste-clipboard () nil
1262 (editable editable))
1264 ; (defbinding editable-claim-selection () nil
1265 ; (editable editable)
1267 ; (time unsigned-int))
1269 (defbinding editable-delete-selection () nil
1270 (editable editable))
1272 ; (defbinding editable-changed () nil
1273 ; (editable editable))
1279 (defun spin-button-value-as-int (spin-button)
1280 (round (spin-button-value spin-button)))
1282 (defbinding spin-button-spin () nil
1283 (spin-button spin-button)
1284 (direction spin-type)
1285 (increment single-float))
1287 (defbinding spin-button-update () nil
1288 (spin-button spin-button))
1294 (defbinding ruler-set-range () nil
1296 (lower single-float)
1297 (upper single-float)
1298 (position single-float)
1299 (max-size single-float))
1301 (defbinding ruler-draw-ticks () nil
1304 (defbinding ruler-draw-pos () nil
1311 (defbinding range-draw-background () nil
1314 (defbinding range-clear-background () nil
1317 (defbinding range-draw-trough () nil
1320 (defbinding range-draw-slider () nil
1323 (defbinding range-draw-step-forw () nil
1326 (defbinding range-slider-update () nil
1329 (defbinding range-trough-click () int
1333 (jump-perc single-float :out))
1335 (defbinding range-default-hslider-update () nil
1338 (defbinding range-default-vslider-update () nil
1341 (defbinding range-default-htrough-click () int
1345 (jump-perc single-float :out))
1347 (defbinding range-default-vtrough-click () int
1351 (jump-perc single-float :out))
1353 (defbinding range-default-hmotion () int
1358 (defbinding range-default-vmotion () int
1367 ; (defbinding scale-draw-value () nil
1374 (defbinding progress-bar-pulse () nil
1375 (progress-bar progress-bar))
1383 (defbinding tooltips-enable () nil
1384 (tooltips tooltips))
1386 (defbinding tooltips-disable () nil
1387 (tooltips tooltips))
1389 (defun (setf tooltips-enabled-p) (enable tooltips)
1391 (tooltips-enable tooltips)
1392 (tooltips-disable tooltips)))
1394 (defbinding tooltips-set-tip () nil
1398 (tip-private string))
1400 (defbinding tooltips-force-window () nil
1401 (tooltips tooltips))
1407 (defbinding rc-add-default-file (filename) nil
1408 ((namestring (truename filename)) string))
1410 (defbinding rc-parse (filename) nil
1411 ((namestring (truename filename)) string))
1413 (defbinding rc-parse-string () nil
1416 (defbinding rc-reparse-all () nil)
1418 (defbinding rc-get-style () style
1423 ;;; Accelerator Groups
1425 (defbinding accel-group-get-default () accel-group)
1427 (deftype-method alien-ref accel-group (type-spec)
1428 (declare (ignore type-spec))
1431 (deftype-method alien-unref accel-group (type-spec)
1432 (declare (ignore type-spec))
1433 '%accel-group-unref)
1435 (defbinding %accel-group-ref () accel-group
1436 (accel-group (or accel-group pointer)))
1438 (defbinding %accel-group-unref () nil
1439 (accel-group (or accel-group pointer)))
1441 (defbinding accel-group-activate (accel-group key modifiers) boolean
1442 (accel-group accel-group)
1443 ((gdk:keyval-from-name key) unsigned-int)
1444 (modifiers gdk:modifier-type))
1446 (defbinding accel-groups-activate (object key modifiers) boolean
1448 ((gdk:keyval-from-name key) unsigned-int)
1449 (modifiers gdk:modifier-type))
1451 (defbinding accel-group-attach () nil
1452 (accel-group accel-group)
1455 (defbinding accel-group-detach () nil
1456 (accel-group accel-group)
1459 (defbinding accel-group-lock () nil
1460 (accel-group accel-group))
1462 (defbinding accel-group-unlock () nil
1463 (accel-group accel-group))
1466 ;;; Accelerator Groups Entries
1468 (defbinding accel-group-get-entry (accel-group key modifiers) accel-entry
1469 (accel-group accel-group)
1470 ((gdk:keyval-from-name key) unsigned-int)
1471 (modifiers gdk:modifier-type))
1473 (defbinding accel-group-lock-entry (accel-group key modifiers) nil
1474 (accel-group accel-group)
1475 ((gdk:keyval-from-name key) unsigned-int)
1476 (modifiers gdk:modifier-type))
1478 (defbinding accel-group-unlock-entry (accel-group key modifiers) nil
1479 (accel-group accel-group)
1480 ((gdk:keyval-from-name key) unsigned-int)
1481 (modifiers gdk:modifier-type))
1483 (defbinding accel-group-add
1484 (accel-group key modifiers flags object signal) nil
1485 (accel-group accel-group)
1486 ((gdk:keyval-from-name key) unsigned-int)
1487 (modifiers gdk:modifier-type)
1490 ((name-to-string signal) string))
1492 (defbinding accel-group-add (accel-group key modifiers object) nil
1493 (accel-group accel-group)
1494 ((gdk:keyval-from-name key) unsigned-int)
1495 (modifiers gdk:modifier-type)
1499 ;;; Accelerator Signals
1501 (defbinding accel-group-handle-add
1502 (object signal-id accel-group key modifiers flags) nil
1504 (signal-id unsigned-int)
1505 (accel-group accel-group)
1506 ((gdk:keyval-from-name key) unsigned-int)
1507 (modifiers gdk:modifier-type)
1508 (flags accel-flags))
1510 (defbinding accel-group-handle-remove
1511 (object accel-group key modifiers) nil
1513 (accel-group accel-group)
1514 ((gdk:keyval-from-name key) unsigned-int)
1515 (modifiers gdk:modifier-type))