class: TerminalApplication
added:
#setGreenDisplayMode
#setNormalDisplayMode
#setReverseDisplayMode
changed: #mainMenu
--- a/TerminalApplication.st Tue Jul 23 14:14:21 2013 +0200
+++ b/TerminalApplication.st Tue Jul 23 23:08:55 2013 +0200
@@ -102,171 +102,173 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
+
"
- MenuEditor new openOnClass:WorkspaceApplication andSelector:#mainMenu
- (Menu new fromLiteralArrayEncoding:(WorkspaceApplication mainMenu)) startUp
+ MenuEditor new openOnClass:TerminalApplication andSelector:#mainMenu
+ (Menu new fromLiteralArrayEncoding:(TerminalApplication mainMenu)) startUp
"
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'File'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'New Shell'
- #itemValue: #newWorkspace
- #translateLabel: true
+ #(Menu
+ (
+ (MenuItem
+ label: 'File'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'New Shell'
+ itemValue: newWorkspace
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Playback File...'
+ itemValue: menuPlayback
)
- #(#MenuItem
- #label: 'Playback File...'
- #itemValue: #menuPlayback
- #translateLabel: true
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Save As...'
+ itemValue: menuSaveAs
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ enabled: hasMultipleBuffersHolder
+ label: 'Save all As...'
+ itemValue: menuSaveAllAs
)
- #(#MenuItem
- #label: 'Save As...'
- #itemValue: #menuSaveAs
- #translateLabel: true
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Exit'
+ itemValue: closeRequest
)
- #(#MenuItem
- #enabled: #hasMultipleBuffersHolder
- #label: 'Save all As...'
- #itemValue: #menuSaveAllAs
- #translateLabel: true
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: 'View'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Normal'
+ itemValue: setNormalDisplayMode
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: 'Reverse'
+ itemValue: setReverseDisplayMode
)
- #(#MenuItem
- #label: 'Exit'
- #itemValue: #closeRequest
- #translateLabel: true
+ (MenuItem
+ label: 'Green'
+ itemValue: setGreenDisplayMode
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Buffers'
- #nameKey: #Buffer
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Add Buffer'
- #itemValue: #addWorkspace
- #translateLabel: true
+ (MenuItem
+ label: 'Buffers'
+ nameKey: Buffer
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Add Buffer'
+ itemValue: addWorkspace
)
- #(#MenuItem
- #label: 'Rename...'
- #itemValue: #renameWorkspace
- #translateLabel: true
+ (MenuItem
+ label: 'Rename...'
+ itemValue: renameWorkspace
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #enabled: #canRemoveWorkspace
- #label: 'Remove Buffer'
- #itemValue: #removeWorkspace
- #translateLabel: true
+ (MenuItem
+ enabled: canRemoveWorkspace
+ label: 'Remove Buffer'
+ itemValue: removeWorkspace
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Edit'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #enabled: #hasSelectionInActiveWorkspace
- #label: 'Copy'
- #itemValue: #copySelection
- #translateLabel: true
+ (MenuItem
+ label: 'Edit'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: hasSelectionInActiveWorkspace
+ label: 'Copy'
+ itemValue: copySelection
)
- #(#MenuItem
- #label: 'Paste'
- #itemValue: #paste
- #translateLabel: true
+ (MenuItem
+ label: 'Paste'
+ itemValue: paste
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Select All'
- #itemValue: #selectAll
- #translateLabel: true
+ (MenuItem
+ label: 'Select All'
+ itemValue: selectAll
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Shell'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Interrupt'
- #itemValue: #doSendInterrupt
- #translateLabel: true
+ (MenuItem
+ label: 'Shell'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Interrupt'
+ itemValue: doSendInterrupt
)
- #(#MenuItem
- #label: 'Kill'
- #itemValue: #doSendKillSignal
- #translateLabel: true
+ (MenuItem
+ label: 'Kill'
+ itemValue: doSendKillSignal
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Reset Terminal'
- #itemValue: #doReset
- #translateLabel: true
+ (MenuItem
+ label: 'Reset Terminal'
+ itemValue: doReset
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Help'
- #translateLabel: true
- #startGroup: #right
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Documentation'
- #itemValue: #openDocumentation
- #translateLabel: true
+ (MenuItem
+ label: 'Help'
+ startGroup: right
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Documentation'
+ itemValue: openDocumentation
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'About this Application...'
- #itemValue: #openAboutThisApplication
- #translateLabel: true
+ (MenuItem
+ label: 'About this Application...'
+ itemValue: openAboutThisApplication
)
)
nil
@@ -422,6 +424,18 @@
ws := self selectedWorkspacesTextView.
file readingLinesDo:[:eachLine | ws sendLine:eachLine]
.
+!
+
+setGreenDisplayMode
+ self selectedWorkspacesTextView setGreenDisplayMode.
+!
+
+setNormalDisplayMode
+ self selectedWorkspacesTextView setNormalDisplayMode.
+!
+
+setReverseDisplayMode
+ self selectedWorkspacesTextView setReverseDisplayMode.
! !
!TerminalApplication methodsFor:'private'!
@@ -477,6 +491,6 @@
!TerminalApplication class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.12 2013-07-09 09:31:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.13 2013-07-23 21:08:55 cg Exp $'
! !