--- a/Class.st Mon Jul 20 13:19:13 1998 +0200
+++ b/Class.st Mon Jul 20 14:19:14 1998 +0200
@@ -686,19 +686,18 @@
idx := name lastIndexOf:$:.
idx == 0 ifTrue:[
- environment := Smalltalk.
- ^ Smalltalk
+ environment := Smalltalk.
+ ] ifFalse:[
+ (name at:idx-1) ~~ $: ifTrue:[
+ environment := Smalltalk.
+ ] ifFalse:[
+ nsName := name copyTo:(idx - 2).
+ environment := Smalltalk at:nsName asSymbol.
+ ]
].
-
- (name at:idx-1) ~~ $: ifTrue:[
- environment := Smalltalk.
- ^ Smalltalk
- ].
- nsName := name copyTo:(idx - 2).
- environment := Smalltalk at:nsName asSymbol.
^ environment
- "Modified: 24.3.1997 / 11:12:09 / cg"
+ "Modified: / 16.7.1998 / 21:23:17 / cg"
!
package
@@ -3878,5 +3877,5 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.318 1998-07-20 11:15:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.319 1998-07-20 12:19:14 cg Exp $'
! !