edit mode menu
authorClaus Gittinger <cg@exept.de>
Mon, 11 Sep 2006 12:46:30 +0200
changeset 7102 cd8f9b51dd75
parent 7101 6ce7338fa4f5
child 7103 a95f550bd9bd
edit mode menu
FileBrowserV2.st
--- a/FileBrowserV2.st	Fri Sep 08 19:31:28 2006 +0200
+++ b/FileBrowserV2.st	Mon Sep 11 12:46:30 2006 +0200
@@ -704,6 +704,7 @@
                     level: -1
                     translateLabel: true
                     labelChannel: modeLabelHolder
+                    postBuildCallback: postBuildEditModeInfoLabel:
                     adjust: right
                   )
                  (LabelSpec
@@ -760,10 +761,52 @@
          
         )
       )
+
+    "Modified: / 11-09-2006 / 12:24:32 / cg"
 ! !
 
 !FileBrowserV2 class methodsFor:'menu specs'!
 
+editModeInfoLabelMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the MenuEditor may not be able to read the specification."
+
+    "
+     MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#editModeInfoLabelMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser editModeInfoLabelMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            label: 'Insert'
+            itemValue: editModeInsert
+            translateLabel: true
+          )
+         (MenuItem
+            label: 'Overwrite'
+            itemValue: editModeOverwrite
+            translateLabel: true
+          )
+         (MenuItem
+            label: 'Insert Selecting'
+            itemValue: editModeInsertAndSelect
+            translateLabel: true
+          )
+         )
+        nil
+        nil
+      )
+
+    "Created: / 11-09-2006 / 12:23:59 / cg"
+!
+
 encodingMenu
     "This resource specification was automatically generated
      by the MenuEditor of ST/X."
@@ -1315,6 +1358,14 @@
         ]
 !
 
+modeLabelMenuHolder
+    ^ self 
+        applicationNamed:#FileApplicationNoteBook
+        ifPresentDo:[:appl | appl modeLabelMenu].
+
+    "Created: / 11-09-2006 / 12:26:44 / cg"
+!
+
 selectedDeviceDrive
 
     selectedDeviceDrive isNil ifTrue:[
@@ -1760,6 +1811,12 @@
     aWidget crAction:[ self crPressedInPathField ].
 !
 
+postBuildEditModeInfoLabel:aLabel
+    aLabel menuHolder:self; menuMessage:#modeLabelMenuHolder.
+
+    "Created: / 11-09-2006 / 12:24:54 / cg"
+!
+
 postBuildFilterBox:aWidget
 
     self filterValueBox value:aWidget.
@@ -1796,7 +1853,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.154 2006-08-09 12:48:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.155 2006-09-11 10:46:30 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!