X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/aa77651ba00395671cb93c22be674b492129f536..3a63ef2a6c503a66bf1559fc60f5e3e07d0838be:/gtk/gtktypes.lisp

diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp
index 3e72cad..fdb9faf 100644
--- a/gtk/gtktypes.lisp
+++ b/gtk/gtktypes.lisp
@@ -15,7 +15,7 @@
 ;; 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.22 2004-12-17 00:42:55 espen Exp $
+;; $Id: gtktypes.lisp,v 1.25 2004-12-20 22:43:26 espen Exp $
 
 
 (in-package "GTK")
@@ -139,9 +139,9 @@
   ;; Manual override
   ("GtkWidget"
    :slots
-   ((child-slots
+   ((child-properties
      :allocation :instance
-     :accessor widget-child-slots
+     :accessor widget-child-properties
      :type container-child)
     (window
      :allocation :virtual
@@ -400,14 +400,16 @@
    :slots
    ((child1
     :allocation :virtual
-    :getter paned-child1
-    :setter (setf paned-child1)
+    :getter "gtk_paned_get_child1"
+    :setter "gtk_paned_add1"
+    :accessor paned-child1
     :initarg :child1
     :type widget)
    (child2
     :allocation :virtual
-    :getter paned-child2
-    :setter (setf paned-child2)
+    :getter "gtk_paned_get_child2"
+    :setter "gtk_paned_add2"
+    :accessor paned-child2
     :initarg :child2
     :type widget)))
 
@@ -529,6 +531,19 @@
      :reader combo-entry
      :type entry)))
   
+  ("GtkEntryCompletion"
+   :slots
+   ((entry
+     :allocation :virtual
+     :getter "gtk_entry_completion_get_entry"
+     :reader entry-completion-entry
+     :type entry)
+    (minimum-key-length
+     :merge t :unbound -1)
+    #+gtk2.6
+    (text-column
+     :merge t :unbound -1)))
+
   ("GtkRadioButton"
    :slots
    ((group