From 0aaa4dc1363647c8994afb722dfac10fabc21a08 Mon Sep 17 00:00:00 2001
Message-Id: <0aaa4dc1363647c8994afb722dfac10fabc21a08.1713982356.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Thu, 5 Oct 2000 17:19:26 +0000
Subject: [PATCH] Changed name of double linked list type to glist.
Organization: Straylight/Edgeware

From: espen <espen>

---
 gdk/gdk.lisp          |  4 ++--
 gtk/gtkcontainer.lisp | 41 ++---------------------------------------
 2 files changed, 4 insertions(+), 41 deletions(-)

diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp
index 6152645..d418022 100644
--- a/gdk/gdk.lisp
+++ b/gdk/gdk.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: gdk.lisp,v 1.4 2000-10-01 17:24:05 espen Exp $
+;; $Id: gdk.lisp,v 1.5 2000-10-05 17:19:26 espen Exp $
 
 
 (in-package "GDK")
@@ -207,7 +207,7 @@ (defun visual-get-best (&key depth type)
 
 ;(define-foreign query-visual-types ..)
 
-(define-foreign list-visuals () (double-list visual))
+(define-foreign list-visuals () (glist visual))
 
 
 ;;; Windows
diff --git a/gtk/gtkcontainer.lisp b/gtk/gtkcontainer.lisp
index 5b47b2c..b1a8afa 100644
--- a/gtk/gtkcontainer.lisp
+++ b/gtk/gtkcontainer.lisp
@@ -15,47 +15,10 @@
 ;; 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: gtkcontainer.lisp,v 1.1 2000-08-14 16:45:02 espen Exp $
+;; $Id: gtkcontainer.lisp,v 1.2 2000-10-05 17:21:04 espen Exp $
 
 (in-package "GTK")
 
-(defclass container (widget)
-  ((border-width
-    :allocation :arg
-    :accessor container-border-width
-    :initarg :border-width
-    :type unsigned-long)
-   (resize-mode
-    :allocation :arg
-    :accessor container-resize-mode
-    :initarg :resize-mode
-    :type resize-mode)
-   (children
-    :allocation :virtual
-    :location container-children
-;    :initarg :children
-    )
-   (focus-child
-    :allocation :virtual
-    :location ("gtk_container_get_focus_child" "gtk_container_set_focus_child")
-    :accessor container-focus-child
-    :initarg :focus-child
-    :type widget)
-   (focus-hadjustment
-    :allocation :virtual
-    :location (nil "gtk_container_set_focus_hadjustment")
-    :writer (setf container-focus-hadjustment)
-    :initarg :focus-hadjustment
-    :type adjustment)   
-   (focus-vadjustment
-    :allocation :virtual
-    :location (nil "gtk_container_set_focus_vadjustment")
-    :writer (setf container-focus-vadjustment)
-    :initarg :focus-vadjustment
-    :type adjustment))
-  (:metaclass widget-class)
-  (:alien-name "GtkContainer"))
-
 
 (defmethod initialize-instance ((container container) &rest initargs
 				&key children)
@@ -164,7 +127,7 @@ (defmacro do-container ((var container &optional (result nil)) &body body)
 		(setq ,continue t)))))
        ,result)))
 
-(define-foreign container-children () (double-list widget)
+(define-foreign container-children () (glist widget)
   (container container))
 
 (defun (setf container-children) (children container)
-- 
[mdw]