chatwindow.mxml

用ACTIONSCRIPT编写的简单实时消息发送软件源代码。开发平台为FLEX。

<?xml version="1.0" encoding="utf-8"?>
<mx:TitleWindow xmlns:mx="http://www.adobe.com/2006/mxml" 
				layout="absolute" 
				width="350" 
				height="250"
				title="Private chat"
				showCloseButton="true"
				mouseDown="dragStart()"
				mouseUp="dragStop()" 
				close="parentApplication.bt_close_chat(event)">
	
	<mx:Script>
		<![CDATA[
		
			[Bindable]
			public var buddy:Object
			
			function dragStart():void
			{
				if (titleBar.hitTestPoint(stage.mouseX, stage.mouseY, true))
				{
					startDrag();
				}
			}
			
			function dragStop():void
			{
				if (titleBar.hitTestPoint(stage.mouseX, stage.mouseY, true))
				{
					stopDrag();
				}
			}

		]]>
	</mx:Script>
				
	<mx:VBox width="100%" height="100%" top="5" bottom="5" right="5" left="5" id="vbox">
		<mx:TextArea width="100%" height="100%" id="ta_chat" />
		<mx:HBox width="100%">
			<mx:TextInput width="100%" id="tf_message" />
			<mx:Button id="bt_sendMessage" label="Send" click="parentApplication.bt_send_message(event)"	/>
		</mx:HBox>
		
	</mx:VBox>
</mx:TitleWindow>