New build

master
svkalinin 2022-10-20 10:02:47 +03:00
parent 643ceeb7d9
commit a9879738b7
3 changed files with 11 additions and 7 deletions

View File

@ -114,4 +114,7 @@
- Added procedure for the horizontal split a text window
- 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...

View File

@ -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 {

View File

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