Show method trait in browser method pane.

src/IDE.js

@@ -4919,7 +4919,7 @@ var self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-var $1,$2;
+var $1,$2,$5,$4,$3;
 $recv(self["@methodsList"])._contents_((function(html){
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx2) {
@@ -4932,18 +4932,38 @@ return $core.withContext(function($ctx3) {
 li=$recv(html)._li();
 li;
 $1=$recv(self["@selectedMethod"]).__eq(each);
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+$ctx3.sendIdx["="]=1;
+//>>excludeEnd("ctx");
 if($core.assert($1)){
 $recv(li)._class_("selected");
 }
 $2=li;
 $recv($2)._with_($recv(each)._selector());
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+$ctx3.sendIdx["with:"]=1;
+//>>excludeEnd("ctx");
+$5=$recv(each)._methodClass();
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+$ctx3.sendIdx["methodClass"]=1;
+//>>excludeEnd("ctx");
+$4=$recv($5).__eq(self._selectedClassOrMetaClass());
+if($core.assert($4)){
+$3="";
+} else {
+$3=$recv(" (".__comma($recv($recv(each)._methodClass())._name())).__comma(")");
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+$ctx3.sendIdx[","]=1;
+//>>excludeEnd("ctx");
+}
+$recv($2)._with_($3);
 return $recv($2)._onClick_((function(){
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx4) {
 //>>excludeEnd("ctx");
 return self._selectMethod_(each);
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx4) {$ctx4.fillBlock({},$ctx3,4)});
+}, function($ctx4) {$ctx4.fillBlock({},$ctx3,6)});
 //>>excludeEnd("ctx");
 }));
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
@@ -4961,10 +4981,10 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "updateMethodsList\x0a\x09methodsList contents: [ :html |\x0a\x09self methods do: [ :each || li |\x0a\x09\x09li := html li.\x0a\x09\x09selectedMethod = each ifTrue: [\x0a\x09\x09li class: 'selected' ].\x0a\x09\x09li\x0a\x09\x09with: each selector;\x0a\x09\x09onClick: [ self selectMethod: each ]] ]",
+source: "updateMethodsList\x0a\x09methodsList contents: [ :html |\x0a\x09self methods do: [ :each || li |\x0a\x09\x09li := html li.\x0a\x09\x09selectedMethod = each ifTrue: [\x0a\x09\x09li class: 'selected' ].\x0a\x09\x09li\x0a\x09\x09with: each selector;\x0a\x09\x09with: (each methodClass = self selectedClassOrMetaClass ifTrue: [''] ifFalse: [ ' (', each methodClass name, ')' ]);\x0a\x09\x09onClick: [ self selectMethod: each ]] ]",
 referencedClasses: [],
 //>>excludeEnd("ide");
-messageSends: ["contents:", "do:", "methods", "li", "ifTrue:", "=", "class:", "with:", "selector", "onClick:", "selectMethod:"]
+messageSends: ["contents:", "do:", "methods", "li", "ifTrue:", "=", "class:", "with:", "selector", "ifTrue:ifFalse:", "methodClass", "selectedClassOrMetaClass", ",", "name", "onClick:", "selectMethod:"]
 }),
 $globals.Browser);
 

src/IDE.st

@@ -1133,6 +1133,7 @@ updateMethodsList
 		li class: 'selected' ].
 		li
 		with: each selector;
+		with: (each methodClass = self selectedClassOrMetaClass ifTrue: [''] ifFalse: [ ' (', each methodClass name, ')' ]);
 		onClick: [ self selectMethod: each ]] ]
 !