;; 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.17 2004-11-06 21:39:58 espen Exp $
+;; $Id: gtktypes.lisp,v 1.19 2004-11-15 19:24:11 espen Exp $
(in-package "GTK")
:type string))
(:metaclass static-struct-class))
+;; We don't really need to access any of these slots, but we need to
+;; specify the size of the struct somehow
+(defclass tree-iter (boxed)
+ ((stamp :allocation :alien :type int)
+ (user-data :allocation :alien :type pointer)
+ (user-data2 :allocation :alien :type pointer)
+ (user-data3 :allocation :alien :type pointer))
+ (:metaclass boxed-class))
+
+
+;; (defclass tree-path (boxed)
+;; ((depth :allocation :alien :type int)
+;; (indices :allocation :alien :type pointer))
+;; (:metaclass boxed-class))
+
+(deftype tree-path () '(vector int))
+(register-type 'tree-path "GtkTreePath")
+
+
(define-types-by-introspection "Gtk"
;; Manually defined
("GtkObject" :ignore t)
("GtkRequisition" :ignore t)
("GtkBorder" :ignore t)
-
+ ("GtkTreeIter" :ignore t)
+ ("GtkTreePath" :ignore t)
;; Manual override
("GtkWidget"
:initarg :current-folder-uri
:type string)))
+ ("GtkTreeView"
+ :slots
+ ((columns
+ :allocation :virtual
+ :getter "gtk_tree_view_get_columns"
+ :reader tree-view-columns
+ :type (glist tree-view-column))))
+
+ ("GtkTreeModel"
+ :slots
+ ((n-columns
+ :allocation :virtual
+ :getter "gtk_tree_model_get_n_columns"
+ :reader tree-model-n-columns
+ :type int)))
+
+ ("GtkComboBox"
+ :slots
+ ((active-iter
+ :allocation :virtual
+ :getter "gtk_combo_box_get_active_iter"
+ :setter "gtk_combo_box_set_active_iter"
+ :accessor combo-box-active-iter
+ :type tree-iter)))
+
+
;; Not needed
("GtkFundamentalType" :ignore t)
;; Deprecated widgets
("GtkCList" :ignore-prefix t)
("GtkCTree" :ignore-prefix t)
- ("GtkList" :ignore-prefix t)
+ ("GtkList" :ignore t)
+ ("GtkListItem" :ignore t)
("GtkTree" :ignore t)
("GtkTreeItem" :ignore t)
+ ("GtkItemFactory" :ignore t)
("GtkText" :ignore-prefix t :except ("GtkTextDirection"))
("GtkPacker" :ignore-prefix t)
("GtkPixmap" :ignore t)
("GtkPreview" :ignore-prefix t)
+ ("GtkProgres" :ignore t)
("GtkTipsQuery" :ignore t)
("GtkOldEditable" :ignore t)
+ ("GtkCombo" :ignore t)
+ ("GtkOptionMenu" :ignore t)
;; What are these?
("GtkFileSystemModule" :ignore t)