--- 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 $'
! !