Окно со Смайлами

[TrendBlack]

Имеется коллекция смайлов в Smiles.swf. Нужно отобразить окно со всеми смайлами. При нажатии на смайл, в компонент TextInput, должен вставляться код смайла. Подскажите как это сделать.

Изначально была идея сделать TileList в него напихать кнопок и натенуть на них скины. Незнаю что не так делаю:

<?xml version="1.0" encoding="utf-8"?>
<mx:TitleWindow xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" close="processLogin();" creationComplete="handleCreationComplete();"
initialize="initData();">

<mx:Script>
<![CDATA[
import mx.skins.halo.SliderTrackSkin;
import mx.managers.PopUpManager;

import mx.controls.Button;
import mx.collections.*;

private function handleCreationComplete():void {
PopUpManager.centerPopUp(this);
}
private function processLogin():void {
PopUpManager.removePopUp(this);
}

private var listArray:Array=[
{skin: "@Embed('assets/Smiles.swf#smi_tongue')", data: 0},
{skin: "@Embed('assets/Smiles.swf#smi_sad')", data: 1},
{skin: "@Embed('assets/Smiles.swf#smi_sad')", data: 2},
{skin: "@Embed('assets/Smiles.swf#smi_cool')", data: 3}
];
[Bindable]

public var TileListdp:ArrayCollection;
private function initData():void {
TileListdp = new ArrayCollection(listArray);
myList.dataProvider = TileListdp;
}
]]>
</mx:Script>

<mx:TileList id="myList" itemRenderer="mx.controls.Button"
dataProvider="{TileListdp}"/>
<mx:TextInput id="TexInp"/>

</mx:TitleWindow>