Posted to tcl by kevin_walzer at Fri Jul 22 00:59:11 GMT 2011view pretty

image create photo face-smile -data {R0lGODlhFgAWAOfpAGEpI2EqJEQ1G0Y2G1JCGlJDGlNDIVVFIXdNOnlPO25ZDm9aDoBjCYNlCYyD
ZI6EY8KFDZWLYsOGDpeMY7CPD7CPEMiJGsmJGrGRRteREb+ZDdmSEsCaDtaTJNeUJdWVK+GVGeOX
GuGXIuKZI+maHuycHt6eOOqgIu6gHuihNOaiOOmiNeyjJOejOfCjH/CkIOykLOymLe6nIO+mJ/Kn
Ie6nLfCnMvCpIe6pLvGpKPGpMvCsJdy0EcCzb8Gzb/GtJca2ae+vQN65I/CxQPazKvK0MfO0MfGz
Qfa1KvK0QO6zWe+0Wva4S+jDEfa5S/i9IuzCFu3DFvjAIvjAL/jCL/nEH/TAWPnGHvXCWfjFNPfB
YffCYfnIIPnGNPnJIPrJIPbEZfrKH/rKIPrLG/rLHPrLHfnKLfrLIfrMG/nISPbFdvvNGfvNGvnJ
SPfHZvvOGvfQEvfGdvjQE/rNMfrOMfrNPfvQHfzQHfjQLfrNRvjQL/vRJfzRJvrOWvbMh/3VHPfM
h/3WHPzVMP7XF/zVMfrPdv7YGP7YG/7YHPzWPPzWPfvUVP7ZHf7ZIPvWVf7aJv7aJ/7bJv7bM/7b
NP7cLf7dMPvXeP7dNvrVlv7eOPrWlvvaevrYmP7gRP7gRf7gRv7iTf7iWf7jUf3hav7jVv7jV/7k
YP7lYfzioPzjn/zjoP7ocvzkoP7oc/7pcf7pcvzlp/7pe/7pfP3mp/7si/7tjf/tkf/tkv7uj/3r
tf3stf/voP/vo//woP/wof/wpf/wp/7xuf7xvP/zqv7xwf/zq/7yuf/zsP/zsf/zsv7yv//zs/7y
xP/zuf/zu//1vP70zv/2vP/2wv/2w//3wv/20P/3zf/3zv/30P/4zv/5z//51P/51f/61f/61v/5
4v/63v/64v/73//85v/85//87f/87v/98v/+9v//////////////////////////////////////
/////////////////////////////////////////////////////yH+GkNyZWF0ZWQgd2l0aCBH
SU1QIG9uIGEgTWFjACH5BAEKAP8ALAAAAAAWABYAAAj+AP8JHEiwoMGDA3cUMfID4UEZVlBB+/YN
miosNxwKHAIrXLlz6NCdMxduVhKHQXJVs7YN3Dhy4rhdw6bryMEYqYL9QiYtWzdv2qYtA2aMFQ6D
YIg5s9Xr2DNq1KIl83WrGTM3BU9YEsYrFq0ID4YVczChlqxdyjaxIAhj0ahQplYZGIALl4ADrU6F
GuWoBsEZcwRJ6kQKiA9Xr3oAKfVpEiE6OQi+4GLnz6NLnUCJEgXKUyZIge58oUEQRRU2FeAcekSp
UiVKkRDJobDmiguCJJ6QgaKgySBGjRoxMtRkQZQxUkoQBEGECxshBBho4MGDQ4MCQth4QRKCYAYb
U8JosNGDIUEAAAgw4GEThoqODQVFMMkiBg2bPYkU8XmDRkwXJyMclIIWaZhxRhlkkFHGGWa0scUK
    CEGgghqF9JFHHXXk0UchcbQggUYdKOEHJpxwogkgS3igEUEWfGCCCR9csOKMNNYoUEAAOw==}

pack [text .t]

.t insert end :-)

foreach match [regexp -inline -all -indices {:-\)} [.t get 1.0 end]] {
	puts "match"

 .t replace "1.0 + [lindex $match 0] chars" "1.1 + [lindex $match 0] chars" [.t image create "1.0 + [lindex $match 0] chars" -image face-smile]
}