Posted to tcl by mjanssen at Thu Sep 20 15:31:50 GMT 2007view raw

  1. toplevel .t
  2.  
  3. set appl {
  4. R0lGODlhEgASAPUAAGZmZv///4tjMpKSkvru19m3UPj5c/K8MvblXfXZUPj2
  5. cbKysvbiWerFTPTMQf7865ZIA/jzbfv7+5lmM/758ffrZOq3NPjxa/vxvfjv
  6. aCNHadqTKz5njvj4cvjwafXIPPjpe/jkk/nlOvC2Lv755vXYZPXdXfj1b/LP
  7. Mf+9APPHO/rtofblZXl5eQAAAPjya/jVevfoafzwy/nlnPPDU/jnhnh2Z/v0
  8. TPv6Ue6/TvrsQszMmdC2TIZdMuzZbGtmXyH/C05FVFNDQVBFMi4wAwEAAAAh
  9. +QQJCgAuACwAAAAAEgASAAAGyECXcCgoGodIooAUKjlUh2JSKKBgTAwEgpFw
  10. jATJKoZRKF8y5QIKTCSxChGNRHGSF0RsV3VViSg4AQYdgBUJUVQBIAAbHRIP
  11. BgYBARkMH2wCAQAEAJCdBgoXCA6XmpkNCaioDSkNA2ylAw0bEBO1EBsAAAED
  12. QpoDfQqzELS6BAO7LQSmDX6zExEZxQsDpboAFR4XCRkIANQBm9ULAAlZot6S
  13. utTKmQIHHxYW6gMLmS66ku1GpQH1AL35/g3JRUCZwF65puRKKCQIACH5BAkB
  14. AA8ALAAAAAASABIAAAa9wIdwKCgah0iigBQqOVSHYlIooGBMDASCkXCMBMkq
  15. hlEoXzLlAgpMJLEKEY1EcZIXROxHdVWJKDgBBh2AFQlRVAEgHgodEgAbBgEB
  16. GQwfbAIBCC8KBgAEAAYGChcIDpcBMZueAQAJCQ0pAw2XMoqrAxMTEAAAAQML
  17. VDA1FZ4DEMe9BAO+RDM2BKwNDRMRyQsDRDSrvQAIAAPJAEgC2wu8y6ysSaus
  18. ywO/6uuSkuwL8fL0ntDiU0K84v/4CQkCACH5BAkWAAQALAAAAAASABIAAAay
  19. QIJwKCgah0iigBQqOVSHYlIooGBMDASCkXCMBMkqhlEoXzLlAgpMJLEKEY1E
  20. cZIXRGxCdVWJKDgBBh2AFQlRVAEgHgodEg8GADsBGQwfbAIBCC8KBp0AAQA4
  21. FwgOlwExmw0JnwsDACkNDZcyig0bnwCfAwuVlzA1FTi7nwEDxToWeQIzMTfE
  22. xK14SAI0Ic6grgGgPHlUOT662rg9U3oCugALoN1TxMWg5UnQufHyuQBTQQAh
  23. +QQJAQAPACwAAAAAEgASAAAGvcCHcCgoGodIooAUKjlUh2JSKKBgTAwEgpFw
  24. jATJKoZRKF8y5QIKTCSxChGNRHGSF0TsR3VViSg4AQYdgBUJUVQBIB4KHRIA
  25. GwYBARkMH2wCAQgvCgYABAAGBgoXCA6XATGbngEACQkNKQMNlzKKqwMTExAA
  26. AAEDC1QwNRWeAxDHvQQDvkQzNgSsDQ0TEckLA0Q0q70ACAADyQBIAtsLvMus
  27. rEmrrMsDv+rrkpLsC/Hy9J7Q4lNCvOL/+AkJAgAh+QQFAQAtACwAAAAAEgAS
  28. AAAGxMCWcCgoGodIooAUKjlUh2JSKKBgTAwEgpFwjATJKoZRKF8y5QIKTCSx
  29. ChGNRHGSF0TsVnVViSg4AQYdgBUJUVQBIB4KABIPBgYBARkMH2wCAQgvAAQA
  30. kJAKFwgOlwExnAEACasJDSkDDZcyqAMQE7cQAAABAwtUMJwDChsQxbsEA7xD
  31. PwSpDQ3EExHHCwNDqLsAFwkIAAPHANfNAAsAWt6S2eLpHxa7A72pSLuSqQKo
  32. AQvy8/XhugTjprTQFU4IwYJCggAAOw==
  33. }
  34.  
  35. set im [image create photo -data $appl]
  36.  
  37. menu .t.mb
  38. .t.mb add cascade -menu .t.mb.emo
  39. menu .t.mb.emo
  40. .t.mb.emo add command -image $im
  41. .t configure -menu .t.mb