New build
This commit is contained in:
parent
643ceeb7d9
commit
a9879738b7
|
@ -115,3 +115,6 @@
|
|||
- Fixed untitled file saved
|
||||
- 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
11
lib/git.tcl
|
@ -150,9 +150,9 @@ namespace eval Git {
|
|||
# }
|
||||
puts $cmd
|
||||
catch $cmd pipe
|
||||
puts $pipe
|
||||
# puts $pipe
|
||||
foreach line [split $pipe "\n"] {
|
||||
puts "$line"
|
||||
# puts "$line"
|
||||
lappend res $line
|
||||
}
|
||||
return $res
|
||||
|
@ -175,7 +175,7 @@ namespace eval Git {
|
|||
|
||||
puts $cmd
|
||||
catch $cmd pipe
|
||||
puts $pipe
|
||||
# puts $pipe
|
||||
set i 0
|
||||
foreach line [split $pipe "\n"] {
|
||||
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 "Description: [string trimright [lindex $str 4] "\""]\n"
|
||||
} else {
|
||||
puts "$line"
|
||||
# puts "$line"
|
||||
$w.body.t inser end "$line\n"
|
||||
}
|
||||
incr i
|
||||
|
@ -380,11 +380,12 @@ 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> "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 <KeyRelease> "Git::Key %K $fr"
|
||||
|
||||
bind $fr.body.lLog <Double-Button-1> "Git::Show $fr"
|
||||
bind $fr.body.lLog <Return> "Git::Show $fr"
|
||||
|
||||
focus -force $fr.body.lBox
|
||||
catch {
|
||||
|
|
|
@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
|
|||
######################################################
|
||||
# Version: 2.0.0
|
||||
# Release: alpha
|
||||
# Build: 19102022155228
|
||||
# Build: 20102022095949
|
||||
######################################################
|
||||
|
||||
# определим текущую версию, релиз и т.д.
|
||||
|
|
Loading…
Reference in New Issue
Block a user