/[ascend]/trunk/tcltk/TK/GlobalProc.tcl
ViewVC logotype

Diff of /trunk/tcltk/TK/GlobalProc.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 603 by ben.allan, Tue May 9 19:07:39 2006 UTC revision 604 by ben.allan, Mon May 15 18:59:21 2006 UTC
# Line 400  proc set_cmuBindings {} { Line 400  proc set_cmuBindings {} {
400    #    #
401    #Texts    #Texts
402    #    #
403      global asc_swap_del_backspace
404    # munge both backspace and delete to    # munge both backspace and delete to
405    if {$tcl_platform(platform)=="unix" && !$tk_strictMotif} {    if {$tcl_platform(platform)=="unix" && !$tk_strictMotif && $asc_swap_del_backspace=="1" } {
406      # the standard tcl text bindings. Swap them.      # the standard tcl text bindings. Swap them.
407      # bind Text <Delete> {      # bind Text <Delete> {
408      #    if {[%W tag nextrange sel 1.0 end] != ""} {      #    if {[%W tag nextrange sel 1.0 end] != ""} {
Legend:
Removed from v.603  
changed lines
  Added in v.604
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22