Добавил фокус ввода на 'терминал' если он открыт во вкладке (при переключении вкладок).
This commit is contained in:
@@ -55,11 +55,15 @@ namespace eval NB {
|
|||||||
FileOper::Close $w
|
FileOper::Close $w
|
||||||
} else {
|
} else {
|
||||||
set txt [$w select].frmText.t
|
set txt [$w select].frmText.t
|
||||||
|
if {[winfo exists [$w select].frmText2] == 1} {
|
||||||
|
focus -force [$w select].frmText2.frame.text.t
|
||||||
|
} else {
|
||||||
if [winfo exists $txt] {
|
if [winfo exists $txt] {
|
||||||
focus -force $txt.t
|
focus -force $txt.t
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|
||||||
proc NextTab {w step} {
|
proc NextTab {w step} {
|
||||||
global tree
|
global tree
|
||||||
@@ -85,8 +89,13 @@ namespace eval NB {
|
|||||||
Tree::SelectItem $treeItemName
|
Tree::SelectItem $treeItemName
|
||||||
|
|
||||||
set txt [$w select].frmText.t
|
set txt [$w select].frmText.t
|
||||||
|
puts "NextTab: [$w select]"
|
||||||
|
if {[winfo exists [$w select].frmText2] == 1} {
|
||||||
|
focus -force [$w select].frmText2.frame.text.t
|
||||||
|
} else {
|
||||||
if [winfo exists $txt] {
|
if [winfo exists $txt] {
|
||||||
focus -force $txt.t
|
focus -force $txt.t
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user