Created a base Controller class; added a CommandButton that submits

controller commands; have PlaceController extend Controller.


git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@4275 542714f4-19e9-0310-aa3c-eee0fc999fb1

src/as/com/threerings/mx/controls/CommandButton.as

@@ -0,0 +1,44 @@
+package com.threerings.mx.controls {
+
+import flash.events.MouseEvent;
+
+import mx.controls.Button;
+
+import com.threerings.events.ControllerEvent;
+
+/**
+ * A command button simply dispatches a Controller command (with an optional
+ * argument) when it is clicked.
+ */
+public class CommandButton extends Button
+{
+    /**
+     * Create a command button.
+     */
+    public function CommandButton (cmd :String = null, arg :Object = null)
+    {
+        setCommand(cmd, arg);
+    }
+
+    /**
+     * Set the command and argument to be issued when this button is pressed.
+     */
+    public function setCommand (cmd :String, arg :Object = null) :void
+    {
+        _cmd = cmd;
+        _arg = arg;
+    }
+
+    override protected function clickHandler (event :MouseEvent) :void
+    {
+        dispatchEvent(new ControllerEvent(_cmd, _arg));
+        event.stopImmediatePropagation();
+    }
+
+    /** The command to submit when clicked. */
+    protected var _cmd :String;
+
+    /** The argument that accompanies our command. */
+    protected var _arg :Object;
+}
+}