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

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

Browse Source
This commit is contained in:
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

6
lib/git.tcl
View File

@ -198,7 +198,11 @@ namespace eval Git {
} }
proc ListBoxPress {w} { proc ListBoxPress {w} {
if {[$w.body.lBox curselection] ne ""} {
set fileName [$w.body.lBox get [$w.body.lBox curselection]] set fileName [$w.body.lBox get [$w.body.lBox curselection]]
} else {
return
}
# puts $values # puts $values
$w.body.t delete 1.0 end $w.body.t delete 1.0 end
set i 0 set i 0
@ -380,7 +384,7 @@ namespace eval Git {
catch { $fr.body.lBox activate 0 ; $fr.body.lBox selection set 0 0 } 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 <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 <Button-1><ButtonRelease-1> "Git::ListBoxPress $fr"
bind $fr.body.lBox <KeyRelease> "Git::Key %K $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 # Version: 2.0.0
# Release: alpha # Release: alpha
# Build: 20102022095949 # Build: 20102022100319
###################################################### ######################################################
# определим текущую версию, релиз и т.д. # определим текущую версию, релиз и т.д.