From 449a6ce9c87dfa5e6f34be0b8ca2475b6c568336 Mon Sep 17 00:00:00 2001
Message-Id: <449a6ce9c87dfa5e6f34be0b8ca2475b6c568336.1714203133.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Thu, 5 Oct 2000 17:34:53 +0000
Subject: [PATCH] Moved definition of widget class to gtktypes.lisp
Organization: Straylight/Edgeware

From: espen <espen>

---
 gtk/gtkwidget.lisp | 123 +--------------------------------------------
 1 file changed, 1 insertion(+), 122 deletions(-)

diff --git a/gtk/gtkwidget.lisp b/gtk/gtkwidget.lisp
index 6097a2f..af346f3 100644
--- a/gtk/gtkwidget.lisp
+++ b/gtk/gtkwidget.lisp
@@ -15,132 +15,11 @@
 ;; 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: gtkwidget.lisp,v 1.2 2000-08-16 22:16:44 espen Exp $
+;; $Id: gtkwidget.lisp,v 1.3 2000-10-05 17:34:53 espen Exp $
 
 (in-package "GTK")
 
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defclass widget (object)
-    ((child-slots
-      :allocation :instance
-      :accessor widget-child-slots
-      :type container-child)
-     (name
-      :allocation :arg
-      :accessor widget-name
-      :initarg :name
-      :type string)
-     (parent
-      :allocation :arg
-      :accessor widget-parent
-;     :initarg :parent
-      :type container)
-     (x
-      :allocation :arg
-      :accessor widget-x-position
-      :initarg :x
-      :type int)
-     (y
-      :allocation :arg
-      :accessor widget-y-position
-      :initarg :y
-      :type int)
-     (width
-      :allocation :arg
-      :accessor widget-width
-      :initarg :width
-      :type int)
-     (height
-      :allocation :arg
-      :accessor widget-height
-      :initarg :height
-      :type int)
-     (visible
-      :allocation :arg
-      :accessor widget-visible-p
-      :initarg :visible
-      :type boolean)
-     (sensitive
-      :allocation :arg
-      :accessor widget-sensitive-p
-      :initarg :sensitive
-      :type boolean)
-     (app-paintable
-      :allocation :arg
-      :reader widget-app-paintable-p
-;     :access :read-only
-      :type boolean)
-     (can-focus
-      :allocation :arg
-      :accessor widget-can-focus-p
-      :initarg :can-focus
-      :type boolean)
-     (has-focus
-      :allocation :arg
-      :accessor widget-has-focus-p
-      :initarg :has-focus
-      :type boolean)
-     (can-default
-      :allocation :arg
-      :accessor widget-can-default-p
-      :initarg :can-default
-      :type boolean)
-     (has-default
-      :allocation :arg
-      :accessor widget-has-default-p
-      :initarg :has-default
-      :type boolean)
-     (receives-default
-      :allocation :arg
-      :accessor widget-receives-default-p
-      :initarg :receives-default
-      :type boolean)
-     (composite-child
-      :allocation :arg
-      :accessor widget-composite-child-p
-      :initarg :composite-child
-      :type boolean)
-;    (style
-;     :allocation :arg
-;     :accessor widget-style
-;     :initarg :style
-;     :type style)
-     (events
-      :allocation :arg
-      :accessor widget-events
-      :initarg :events
-      :type gdk:event-mask)
-     (extension-events
-      :allocation :arg
-      :accessor widget-extension-events
-      :initarg :extpension-events
-      :type gdk:event-mask)
-     (state
-      :allocation :virtual
-      :location ("gtk_widget_get_state" "gtk_widget_set_state")
-      :accessor widget-state
-      :initarg :state
-      :type state-type)
-     (window
-      :allocation :virtual
-      :location "gtk_widget_get_window"
-      :reader widget-window
-      :type gdk:window)
-     (colormap
-      :allocation :virtual
-      :location "gtk_widget_get_colormap"
-      :reader widget-colormap
-      :type gdk:colormap)
-     (visual
-      :allocation :virtual
-      :location "gtk_widget_get_visual"
-      :reader widget-visual
-      :type gdk:visual))
-    (:metaclass object-class)
-    (:alien-name "GtkWidget")))
-
-
 (defmethod initialize-instance ((widget widget) &rest initargs &key parent)
   (declare (ignore initargs))
   (cond
-- 
[mdw]