svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Исправил вставку кавычек при выделении текста

Browse Source
This commit is contained in:
svk
2026-01-21 16:31:59 +03:00
parent 604175491a
commit 8435bf0254
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/editor.tcl
View File

@@ -6,7 +6,6 @@
###################################################### ######################################################
# Editor module # Editor module
###################################################### ######################################################
namespace eval Editor { namespace eval Editor {
variable selectionTex variable selectionTex
# Set the editor option # Set the editor option
@@ -928,7 +927,9 @@ namespace eval Editor {
} }
if {$posNum == $posBegin} { if {$posNum == $posBegin} {
if {$symbol == {"} || $symbol == {_}} { if {$symbol == {"} || $symbol == {_}} {
$txt insert $lineEnd.$posEnd "$selText$symbol" $txt tag remove sel $lineBegin.$posBegin $lineEnd.$posEnd
$txt insert $lineEnd.$posEnd "$symbol"
# $txt tag add sel "$lineBegin.$posBegin + 1 char" "$lineEnd.$posEnd + 1 char"
} else { } else {
$txt insert $lineEnd.$posEnd "$symbol" $txt insert $lineEnd.$posEnd "$symbol"
} }
@@ -937,7 +938,7 @@ namespace eval Editor {
if {$posBegin == 0} { if {$posBegin == 0} {
$txt insert $pos "$symbol" $txt insert $pos "$symbol"
} else { } else {
$txt insert "$pos + 1 chars" "$symbol" $txt insert "$pos + 0 chars" "$symbol"
} }
} }
$txt highlight $lineBegin.$posBegin $lineEnd.end $txt highlight $lineBegin.$posBegin $lineEnd.end
@@ -1604,7 +1605,7 @@ namespace eval Editor {
} }
set frmText [ttk::frame $w.frmText2 -border 1] set frmText [ttk::frame $w.frmText2 -border 1]
$w.panelTxt add $frmText -weight 1 puts "SplitEditorForExecute: $w"
# focus -force $frmText.t.t # focus -force $frmText.t.t
Execute $fileFullPath $frmText $w Execute $fileFullPath $frmText $w
} }