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

c_support #10

Merged
svk merged 74 commits from c_support into master 2026-02-12 12:23:37 +03:00
Conversation 0 Commits 74 Files Changed 25 +1085 -299
18 changed files with 1085 additions and 299 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 7511a5445e - Show all commits

2
lib/editor.tcl
View File

@@ -694,7 +694,7 @@ namespace eval Editor {
bind $txt <<Modified>> "SetModifiedFlag $w $nb auto"
bind $txt <Control-u> "Editor::SearchBrackets %W"
bind $txt <Control-Cyrillic_ghe> "Editor::SearchBrackets %W"
bind $txt <Control-J> "catch {Editor::GoToFunction $txt}"
bind $txt <Control-J> "catch {Editor::GoToFunction $txt}; break"
bind $txt <Control-j> "catch {Editor::GoToFunction $txt}; break"
bind $txt <Control-y> {Redo; break}
bind $txt <Control-Cyrillic_o> "catch {Editor::GoToFunction $txt}; break"

3
lib/notebook.tcl
View File

@@ -13,6 +13,7 @@ namespace eval NB {
proc InsertItem {nb item type} {
switch $type {
file {
set titleFileName [file tail $item]
set item [string tolower $item]
regsub -all {\.|/|\\|\s|:} $item "_" itemName
# puts "$item -> $itemName"
@@ -21,7 +22,7 @@ namespace eval NB {
} else {
set fm [ttk::frame $nb.$itemName]
pack $fm -side top -expand true -fill both
$nb add $fm -text [file tail $item];# -image close_12x12 -compound right
$nb add $fm -text $titleFileName;# -image close_12x12 -compound right
$nb select $fm
}
}