#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Wed, 04 May 2016 09:25:26 +0200
changeset 16421 c83862865c5e
parent 16420 2ef865fc4243
child 16422 9ae2c4be75c4
#REFACTORING by cg class: Tools::NewSystemBrowser changed: #getMethodInfoForMethod:
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Wed May 04 09:23:44 2016 +0200
+++ b/Tools__NewSystemBrowser.st	Wed May 04 09:25:26 2016 +0200
@@ -58036,12 +58036,12 @@
     "get something about aMethod
      to be shown in the info line at the bottom"
 
-    |msg msg2 method|
+    |msg msg2 method wrapper|
 
     method := aMethod.
     method isNil ifTrue:[ ^ nil ].
-    method wrapper notNil ifTrue:[
-        method := method wrapper
+    (wrapper := method wrapper) notNil ifTrue:[
+        method := wrapper
     ].
     method isNil ifTrue:[
         ^ 'oops - this method is not attached to any class'.