Posted to tcl by mjanssen at Tue Feb 19 12:56:33 GMT 2008view raw

  1. menu .mnu
  2.  
  3. proc showAbout {} {
  4. if {[info commands .about] ne {}} {
  5. # about is already there
  6. raise .about
  7. focus .about
  8. return
  9. }
  10. toplevel .about
  11. text .about.ab
  12. pack .about.ab -expand 1 -fill both
  13. .about.ab insert end {
  14. About
  15. --------------------
  16. This script is written to ease the work against google.
  17. Its goals are not yet reached so please be patient.
  18.  
  19. Version: 0.1.5b
  20. Created by: David V. Wallin
  21. E-Mail: david.wallin@brearod.com
  22. }
  23. button .about.close -text Close -command {destroy .about}
  24. bind .about <Return> {.about.close invoke}
  25. pack .about.close
  26. focus .about
  27. }
  28.  
  29. .mnu add command -label "About xGymse" -underline 0 \
  30. -command showAbout
  31.  
  32. . configure -menu .mnu