example about

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