X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/f669d557d2ed78a18912095334a31fb9796e4231..c0ede95392287d12cd6299afd7c27e896d036151:/gtk/gtktypes.lisp diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp index 05db252..cb140a1 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.50 2006-08-25 12:34:49 espen Exp $ +;; $Id: gtktypes.lisp,v 1.60 2007-10-17 18:02:05 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))) @@ -681,8 +687,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 @@ -881,8 +895,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" @@ -992,13 +1006,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,7 +1028,11 @@ (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 @@ -1070,6 +1089,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 +1313,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))