Show More
@@ -795,8 +795,8 b' proc bindkey {ev script} {' | |||
|
795 | 795 | # set the focus back to the toplevel for any click outside |
|
796 | 796 | # the entry widgets |
|
797 | 797 | proc click {w} { |
|
798 | global entries | |
|
799 | foreach e $entries { | |
|
798 | global ctext entries | |
|
799 | foreach e [concat $entries $ctext] { | |
|
800 | 800 | if {$w == $e} return |
|
801 | 801 | } |
|
802 | 802 | focus . |
@@ -2546,6 +2546,7 b' proc selectline {l isnew} {' | |||
|
2546 | 2546 | |
|
2547 | 2547 | proc selnextline {dir} { |
|
2548 | 2548 | global selectedline |
|
2549 | focus . | |
|
2549 | 2550 | if {![info exists selectedline]} return |
|
2550 | 2551 | set l [expr $selectedline + $dir] |
|
2551 | 2552 | unmarkmatches |
@@ -2583,6 +2584,7 b' proc addtohistory {cmd} {' | |||
|
2583 | 2584 | |
|
2584 | 2585 | proc goback {} { |
|
2585 | 2586 | global history historyindex |
|
2587 | focus . | |
|
2586 | 2588 | |
|
2587 | 2589 | if {$historyindex > 1} { |
|
2588 | 2590 | incr historyindex -1 |
@@ -2597,6 +2599,7 b' proc goback {} {' | |||
|
2597 | 2599 | |
|
2598 | 2600 | proc goforw {} { |
|
2599 | 2601 | global history historyindex |
|
2602 | focus . | |
|
2600 | 2603 | |
|
2601 | 2604 | if {$historyindex < [llength $history]} { |
|
2602 | 2605 | set cmd [lindex $history $historyindex] |
General Comments 0
You need to be logged in to leave comments.
Login now