Added support for menu extensions in
- selectorMenu
- variablesMenu
- codeViewMenu
--- a/Tools__NewSystemBrowser.st Sun Aug 24 16:40:56 2014 +0200
+++ b/Tools__NewSystemBrowser.st Tue Aug 26 23:45:46 2014 +0200
@@ -17149,7 +17149,9 @@
<resource: #programMenu>
- ^ self refactoringMenu
+ ^ self menuFor: #refactoringMenu
+
+ "Modified: / 26-08-2014 / 22:37:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
tabMenuWithRemove
@@ -19058,9 +19060,10 @@
selectorMenu
"to avoid generation of an aspect method by GUI definer"
- ^ self class selectorMenu
-
- "Created: / 18.2.2000 / 12:17:49 / cg"
+ ^ self menuFor: #selectorMenu
+
+ "Created: / 18-02-2000 / 12:17:49 / cg"
+ "Modified: / 26-08-2014 / 10:09:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
selectorPopUpMenu
@@ -19124,6 +19127,14 @@
"/ ^ self class tabMenuWithoutRemove.
!
+variablesPopUpMenu
+ "to avoid generation of an aspect method by GUI definer"
+
+ ^ self menuFor: #variablesMenu
+
+ "Created: / 26-08-2014 / 10:24:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
visitedClassesHistory
|holder|
@@ -23113,6 +23124,7 @@
menu isArray ifTrue:[
menu := Menu decodeFromLiteralArray: menu.
].
+ menu findGuiResourcesIn:self.
"/ ^ menu.
"/ ============== Above should be later on moved to ApplicationModel =========
"/ ============== and here replace by super menuFor: key =====================
@@ -23123,11 +23135,12 @@
self perform: each with: menu
].
].
+ menu findGuiResourcesIn:self.
^ menu
"Modified: / 18-06-1998 / 20:33:56 / cg"
- "Modified: / 25-01-2014 / 12:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 26-08-2014 / 10:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!NewSystemBrowser methodsFor:'change & update'!
@@ -50478,12 +50491,14 @@
"/ ].
"/ ].
"/ ].
-
+ self menuExtendersFor: #codeViewMenu do:[:each |
+ self perform: each with: menu
+ ].
^ menu
"Modified: / 18-10-2008 / 18:52:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 10-09-2013 / 14:40:13 / cg"
- "Modified: / 25-01-2014 / 12:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 26-08-2014 / 22:43:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
compareClassWithSmallTeamVersionMenu
@@ -61881,11 +61896,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2103 2014-08-17 10:32:41 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2104 2014-08-26 21:45:46 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2103 2014-08-17 10:32:41 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2104 2014-08-26 21:45:46 vrany Exp $'
!
version_HG
@@ -61894,7 +61909,7 @@
!
version_SVN
- ^ '$Id: Tools__NewSystemBrowser.st,v 1.2103 2014-08-17 10:32:41 vrany Exp $'
+ ^ '$Id: Tools__NewSystemBrowser.st,v 1.2104 2014-08-26 21:45:46 vrany Exp $'
! !