#TUNING by stefan
authorStefan Vogel <sv@exept.de>
Fri, 14 Sep 2018 17:08:06 +0200
changeset 6431 cd5e96cf7b4d
parent 6430 27333e3928e5
child 6432 03625766b591
#TUNING by stefan class: Workspace changed: #spyOnItUsing: (send #isNil instead of #isEmptyOrNil)
Workspace.st
--- a/Workspace.st	Thu Sep 13 18:37:09 2018 +0200
+++ b/Workspace.st	Fri Sep 14 17:08:06 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1756,7 +1758,7 @@
 
     "/ check for expr >> selector...
     "/ i.e. given a whoString
-    idx := codeToEvaluate indexOf:'»'.
+    idx := codeToEvaluate indexOf:'»'.
     idx ~~ 0 ifTrue:[
         possibleSelectorString := codeToEvaluate copyFrom:idx+1.
         codeToEvaluate := codeToEvaluate copyTo:idx-1.
@@ -2469,7 +2471,7 @@
     |code codeToRun|
         
     codeToRun := self selectionOrTextOfCursorLine.
-    (codeToRun isEmptyOrNil or:[codeToRun isBlank]) ifTrue:[^ self].
+    (codeToRun isNil or:[codeToRun isBlank]) ifTrue:[^ self].
     
     compilerClass == (Smalltalk at:#Compiler) ifFalse:[
         "sigh - this measurement will include the time to compile - sigh"
@@ -2479,6 +2481,8 @@
 
     code := aProfiler name,' spyDetailedOn:[' , codeToRun, ']'.
     self do:code withValueDo:[:value| ].
+
+    "Modified: / 14-09-2018 / 10:09:25 / Stefan Vogel"
 !
 
 timeIt