(defprop &mut :Float->Void activeState null)

(defmethod new [:Float->Void initialState]
    (set activeState initialState))

(defmethod :Void update [:Float elapsed]
    (activeState elapsed))