X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/3f73963b2314272739864b199463168e7d272526..13955a62d70249e4995ec05a1eb6844849756460:/gtk/gtktypes.lisp diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp index 6492c28..6e2c5da 100644 --- a/gtk/gtktypes.lisp +++ b/gtk/gtktypes.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gtktypes.lisp,v 1.14 2002-03-24 21:54:33 espen Exp $ +;; $Id: gtktypes.lisp,v 1.21 2004-12-04 18:18:21 espen Exp $ (in-package "GTK") @@ -31,8 +31,8 @@ :accessor requisition-height :initarg :height :type int)) - (:metaclass boxed-class) - (:alien-name "GtkTypeRequisition")) + (:metaclass boxed-class)) + (defclass allocation (struct) ((x @@ -55,7 +55,7 @@ :accessor allocation-height :initarg :height :type int)) - (:metaclass proxy-class)) + (:metaclass struct-class)) (defclass border (boxed) ((left @@ -78,48 +78,61 @@ :accessor border-bottom :initarg :bottom :type int)) - (:metaclass boxed-class) - (:alien-name "GtkTypeBorder")) + (:metaclass boxed-class)) -(defclass adjustment (%object) - ((lower - :allocation :alien - :accessor adjustment-lower - :initarg :lower - :type single-float) - (upper +(defclass stock-item (struct) + ((id :allocation :alien - :accessor adjustment-upper - :initarg :upper - :type single-float) - (%value ; to get the offset right + :accessor stock-item-id + :initarg :id + :type string) + (label :allocation :alien - :type single-float) - (step-increment + :accessor stock-item-label + :initarg :label + :type string) + (modifier :allocation :alien - :accessor adjustment-step-increment - :initarg :step-increment - :type single-float) - (page-increment + :accessor stock-item-modifier + :initarg :modifier + :type gdk:modifier-type) + (keyval :allocation :alien - :accessor adjustment-page-increment - :initarg :page-increment - :type single-float) - (page-size + :accessor stock-item-keyval + :initarg :keyval + :type int) + (translation-domain :allocation :alien - :accessor adjustment-page-size - :initarg :page-size - :type single-float) - (value - :allocation :virtual - :getter "gtk_adjustment_get_value" - :setter "gtk_adjustment_set_value" - :accessor adjustment-value - :initarg :value - :type single-float)) - (:metaclass gobject-class) - (:alien-name "GtkAdjustment")) + :accessor stock-item-translation-domain + :initarg :translation-domain + :type string)) + (:metaclass struct-class)) + +;; We don't really need to access any of these slots, but we need to +;; specify the size of the struct somehow +(defclass tree-iter (boxed) + ((stamp :allocation :alien :type int) + (user-data :allocation :alien :type pointer) + (user-data2 :allocation :alien :type pointer) + (user-data3 :allocation :alien :type pointer)) + (:metaclass boxed-class)) + + +;; (defclass tree-path (boxed) +;; ((depth :allocation :alien :type int) +;; (indices :allocation :alien :type pointer)) +;; (:metaclass boxed-class)) + +(deftype tree-path () '(vector integer)) +(register-type 'tree-path "GtkTreePath") + +(defclass text-iter (boxed) + ((dummy14 + :allocation :alien :offset #.(* 13 (size-of 'pointer)) + :type pointer)) + (:metaclass boxed-class)) + (define-types-by-introspection "Gtk" @@ -127,16 +140,16 @@ ("GtkObject" :ignore t) ("GtkRequisition" :ignore t) ("GtkBorder" :ignore t) - ("GtkAdjustment" :ignore t) + ("GtkTreeIter" :ignore t) + ("GtkTreePath" :ignore t) - ;; Manual override ("GtkWidget" :slots ((child-slots - :allocation :instance - :accessor widget-child-slots - :type container-child) + :allocation :instance + :accessor widget-child-slots + :type container-child) (parent-window :allocation :virtual :getter "gtk_widget_get_parent_window" @@ -306,10 +319,7 @@ :setter "gtk_window_set_transient_for" :accessor window-transient-for :initarg :transient-for - :type window) - - - )) + :type window))) ("GtkTooltips" :slots @@ -329,7 +339,7 @@ :setter (setf option-menu-menu) :reader option-menu-menu :initarg :menu - :type widget) + :type menu) (history :allocation :virtual :getter "gtk_option_menu_get_history" @@ -342,30 +352,24 @@ :slots ((label :allocation :virtual - :setter menu-item-label + :getter menu-item-label + :setter (setf menu-item-label) :initarg :label :type string) + (right-justified + :allocation :virtual + :getter "gtk_menu_item_get_right_justified" + :setter "gtk_menu_item_set_right_justified" + :accessor menu-item-right-justified-p + :initarg :right-justified + :type boolean) (submenu :allocation :virtual :getter "gtk_menu_item_get_submenu" :setter (setf menu-item-submenu) :reader menu-item-submenu :initarg :submenu - :type menu-item) - (placement - :allocation :virtual - :getter "gtk_menu_item_get_placement" - :setter "_gtk_menu_item_set_placement" ; why underscore? - :accessor menu-item-placement - :initarg :placement - :type submenu-placement) - (submenu-indicator - :allocation :virtual - :getter "gtk_menu_item_get_show_submenu" - :setter "gtk_menu_item_set_show_submenu" - :accessor menu-item-submenu-indicator-p - :initarg :submenu-indicator - :type boolean))) + :type menu-item))) ("GtkColorSelectionDialog" :slots @@ -398,7 +402,7 @@ :type widget))) ("GtkPaned" - :slot + :slots ((child1 :allocation :virtual :getter paned-child1 @@ -421,6 +425,13 @@ :accessor menu-accel-group :initarg :accel-group :type accel-group) + (title + :allocation :virtual + :getter "gtk_menu_get_title" + :setter "gtk_menu_set_title" + :accessor menu-title + :initarg :title + :type string) (active :allocation :virtual :getter "gtk_menu_get_active" @@ -451,8 +462,23 @@ :setter "gtk_toolbar_set_icon_size" :accessor toolbar-icon-size :initarg :icon-size - :type icon-size))) + :type icon-size) + (toolbar-style + :allocation :property + :pname "toolbar-style" + :initarg :toolbar-style + :accessor toolbar-style + :type toolbar-style))) + ("GtkNotebook" + :slots + ((current-page + :allocation :virtual + :getter notebook-current-page + :setter (setf notebook-current-page) + :initarg :current-page) + (page :ignore t))) + ("GtkRuler" :slots ((metric @@ -489,10 +515,10 @@ ("GtkDialog" :slots - ((main-area + ((vbox :allocation :virtual :getter "gtk_dialog_get_vbox" - :reader dialog-main-area + :reader dialog-vbox :type widget) (action-area :allocation :virtual @@ -507,14 +533,14 @@ :getter "gtk_combo_get_entry" :reader combo-entry :type entry))) - + ("GtkRadioButton" :slots ((group :allocation :virtual :getter "gtk_radio_button_get_group" :reader radio-button-group - :type (static (gslist widget))))) + :type (copy-of (gslist widget))))) ("GtkRadioMenuItem" :slots @@ -545,9 +571,214 @@ ("GtkLayout" :slots ((bin-window + :allocation :virtual :getter "gtk_layout_get_bin_window" :reader layout-bin-window :type gdk:window))) + + ("GtkFixed" + :slots + ((has-window + :allocation :virtual + :getter "gtk_fixed_get_has_window" + :setter "gtk_fixed_set_has_window" + :reader fixed-has-window-p + :initarg :has-window + :type boolean))) + + ("GtkRange" + :slots + ((value + :allocation :virtual + :getter "gtk_range_get_value" + :setter "gtk_range_set_value" + :initarg :value + :accessor range-value + :type double-float) + (upper + :allocation :virtual + :getter range-upper + :setter (setf range-upper) + :initarg :upper) + (lower + :allocation :virtual + :getter range-lower + :setter (setf range-lower) + :initarg :lower) + (step-increment + :allocation :virtual + :getter range-step-increment + :setter (setf range-step-increment) + :initarg :step-increment) + (page-increment + :allocation :virtual + :getter range-page-increment + :setter (setf range-page-increment) + :initarg :page-increment))) + + ("GtkImage" + :slots + ((file :ignore t))) + + ("GtkEditable" + :slots + ((editable + :allocation :virtual + :getter "gtk_editable_get_editable" + :setter "gtk_editable_set_editable" + :reader editable-editable-p + :initarg :editable + :type boolean) + (position + :allocation :virtual + :getter "gtk_editable_get_position" + :setter "gtk_editable_set_position" + :reader editable-position + :initarg :position + :type int) + (text + :allocation :virtual + :getter editable-text + :setter (setf editable-text) + :initarg text))) + + ("GtkFileChooser" + :slots + ((filename + :allocation :virtual + :getter "gtk_file_chooser_get_filename" + :setter "gtk_file_chooser_set_filename" + :accessor file-chooser-filename + :initarg :filename + :type string) + (current-name + :allocation :virtual + :setter "gtk_file_chooser_set_current_name" + :accessor file-choser-current-name + :initarg :current-name + :type string) + (current-folder + :allocation :virtual + :setter "gtk_file_chooser_set_current_folder" + :setter "gtk_file_chooser_get_current_folder" + :accessor file-choser-current-folder + :initarg :current-folder + :type string) + (uri + :allocation :virtual + :getter "gtk_file_chooser_get_uri" + :setter "gtk_file_chooser_set_uri" + :accessor file-choser-uri + :initarg :uri + :type string) + (current-folder-uri + :allocation :virtual + :setter "gtk_file_chooser_set_current_folder_uri" + :setter "gtk_file_chooser_get_current_folder_uri" + :accessor file-choser-current-folder-uri + :initarg :current-folder-uri + :type string))) + + ("GtkTreeView" + :slots + ((columns + :allocation :virtual + :getter "gtk_tree_view_get_columns" + :reader tree-view-columns + :type (glist tree-view-column)) + (selection + :allocation :virtual + :getter "gtk_tree_view_get_selection" + :reader tree-view-selection + :type tree-selection))) + + ("GtkTreeModel" + :slots + ((n-columns + :allocation :virtual + :getter "gtk_tree_model_get_n_columns" + :reader tree-model-n-columns + :type int))) + + ("GtkTreeSelection" + :slots + ((mode + :allocation :virtual + :getter "gtk_tree_selection_get_mode" + :setter "gtk_tree_selection_set_mode" + :accessor tree-selection-mode + :initarg :mode + :type selection-mode) + (tree-view + :allocation :virtual + :getter "gtk_tree_selection_get_mode" + :reader tree-selection-mode + :type tree-view))) + + ("GtkComboBox" + :slots + ((active-iter + :allocation :virtual + :getter "gtk_combo_box_get_active_iter" + :setter "gtk_combo_box_set_active_iter" + :accessor combo-box-active-iter + :type tree-iter))) + + ("GtkTextView" + :slots + ((default-attributes + :allocation :virtual + :getter "gtk_text_view_get_default_attributes" + :reader text-view-default-attributes + :type text-attributes))) + + ("GtkUIManager" + :type ui-manager + :slots + ((action-groups + :allocation :virtual + :getter "gtk_ui_manager_get_action_groups" + :reader ui-manager-action-groups + :type (copy-of (glist action-group))) + (accel-group + :allocation :virtual + :getter "gtk_ui_manager_get_accel_group" + :reader ui-manager-accel-group + :type accel-group))) + + ("GtkUIManagerItemType" + :type ui-manager-item-type) + + ("GtkToggle" + :slots + ((accelerator + :allocation :virtual + :getter action-accelerator))) + + ("GtkToggleAction" + :slots + ((active + :allocation :virtual + :getter "gtk_toggle_action_get_active" + :setter "gtk_toggle_action_set_active" + :initarg :active + :accessor toggle-action-active-p + :type boolean))) + + ("GtkRadioAction" + :slots + ((group + :allocation :virtual + :getter "gtk_radio_button_get_group" + :reader radio-button-group + :type (copy-of (gslist widget))) + (%value + :allocation :property :pname "value" + :readable nil :type int) + (value + :allocation :virtual + :getter radio-action-value))) + ;; Not needed ("GtkFundamentalType" :ignore t) @@ -557,12 +788,24 @@ ;; Deprecated widgets ("GtkCList" :ignore-prefix t) ("GtkCTree" :ignore-prefix t) - ("GtkList" :ignore-prefix t) + ("GtkList" :ignore t) + ("GtkListItem" :ignore t) ("GtkTree" :ignore t) ("GtkTreeItem" :ignore t) - ("GtkText" :ignore-prefix t :except ("GtkTextDirection")) + ("GtkItemFactory" :ignore t) + ("GtkText" :ignore t) ("GtkPacker" :ignore-prefix t) ("GtkPixmap" :ignore t) ("GtkPreview" :ignore-prefix t) + ("GtkProgres" :ignore t) ("GtkTipsQuery" :ignore t) - ("GtkOldEditable" :ignore t)) + ("GtkOldEditable" :ignore t) + ("GtkCombo" :ignore t) + ("GtkOptionMenu" :ignore t) + + ;; What are these? + ("GtkFileSystemModule" :ignore t) + ("GtkIMModule" :ignore t) + ("GtkThemeEngine" :ignore t) + + )