ACE/tests/TkReactor_Test.tcl

   1 # This file works in conjunction with the C++ source code in TkReactor_Test.cpp
   2
   3
   4 # Create a frame.
   5 set label_var "label for all events"
   6
   7 # Add the new dude button.
   8 button .pressme -text "Press me" -command pressme
   9
  10 # Add a quit button.
  11 button .goodbye -text "Quit" -command exit
  12
  13 label .label_for_event_one -textvariable label_var
  14
  15 pack .label_for_event_one .goodbye .pressme -side top -anchor w