diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-10-29 16:42:20 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-10-29 16:42:20 (GMT) |
| commit | ae78f51281c62b80a04f7fac74514e77c50d414f (patch) | |
| tree | adec4fe25f8991549af8fd2b782ed2837c84ea92 /library/demos/hello | |
| parent | 0f7f254616e3bbed160bf140e85cce32d98f30bc (diff) | |
| download | tk-ae78f51281c62b80a04f7fac74514e77c50d414f.zip tk-ae78f51281c62b80a04f7fac74514e77c50d414f.tar.gz tk-ae78f51281c62b80a04f7fac74514e77c50d414f.tar.bz2 | |
More demo upgrades derived from 8.3.4
Diffstat (limited to 'library/demos/hello')
| -rw-r--r-- | library/demos/hello | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/library/demos/hello b/library/demos/hello index c6bd8c8..ac5cdff 100644 --- a/library/demos/hello +++ b/library/demos/hello @@ -6,7 +6,7 @@ exec wish "$0" "$@" # Simple Tk script to create a button that prints "Hello, world". # Click on the button to terminate the program. # -# RCS: @(#) $Id: hello,v 1.2 1998/09/14 18:23:28 stanton Exp $ +# RCS: @(#) $Id: hello,v 1.3 2001/10/29 16:42:20 dkf Exp $ # # The first line below creates the button, and the second line # asks the packer to shrink-wrap the application's main window @@ -16,3 +16,7 @@ button .hello -text "Hello, world" -command { puts stdout "Hello, world"; destroy . } pack .hello + +# Local Variables: +# mode: tcl +# End: |