home *** CD-ROM | disk | FTP | other *** search
/ Dream 46 / Amiga_Dream_46.iso / Linux / Magazine / Tcltk / keysym.tcl < prev    next >
Text File  |  1997-11-13  |  383b  |  15 lines
  1. message .message -width 32c -text "DΘplacez le curseur de la souris\ndans le champ d'Θdition\n et appuyez sur des touches du clavier\n" 
  2.  
  3. entry .entry
  4.  
  5. pack .message .entry
  6.  
  7. bind .entry <KeyPress> { 
  8.  
  9.   puts "\nEvΦnement clavier dans %W : \n"
  10.  
  11.   puts "Code de touche   : %k"
  12.   puts "caractΦre ASCII  : %A"
  13.   puts "Nom symbolique   : %K"
  14.   puts "Valeur du keysym : %N"
  15. }