--- a/FileBrowser.st Fri Nov 09 22:59:28 2001 +0100
+++ b/FileBrowser.st Sat Nov 10 13:16:15 2001 +0100
@@ -1104,7 +1104,14 @@
#(#MenuItem
#label: 'Shell Terminal'
#translateLabel: true
- #isVisible: #canDoTerminal
+ #isVisible: #canDoTerminalAndSystemIsUnix
+ #value: #openTerminal
+ #enabled: #canDoTerminal
+ )
+ #(#MenuItem
+ #label: 'DOS Terminal'
+ #translateLabel: true
+ #isVisible: #canDoTerminalAndSystemIsDOS
#value: #openTerminal
#enabled: #canDoTerminal
)
@@ -1229,6 +1236,8 @@
nil
nil
)
+
+ "Modified: / 10.11.2001 / 13:10:05 / cg"
!
visitedFileMenuSpec
@@ -1324,6 +1333,18 @@
"Modified: / 28.4.1999 / 11:54:17 / cg"
!
+canDoTerminalAndSystemIsDOS
+ ^ self canDoTerminal and:[OperatingSystem isMSWINDOWSlike]
+
+ "Created: / 10.11.2001 / 13:10:32 / cg"
+!
+
+canDoTerminalAndSystemIsUnix
+ ^ self canDoTerminal and:[OperatingSystem isUNIXlike]
+
+ "Created: / 10.11.2001 / 13:10:46 / cg"
+!
+
canReadAbbrevFile
^ [|sel f fn suff ok|
@@ -3380,6 +3401,8 @@
!
readAbbrevFile
+ "read the abbrev file and install classes found there as autoloaded classes"
+
|sel|
sel := self singleSelectedFile.
@@ -3387,11 +3410,13 @@
sel := currentDirectory asFilename construct:'abbrev.stc'.
].
sel notNil ifTrue:[
- Smalltalk installAutoloadedClassesFrom:sel
+ self withWaitCursorDo:[
+ Smalltalk installAutoloadedClassesFrom:sel
+ ]
].
"Created: / 4.2.1999 / 17:40:42 / cg"
- "Modified: / 29.1.2000 / 13:10:01 / cg"
+ "Modified: / 10.11.2001 / 13:12:34 / cg"
!
revisitFile:aFileName
@@ -7410,5 +7435,5 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.431 2001-11-09 08:18:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.432 2001-11-10 12:16:15 cg Exp $'
! !