--- a/DoWhatIMeanSupport.st Thu Jan 05 21:05:57 2017 +0000
+++ b/DoWhatIMeanSupport.st Thu Jan 12 09:44:11 2017 +0000
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -2448,7 +2446,7 @@
"/
"/ info := best storeString.
"/ implClass notNil ifTrue:[
-"/ info := implClass name , ' » ' , info.
+"/ info := implClass name , ' ' , info.
"/ ].
"/ self information:info.
"/].
@@ -4578,12 +4576,14 @@
SourceCodeManagerError handle:[:ex |
] do:[
- tree := implementorOfSelectorUpToCursor parseTree.
- argName := tree argumentNames at:argIdx.
- (argName includesString:'block' caseSensitive:false) ifTrue:[
- actionBlock value:{'[ "',argName,'" ]'}
- value:{ self editActionToInsert:('[ "',argName,'" ]') }
- value:'block argument'
+ tree := implementorOfSelectorUpToCursor parseTree.
+ tree notNil ifTrue:[
+ argName := tree argumentNames at:argIdx.
+ (argName includesString:'block' caseSensitive:false) ifTrue:[
+ actionBlock value:{'[ "',argName,'" ]'}
+ value:{ self editActionToInsert:('[ "',argName,'" ]') }
+ value:'block argument'
+ ].
].
].
] ifFalse:[
@@ -5020,7 +5020,7 @@
"/
"/ info := best storeString.
"/ implClass notNil ifTrue:[
-"/ info := implClass name , ' » ' , info.
+"/ info := implClass name , ' ' , info.
"/ ].
"/ self information:info.