Fix stder -> stderr
parent
276819b35b
commit
e47120cb93
6
gitk
6
gitk
|
@ -7,7 +7,7 @@ exec wish "$0" -- "${1+$@}"
|
||||||
# and distributed under the terms of the GNU General Public Licence,
|
# and distributed under the terms of the GNU General Public Licence,
|
||||||
# either version 2, or (at your option) any later version.
|
# either version 2, or (at your option) any later version.
|
||||||
|
|
||||||
# CVS $Revision: 1.10 $
|
# CVS $Revision: 1.11 $
|
||||||
|
|
||||||
proc getcommits {rargs} {
|
proc getcommits {rargs} {
|
||||||
global commits commfd phase canv mainfont
|
global commits commfd phase canv mainfont
|
||||||
|
@ -17,7 +17,7 @@ proc getcommits {rargs} {
|
||||||
set commits {}
|
set commits {}
|
||||||
set phase getcommits
|
set phase getcommits
|
||||||
if [catch {set commfd [open "|git-rev-tree $rargs" r]} err] {
|
if [catch {set commfd [open "|git-rev-tree $rargs" r]} err] {
|
||||||
puts stder "Error executing git-rev-tree: $err"
|
puts stderr "Error executing git-rev-tree: $err"
|
||||||
exit 1
|
exit 1
|
||||||
}
|
}
|
||||||
fconfigure $commfd -blocking 0
|
fconfigure $commfd -blocking 0
|
||||||
|
@ -261,7 +261,7 @@ Copyright
|
||||||
|
|
||||||
Use and redistribute under the terms of the GNU General Public License
|
Use and redistribute under the terms of the GNU General Public License
|
||||||
|
|
||||||
(CVS $Revision: 1.10 $)} \
|
(CVS $Revision: 1.11 $)} \
|
||||||
-justify center -aspect 400
|
-justify center -aspect 400
|
||||||
pack $w.m -side top -fill x -padx 20 -pady 20
|
pack $w.m -side top -fill x -padx 20 -pady 20
|
||||||
button $w.ok -text Close -command "destroy $w"
|
button $w.ok -text Close -command "destroy $w"
|
||||||
|
|
Loading…
Reference in New Issue