home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 27_4.tcl < prev    next >
Text File  |  2003-04-15  |  599b  |  25 lines
  1. #
  2. # Example 27-4
  3. # Virtual events for cut, copy, and paste.
  4. #
  5.  
  6. switch $tcl_platform(platform) {
  7.      "unix" {
  8.         event add <<Cut>> <Control-Key-x> <Key-F20> 
  9.         event add <<Copy>> <Control-Key-c> <Key-F16>
  10.         event add <<Paste>> <Control-Key-v> <Key-F18>
  11.     }
  12.     "windows" {
  13.         event add <<Cut>> <Control-Key-x> <Shift-Key-Delete>
  14.         event add <<Copy>> <Control-Key-c> <Control-Key-Insert>
  15.         event add <<Paste>> <Control-Key-v> <Shift-Key-Insert>
  16.     }
  17.     "macintosh" {
  18.         event add <<Cut>> <Control-Key-x> <Key-F2> 
  19.         event add <<Copy>> <Control-Key-c> <Key-F3>
  20.         event add <<Paste>> <Control-Key-v> <Key-F4>
  21.     }
  22. }
  23.  
  24.  
  25.