From b3de3ed87d90daeacf60f5bda4503c1f0f2b3154 Mon Sep 17 00:00:00 2001 Message-Id: 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 4cd200e..7e50f1c 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]