FileBrowser.st
changeset 3398 454eb5598f69
parent 3381 2a0331ea6dfc
child 3399 e947a4bdf89c
--- 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 $'
 ! !