1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
|
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
|
-
+
|
# Splash screen for visual feedback
set now [clock clicks -milliseconds]
ttk::label $w.splash -text "Committing" -anchor center -font myfont
place $w.splash -x 0 -y 0 -relwidth 1.0 -relheight 1.0
update
# Commit
set cmd [list {*}$precmd $res {*}$postcmd]
set cmd [list {*}$precmd $res {*}$todo]
set sts [catch {exec {*}$cmd} msg]
set msg [string trim $msg]
if {($useSts && $sts) || (!$useSts && $msg ne "")} {
destroy $w
tk_messageBox -icon error -title "$system commit error" -message $msg \
-parent $top
return
|