Posted to tcl by mjanssen at Tue Feb 19 12:56:33 GMT 2008view raw
- menu .mnu
- proc showAbout {} {
- if {[info commands .about] ne {}} {
- # about is already there
- raise .about
- focus .about
- return
- }
- toplevel .about
- text .about.ab
- pack .about.ab -expand 1 -fill both
- .about.ab insert end {
- About
- --------------------
- This script is written to ease the work against google.
- Its goals are not yet reached so please be patient.
- Version: 0.1.5b
- Created by: David V. Wallin
- E-Mail: david.wallin@brearod.com
- }
- button .about.close -text Close -command {destroy .about}
- bind .about <Return> {.about.close invoke}
- pack .about.close
- focus .about
- }
- .mnu add command -label "About xGymse" -underline 0 \
- -command showAbout
- . configure -menu .mnu