comment only
authorClaus Gittinger <cg@exept.de>
Wed, 15 Nov 2000 13:35:24 +0100
changeset 1428 8243829fd6d3
parent 1427 85b9b5da0b8d
child 1429 0fb6421a93e9
comment only
SelectionBrowser.st
--- a/SelectionBrowser.st	Wed Nov 15 11:35:31 2000 +0100
+++ b/SelectionBrowser.st	Wed Nov 15 13:35:24 2000 +0100
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libtool2' }"
+
 SimpleDialog subclass:#SelectionBrowser
 	instanceVariableNames:'title'
 	classVariableNames:''
@@ -76,11 +78,11 @@
 !SelectionBrowser class methodsFor:'queries'!
 
 isVisualStartable
-    "returns whether this application class 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)"
 
     self == SelectionBrowser ifTrue:[^false].
     ^super isVisualStartable
-
 ! !
 
 !SelectionBrowser methodsFor:'accessing'!