Extra smilies in Quick Reply [CB]

[Todge]

This is an 'add-on' to my smilie code....

'Drop down' smilie code with preview box etc.

To add the smilies to Quick Reply, put this code directly below the above code in your Global Footer...

<script type="text/javascript">
<!--
// Add smilies to Quick Reply (V3)...
if(pb_action == 'display')
{
var QR = document.getElementsByTagName('TD');
for(q=0; q<QR.length; q++)
{
if(QR[q].className == 'titlebg' && QR[q].innerHTML.match('Quick Reply'))
{
smilieCode = smilieCode.replace(/<br \/><br \/>/,'');
content = content.replace(/add/g,'adds');
content = content.replace('height: 180px','height: 130px');

function adds(smilie)
{
postBox.value=postBox.value+smilie;
}

document.write('<style> textarea { WIDTH: 100%; }</style>');
var QRcode = QR[q+1].innerHTML;
QR[q+1].innerHTML = '<table width="100%"><tr><td>'+QRcode+'</td><td align="center" valign="middle" width="30%">'+smilieCode+'</td></tr></table>';
}}
postBox=document.getElementsByTagName('textarea');
for(pb=0; pb<postBox.length; pb++)
{
if(postBox[pb].name == 'message')
{
postBox=postBox[pb];
break;
}}
showSmilies();
}
// -->
</script>