;; 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.41 2006-02-06 11:59:47 espen Exp $
+;; $Id: gtktypes.lisp,v 1.47 2006-04-26 20:31:12 espen Exp $
(in-package "GTK")
:accessor stock-item-translation-domain
:initarg :translation-domain
:type string))
- (:metaclass struct-class))
+ (:metaclass struct-class)
+ (:ref stock-item-copy)
+ (:unref stock-item-free))
;; We don't really need to access any slots in this class, so we just
;; specify the total size
(deftype position ()
'(or int (enum (:start 0) (:end -1) (:first 0) (:last -1))))
-(defmethod reader-function ((type (eql 'position)) &rest args)
- (declare (ignore type args))
- (reader-function 'int))
+(define-type-method from-alien-form ((type position) form &key ref)
+ (declare (ignore type ref))
+ (from-alien-form 'int form))
+(define-type-method from-alien-function ((type position) &key ref)
+ (declare (ignore type ref))
+ (from-alien-function 'int))
+(define-type-method reader-function ((type position) &optional ref)
+ (declare (ignore type ref))
+ (reader-function 'int))
(define-types-by-introspection "Gtk"
;; Manually defined
("GtkWidget"
:slots
((child-properties
- :allocation :special
+ :special t
:accessor widget-child-properties
:type container-child)
(window
((child :ignore t)
(children
:allocation :virtual
- :getter container-children
:setter (setf container-children)
- ;; The following doesn't work because gtk_container_get_children doesn't
- ;; increase the reference count of the children
-; :getter "gtk_container_get_children"
-; :reader container-children
-; :type (glist widget)
- )
+ :getter "gtk_container_get_children"
+ :reader container-children
+ :type (glist (copy-of widget)))
+ (internal-children ; for debugging
+ :allocation :virtual
+ :getter container-internal-children)
(child-type
:allocation :virtual
:getter "gtk_container_child_type"
:type boolean)
(icon-list
:allocation :virtual
- :getter "gtk_window_get_icon_list"
+ :getter %window-get-icon-list
:setter "gtk_window_set_icon_list"
:accessor window-icon-list
:initarg :icon-list
(default-height :merge t :unbound -1)))
("GtkWindowGroup"
+ :dependencies (window)
:slots
((grabs
:allocation :alien
("GtkScrolledWindow"
:slots
- (#-gtk2.8
+ (#?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.8.0")
(hscrollbar
:allocation :alien
:reader scrolled-window-hscrollbar
:type widget)
- #-gtk2.8
+ #?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.8.0")
(vscrollbar
:allocation :alien
:reader scrolled-window-vscrollbar
:type widget)
- #+gtk2.8
+ #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.8.0")
(hscrollbar
:allocation :virtual
:getter "gtk_scrolled_window_get_hscrollbar"
:reader scrolled-window-hscrollbar
:type widget)
- #+gtk2.8
+ #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.8.0")
(vscrollbar
:allocation :virtual
- :getter "gtk_scrolled_window_get_hscrollbar"
+ :getter "gtk_scrolled_window_get_vscrollbar"
:reader scrolled-window-vscrollbar
:type widget)))
:getter "gtk_menu_get_attach_widget"
:reader menu-attach-widget
:type widget)
- #-gtk2.6
+ #?-(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
(tearoff-state
:allocation :virtual
:getter "gtk_menu_get_tearoff_state"
:initarg :tearoff-state
:type boolean)))
+ ("GtkPlug"
+ :slots
+ ((id
+ :allocation :virtual
+ :getter "gtk_plug_get_id"
+ :reader plug-id
+ :type gdk:native-window)))
+
+ ("GtkSocket"
+ :slots
+ ((id
+ :allocation :virtual
+ :getter "gtk_socket_get_id"
+ :reader socket-id
+ :type gdk:native-window)))
+
("GtkToolbar"
:slots
((show-tooltips
:accessor entry-completion
:type entry-completion)
(max-length :merge t :unbound 0)
- #+gtk2.6
+ #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
(width-chars :merge t :unbound -1)))
("GtkEntryCompletion"
:reader entry-completion-entry
:type entry)
(minimum-key-length :merge t :unbound -1)
- #+gtk2.6
+ #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
(text-column :merge t :unbound -1)))
("GtkRadioButton"
("GtkImage"
:slots
((file :ignore t)
- #+gtk2.6
+ #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
(pixel-size :merge t :unbound -1)))
("GtkLabel"
:reader clipboard-display
:type gdk:display)))
- #+gtk2.6
+ #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
("GtkIconView"
:slots
- ((text-column :merge t :setter %icon-view-set-text-column)
- (markup-column :merge t :setter %icon-view-set-markup-column)
- (pixbuf-column :merge t :setter %icon-view-set-pixbuf-column)))
+ ((text-column
+ :allocation :virtual
+ :getter %icon-view-get-text-column
+ :setter %icon-view-set-text-column
+ :boundp %icon-view-text-column-boundp
+ :initarg :text-column
+ :accessor icon-view-text-column)
+ (markup-column
+ :allocation :virtual
+ :getter %icon-view-get-markup-column
+ :setter %icon-view-set-tmarkup-column
+ :boundp %icon-view-markup-column-boundp
+ :initarg :markup-column
+ :accessor icon-view-markup-column)
+ (pixbuf-column
+ :allocation :virtual
+ :getter %icon-view-get-pixbuf-column
+ :setter %icon-view-set-pixbuf-column
+ :boundp %icon-view-pixbuf-column-boundp
+ :initarg :pixbuf-column
+ :accessor icon-view-pixbuf-column)))
;; Not needed
("GtkFundamentalType" :ignore t)
:type quark))
(:metaclass struct-class))
-#+gtk2.8
+#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.8.0")
(define-enum-type drop-position
:no-drop :drop-into :drop-left :drop-right :drop-above :drop-below)
(defclass target-list (proxy)
()
- (:metaclass proxy-class))
+ (:metaclass proxy-class)
+ (:ref target-list-ref)
+ (:unref target-list-unref))