From 4e431775e43db589bacc4f643613ede83a0a4025 Mon Sep 17 00:00:00 2001 Message-Id: <4e431775e43db589bacc4f643613ede83a0a4025.1714661702.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 28 Feb 2006 16:32:18 +0000 Subject: [PATCH] Defgenerics added to get rid of a few style warnings Organization: Straylight/Edgeware From: espen --- gtk/gtkcontainer.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/gtk/gtkcontainer.lisp b/gtk/gtkcontainer.lisp index 0f14ffc..6c66e62 100644 --- a/gtk/gtkcontainer.lisp +++ b/gtk/gtkcontainer.lisp @@ -20,10 +20,16 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtkcontainer.lisp,v 1.19 2006/02/19 19:31:14 espen Exp $ +;; $Id: gtkcontainer.lisp,v 1.20 2006/02/28 16:32:18 espen Exp $ (in-package "GTK") +(defgeneric container-add (container widget &rest args)) +(defgeneric container-remove (container widget)) +(defgeneric container-children (container)) +(defgeneric (setf container-children) (children container)) + + (defmethod shared-initialize ((container container) names &rest initargs &key child children child-args (show-children nil show-children-p)) -- [mdw]