Notification.st
changeset 22888 fd3825a9dc9e
parent 22092 0ddced7926e5
child 23304 eb5349cc3973
--- a/Notification.st	Thu May 10 23:55:25 2018 +0200
+++ b/Notification.st	Thu May 10 23:56:01 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
               All Rights Reserved
@@ -246,6 +248,15 @@
     ^ self raiseAsQuery
 !
 
+queryWith:aParameter
+    "raise the query - return the handler's value, or the default
+     value, if there is no handler.
+     Invoking the handler is exactly the functionality of Signal>>raiseRequest,
+     but we can do it faster here (avoiding the construction of an exception instance)."
+
+    ^ self raiseRequestWith:aParameter
+!
+
 raise
     "Notifications are proceedable by definition,
      so they should be raised with #query or #raiseRequest"