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

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

Browse Source
This commit is contained in:
svkalinin
2022-08-03 13:00:34 +03:00
parent 70a731d402
commit d7eef2b5f8
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/editor.tcl
View File

@@ -348,9 +348,9 @@ namespace eval Editor {
#bind . <Control-udiaeresis> PageTab
bind $txt <Insert> {OverWrite}
bind $txt <ButtonRelease-1> []
bind $txt <Button-3> {catch [PopupMenuEditor %X %Y]}
bind $txt <Button-4> "%W yview scroll -3 units"
bind $txt <Button-5> "%W yview scroll 3 units"
# bind $txt <Button-3> {catch [PopupMenuEditor %X %Y]}
# bind $txt <Button-4> "%W yview scroll -3 units"
# bind $txt <Button-5> "%W yview scroll 3 units"
#bind $txt <Shift-Button-4> "%W xview scroll -2 units"
#bind $txt <Shift-Button-5> "%W xview scroll 2 units"
bind $txt <<Modified>> "SetModifiedFlag $w"