AboutToOpenBoxNotificationSignal moved to SimpleView and now raised
authorClaus Gittinger <cg@exept.de>
Wed, 08 Jul 2009 13:49:23 +0200
changeset 8662 a117da640cb7
parent 8661 086147f751d0
child 8663 22e0a2969ab2
AboutToOpenBoxNotificationSignal moved to SimpleView and now raised for ALL modalboxes right before opened.
BookmarksEditDialog.st
--- 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 $'
 ! !