;; 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.30 2005-01-12 13:38:18 espen Exp $
-
+;; $Id: gtktypes.lisp,v 1.32 2005-02-22 23:12:02 espen Exp $
(in-package "GTK")
(declare (ignore type args))
(reader-function 'int))
-;; Forward definitions
-(defclass widget (%object)
- ()
- (:metaclass gobject-class))
-(defclass container (widget)
- ()
- (:metaclass gobject-class))
-
-
(define-types-by-introspection "Gtk"
;; Manually defined
("GtkObject" :ignore t)
:getter "gtk_widget_get_window"
:reader widget-window
:type gdk:window)
+ (parent
+ :allocation :property :pname "parent"
+ :reader widget-parent
+ :type container)
(parent-window
:allocation :virtual
:getter %widget-parent-window
:type entry-completion)
(max-length :merge t :unbound 0)
#+gtk2.6
- (with-chars :merge t :unbound -1)))
+ (width-chars :merge t :unbound -1)))
("GtkEntryCompletion"
:slots
; deprecated property
((font :ignore t)))
+ ("GtkClipboard"
+ :slots
+ ((display
+ :allocation :virtual
+ :getter "gtk_clipboard_get_display"
+ :reader clipboard-display
+ :type gdk:display)))
+
+
;; Not needed
("GtkFundamentalType" :ignore t)
("GtkArgFlags" :ignore t)
;; What are these?
("GtkFileSystemModule" :ignore t)
("GtkIMModule" :ignore t)
- ("GtkThemeEngine" :ignore t)
-
- )
+ ("GtkThemeEngine" :ignore t))
(defclass text-iter (boxed)