Posted to tcl by mjanssen at Thu Sep 20 15:31:50 GMT 2007view pretty
toplevel .t
set appl {
R0lGODlhEgASAPUAAGZmZv///4tjMpKSkvru19m3UPj5c/K8MvblXfXZUPj2
cbKysvbiWerFTPTMQf7865ZIA/jzbfv7+5lmM/758ffrZOq3NPjxa/vxvfjv
aCNHadqTKz5njvj4cvjwafXIPPjpe/jkk/nlOvC2Lv755vXYZPXdXfj1b/LP
Mf+9APPHO/rtofblZXl5eQAAAPjya/jVevfoafzwy/nlnPPDU/jnhnh2Z/v0
TPv6Ue6/TvrsQszMmdC2TIZdMuzZbGtmXyH/C05FVFNDQVBFMi4wAwEAAAAh
+QQJCgAuACwAAAAAEgASAAAGyECXcCgoGodIooAUKjlUh2JSKKBgTAwEgpFw
jATJKoZRKF8y5QIKTCSxChGNRHGSF0RsV3VViSg4AQYdgBUJUVQBIAAbHRIP
BgYBARkMH2wCAQAEAJCdBgoXCA6XmpkNCaioDSkNA2ylAw0bEBO1EBsAAAED
QpoDfQqzELS6BAO7LQSmDX6zExEZxQsDpboAFR4XCRkIANQBm9ULAAlZot6S
utTKmQIHHxYW6gMLmS66ku1GpQH1AL35/g3JRUCZwF65puRKKCQIACH5BAkB
AA8ALAAAAAASABIAAAa9wIdwKCgah0iigBQqOVSHYlIooGBMDASCkXCMBMkq
hlEoXzLlAgpMJLEKEY1EcZIXROxHdVWJKDgBBh2AFQlRVAEgHgodEgAbBgEB
GQwfbAIBCC8KBgAEAAYGChcIDpcBMZueAQAJCQ0pAw2XMoqrAxMTEAAAAQML
VDA1FZ4DEMe9BAO+RDM2BKwNDRMRyQsDRDSrvQAIAAPJAEgC2wu8y6ysSaus
ywO/6uuSkuwL8fL0ntDiU0K84v/4CQkCACH5BAkWAAQALAAAAAASABIAAAay
QIJwKCgah0iigBQqOVSHYlIooGBMDASCkXCMBMkqhlEoXzLlAgpMJLEKEY1E
cZIXRGxCdVWJKDgBBh2AFQlRVAEgHgodEg8GADsBGQwfbAIBCC8KBp0AAQA4
FwgOlwExmw0JnwsDACkNDZcyig0bnwCfAwuVlzA1FTi7nwEDxToWeQIzMTfE
xK14SAI0Ic6grgGgPHlUOT662rg9U3oCugALoN1TxMWg5UnQufHyuQBTQQAh
+QQJAQAPACwAAAAAEgASAAAGvcCHcCgoGodIooAUKjlUh2JSKKBgTAwEgpFw
jATJKoZRKF8y5QIKTCSxChGNRHGSF0TsR3VViSg4AQYdgBUJUVQBIB4KHRIA
GwYBARkMH2wCAQgvCgYABAAGBgoXCA6XATGbngEACQkNKQMNlzKKqwMTExAA
AAEDC1QwNRWeAxDHvQQDvkQzNgSsDQ0TEckLA0Q0q70ACAADyQBIAtsLvMus
rEmrrMsDv+rrkpLsC/Hy9J7Q4lNCvOL/+AkJAgAh+QQFAQAtACwAAAAAEgAS
AAAGxMCWcCgoGodIooAUKjlUh2JSKKBgTAwEgpFwjATJKoZRKF8y5QIKTCSx
ChGNRHGSF0TsVnVViSg4AQYdgBUJUVQBIB4KABIPBgYBARkMH2wCAQgvAAQA
kJAKFwgOlwExnAEACasJDSkDDZcyqAMQE7cQAAABAwtUMJwDChsQxbsEA7xD
PwSpDQ3EExHHCwNDqLsAFwkIAAPHANfNAAsAWt6S2eLpHxa7A72pSLuSqQKo
AQvy8/XhugTjprTQFU4IwYJCggAAOw==
}
set im [image create photo -data $appl]
menu .t.mb
.t.mb add cascade -menu .t.mb.emo
menu .t.mb.emo
.t.mb.emo add command -image $im
.t configure -menu .t.mb