#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Tue, 15 Nov 2016 01:10:15 +0100
changeset 5964 d30effc283db
parent 5963 545c87884be1
child 5965 cb4b502cc20a
#DOCUMENTATION by cg class: Workspace changed: #browseReferencesToIt
Workspace.st
--- a/Workspace.st	Mon Nov 14 16:19:33 2016 +0100
+++ b/Workspace.st	Tue Nov 15 01:10:15 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1785,7 +1783,7 @@
     ] ifFalse:[
         codeToEvaluate := (self selectionOrTextOfCursorLine ? '') withoutSeparators.
     ].
-    idx := codeToEvaluate indexOf:'»'.
+    idx := codeToEvaluate indexOf:'»'.
     idx ~~ 0 ifTrue:[
         selector := (codeToEvaluate copyFrom:idx+1) withoutSeparators string.
         (selector startsWith:'#') ifTrue:[
@@ -1918,11 +1916,10 @@
                         ] ifFalse:[
                             (cls notNil
                               and:[ cls nameSpace notNil
-                              and:[ cls nameSpace isNameSpace
                               and:[ nameOfVariable knownAsSymbol
                               and:[ (nsClass := cls nameSpace at:nameOfVariable asSymbol) notNil
                               and:[ nsClass isBehavior
-                            ]]]]]) ifTrue:[
+                            ]]]]) ifTrue:[
                                 "/ a namespace class?
                                 browserClass browseReferendsOf:nsClass name
                             ] ifFalse:[
@@ -2030,8 +2027,8 @@
                 ('Implementors of It'           browseImplementorsOfIt  ImplementorsOfIt    )
                 ('References to It'             browseReferencesToIt                        )
 "/                ('Classes Containing It in Name'    browseClassesContainingItInName           )
-"/                ('Methods Contaníning It in Name'   browseMethodsContainingItInName           )
-"/                ('Methods Contaníning It in Source' browseMethodsContainingItInSource         )
+"/                ('Methods Contaníning It in Name'   browseMethodsContainingItInName           )
+"/                ('Methods Contaníning It in Source' browseMethodsContainingItInSource         )
                 ('-'                                                                )
                 ('TimeIt'               timeIt                                      )
                 ('SpyOnIt'              spyOnIt                                     ))