#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Mon, 29 Oct 2018 15:21:11 +0100
changeset 18502 6ad0c10ecd65
parent 18501 b540eb4f289b
child 18503 a104045b61c8
#FEATURE by cg class: ExternalStreamMonitor class definition class: ExternalStreamMonitor class changed: #mainMenu
ExternalStreamMonitor.st
--- a/ExternalStreamMonitor.st	Mon Oct 29 15:21:03 2018 +0100
+++ b/ExternalStreamMonitor.st	Mon Oct 29 15:21:11 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by Claus Gittinger
 	      All Rights Reserved
@@ -135,17 +133,11 @@
         (
          (MenuItem
             label: 'File'
-            submenu: 
-           (Menu
-              (
-               (MenuItem
-                  label: 'Exit'
-                  itemValue: closeRequestToTopView
-                )
-               )
-              nil
-              nil
-            )
+            submenuChannel: fileMenu
+          )
+         (MenuItem
+            label: 'View'
+            submenuChannel: viewMenu
           )
          (MenuItem
             label: 'Filter'
@@ -159,8 +151,6 @@
         nil
         nil
       )
-
-    "Modified: / 07-04-2017 / 14:21:44 / cg"
 !
 
 operationsMenu