X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/0c9b793214eb0e2acf0aad3cc1f83425ca24d748..fb90f18da4486940bb81ce7376ffe1767a7ed207:/gtk/gtktypes.lisp diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp index 1927a52..3572b35 100644 --- a/gtk/gtktypes.lisp +++ b/gtk/gtktypes.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtktypes.lisp,v 1.49 2006-08-14 13:57:37 espen Exp $ +;; $Id: gtktypes.lisp,v 1.63 2008-04-11 18:40:23 espen Exp $ (in-package "GTK") @@ -41,13 +41,13 @@ (defclass requisition (boxed) (defclass allocation (struct) ((x :allocation :alien - :accessor allocation-width + :accessor allocation-x :initarg :x :type int) (y :allocation :alien - :accessor allocation-width - :initarg :width + :accessor allocation-y + :initarg :y :type int) (width :allocation :alien @@ -223,7 +223,15 @@ (define-types-by-introspection "Gtk" (width-request :merge t :unbound -1) (height-request - :merge t :unbound -1))) + :merge t :unbound -1) + #?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.12.0") + (tooltip-window + :allocation :virtual + :getter "gtk_widget_get_tooltip_window" + :setter "gtk_widget_set_tooltip_window" + :accessor widget-tooltip-window + :initarg :tooltip-window + :type window))) ("GtkContainer" :slots @@ -321,6 +329,7 @@ (default-widget :accessor window-mnemonic-modifier :initarg :mnemonic-modifier :type gdk:modifier-type) + #?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0") (transient-for :allocation :virtual :getter "gtk_window_get_transient_for" @@ -375,6 +384,7 @@ (default-height :merge t :unbound -1))) :accessor menu-item-right-justified-p :initarg :right-justified :type boolean) + #?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.12.0") (submenu :allocation :virtual :getter "gtk_menu_item_get_submenu" @@ -508,8 +518,8 @@ (default-height :merge t :unbound -1))) ("GtkToolbar" :slots - ((show-tooltips - :allocation :virtual + ((show-tooltips ;; this slot is equivalent to the property + :allocation :virtual ;; "tooltips" in Gtk+ 2.8 :getter "gtk_toolbar_get_tooltips" :setter "gtk_toolbar_set_tooltips" :accessor toolbar-show-tooltips-p @@ -520,7 +530,7 @@ (default-height :merge t :unbound -1))) :getter "gtk_toolbar_get_tooltips_object" :reader toolbar-tooltips :type tooltips) - (toolbar-style + (toolbar-style ; defined manually to get the accesssor name correct :allocation :property :pname "toolbar-style" :initarg :toolbar-style @@ -630,15 +640,11 @@ (default-height :merge t :unbound -1))) ("GtkTable" :slots ((column-spacing - :allocation :virtual - :getter "gtk_table_get_default_col_spacing" - :setter "gtk_table_set_col_spacings" + :allocation :property :pname "column-spacing" :initarg :column-spacing :type unsigned-int) (row-spacing - :allocation :virtual - :getter "gtk_table_get_default_row_spacing" - :setter "gtk_table_set_row_spacings" + :allocation :property :pname "row-spacing" :initarg :row-spacing :type unsigned-int))) @@ -670,8 +676,23 @@ (default-height :merge t :unbound -1))) :accessor entry-completion :type entry-completion) (max-length :merge t :unbound 0) + (alignment + :allocation :virtual + :getter "gtk_entry_get_alignment" + :setter "gtk_entry_set_alignment" + :initarg :alignment + :accessor entry-alignment + :type single-float) #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0") - (width-chars :merge t :unbound -1))) + (width-chars :merge t :unbound -1) + #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.12.0") + (cursor-adjustment + :allocation :virtual + :getter "gtk_entry_get_cursor_hadjustment" + :setter "gtk_entry_set_cursor_hadjustment" + :initarg :cursor-hadjustment + :accessor entry-cursor-hadjustment + :type adjustment))) ("GtkEntryCompletion" :slots @@ -681,8 +702,16 @@ (default-height :merge t :unbound -1))) :reader entry-completion-entry :type entry) (minimum-key-length :merge t :unbound -1) + ;; Need to be manually defined, as this value through the property + ;; mechanism doesn't work #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0") - (text-column :merge t :unbound -1))) + (text-column + :allocation :virtual + :getter "gtk_entry_completion_get_text_column" + :setter "gtk_entry_completion_set_text_column" + :unbound -1 + :accessor entry-completion-text-column + :type int))) ("GtkRadioButton" :slots @@ -855,7 +884,7 @@ (default-height :merge t :unbound -1))) :allocation :virtual :getter "gtk_tree_view_get_columns" :reader tree-view-columns - :type (glist tree-view-column)) + :type (glist (copy-of tree-view-column))) (selection :allocation :virtual :getter "gtk_tree_view_get_selection" @@ -870,6 +899,10 @@ (default-height :merge t :unbound -1))) :reader tree-model-n-columns :type int))) + ("GtkTreeModelFilter" + :slots + ((virtual-root :merge t :type tree-path))) + ("GtkTreeSelection" :slots ((mode @@ -881,8 +914,8 @@ (default-height :merge t :unbound -1))) :type selection-mode) (tree-view :allocation :virtual - :getter "gtk_tree_selection_get_mode" - :reader tree-selection-mode + :getter "gtk_tree_selection_get_tree_view" + :reader tree-selection-tree-view :type tree-view))) ("GtkComboBox" @@ -951,7 +984,7 @@ (default-height :merge t :unbound -1))) :allocation :virtual :getter "gtk_text_mark_get_name" :reader text-mark-name - :type string) + :type (copy-of string)) (visible :allocation :virtual :getter "gtk_text_mark_get_visible" @@ -992,13 +1025,14 @@ (default-height :merge t :unbound -1))) :allocation :user-data :initarg :accelerator :reader action-accelerator))) + #?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0") ("GtkToggleAction" :slots ((active :allocation :virtual :getter "gtk_toggle_action_get_active" :setter "gtk_toggle_action_set_active" -; :initarg :active +; :initarg :active ;; Handled by initialize-instance :accessor toggle-action-active-p :type boolean))) @@ -1013,23 +1047,27 @@ (default-height :merge t :unbound -1))) :allocation :property :pname "value" :type int :documentation "A hack so we can use the alien function gtk_radio_action_get_current_value to retrieve the active radio action in a group.") (value - :allocation :user-data :initarg :value :accessor radio-action-value))) + :allocation :user-data :initarg :value :accessor radio-action-value) + #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0") + ;; Use radio-action-get-current-value to get the current value of + ;; a radio action group + (current-value :ignore t))) ("GtkColorSelection" :slots ((previous-alpha :allocation :virtual :getter "gtk_color_selection_get_previous_alpha" - :setter "gtk_color_selection_get_previous_alpha" + :setter "gtk_color_selection_set_previous_alpha" :initarg :previous-alpha :accessor color-selection-previous-alpha :type (unsigned 16)) (previous-color :allocation :virtual - :getter "gtk_color_selection_get_previous_color" - :setter "gtk_color_selection_get_previous_color" + :getter color-selection-previous-color + :setter "gtk_color_selection_set_previous_color" :initarg :previous-color - :accessor color-selection-previous-color + :writer (setf color-selection-previous-color) :type gdk:color))) ("GtkFontSelection" @@ -1058,7 +1096,7 @@ (default-height :merge t :unbound -1))) (markup-column :allocation :virtual :getter %icon-view-get-markup-column - :setter %icon-view-set-tmarkup-column + :setter %icon-view-set-markup-column :boundp %icon-view-markup-column-boundp :initarg :markup-column :accessor icon-view-markup-column) @@ -1070,6 +1108,36 @@ (default-height :merge t :unbound -1))) :initarg :pixbuf-column :accessor icon-view-pixbuf-column))) + #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0") + ("GtkAssistant" + :slots + ((current-page + :allocation :virtual + :getter "gtk_assistant_get_current_page" + :setter "gtk_assistant_set_current_page" + :accessor assistant-current-page + :type int) + (num-pages + :allocation :virtual + :getter "gtk_assistant_get_n_page" + :reader assistant-current-page + :type int))) + + #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0") + ("GtkRecentChooser" + :slots + ((current-item + :allocation :virtual + :getter "gtk_recent_chooser_get_current_item" + :reader recent-chooser-current-item + :type recent-info) + (current-uri + :allocation :virtual + :getter "gtk_recent_chooser_get_current_uri" + :setter %recent-chooser-set-current-uri + :accessor recent-chooser-current-uri + :type string))) + ;; Not needed ("GtkFundamentalType" :ignore t) ("GtkArgFlags" :ignore t) @@ -1264,8 +1332,14 @@ (defclass selection-data (boxed) (:metaclass boxed-class)) +#?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0") (defclass target-list (proxy) () (:metaclass proxy-class) (:ref target-list-ref) (:unref target-list-unref)) + +#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0") +(defclass target-list (boxed) + () + (:metaclass boxed-class))