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

Добавлено подключение (bind) сочетания клавишь указанных в настройках инструментов.

Browse Source
This commit is contained in:
svk
2026-01-28 12:26:53 +03:00
parent e21995d13e
commit c74fa5b113
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/tools.tcl
View File

@@ -124,6 +124,7 @@ proc Tools::GetMenu {m} {
if {[info exists cmd] == 1 && $cmd ne ""} { if {[info exists cmd] == 1 && $cmd ne ""} {
if {[info exists shortCut] == 1 && $shortCut ne ""} { if {[info exists shortCut] == 1 && $shortCut ne ""} {
$m add command -label $toolName -accelerator $shortCut -command [list Tools::Execute "$toolName"] $m add command -label $toolName -accelerator $shortCut -command [list Tools::Execute "$toolName"]
bind . <$shortCut> [list Tools::Execute "$toolName"]
} else { } else {
$m add command -label $toolName -command [list Tools::Execute "$toolName"] $m add command -label $toolName -command [list Tools::Execute "$toolName"]
} }