~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
26e6556
)
Small bug fix
author
espen
<espen>
Tue, 2 Apr 2002 15:07:33 +0000
(15:07 +0000)
committer
espen
<espen>
Tue, 2 Apr 2002 15:07:33 +0000
(15:07 +0000)
gtk/gtkobject.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gtk/gtkobject.lisp
b/gtk/gtkobject.lisp
index
5d1cab5
..
f3a14a8
100644
(file)
--- a/
gtk/gtkobject.lisp
+++ b/
gtk/gtkobject.lisp
@@
-15,7
+15,7
@@
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
;; 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: gtkobject.lisp,v 1.1
4 2002-03-24 13:02:4
3 espen Exp $
+;; $Id: gtkobject.lisp,v 1.1
5 2002-04-02 15:07:3
3 espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-235,8
+235,8
@@
(with-slots (name flags value-type documentation) param
(let* ((slot-name (default-slot-name name))
(slot-type (type-from-number value-type #|t|#))
(with-slots (name flags value-type documentation) param
(let* ((slot-name (default-slot-name name))
(slot-type (type-from-number value-type #|t|#))
- (accessor
-
(default-slot-accessor
class slot-name slot-type)))
+ (accessor
(default-slot-accessor
+
child-
class slot-name slot-type)))
`(,slot-name
:allocation :property
:pname ,name
`(,slot-name
:allocation :property
:pname ,name