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

New build

Browse Source
This commit is contained in:
svkalinin 2022-10-20 10:02:47 +03:00
parent 643ceeb7d9
commit a9879738b7
3 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
CHANGELOG
View File

@ -114,4 +114,7 @@
- Added procedure for the horizontal split a text window - Added procedure for the horizontal split a text window
- Fixed untitled file saved - Fixed untitled file saved
- Fixed Alt+R (delete row), now will are deleted row with a "\n\r" symbols - Fixed Alt+R (delete row), now will are deleted row with a "\n\r" symbols
20/10/200
- Added Git support: add and commit changes, show git log, show each commit...

11
lib/git.tcl
View File

@ -150,9 +150,9 @@ namespace eval Git {
# } # }
puts $cmd puts $cmd
catch $cmd pipe catch $cmd pipe
puts $pipe # puts $pipe
foreach line [split $pipe "\n"] { foreach line [split $pipe "\n"] {
puts "$line" # puts "$line"
lappend res $line lappend res $line
} }
return $res return $res
@ -175,7 +175,7 @@ namespace eval Git {
puts $cmd puts $cmd
catch $cmd pipe catch $cmd pipe
puts $pipe # puts $pipe
set i 0 set i 0
foreach line [split $pipe "\n"] { foreach line [split $pipe "\n"] {
if {$i == 0} { if {$i == 0} {
@ -186,7 +186,7 @@ namespace eval Git {
$w.body.tCommit inser end "Date: [lindex $str 3]\n" $w.body.tCommit inser end "Date: [lindex $str 3]\n"
$w.body.tCommit inser end "Description: [string trimright [lindex $str 4] "\""]\n" $w.body.tCommit inser end "Description: [string trimright [lindex $str 4] "\""]\n"
} else { } else {
puts "$line" # puts "$line"
$w.body.t inser end "$line\n" $w.body.t inser end "$line\n"
} }
incr i incr i
@ -380,11 +380,12 @@ 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> "Git::CommitAdd $fr" bind $fr.body.lBox <Double-Button-1> "catch {Git::CommitAdd $fr}"
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"
bind $fr.body.lLog <Double-Button-1> "Git::Show $fr" bind $fr.body.lLog <Double-Button-1> "Git::Show $fr"
bind $fr.body.lLog <Return> "Git::Show $fr"
focus -force $fr.body.lBox focus -force $fr.body.lBox
catch { catch {

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: 19102022155228 # Build: 20102022095949
###################################################### ######################################################
# определим текущую версию, релиз и т.д. # определим текущую версию, релиз и т.д.