--- a/FileBrowser.st Mon Nov 28 23:05:05 2016 +0100
+++ b/FileBrowser.st Mon Nov 28 23:07:37 2016 +0100
@@ -749,151 +749,132 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
+
"
- MenuEditor new openOnClass:FileBrowser andSelector:#menuSpec
- (Menu new fromLiteralArrayEncoding:(FileBrowser menuSpec)) startUp
+ MenuEditor new openOnClass:FileBrowser andSelector:#fileMenuSpec
+ (Menu new fromLiteralArrayEncoding:(FileBrowser fileMenuSpec)) startUp
"
<resource: #menu>
^
#(Menu
+ (
+ (MenuItem
+ label: 'Spawn'
+ itemValue: fileSpawn
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Open'
+ itemValue: menuOpen
+ isVisible: false
+ )
+ (MenuItem
+ enabled: hasFilenameSelectionInCodeView
+ label: 'Open selected Filename'
+ itemValue: openSelectedFilename
+ isVisible: hasFilenameSelectionInCodeView
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'FileIn'
+ itemValue: fileFileIn
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'FileInTo NameSpace...'
+ itemValue: fileFileInToNameSpace
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'New'
+ submenu:
+ (Menu
(
(MenuItem
- label: 'Spawn'
- itemValue: fileSpawn
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelection
- label: 'Open'
- itemValue: menuOpen
- translateLabel: true
- isVisible: false
- )
- (MenuItem
- enabled: hasFilenameSelectionInCodeView
- label: 'Open selected Filename'
- itemValue: openSelectedFilename
- translateLabel: true
- isVisible: hasFilenameSelectionInCodeView
- )
- (MenuItem
- enabled: hasSelection
- label: 'FileIn'
- itemValue: fileFileIn
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelection
- label: 'FileInTo NameSpace...'
- itemValue: fileFileInToNameSpace
- translateLabel: true
- )
- (MenuItem
- label: '-'
+ label: 'Directory...'
+ itemValue: newDirectory
)
(MenuItem
- label: 'New'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Directory...'
- itemValue: newDirectory
- translateLabel: true
- )
- (MenuItem
- label: 'File...'
- itemValue: newFile
- translateLabel: true
- )
- (MenuItem
- label: 'Hard Link...'
- itemValue: newHardLink
- translateLabel: true
- isVisible: systemIsUnix
- )
- (MenuItem
- label: 'Symbolic Link...'
- itemValue: newSoftLink
- translateLabel: true
- isVisible: systemIsUnix
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- enabled: hasSelection
- label: 'Remove'
- itemValue: fileRemove
- translateLabel: true
- )
- (MenuItem
- enabled: hasSelection
- label: 'Rename'
- itemValue: fileRename
- translateLabel: true
+ label: 'File...'
+ itemValue: newFile
)
(MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelection
- label: 'Properties...'
- itemValue: fileGetLongInfo
- translateLabel: true
- )
- (MenuItem
- label: '-'
- isVisible: javaSupportLoaded
- )
- (MenuItem
- enabled: canAddToClassPath
- label: 'Add to Java ClassPath'
- itemValue: fileAddToJavaClassPath
- translateLabel: true
- isVisible: javaSupportLoaded
+ label: 'Hard Link...'
+ itemValue: newHardLink
)
(MenuItem
- enabled: canRemoveFromClassPath
- label: 'Remove from Java ClassPath'
- itemValue: fileRemoveFromJavaClassPath
- translateLabel: true
- isVisible: javaSupportLoaded
- )
- (MenuItem
- enabled: canAddToSourcePath
- label: 'Add to Java SourcePath'
- itemValue: fileAddToJavaSourcePath
- translateLabel: true
- isVisible: javaSupportLoaded
- )
- (MenuItem
- enabled: canRemoveFromSourcePath
- label: 'Remove from Java SourcePath'
- itemValue: fileRemoveFromJavaSourcePath
- translateLabel: true
- isVisible: javaSupportLoaded
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Exit'
- itemValue: menuExit
- translateLabel: true
+ label: 'Symbolic Link...'
+ itemValue: newSoftLink
)
)
nil
nil
)
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Remove'
+ itemValue: fileRemove
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Rename'
+ itemValue: fileRename
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Properties...'
+ itemValue: fileGetLongInfo
+ )
+ (MenuItem
+ label: '-'
+ isVisible: javaSupportLoaded
+ )
+ (MenuItem
+ enabled: canAddToClassPath
+ label: 'Add to Java ClassPath'
+ itemValue: fileAddToJavaClassPath
+ isVisible: javaSupportLoaded
+ )
+ (MenuItem
+ enabled: canRemoveFromClassPath
+ label: 'Remove from Java ClassPath'
+ itemValue: fileRemoveFromJavaClassPath
+ isVisible: javaSupportLoaded
+ )
+ (MenuItem
+ enabled: canAddToSourcePath
+ label: 'Add to Java SourcePath'
+ itemValue: fileAddToJavaSourcePath
+ isVisible: javaSupportLoaded
+ )
+ (MenuItem
+ enabled: canRemoveFromSourcePath
+ label: 'Remove from Java SourcePath'
+ itemValue: fileRemoveFromJavaSourcePath
+ isVisible: javaSupportLoaded
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Exit'
+ itemValue: menuExit
+ )
+ )
+ nil
+ nil
+ )
!
helpMenuSpec
@@ -977,6 +958,7 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
+
"
MenuEditor new openOnClass:FileBrowser andSelector:#menuPopUp
(Menu new fromLiteralArrayEncoding:(FileBrowser menuPopUp)) startUp
@@ -990,7 +972,6 @@
(MenuItem
label: 'Spawn'
itemValue: fileSpawn
- translateLabel: true
)
(MenuItem
label: '-'
@@ -999,19 +980,16 @@
enabled: hasSelection
label: 'Edit File'
itemValue: fileGet
- translateLabel: true
)
(MenuItem
enabled: hasSelection
label: 'Insert File'
itemValue: fileInsert
- translateLabel: true
)
(MenuItem
enabled: hasSelection
label: 'FileIn'
itemValue: fileFileIn
- translateLabel: true
shortcutKey: Accept
)
(MenuItem
@@ -1019,31 +997,24 @@
)
(MenuItem
label: 'New'
- translateLabel: true
submenu:
(Menu
(
(MenuItem
label: 'Directory...'
itemValue: newDirectory
- translateLabel: true
)
(MenuItem
label: 'File...'
itemValue: newFile
- translateLabel: true
)
(MenuItem
label: 'Hard Link...'
itemValue: newHardLink
- translateLabel: true
- isVisible: systemIsUnix
)
(MenuItem
label: 'Symbolic Link...'
itemValue: newSoftLink
- translateLabel: true
- isVisible: systemIsUnix
)
)
nil
@@ -1054,14 +1025,12 @@
enabled: hasSelection
label: 'Remove...'
itemValue: fileRemove
- translateLabel: true
shortcutKey: Cut
)
(MenuItem
enabled: hasSelection
label: 'Rename...'
itemValue: fileRename
- translateLabel: true
shortcutKey: Rename
)
(MenuItem
@@ -1071,14 +1040,12 @@
enabled: hasSelection
label: 'Properties...'
itemValue: fileGetLongInfo
- translateLabel: true
)
(MenuItem
label: '-'
)
(MenuItem
label: 'Tools'
- translateLabel: true
submenuChannel: toolsMenuSpec
shortcutKey: Ctrl
keepLinkedMenu: true
@@ -1089,7 +1056,6 @@
(MenuItem
label: 'Update'
itemValue: updateCurrentDirectory
- translateLabel: true
)
)
nil
@@ -3456,13 +3422,11 @@
Error handle:[:ex |
err := ex description
] do:[
- hardOrSoftSymbol == #soft
- ifTrue:[
- OperatingSystem createSymbolicLinkFrom:name1 to:name2
- ]
- ifFalse:[
- OperatingSystem createHardLinkFrom:name1 to:name2
- ]
+ hardOrSoftSymbol == #soft ifTrue:[
+ f2 createAsSymbolicLinkTo:f1.
+ ] ifFalse:[
+ f2 createAsHardLinkTo:f1.
+ ]
]
]
]
@@ -4711,10 +4675,10 @@
|f|
f := currentDirectory construct:fileName.
- OperatingSystem accessDeniedErrorSignal handle:[:ex|
+ OsError handle:[:ex|
"was not able to remove it"
msg := (resources string:'cannot remove ''%1'' !!' with:fileName).
- self showAlert:msg with:(OperatingSystem lastErrorString)
+ self showAlert:msg with:(ex description)
] do:[
|answer contents|
@@ -6588,10 +6552,10 @@
|f|
f := currentDirectory construct:fileName.
- OperatingSystem accessDeniedErrorSignal handle:[:ex|
+ OsError handle:[:ex|
"was not able to remove it"
msg := (resources string:'Cannot remove ''%1'' !!' with:fileName).
- self showAlert:msg with:(OperatingSystem lastErrorString)
+ self showAlert:msg with:(ex description)
] do:[
|answer i|