;; 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.58 2007-10-17 16:55:47 espen Exp $
+;; $Id: gtktypes.lisp,v 1.65 2008-10-27 18:42:01 espen Exp $
(in-package "GTK")
(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
("GtkTreePath" :ignore t)
; ("GtkStyle" :ignore t)
+ ("GtkMountOperation" :ignore t) ; Needs GIO
+
;; Manual override
("GtkWidget"
:slots
(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
: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"
((active
:allocation :virtual
:getter "gtk_toggle_tool_button_get_active"
- :setter "gtk_toggle_tool_button_get_active"
+ :setter "gtk_toggle_tool_button_set_active"
:accessor toggle-tool-button-active-p
:initarg :active
:type boolean)))
: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
(current-folder
:allocation :virtual
:setter "gtk_file_chooser_set_current_folder"
- :setter "gtk_file_chooser_get_current_folder"
+ :getter "gtk_file_chooser_get_current_folder"
:accessor file-chooser-current-folder
:initarg :current-folder
:type string)
(current-folder-uri
:allocation :virtual
:setter "gtk_file_chooser_set_current_folder_uri"
- :setter "gtk_file_chooser_get_current_folder_uri"
+ :getter "gtk_file_chooser_get_current_folder_uri"
:accessor file-chooser-current-folder-uri
:initarg :current-folder-uri
:type string)))
: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"
:reader tree-model-n-columns
:type int)))
+ ("GtkTreeModelFilter"
+ :slots
+ ((virtual-root :merge t :type tree-path)))
+
("GtkTreeSelection"
:slots
((mode
((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"
(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)