# HG changeset patch # User Claus Gittinger # Date 974291769 -3600 # Node ID 9b5742ab47d65b3ef9eac749ab36ab690c01a7e5 # Parent 6e3fc30cd41f1807a294d9d1d973d8180d41ccf0 comment only diff -r 6e3fc30cd41f -r 9b5742ab47d6 FileBrowser.st --- a/FileBrowser.st Wed Nov 15 13:33:46 2000 +0100 +++ b/FileBrowser.st Wed Nov 15 13:36:09 2000 +0100 @@ -583,7 +583,8 @@ ) nil nil - )! + ) +! menuSpec "This resource specification was automatically generated @@ -1117,16 +1118,16 @@ ) nil nil - )! ! + ) +! ! !FileBrowser class methodsFor:'queries'! isVisualStartable - "return true, if this application can be started via #open" + "return true, if this application can be started via #open. + (to allow start of a change browser via double-click in the browser)" ^ true - - ! ! !FileBrowser methodsFor:'aspects'! @@ -3042,7 +3043,8 @@ ! openSnapshotImageBrowser - ^ self openTool:SystemBrowser with:#openOnSnapShotImage: ignoreDirectories:true! + ^ self openTool:SystemBrowser with:#openOnSnapShotImage: ignoreDirectories:true +! openTerminal VT100TerminalView openShellIn:currentDirectory @@ -3065,7 +3067,8 @@ ^ self openTool:aToolClass with:#openOn: - ignoreDirectories:ignoreDirs! + ignoreDirectories:ignoreDirs +! openTool:aToolClass with:aSelector ignoreDirectories:ignoreDirs "open a tool on the selected file(s)" @@ -3094,7 +3097,8 @@ "Modified: / 18.9.1997 / 17:06:18 / stefan" "Created: / 7.9.1998 / 19:31:49 / cg" - "Modified: / 25.5.1999 / 16:30:35 / cg"! + "Modified: / 25.5.1999 / 16:30:35 / cg" +! openZipTool |zipTool| @@ -7078,5 +7082,5 @@ !FileBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.388 2000-11-07 14:20:51 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.389 2000-11-15 12:36:09 cg Exp $' ! ! diff -r 6e3fc30cd41f -r 9b5742ab47d6 SystemStatusMonitor.st --- a/SystemStatusMonitor.st Wed Nov 15 13:33:46 2000 +0100 +++ b/SystemStatusMonitor.st Wed Nov 15 13:36:09 2000 +0100 @@ -53,6 +53,9 @@ !SystemStatusMonitor class methodsFor:'startup'! isVisualStartable + "return true, if this application can be started via #open. + (to allow start of a change browser via double-click in the browser)" + ^ self ~~ SystemStatusMonitor "Created: / 10.8.1998 / 16:02:23 / cg" @@ -247,5 +250,5 @@ !SystemStatusMonitor class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.12 2000-08-30 22:01:31 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.13 2000-11-15 12:35:41 cg Exp $' ! !