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