chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fb90f18
)
Bug fix
author
espen
<espen>
Fri, 11 Apr 2008 18:42:40 +0000
(18:42 +0000)
committer
espen
<espen>
Fri, 11 Apr 2008 18:42:40 +0000
(18:42 +0000)
gtk/gtkwidget.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gtk/gtkwidget.lisp
b/gtk/gtkwidget.lisp
index 1aabe4f3454e50b586b725d9ab0883a6866ecfb1..100b0e2a96568a8b3870f4095c78b377e6bef804 100644
(file)
--- a/
gtk/gtkwidget.lisp
+++ b/
gtk/gtkwidget.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtkwidget.lisp,v 1.
29 2007-09-06 14:27:07
espen Exp $
+;; $Id: gtkwidget.lisp,v 1.
30 2008-04-11 18:42:40
espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-60,8
+60,7
@@
(defmethod slot-unbound ((class gobject-class) (object widget)
((slot-boundp object 'parent)
(with-slots (parent child-properties) object
(setf child-properties
((slot-boundp object 'parent)
(with-slots (parent child-properties) object
(setf child-properties
- (make-instance
- (gethash (class-of parent) *container-to-child-class-mappings*)
+ (make-instance (find-child-class (class-of parent))
:parent parent :child object))))
((call-next-method))))
:parent parent :child object))))
((call-next-method))))