Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/native-panes In directory common-lisp:/tmp/cvs-serv3495/Backends/beagle/native-panes Modified Files: beagle-scroll-bar-pane.lisp Log Message: Fix some bit rot in the Beagle backend; not quite there. --- /project/mcclim/cvsroot/mcclim/Backends/beagle/native-panes/beagle-scroll-bar-pane.lisp 2005/06/12 13:27:42 1.6 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/native-panes/beagle-scroll-bar-pane.lisp 2006/02/22 10:55:41 1.7 @@ -11,7 +11,7 @@ ;;; hackery out of gadgets.lisp (but shouldn't these be part of the abstract type?) ;;;(defclass beagle-scroll-bar-pane (scroll-bar) -(defclass beagle-scroll-bar-pane (scroll-bar-pane) +(defclass beagle-scroll-bar-pane (scroll-bar) ((tk-obj :initform (%null-ptr) :accessor toolkit-object)))