# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1374613735 -7200
# Node ID 7727357e3c6f753b7c639fd29cf29bfe98bb0cf7
# Parent  8beb5ac28bf71c60dea66ac47dc1d48534977d7b
class: TerminalApplication
added:
        #setGreenDisplayMode
        #setNormalDisplayMode
        #setReverseDisplayMode
changed: #mainMenu

diff -r 8beb5ac28bf7 -r 7727357e3c6f TerminalApplication.st
--- 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 $'
 ! !