hidrodixtion

TestWSClient.as

Jul 1st, 2016
378
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. package {
  2.  
  3. import com.bit101.components.HBox;
  4. import com.bit101.components.InputText;
  5. import com.bit101.components.Label;
  6. import com.bit101.components.PushButton;
  7. import com.bit101.components.TextArea;
  8. import com.bit101.components.VBox;
  9.  
  10. import flash.display.Sprite;
  11. import flash.events.MouseEvent;
  12. import flash.text.TextField;
  13.  
  14. import rzq.Wasp;
  15.  
  16. public class TestWSClient extends Sprite {
  17.     var wasp: Wasp;
  18.     var msgInput:InputText;
  19.     var msgButton:PushButton;
  20.     var msgArea: TextArea;
  21.  
  22.     public function TestWSClient() {
  23.         _initUI();
  24.         wasp = new Wasp("127.0.0.1", "8001");
  25.         wasp.messageSignal.add(_onMessage);
  26.     }
  27.  
  28.     private function _onMessage(message: String):void {
  29.         msgArea.text += message;
  30.     }
  31.  
  32.     private function _initUI():void {
  33.         var vb:VBox = new VBox(this, 10, 10);
  34.         vb.spacing = 12;
  35.         var hb:HBox = new HBox(vb);
  36.         hb.spacing = 6;
  37.         hb.alignment = HBox.MIDDLE;
  38.         var lbl1:Label = new Label(hb, 0, 0, "Message:");
  39.         msgInput = new InputText(hb);
  40.         msgButton = new PushButton(hb, 0, 0, "Send", _onSendClicked);
  41.         msgArea = new TextArea(vb);
  42.     }
  43.  
  44.     private function _onSendClicked(e:MouseEvent):void {
  45.         wasp.sendMessage(msgInput.text);
  46.     }
  47. }
  48. }
Advertisement