--- a/Tools__NewSystemBrowser.st Thu Apr 20 12:00:31 2017 +0200
+++ b/Tools__NewSystemBrowser.st Fri Apr 21 10:51:00 2017 +0200
@@ -61956,7 +61956,7 @@
askForProject:'Method shall be assigned to which project ?'
initialText:(LastAcceptPackage ? cls package).
package isNil ifTrue:[^ false].
- LastAcceptPackage := package.
+ LastAcceptPackage := package.
] ifFalse:[
package := package asSymbol.
"/ if the current project is different from the selected one
@@ -62115,11 +62115,11 @@
"/ self switchToSelector:rslt selector
] ifFalse:[
"/ do not notify myself (to avoid scroll-to-top)
- self selectedMethods setValue:(Array with:rslt).
- ].
-"/ self showMethodsCode:rslt scrollToTop:false.
-"/ self selectedMethods setValue:(Array with:rslt).
-"/ self switchToClass:cls selector:rslt selector.
+ self selectedMethods value:(Array with:rslt) withoutNotifying:self methodListApp.
+ ].
+"/ self showMethodsCode:rslt scrollToTop:false.
+"/ self selectedMethods setValue:(Array with:rslt).
+"/ self switchToClass:cls selector:rslt selector.
immediateUpdate value:false.
doCheck ifTrue:[
@@ -62151,7 +62151,7 @@
"Created: / 30-12-2009 / 20:01:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 02-08-2012 / 09:37:29 / cg"
"Modified (format): / 17-08-2014 / 10:12:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 24-03-2017 / 09:32:39 / stefan"
+ "Modified (comment): / 21-04-2017 / 10:47:54 / stefan"
!
askForInitialApplicationCodeFor:aNewClass