Added support for menu extensions in
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 26 Aug 2014 23:45:46 +0200
changeset 14716 ef075895beeb
parent 14715 e806729125fc
child 14717 7fd0faf76e90
Added support for menu extensions in - selectorMenu - variablesMenu - codeViewMenu
Tools__NewSystemBrowser.st
--- 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 $'
 ! !