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

Add some new translation

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
 
 
 
+