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

Change hotkeys "Control+," "Control+." "Control+/" (commect selected, uncoment selected, select all)

Browse Source 
Add some new translation
This commit is contained in:
Sergey Kalinin
2018-02-07 17:03:37 +03:00
parent 4f62fcbff4
commit 4b9c91d712
5 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/editor.tcl
View File

@@ -960,25 +960,15 @@ proc EditFile {node fileName} {
bind $text <Control-ntilde> "tk_textCopy $w.text;break"
bind $text <Control-c> "tk_textCopy $w.text;break"
bind $text <Control-igrave> "tk_textPaste $w.text;break"
#bind $text <Control-v> "tk_textPaste $w.text;break"
bind $text <Control-v> {TextOperation paste; break}
bind $text <Control-a> {
set nb [$noteBook raise]
if {$nb == "" || $nb == "newproj" || $nb == "about" || $nb == "debug"} {
return
}
set nb "$noteBook.f$nb"
SelectAll $nb.text
unset nb
}
bind $text <Control-adiaeresis> "auto_completition $text"
bind $text <Control-l> "auto_completition $text"
bind $text <Control-icircumflex> "auto_completition_proc $text"
bind $text <Control-j> "auto_completition_proc $text"
bind $text <Control-q> Find
bind $text <Control-slash> {TextOperation comment}
bind $text <Control-backslash> {TextOperation uncomment}
bind $text <Control-comma> {TextOperation comment}
bind $text <Control-period> {TextOperation uncomment}
bind $text <Control-eacute> Find
#bind . <Control-m> PageTab
#bind . <Control-udiaeresis> PageTab
@@ -1214,3 +1204,4 @@ GetOp