1 ;; Common Lisp bindings for GTK+ v2.0.x
2 ;; Copyright (C) 1999-2000 Espen S. Johnsen <espejohn@online.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: gtktypes.lisp,v 1.1.1.1 2000/08/14 16:44:59 espen Exp $
38 (defclass style (gobject)
40 (:metaclass gobject-class)
41 (:alien-name "GtkStyle"))
43 ; (define-boxed accel-group :c-name "GtkAccelGroup")
46 (deftype (accel-group "GtkAccelGroup") () 'pointer)
48 (deftype accel-entry () 'pointer)
49 (deftype radio-button-group () 'pointer)
50 (deftype radio-menu-item-group () 'pointer)
51 ; (define-boxed ctree-node :c-name "GtkCTreeNode")
54 (defclass data (object)
56 (:metaclass object-class)
57 (:alien-name "GtkData"))
60 (defclass adjustment (data)
63 :accessor adjustment-lower
68 :accessor adjustment-upper
73 :accessor adjustment-value
78 :accessor adjustment-step-increment
79 :initarg :step-increment
83 :accessor adjustment-page-increment
84 :initarg :page-increment
88 :accessor adjustment-page-size
91 (:metaclass object-class)
92 (:alien-name "GtkAdjustment"))
95 ; (define-class tooltips data
97 ; ;; slots not accessible through the arg mechanism
98 ; ((delay :type unsigned-int)))
101 ;; Forward declaration, the real definition is in gtkwidget.lisp
102 (defclass widget (object)
104 (:metaclass object-class)
105 (:alien-name "GtkWidget"))
108 (defclass misc (widget)
111 :accessor misc-xalign
116 :accessor misc-yalign
129 (:metaclass widget-class)
130 (:alien-name "GtkMisc"))
133 (defclass label (misc)
136 :accessor label-label
141 :accessor label-pattern
146 :accessor label-justify
151 :accessor label-line-wrap-p
154 (:metaclass widget-class)
155 (:alien-name "GtkLabel"))
158 (defclass accel-label (label)
161 :location "GtkAccelLabel::accel_widget"
162 :accessor accel-widget
167 :location "gtk_accel_label_get_accel_width"
170 (:metaclass widget-class)
171 (:alien-name "GtkAccelLabel"))
174 (defclass tips-query (label)
177 :accessor tips-query-emit-always-p
178 :initarg :emit-always
182 :accessor tips-query-caller
187 :accessor tips-query-label-inactive
188 :initarg :label-inactive
192 :accessor tips-query-label-no-tip
193 :initarg :label-no-tip
195 (:metaclass widget-class)
196 (:alien-name "GtkTipsQuery"))
199 (defclass arrow (misc)
202 :accessor arrow-arrow-type
207 :accessor arrow-shadow-type
208 :initarg :shadow-type
210 (:metaclass widget-class)
211 (:alien-name "GtkArrow"))
214 (defclass image (misc)
216 (:metaclass widget-class)
217 (:alien-name "GtkImage"))
220 (defclass pixmap (misc)
222 (:metaclass widget-class)
223 (:alien-name "GtkPixmap"))
226 ;; Forward declaration, the real definition is in gtkcontainer.lisp
227 (defclass container (widget)
229 (:metaclass widget-class)
230 (:alien-name "GtkContainer"))
232 (defclass container-child ()
241 (defclass bin (container)
247 (:metaclass container-class)
248 (:alien-name "GtkBin"))
250 (defclass bin-child (container-child))
253 (defclass alignment (bin)
256 :accessor alignment-xalign
261 :accessor alignment-yalign
266 :accessor alignment-xscale
271 :accessor alignment-yscale
274 (:metaclass container-class)
275 (:alien-name "GtkAlignment"))
277 (defclass alignment-child (bin-child))
280 (defclass frame (bin)
283 :accessor frame-label
288 :accessor frame-label-xalign
289 :initarg :label-xalign
293 :accessor frame-label-yalign
294 :initarg :label-yalign
298 :location "GtkFrame::shadow"
299 :accessor frame-shadow-type
300 :initarg :shadow-type
302 (:metaclass container-class)
303 (:alien-name "GtkFrame"))
305 (defclass frame-child (bin-child))
308 ; (defclass aspect-frame (frame)
311 ; :accessor aspect-frame-xalign
313 ; :type single-float)
316 ; :accessor aspect-frame-yalign
318 ; :type single-float)
321 ; :accessor aspect-frame-ratio
323 ; :type single-float)
326 ; :accessor aspect-frame-obey-child-p
327 ; :initarg :obey-child
329 ; (:metaclass container-class)
330 ; (:alien-name "GtkAspectFrame"))
332 ; (defclass aspect-frame-child (aspect-child))
335 (defclass button (bin)
338 :accessor button-label
343 :accessor button-relief
346 (:metaclass container-class)
347 (:alien-name "GtkButton"))
349 (defclass button-child (bin-child))
352 (defclass toggle-button (button)
355 :accessor toggle-button-active-p
360 :accessor toggle-button-draw-indicator-p
361 :initarg :draw-indicator
363 (:metaclass container-class)
364 (:alien-name "GtkToggleButton"))
366 (defclass toggle-button-child (button-child))
369 (defclass check-button (toggle-button)
371 (:metaclass container-class)
372 (:alien-name "GtkCheckButton"))
374 (defclass check-button-child (toggle-button-child))
377 (defclass radio-button (check-button)
381 ; :access :write-only
382 :type pointer)) ;radio-button-group))
383 (:metaclass container-class)
384 (:alien-name "GtkRadioButton"))
386 (defclass radio-button-child (check-button-child))
389 (defclass option-menu (button)
392 :location ("gtk_option_menu_get_menu" (setf option-menu-menu))
393 :reader option-menu-menu
398 :location (nil "gtk_option_menu_set_history")
399 :writer (setf option-menu-history)
402 (:metaclass container-class)
403 (:alien-name "GtkOptionMenu"))
405 (defclass option-menu-child (button-child))
410 (:metaclass container-class)
411 (:alien-name "GtkOptionMenu"))
413 (defclass item-child (bin-child))
416 (defclass menu-item (item)
419 ; ;; slots not accessible through the arg mechanism
420 ; ((label :write-only t :access-method :lisp :type string)
421 ; (submenu :write-method :lisp :type menu-item)
422 ; (placement :write-only t :type submenu-placement)
423 ; (toggle-indicator :c-reader "gtk_menu_item_get_show_toggle"
424 ; :write-method :lisp :type boolean)
425 ; (submenu-indicator :c-reader "gtk_menu_item_get_show_submenu"
426 ; :write-method :lisp :type boolean)))
427 (:metaclass container-class)
428 (:alien-name "GtkMenuItem"))
430 (defclass menu-item-child (item-child))
433 (defclass check-menu-item (menu-item)
436 ; ;; slots not accessible through the arg mechanism
437 ; ((active :type boolean)
438 ; (toggle-indicator :c-writer "gtk_check_menu_item_set_show_toggle"
439 ; :c-reader "gtk_check_menu_item_get_show_toggle"
441 (:metaclass container-class)
442 (:alien-name "GtkCheckMenuItem"))
444 (defclass check-menu-item-child (menu-item-child))
446 (defclass radio-menu-item (check-menu-item)
449 ; ;; slots not accessible through the arg mechanism
450 ; ((group :c-reader "gtk_radio_menu_item_group"
451 ; :type radio-menu-item-group)))
452 (:metaclass container-class)
453 (:alien-name "GtkRadioMenuItem"))
455 (defclass radio-menu-item-child (check-menu-item-child))
458 (defclass tearoff-menu-item (menu-item)
460 (:metaclass container-class)
461 (:alien-name "GtkTearoffMenuItem"))
463 (defclass tearoff-menu-item-child (menu-item-child))
465 (defclass list-item (item)
467 (:metaclass container-class)
468 (:alien-name "GtkListItem"))
470 (defclass list-item-child (item-child))
473 (defclass tree-item (item)
476 ; ;; slots not accessible through the arg mechanism
477 ; ((subtree :write-method :lisp :type tree-item)))
478 (:metaclass container-class)
479 (:alien-name "GtkTreeItem"))
481 (defclass tree-item-child (item-child))
484 (defclass window (bin)
487 :accessor window-type
492 :accessor window-title
497 :accessor window-auto-shrink-p
498 :initarg :auto-shrink
502 :accessor window-allow-shrink-p
503 :initarg :allow-shrink
507 :accessor window-allow-grow-p
512 :accessor window-modal-p
517 :location "GtkWindow::window_position"
518 :accessor window-position
520 :type window-position)
523 :accessor window-default-width
524 :initarg :default-width
528 :accessor window-default-height
529 :initarg :default-height
531 (:metaclass container-class)
532 (:alien-name "GtkWindow"))
534 (defclass window-child (bin-child))
537 ; (defclass color-selection-dialog window
539 ; ;; slots not accessible through the arg mechanism
540 ; ((colorsel :read-only t :type widget)
541 ; (main-vbox :read-only t :type widget)
542 ; (ok-button :read-only t :type widget)
543 ; (reset-button :read-only t :type widget)
544 ; (cancel-button :read-only t :type widget)
545 ; (help-button :read-only t :type widget)))
547 ; (defclass dialog window
549 ; ;; slots not accessible through the arg mechanism
550 ; ((action-area :read-only t :type widget)
551 ; (vbox :read-only t :type widget)))
553 ; (defclass input-dialog dialog)
555 ; (defclass file-selection window
557 ; ;; slots not accessible through the arg mechanism
558 ; ((filename :type string)
559 ; (action-area :read-only t :type widget)
560 ; (ok-button :read-only t :type widget)
561 ; (cancel-button :read-only t :type widget)))
563 ; (defclass plug window)
565 ; (defclass event-box bin)
567 ; (defclass handle-box bin
569 ; ((shadow-type :read-method :arg :arg-name "shadow"
571 ; (handle-position :read-method :arg :type position-type)
572 ; (snap-edge :read-method :arg :type position-type)))
574 (defclass scrolled-window (bin)
577 :accessor scrolled-window-hadjustment
578 :initarg :hadjustment
582 :accessor scrolled-window-vadjustment
583 :initarg :vadjustment
587 :accessor scrolled-window-hscrollbar-policy
588 :initarg :hscrollbar-policy
592 :accessor scrolled-window-vscrollbar-policy
593 :initarg :vscrollbar-policy
597 :location "GtkScrolledWindow::window_placement"
598 :accessor scrolled-window-placement
603 :location "GtkScrolledWindow::shadow"
604 :accessor scrolled-window-shadow-type
605 :initarg :shadow-type
609 :location "gtk_scrolled_window_get_hscrollbar"
610 :accessor scrolled-window-hscrollbar
614 :location "gtk_scrolled_window_get_vscrollbar"
615 :accessor scrolled-window-vscrollbar
617 (:metaclass container-class)
618 (:alien-name "GtkScrolledWindow"))
620 (defclass scrolled-window-child (bin-child))
624 ; (defclass viewport bin
626 ; ((hadjustment :read-method :arg :type adjustment)
627 ; (vadjustment :read-method :arg :type adjustment)
628 ; (shadow-type :read-method :arg :type shadow-type)))
630 (defclass box (container)
633 :accessor box-spacing
638 :accessor box-homogeneous-p
639 :initarg :homogeneous
641 (:metaclass container-class)
642 (:alien-name "GtkBox"))
644 (defclass box-child (container-child)
647 :accessor box-child-expand-p
652 :accessor box-child-fill-p
657 :accessor box-child-padding
662 :accessor box-child-pack-type
667 :accessor box-child-position
670 (:metaclass child-class))
673 (defclass button-box (box)
676 :location ("gtk_button_box_get_spacing" "gtk_button_box_set_spacing")
677 :accessor button-box-spacing
681 :location ("gtk_button_box_get_layout" "gtk_button_box_set_layout")
682 :accessor button-box-layout
683 :type button-box-style))
684 (:metaclass container-class)
685 (:alien-name "GtkButtonBox"))
687 (defclass button-box-child (box-child)
689 (:metaclass child-class))
691 (defclass hbutton-box (button-box)
693 (:metaclass container-class)
694 (:alien-name "GtkHButtonBox"))
696 (defclass hbutton-box-child (button-box-child)
698 (:metaclass child-class))
700 (defclass vbutton-box-child (button-box-child)
702 (:metaclass child-class))
706 (:metaclass container-class)
707 (:alien-name "GtkVBox"))
709 (defclass vbox-child (box-child)
711 (:metaclass child-class))
715 ; (defclass color-selection vbox
717 ; ((policy :c-writer "gtk_color_selection_set_update_policy"
718 ; :read-method :arg :type update-type)
719 ; (use-opacity :c-writer "gtk_color_selection_set_opacity"
720 ; :read-method :arg :type boolean)
721 ; ;; slots not accessible through the arg mechanism
722 ; (color :access-method :lisp)))
724 ; (defclass gamma-curve vbox)
728 (:metaclass container-class)
729 (:alien-name "GtkHBox"))
731 (defclass hbox-child (box-child)
733 (:metaclass child-class))
737 ; (defclass statusbar hbox)
739 ; (defclass clist container
741 ; :c-prefix "gtk_clist_"
743 ; ((n-columns :read-only t :initarg t :access-method :arg
744 ; :type unsigned-int)
745 ; (shadow-type :read-method :arg :type shadow-type)
746 ; (selection-mode :read-method :arg :type selection-mode)
747 ; (row-height :read-method :arg :type unsigned-int)
748 ; (reorderable :read-method :arg :type boolean)
749 ; (titles-visible :write-method :lisp :type boolean)
750 ; (titles-active :access-method :arg :type boolean)
751 ; (use-drag-icons :read-method :arg :type boolean)
752 ; (sort-type :read-method :arg :type sort-type)
753 ; ;; slots not accessible through the arg mechanism
754 ; (hadjustment :type adjustment)
755 ; (vadjustment :type adjustment)
756 ; (sort-column :type int)
757 ; (focus-row :reader %clist-focus-row :read-only t :type int)
758 ; (n-rows :read-only t :type int)))
760 ; (defclass ctree clist
762 ; :c-prefix "gtk_ctree_"
764 ; ((n-columns :read-only t :initarg t :access-method :arg
765 ; :type unsigned-int)
766 ; (tree-column :read-only t :initarg t :access-method :arg
767 ; :type unsigned-int)
768 ; (indent :read-method :arg :type unsigned-int)
769 ; (spacing :read-method :arg :type unsigned-int)
770 ; (show-stub :read-method :arg :type boolean)
771 ; (line-style :read-method :arg :type ctree-line-style)
772 ; (expander-style :read-method :arg :type ctree-expander-style)))
774 ; (defclass fixed container)
776 ; (defclass notebook container
778 ; ((show-tabs :read-method :arg :type boolean)
779 ; (show-border :read-method :arg :type boolean)
780 ; (scrollable :read-method :arg :type boolean)
781 ; (enable-popup :access-method :arg :type boolean)
782 ; (homogeneous :c-writer "gtk_notebook_set_homogeneous_tabs"
783 ; :read-method :arg :type boolean)
784 ; (current-page :c-writer "gtk_notebook_set_page" :type int)
785 ; (tab-pos :read-method :arg :type position-type)
786 ; (tab-border :read-method :arg :type unsigned-int)
787 ; (tab-hborder :read-method :arg :type unsigned-int)
788 ; (tab-vborder :read-method :arg :type unsigned-int))
790 ; ((tab-label :access-method :arg :type string)
791 ; (menu-label :access-method :arg :type string)
792 ; (tab-fill :access-method :arg :type boolean)
793 ; (tab-pack :access-method :arg :type boolean)
794 ; (position :access-method :arg :type int)))
796 ; (defclass font-selection notebook)
798 ; (defclass paned container
801 ; ((handle-size :read-method :arg :type unsigned-int)
802 ; (gutter-size :read-method :arg :type unsigned-int)
803 ; ;; slots not accessible through the arg mechanism
804 ; (position :write-only t :type int)))
806 ; (defclass hpaned paned)
808 ; (defclass vpaned paned)
810 ; (defclass layout container
812 ; ;; slots not accessible through the arg mechanism
813 ; ((hadjustment :type adjustment)
814 ; (vadjustment :type adjustment)
815 ; (bin-window :read-only t :type gdk:window)))
817 ; (defclass list-widget container
820 ; ((selection-mode :read-method :arg :accessor list-selection-mode
821 ; :c-writer "gtk_list_set_selection_mode"
822 ; :type selection-mode)))
824 ; (defclass menu-shell container :constructor nil)
826 ; (defclass menu-bar menu-shell
828 ; ((shadow-type :read-method :arg :arg-name "shadow"
829 ; :type shadow-type)))
831 ; (defclass menu menu-shell
833 ; ;; slots not accessible through the arg mechanism
834 ; ((accel-group :type accel-group)
835 ; (tearoff-state :write-only t :type boolean)
836 ; (title :write-only t :type string)))
838 ; (defclass packer container
840 ; ((spacing :read-method :arg :type unsigned-int)
841 ; (default-border-width :read-method :arg :type unsigned-int)
842 ; (default-pad-x :access-method :arg :type unsigned-int)
843 ; (default-pad-y :access-method :arg :type unsigned-int)
844 ; (default-ipad-x :access-method :arg :type unsigned-int)
845 ; (default-ipad-y :access-method :arg :type unsigned-int))
847 ; ((side :access-method :arg :type side-type)
848 ; (anchor :access-method :arg :type anchor-type)
849 ; (expand :access-method :arg :type boolean)
850 ; (fill-x :access-method :arg :type boolean)
851 ; (fill-y :access-method :arg :type boolean)
852 ; (use-default :access-method :arg :type boolean)
853 ; (border-width :access-method :arg :type unsigned-int)
854 ; (pad-x :access-method :arg :type unsigned-int)
855 ; (pad-y :access-method :arg :type unsigned-int)
856 ; (ipad-x :access-method :arg :type unsigned-int)
857 ; (ipad-y :access-method :arg :type unsigned-int)
858 ; (position :access-method :arg :type long)))
860 ; (defclass socket container)
862 ; (defclass table container
864 ; ((rows :access-method :arg :arg-name "n_rows"
865 ; :type unsigned-int)
866 ; (columns :access-method :arg :arg-name "n_columns"
867 ; :type unsigned-int)
868 ; (row-spacing :c-writer "gtk_table_set_row_spacings"
869 ; :accessor table-row-spacings
870 ; :read-method :arg :type unsigned-int)
871 ; (column-spacing :c-writer "gtk_table_set_col_spacings"
872 ; :accessor table-column-spacings
873 ; :read-method :arg :type unsigned-int)
874 ; (homogeneous :read-method :arg :type boolean))
876 ; ((left-attach :access-method :arg :type unsigned-int)
877 ; (right-attach :access-method :arg :type unsigned-int)
878 ; (top-attach :access-method :arg :type unsigned-int)
879 ; (bottom-attach :access-method :arg :type unsigned-int)
880 ; (x-options :access-method :arg :type attach-options)
881 ; (y-options :access-method :arg :type attach-options)
882 ; (x-padding :access-method :arg :type unsigned-int)
883 ; (y-padding :access-method :arg :type unsigned-int)
884 ; ;; Slots added for convenience sake
885 ; (x-expand :access-method :lisp :type boolean)
886 ; (y-expand :access-method :lisp :type boolean)
887 ; (x-shrink :access-method :lisp :type boolean)
888 ; (y-shrink :access-method :lisp :type boolean)
889 ; (x-fill :access-method :lisp :type boolean)
890 ; (y-fill :access-method :lisp :type boolean)))
892 ; (defclass toolbar container
894 ; ((orientation :read-method :arg :type orientation)
895 ; (toolbar-style :accessor toolbar-style
896 ; :c-writer "gtk_toolbar_set_style"
897 ; :read-method :arg :type toolbar-style)
898 ; (space-size :read-method :arg :type unsigned-int)
899 ; (space-style :read-method :arg :type toolbar-space-style)
900 ; (relief :c-writer "gtk_toolbar_set_button_relief"
901 ; :read-method :arg :type relief-style)
902 ; ;; slots not accessible through the arg mechanism
903 ; (tooltips :write-only t :type boolean)))
905 (defclass tree (container)
908 ; ;; slots not accessible through the arg mechanism
909 ; ((selection-mode :type selection-mode)
910 ; (view-mode :type tree-view-mode)
911 ; (view-lines :type boolean)
912 ; (root-tree :read-only t :type tree)))
913 (:metaclass container-class)
914 (:alien-name "GtkTree"))
917 (defclass calendar (widget)
919 (:metaclass widget-class)
920 (:alien-name "GtkCalendar"))
923 ; (defclass drawing-area widget)
925 ; (defclass curve drawing-area
927 ; ((curve-type :read-method :arg :type curve-type)
928 ; (min-x :access-method :arg :type single-float)
929 ; (max-x :access-method :arg :type single-float)
930 ; (min-y :access-method :arg :type single-float)
931 ; (max-y :access-method :arg :type single-float)))
933 ; (defclass editable widget
935 ; ((position :type int)
936 ; (editable :read-method :arg :type boolean)
937 ; ;; slots not accessible through the arg mechanism
938 ; (text :access-method :lisp :type string)))
940 ; (defclass entry editable
942 ; ((max-length :read-method :arg :type unsigned-int)
943 ; (visibility :read-method :arg :accessor entry-visible-p
945 ; ;; slots not accessible through the arg mechanism
946 ; (text :type string)))
948 ; (defclass combo hbox
950 ; ;; slots not accessible through the arg mechanism
951 ; ((entry :read-only t :type entry)
952 ; (use-arrows :type boolean)
953 ; (use-arrows-always :type boolean)
954 ; (case-sensitive :type boolean)))
956 ; (defclass spin-button entry
958 ; ((adjustment :access-method :arg :type adjustment)
959 ; (climb-rate :access-method :arg :type single-float)
960 ; (digits :access-method :arg :type unsigned-int)
961 ; (snap-to-ticks :read-method :arg :type boolean)
962 ; (numeric :read-method :arg :type boolean)
963 ; (wrap :read-method :arg :type boolean)
964 ; (update-policy :read-method :arg :type spin-button-update-policy)
965 ; (shadow-type :read-method :arg :type shadow-type)
966 ; (value :read-method :arg :type single-float)))
968 ; (defclass text editable
970 ; ((hadjustment :access-method :arg :type adjustment)
971 ; (vadjustment :access-method :arg :type adjustment)
972 ; (line-wrap :read-method :arg :type boolean)
973 ; (word-wrap :read-method :arg :type boolean)
974 ; ;; slots not accessible through the arg mechanism
975 ; (point :type unsigned-int)
976 ; (length :read-only t :type unsigned-int)))
978 ; (defclass ruler widget
981 ; ((lower :access-method :arg :type single-float)
982 ; (upper :access-method :arg :type single-float)
983 ; (position :access-method :arg :type single-float)
984 ; (max-size :access-method :arg :type single-float)
985 ; ;; slots not accessible through the arg mechanism
986 ; (:metric :write-only t :type metric-type)))
988 ; (defclass hruler ruler)
990 ; (defclass vruler ruler)
992 ; (defclass range widget
994 ; ((update-policy :read-method :arg :type update-type)
995 ; ;; slots not accessible through the arg mechanism
996 ; (adjustment :type adjustment)))
998 ; (defclass scale range
1001 ; ((digits :read-method :arg :type unsigned-int)
1002 ; (draw-value :read-method :arg :type boolean)
1003 ; (value-pos :read-method :arg :type position-type)
1004 ; ;; slots not accessible through the arg mechanism
1005 ; (value-width :read-only t :type int)))
1007 ; (defclass hscale scale)
1009 ; (defclass vscale scale)
1011 ; (defclass scrollbar range :constructor nil)
1013 ; (defclass hscrollbar scrollbar)
1015 ; (defclass vscrollbar scrollbar)
1017 (defclass separator (widget)
1019 (:metaclass widget-class)
1020 (:alien-name "GtkSeparator"))
1023 (defclass hseparator (separator)
1025 (:metaclass widget-class)
1026 (:alien-name "GtkHSeparator"))
1029 (defclass vseparator (separator)
1031 (:metaclass widget-class)
1032 (:alien-name "GtkVSeparator"))
1035 ; (defclass preview widget
1037 ; ((expand :read-method :arg :type boolean)))
1039 ; (defclass progress widget
1041 ; ((activity-mode :read-method :arg :type boolean)
1042 ; (show-text :read-method :arg :type boolean)
1043 ; (text-xalign :access-method :arg :type single-float)
1044 ; (text-yalign :access-method :arg :type single-float)
1045 ; ;; slots not accessible through the arg mechanism
1046 ; (format-string :type string)
1047 ; (adjustment :type adjustment)
1048 ; (percentage :c-reader "gtk_progress_get_current_percentage"
1049 ; :type single-float)
1050 ; (value :type single-float)
1051 ; (text :c-reader "gtk_progress_get_current_text"
1052 ; :read-only t :type string)))
1054 ; (defclass progress-bar progress
1056 ; ((adjustment :c-writer "gtk_progress_set_adjustment"
1057 ; :read-method :arg :type adjustment)
1058 ; (orientation :read-method :arg :type progress-bar-orientation)
1059 ; (bar-style :read-method :arg :accessor progress-bar-style
1060 ; :type progress-bar-style)
1061 ; (activity-step :read-method :arg :type unsigned-int)
1062 ; (activity-blocks :read-method :arg :type unsigned-int)
1063 ; (discrete-blocks :read-method :arg :type unsigned-int)))
1065 ; (defclass item-factory object)