home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 27_1.tcl < prev    next >
Text File  |  2003-04-15  |  339b  |  16 lines
  1. #
  2. # Example 27-1
  3. # Bindings on different binding tags.
  4. #
  5.  
  6. frame .one -width 30 -height 30
  7. frame .two -width 30 -height 30
  8. bind Frame <Enter> {%W config -bg red}
  9. bind Frame <Leave> {%W config -bg white}
  10. bind .two <Button> {puts "Button %b at %x %y"}
  11. pack .one .two -side left
  12. bind all <Control-c> {destroy %W}
  13. bind all <Enter> {focus %W}
  14.  
  15.  
  16.