Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 23 Aug 1999 19:59:22 +0200
changeset 4623 f5a12735a692
parent 4622 905b21c17057
child 4624 aa9aa64dd795
checkin from browser
BContext.st file | annotate | diff | comparison | revisions
BlockContext.st file | annotate | diff | comparison | revisions 
--- a/BContext.st	Mon Aug 23 13:57:28 1999 +0200
+++ b/BContext.st	Mon Aug 23 19:59:22 1999 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-Context subclass:#BlockContext
+Context variableSubclass:#BlockContext
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -175,9 +175,9 @@
                      change the line in the upper-listview
                      according the information we have now
                     "
-                    mWho := method who.
-                    mWho isNil ifTrue:[
-                        ^ '[] (optimized) in ???'.
+                    (method isNil 
+                     or:[(mWho := method who) isNil]) ifTrue:[
+                        ^ '[] (optimized) in ???'.  
                     ].
                     ^ '[] (optimized) in ' , 
                       mWho methodClass name , '-' , mWho methodSelector.
@@ -234,5 +234,5 @@
 !BlockContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.27 1998-03-06 15:25:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.28 1999-08-23 17:59:22 cg Exp $'
 ! !
--- a/BlockContext.st	Mon Aug 23 13:57:28 1999 +0200
+++ b/BlockContext.st	Mon Aug 23 19:59:22 1999 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-Context subclass:#BlockContext
+Context variableSubclass:#BlockContext
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -175,9 +175,9 @@
                      change the line in the upper-listview
                      according the information we have now
                     "
-                    mWho := method who.
-                    mWho isNil ifTrue:[
-                        ^ '[] (optimized) in ???'.
+                    (method isNil 
+                     or:[(mWho := method who) isNil]) ifTrue:[
+                        ^ '[] (optimized) in ???'.  
                     ].
                     ^ '[] (optimized) in ' , 
                       mWho methodClass name , '-' , mWho methodSelector.
@@ -234,5 +234,5 @@
 !BlockContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.27 1998-03-06 15:25:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.28 1999-08-23 17:59:22 cg Exp $'
 ! !
hg/stx-libbasic