From 1b054677c282dae3dc5f272ce99ec24de04a9d2b Mon Sep 17 00:00:00 2001
From: Ray Greenwell <ray@threerings.net>
Date: Tue, 4 Dec 2007 03:20:26 +0000
Subject: [PATCH] Allow ValueEvents to be cancelable.

git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@4898 542714f4-19e9-0310-aa3c-eee0fc999fb1
---
 src/as/com/threerings/util/ValueEvent.as | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/as/com/threerings/util/ValueEvent.as b/src/as/com/threerings/util/ValueEvent.as
index 0ab9a5c48..bdaa12ed8 100644
--- a/src/as/com/threerings/util/ValueEvent.as
+++ b/src/as/com/threerings/util/ValueEvent.as
@@ -39,15 +39,16 @@ public class ValueEvent extends Event
     /**
      * Construct the value event.
      */
-    public function ValueEvent (type :String, value :Object)
+    public function ValueEvent (
+        type :String, value :Object, bubbles :Boolean = false, cancelable :Boolean = false)
     {
-        super(type);
+        super(type, bubbles, cancelable);
         _value = value;
     }
 
     override public function clone () :Event
     {
-        return new ValueEvent(type, _value);
+        return new ValueEvent(type, _value, bubbles, cancelable);
     }
 
     /** The value. */