--- a/Structure.st Sun Mar 02 19:39:00 2003 +0100
+++ b/Structure.st Sun Mar 02 21:42:55 2003 +0100
@@ -1275,7 +1275,7 @@
(args at:1) class == (args at:1) ifFalse:[^ false]. "/ must be another struct
names := self allInstVarNames.
names notNil ifTrue:[
- Object errorSignal handle:[:ex |
+ Error handle:[:ex |
^ false
] do:[
names do:[:slotName |
@@ -1369,7 +1369,7 @@
sel == #allInstVarNames ifTrue:[
methodDictionary isNil ifTrue:[
- 'oops - nil ethodDict' printCR.
+ 'oops - nil methodDict' printCR.
^ #()
].
@@ -1417,6 +1417,7 @@
!Structure class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.15 2002-01-28 09:49:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.16 2003-03-02 20:42:55 stefan Exp $'
! !
+
Structure initialize!