--- a/SelectionInListModelView.st	Mon Jun 16 14:27:06 2003 +0200
+++ b/SelectionInListModelView.st	Fri Jun 20 16:25:06 2003 +0200
@@ -551,6 +551,11 @@
     closeEditorAction := anOneArgAction.
 !
 
+hasOpenEditor
+
+    ^ editorView notNil
+!
+
 openEditor
     "opens the editor on the current selection;
      returns the editorView or nil if no openEditorAction is defined
@@ -2286,5 +2291,5 @@
 !SelectionInListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.86 2003-06-04 09:17:46 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.87 2003-06-20 14:25:06 penk Exp $'
 ! !