AboutToOpenBoxNotificationSignal moved to SimpleView and now raised
for ALL modalboxes right before opened.
--- 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 $'
! !