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

  1. image create photo face-smile -data {R0lGODlhFgAWAOfpAGEpI2EqJEQ1G0Y2G1JCGlJDGlNDIVVFIXdNOnlPO25ZDm9aDoBjCYNlCYyD
  2. ZI6EY8KFDZWLYsOGDpeMY7CPD7CPEMiJGsmJGrGRRteREb+ZDdmSEsCaDtaTJNeUJdWVK+GVGeOX
  3. GuGXIuKZI+maHuycHt6eOOqgIu6gHuihNOaiOOmiNeyjJOejOfCjH/CkIOykLOymLe6nIO+mJ/Kn
  4. Ie6nLfCnMvCpIe6pLvGpKPGpMvCsJdy0EcCzb8Gzb/GtJca2ae+vQN65I/CxQPazKvK0MfO0MfGz
  5. Qfa1KvK0QO6zWe+0Wva4S+jDEfa5S/i9IuzCFu3DFvjAIvjAL/jCL/nEH/TAWPnGHvXCWfjFNPfB
  6. YffCYfnIIPnGNPnJIPrJIPbEZfrKH/rKIPrLG/rLHPrLHfnKLfrLIfrMG/nISPbFdvvNGfvNGvnJ
  7. SPfHZvvOGvfQEvfGdvjQE/rNMfrOMfrNPfvQHfzQHfjQLfrNRvjQL/vRJfzRJvrOWvbMh/3VHPfM
  8. h/3WHPzVMP7XF/zVMfrPdv7YGP7YG/7YHPzWPPzWPfvUVP7ZHf7ZIPvWVf7aJv7aJ/7bJv7bM/7b
  9. NP7cLf7dMPvXeP7dNvrVlv7eOPrWlvvaevrYmP7gRP7gRf7gRv7iTf7iWf7jUf3hav7jVv7jV/7k
  10. YP7lYfzioPzjn/zjoP7ocvzkoP7oc/7pcf7pcvzlp/7pe/7pfP3mp/7si/7tjf/tkf/tkv7uj/3r
  11. tf3stf/voP/vo//woP/wof/wpf/wp/7xuf7xvP/zqv7xwf/zq/7yuf/zsP/zsf/zsv7yv//zs/7y
  12. xP/zuf/zu//1vP70zv/2vP/2wv/2w//3wv/20P/3zf/3zv/30P/4zv/5z//51P/51f/61f/61v/5
  13. 4v/63v/64v/73//85v/85//87f/87v/98v/+9v//////////////////////////////////////
  14. /////////////////////////////////////////////////////yH+GkNyZWF0ZWQgd2l0aCBH
  15. SU1QIG9uIGEgTWFjACH5BAEKAP8ALAAAAAAWABYAAAj+AP8JHEiwoMGDA3cUMfID4UEZVlBB+/YN
  16. miosNxwKHAIrXLlz6NCdMxduVhKHQXJVs7YN3Dhy4rhdw6bryMEYqYL9QiYtWzdv2qYtA2aMFQ6D
  17. YIg5s9Xr2DNq1KIl83WrGTM3BU9YEsYrFq0ID4YVczChlqxdyjaxIAhj0ahQplYZGIALl4ADrU6F
  18. GuWoBsEZcwRJ6kQKiA9Xr3oAKfVpEiE6OQi+4GLnz6NLnUCJEgXKUyZIge58oUEQRRU2FeAcekSp
  19. UiVKkRDJobDmiguCJJ6QgaKgySBGjRoxMtRkQZQxUkoQBEGECxshBBho4MGDQ4MCQth4QRKCYAYb
  20. U8JosNGDIUEAAAgw4GEThoqODQVFMMkiBg2bPYkU8XmDRkwXJyMclIIWaZhxRhlkkFHGGWa0scUK
  21. CEGgghqF9JFHHXXk0UchcbQggUYdKOEHJpxwogkgS3igEUEWfGCCCR9csOKMNNYoUEAAOw==}
  22.  
  23. pack [text .t]
  24.  
  25. .t insert end :-)
  26.  
  27. foreach match [regexp -inline -all -indices {:-\)} [.t get 1.0 end]] {
  28. puts "match"
  29.  
  30. .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]
  31. }