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

Исправлена ошибка при клике на списке с файлами

master
svkalinin 2022-10-20 10:18:06 +03:00
parent a9879738b7
commit ea111c6f32
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/git.tcl
View File

@ -198,7 +198,11 @@ namespace eval Git {
}
proc ListBoxPress {w} {
set fileName [$w.body.lBox get [$w.body.lBox curselection]]
if {[$w.body.lBox curselection] ne ""} {
set fileName [$w.body.lBox get [$w.body.lBox curselection]]
} else {
return
}
# puts $values
$w.body.t delete 1.0 end
set i 0
@ -380,7 +384,7 @@ namespace eval Git {
catch { $fr.body.lBox activate 0 ; $fr.body.lBox selection set 0 0 }
bind $fr.body.lBox <Return> "Git::CommitAdd $fr"
bind $fr.body.lBox <Double-Button-1> "catch {Git::CommitAdd $fr}"
bind $fr.body.lBox <Double-Button-1> "catch {Git::CommitAdd $fr}; break"
bind $fr.body.lBox <Button-1><ButtonRelease-1> "Git::ListBoxPress $fr"
bind $fr.body.lBox <KeyRelease> "Git::Key %K $fr"

2
projman.tcl
View File

@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
######################################################
# Version: 2.0.0
# Release: alpha
# Build: 20102022095949
# Build: 20102022100319
######################################################
# определим текущую версию, релиз и т.д.