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

Add some new translation

CHANGELOG

@@ -9,6 +9,8 @@
 07.02.2018
 - Tcl, Perl, PHP highlight comment procedure fixed
 - Help file Text.html utf-8 encoding
+- Change hotkeys "Control+," "Control+." "Control+/" (commect selected, uncoment selected, select all)
+- Add new function Comments/Uncomment selected text
 
 05.02.2018
 - Added binding mouse button: click on notebook tab highlight opened file name in tree
@@ -391,5 +393,6 @@ Fixed bug with PageRise function
 
 
 
+
 
 

lib/editor.tcl

@@ -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
 
 
 
+

lib/main.tcl

@@ -110,7 +110,7 @@ proc GetMenu {m} {
     $m add command -label [::msgcat::mc "Cut"] -font $fontNormal -accelerator "Ctrl+X"\
     -command {TextOperation cut}
     $m add separator
-    $m add command -label [::msgcat::mc "Select all"] -font $fontNormal -accelerator "Ctrl+A"\
+    $m add command -label [::msgcat::mc "Select all"] -font $fontNormal -accelerator "Ctrl+/"\
     -command {
         set nb [$noteBook raise]
         if {$nb == "" || $nb == "newproj" || $nb == "about" || $nb == "debug"} {
@@ -120,9 +120,9 @@ proc GetMenu {m} {
         SelectAll $nb.text
         unset nb
     }
-    $m add command -label [::msgcat::mc "Comment selected"] -font $fontNormal -accelerator "Ctrl+/"\
-    -command {TextOperation comment}
-    $m add command -label [::msgcat::mc "Uncomment selected"] -font $fontNormal  -accelerator "Ctrl+\\" \
+    $m add command -label [::msgcat::mc "Comment selected"] -font $fontNormal -accelerator "Ctrl+,"\
+            -command {TextOperation comment}
+    $m add command -label [::msgcat::mc "Uncomment selected"] -font $fontNormal  -accelerator "Ctrl+." \
     -command {TextOperation uncomment}
     
     $m add separator
@@ -380,3 +380,4 @@ focus -force $tree
 
 
 
+

msgs/en.msg

@@ -18,6 +18,8 @@
 ::msgcat::mcset en "Close all"
 ::msgcat::mcset en "Close Project Manager?"
 ::msgcat::mcset en "Comments"
+::msgcat::mcset en "Comment selected"
+::msgcat::mcset en "Uncomment selected"
 ::msgcat::mcset en "Company"
 ::msgcat::mcset en "Compiler"
 ::msgcat::mcset en "Compile"
@@ -164,3 +166,4 @@
 
 
 
+

msgs/ru.msg

@@ -19,6 +19,8 @@
 ::msgcat::mcset ru "Close all" "Закрыть все"
 ::msgcat::mcset ru "Close Project Manager?" "Выйти из программы?"
 ::msgcat::mcset ru "Comments" "Коментарии"
+::msgcat::mcset ru "Comment selected" "Закоментировать"
+::msgcat::mcset ru "Uncomment selected" "Раскоментировать"
 ::msgcat::mcset ru "Company" "Компания"
 ::msgcat::mcset ru "Compiler" "Компилятор"
 ::msgcat::mcset ru "Compile" "Компиляция"
@@ -169,3 +171,4 @@
 
 
 
+