BookmarksEditDialog.st
changeset 8662 a117da640cb7
parent 8262 69dabd2e594a
child 8812 a8f234ce348d
--- a/BookmarksEditDialog.st	Wed Jul 08 13:49:16 2009 +0200
+++ b/BookmarksEditDialog.st	Wed Jul 08 13:49:23 2009 +0200
@@ -278,20 +278,28 @@
     ^ self openWith: bookmarks defaultBookmark: ''
 !
 
-openWith: bookmarks defaultBookmark: aFilename
+openWith:bookmarks defaultBookmark:aFilename
 
     | dialog bookmarkStrings |
 
     dialog := BookmarksEditDialog new.
 
     dialog allButOpenInterface:#windowSpec.
-    Dialog aboutToOpenBoxNotificationSignal raiseRequestWith:dialog. 
 
     aFilename notNil ifTrue:[dialog defaultBookmark: aFilename asString.].
     bookmarkStrings := bookmarks collect:[:each | each asString].
     dialog bookmarkList: bookmarkStrings.
     dialog openWindow.
     ^ dialog answer
+
+    "
+     Dialog aboutToOpenBoxNotificationSignal handle:[:ex |
+        self halt.
+        ex proceed
+     ] do:[
+        self openWith:#() defaultBookmark:nil
+     ].
+    "
 ! !
 
 !BookmarksEditDialog methodsFor:'accessing'!
@@ -575,5 +583,5 @@
 !BookmarksEditDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BookmarksEditDialog.st,v 1.3 2008-09-04 08:04:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BookmarksEditDialog.st,v 1.4 2009-07-08 11:49:23 cg Exp $'
 ! !