home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / tcl / 1916 < prev    next >
Encoding:
Text File  |  1992-11-21  |  4.6 KB  |  170 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!usc!sol.ctr.columbia.edu!ira.uka.de!math.fu-berlin.de!news.netmbx.de!zelator!gamelan!thomas
  3. From: thf@zelator.in-berlin.de (Thomas Funke)
  4. Subject: Re: Can <Tab> be used to change focus in forms?
  5. Message-ID: <1992Nov19.180939.455@gamelan>
  6. Sender: thomas@gamelan (thomas)
  7. Reply-To: thf@zelator.in-berlin.de (Thomas Funke)
  8. Organization: NNU Corp. - NeXT is Not UN*X
  9. References: <1992Nov18.044237.24882@sinkhole.unf.edu>
  10. Date: Thu, 19 Nov 1992 18:09:39 GMT
  11. Lines: 157
  12.  
  13. In article <1992Nov18.044237.24882@sinkhole.unf.edu> shite@sinkhole.unf.edu  
  14. (Stephen Hite) writes:
  15. > 
  16. > Real beginner question (thanks in advance)...
  17. > 
  18. >     When creating a dialog using the Tk Toolkit (with wish), is
  19. > it easy to get the <Tab> key to act as a focus changer so a user
  20. > could easily go from one field to the next without using the
  21. > mouse?  That is, I'm looking for the functionality you'd get in a dialog
  22. > with Microsoft Windows.  
  23.  
  24. Well, not difficult, but you have to do it yourself. I include some code I used  
  25. a while ago. Excuse the german comments.
  26.  
  27.  
  28. -------------- cut here -----------------------------------------
  29.  
  30. # Erzeugt im Window w einen 'labelled Entry'. ReturnCommand ist
  31. # das Kommando, welches bei Return ausgefuehrt wird, nextEntry
  32. # ins das Widget, welches bei Tab selektiert wird
  33. # Falls der 4, Parameter (check) angegeben ist,
  34. # wird das darin befindliche Check-Kommando (mit Entry-Widget als 
  35. # Parameter) aufgerufen,
  36. # welches 0 liefern muss, wenn das Feld ok ist,
  37. #
  38. # Zu jedem Entry-Widget wird ein (globales) Array erzeugt
  39. # mit folgenden Inhalten:
  40. #
  41. #    entry(check)    -     Checkfunktion fuer das Feld (oder leer)
  42. #    entry(next)    -    Naechstes Feld (fuer TAB)
  43. #    entry(return)    -    Das Kommando, welches bei RET ausgefuehrt wird
  44. #    entry(disabled) -    1 wenn das Feld disabled ist
  45. #
  46. proc entryWidget { w labelText returnCommand nextEntry {check ""}} {
  47.     global $w.entry
  48.     
  49.     frame $w -borderwidth 5
  50.     label $w.label -text $labelText
  51.     entry $w.entry -width 100 -relief sunken
  52.     bind $w.entry <Key-Tab> "entryTab $w.entry"
  53.     bind $w.entry <Key-Return> "entryReturn $w.entry"
  54.     set $w.entry(check) $check
  55.     set $w.entry(next) $nextEntry.entry
  56.     set $w.entry(disabled) 0
  57.     set $w.entry(return) $returnCommand
  58.  
  59.     pack append $w $w.label { left } $w.entry {left fill frame e}
  60.     return $w
  61. }
  62.  
  63. # Wird bei Eingabe eines TAB's im Entry aufgerufen
  64. # Falls das Check-Kommando des Widgets != 0 ergibt, wird
  65. # nicht ins naechste Feld gesprungen !
  66. proc entryTab {w} {
  67.     global $w
  68.  
  69.     trimEntry $w
  70.     if {[set [set w](check)] != ""} {
  71.     if {[eval [set [set w](check)] $w] != 0} return
  72.     }
  73.  
  74.     # Das naechste Feld
  75.     set next [set [set w](next)]
  76.     global $next
  77.  
  78.     while {[set [set next](disabled)]} {
  79.     set next [set [set next](next)]
  80.     global $next
  81.     }
  82.     
  83.     focus $next
  84. }
  85.  
  86. #wird bei RETURN im Entry aufgerufen
  87. proc entryReturn {w} {
  88.     global $w
  89.     
  90.     trimEntry $w
  91.     if {[set [set w](check)] != ""} {
  92.     if {[eval [set [set w](check)] $w] != 0} return
  93.     }
  94.     catch [set [set w](return)]
  95. }
  96.  
  97. # ruft "focus $w" auf, wenn das aktuelle
  98. # Entry die 'Check-Funktion' passiert hat
  99. proc checkFocus {w} {
  100.     set current [focus]
  101.     global $current
  102.  
  103.     if {$w == $current} return
  104.     if {[catch "set [set current](check)"] != 0} {
  105.     focus $w
  106.     return
  107.     }
  108.     
  109.     set checkFunc [set [set current](check)]    
  110.     if {($checkFunc != "") && [$checkFunc $current] != 0} return
  111.     
  112.     focus $w
  113. }
  114.  
  115. # Prueft das aktuelle Feld, wo der Focus
  116. # drauf ist und liefert 0 wenn ok, 
  117. # ansonsten -1
  118. proc checkCurrentFocus {} {
  119.     
  120.     set current [focus]
  121.     global $current
  122.     if { $current  != "none" } {
  123.     if {[catch "set [set current](check)"] == 0} {
  124.         set checkFunc [set [set current](check)]
  125.         if {($checkFunc != "") && [$checkFunc $current] != 0} {
  126.         return -1
  127.         }
  128.     }
  129.     }
  130.     return 0
  131. }
  132.  
  133.  
  134.  
  135. # Erlaubt keine Editierung fuer das angegebene Entry-Widget
  136. proc disableEntry {w} {
  137.     global $w
  138.     
  139.     bind $w <1> return
  140.     $w configure -background bisque2
  141.     $w delete 0 9999
  142.     set [set w](disabled) 1
  143. }
  144.  
  145. # Entry wieder fuer Eingaben enablen
  146. proc enableEntry {w} {
  147.     global $w
  148.     
  149.     bind $w <1> { 
  150.     %W select clear; %W cursor @%x; 
  151.     checkFocus %W; %W select from @%x
  152.     }
  153.     $w configure -background AntiqueWhite1
  154.     set [set w](disabled) 0
  155. }
  156.  
  157. # entfernt Blanks am Anfang und Ende des Entries
  158. proc trimEntry {w} {
  159.     set s [string trim [$w get]]
  160.     $w delete 0 999
  161.     $w insert 0 $s
  162. }
  163. ------------------------------------------------------
  164.  
  165. -- 
  166. ------------------------------------------------------------------
  167. Thomas Funke  ** E-mail: thf@zelator.in-berlin.de
  168. NeXT-Developer * Unix-Consultant
  169. ------------------------------------------------------------------
  170.