home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / tk3.3b1 / library / demos / hello < prev    next >
Encoding:
Tcl/Tk script  |  1993-07-01  |  392 b   |  13 lines
  1. #!/usr/local/bin/wish -f
  2. # Simple Tk script to create a button that prints "Hello, world".
  3. # Click on the button to terminate the program.
  4. # 
  5. # The first line below creates the button, and the second line
  6. # asks the packer to shrink-wrap the application's main window
  7. # around the button.
  8.  
  9. button .hello -text "Hello, world" -command {
  10.     puts stdout "Hello, world"; destroy .
  11. }
  12. pack .hello
  13.