class: MultiViewToolApplication
authorClaus Gittinger <cg@exept.de>
Sat, 19 Apr 2014 15:54:35 +0200
changeset 14279 9214ed746ffd
parent 14278 bf34a3f16877
child 14280 48dcdb213e34
class: MultiViewToolApplication added: #openFontDialog changed: #viewMenu
MultiViewToolApplication.st
--- a/MultiViewToolApplication.st	Fri Apr 18 22:05:31 2014 +0200
+++ b/MultiViewToolApplication.st	Sat Apr 19 15:54:35 2014 +0200
@@ -499,6 +499,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:MultiViewToolApplication andSelector:#viewMenu
      (Menu new fromLiteralArrayEncoding:(MultiViewToolApplication viewMenu)) startUp
@@ -511,20 +512,17 @@
         (
          (MenuItem
             label: 'Toolbar'
-            translateLabel: true
             hideMenuOnActivated: false
             indication: toolBarVisibleHolder
           )
          (MenuItem
             label: 'Editor Toolbar'
-            translateLabel: true
             isVisible: hasEditToolBar
             hideMenuOnActivated: false
             indication: editToolBarVisibleHolder
           )
          (MenuItem
             label: 'Info'
-            translateLabel: true
             isVisible: hasInfoLabel
             hideMenuOnActivated: false
             indication: infoVisibleHolder
@@ -533,9 +531,12 @@
             label: '-'
           )
          (MenuItem
+            label: 'Font...'
+            itemValue: openFontDialog
+          )
+         (MenuItem
             label: 'Settings...'
             itemValue: openSettingsDialog
-            translateLabel: true
           )
          )
         nil
@@ -1083,6 +1084,10 @@
     "Modified: / 25-10-2006 / 14:39:15 / cg"
 !
 
+openFontDialog
+    self selectedWorkspace changeFont
+!
+
 openSTXDocumentation
     "opens the top documentation file"
 
@@ -1386,6 +1391,6 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.48 2014-04-03 18:42:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.49 2014-04-19 13:54:35 cg Exp $'
 ! !