diff options
author | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:30 +0000 |
---|---|---|
committer | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:30 +0000 |
commit | c44379cc7d9c7aa113989237ab0f56db12aa5219 (patch) | |
tree | 66a84b20d47f2269d8bdc6e0323f338763424d3a /ACE/tests/TkReactor_Test.tcl | |
parent | 3aff90f4a822fcf5d902bbfbcc9fa931d6191a8c (diff) | |
download | ATCD-c44379cc7d9c7aa113989237ab0f56db12aa5219.tar.gz |
Repo restructuring
Diffstat (limited to 'ACE/tests/TkReactor_Test.tcl')
-rw-r--r-- | ACE/tests/TkReactor_Test.tcl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ACE/tests/TkReactor_Test.tcl b/ACE/tests/TkReactor_Test.tcl new file mode 100644 index 00000000000..2d9207dc126 --- /dev/null +++ b/ACE/tests/TkReactor_Test.tcl @@ -0,0 +1,15 @@ +# This file works in conjunction with the C++ source code in TkReactor_Test.cpp + + +# Create a frame. +set label_var "label for all events" + +# Add the new dude button. +button .pressme -text "Press me" -command pressme + +# Add a quit button. +button .goodbye -text "Quit" -command exit + +label .label_for_event_one -textvariable label_var + +pack .label_for_event_one .goodbye .pressme -side top -anchor w |