dont compile expressions, when reading an ObjectView tree.
--- a/ObjView.st Thu Jan 29 12:59:11 1998 +0100
+++ b/ObjView.st Fri Jan 30 02:08:24 1998 +0100
@@ -2356,7 +2356,7 @@
] ifFalse:[
chunk := aStream nextChunk.
(chunk notNil and:[chunk isEmpty not]) ifTrue:[
- newObject := Compiler evaluate:chunk.
+ newObject := Compiler evaluate:chunk compile:false.
] ifFalse:[
newObject := nil
]
@@ -2375,7 +2375,7 @@
]
]
- "Modified: 29.5.1996 / 16:19:58 / cg"
+ "Modified: / 30.1.1998 / 01:02:16 / cg"
!
initializeFileInObject:anObject
@@ -2925,5 +2925,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.58 1997-05-07 18:50:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.59 1998-01-30 01:08:24 cg Exp $'
! !
--- a/ObjectView.st Thu Jan 29 12:59:11 1998 +0100
+++ b/ObjectView.st Fri Jan 30 02:08:24 1998 +0100
@@ -2356,7 +2356,7 @@
] ifFalse:[
chunk := aStream nextChunk.
(chunk notNil and:[chunk isEmpty not]) ifTrue:[
- newObject := Compiler evaluate:chunk.
+ newObject := Compiler evaluate:chunk compile:false.
] ifFalse:[
newObject := nil
]
@@ -2375,7 +2375,7 @@
]
]
- "Modified: 29.5.1996 / 16:19:58 / cg"
+ "Modified: / 30.1.1998 / 01:02:16 / cg"
!
initializeFileInObject:anObject
@@ -2925,5 +2925,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.58 1997-05-07 18:50:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.59 1998-01-30 01:08:24 cg Exp $'
! !