|
Lines 304-309
Link Here
|
| 304 |
if {[info exists tcl_platform(os)]} { |
304 |
if {[info exists tcl_platform(os)]} { |
| 305 |
switch $tcl_platform(os) { |
305 |
switch $tcl_platform(os) { |
| 306 |
"IRIX" - |
306 |
"IRIX" - |
|
|
307 |
"FreeBSD" - |
| 307 |
"Linux" { event add <<PrevWindow>> <ISO_Left_Tab> } |
308 |
"Linux" { event add <<PrevWindow>> <ISO_Left_Tab> } |
| 308 |
"HP-UX" { |
309 |
"HP-UX" { |
| 309 |
# This seems to be correct on *some* HP systems. |
310 |
# This seems to be correct on *some* HP systems. |