From 978482c2ae7ce74c124796930fca4ecd55f331d9 Mon Sep 17 00:00:00 2001 From: svk Date: Wed, 21 Jan 2026 16:33:50 +0300 Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=B8=D0=BB=20?= =?UTF-8?q?=D1=84=D0=BE=D0=BA=D1=83=D1=81=20=D0=B2=D0=B2=D0=BE=D0=B4=D0=B0?= =?UTF-8?q?=20=D0=BD=D0=B0=20'=D1=82=D0=B5=D1=80=D0=BC=D0=B8=D0=BD=D0=B0?= =?UTF-8?q?=D0=BB'=20=D0=B5=D1=81=D0=BB=D0=B8=20=D0=BE=D0=BD=20=D0=BE?= =?UTF-8?q?=D1=82=D0=BA=D1=80=D1=8B=D1=82=20=D0=B2=D0=BE=20=D0=B2=D0=BA?= =?UTF-8?q?=D0=BB=D0=B0=D0=B4=D0=BA=D0=B5=20(=D0=BF=D1=80=D0=B8=20=D0=BF?= =?UTF-8?q?=D0=B5=D1=80=D0=B5=D0=BA=D0=BB=D1=8E=D1=87=D0=B5=D0=BD=D0=B8?= =?UTF-8?q?=D0=B8=20=D0=B2=D0=BA=D0=BB=D0=B0=D0=B4=D0=BE=D0=BA).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/notebook.tcl | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/lib/notebook.tcl b/lib/notebook.tcl index 3df850b..cb0c719 100644 --- a/lib/notebook.tcl +++ b/lib/notebook.tcl @@ -55,8 +55,12 @@ namespace eval NB { FileOper::Close $w } else { set txt [$w select].frmText.t - if [winfo exists $txt] { - focus -force $txt.t + if {[winfo exists [$w select].frmText2] == 1} { + focus -force [$w select].frmText2.frame.text.t + } else { + if [winfo exists $txt] { + focus -force $txt.t + } } } } @@ -85,8 +89,13 @@ namespace eval NB { Tree::SelectItem $treeItemName set txt [$w select].frmText.t - if [winfo exists $txt] { - focus -force $txt.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] { + focus -force $txt.t + } } } }