提交 e47120cb 编写于 作者: P Paul Mackerras

Fix stder -> stderr

上级 276819b3
......@@ -7,7 +7,7 @@ exec wish "$0" -- "${1+$@}"
# and distributed under the terms of the GNU General Public Licence,
# either version 2, or (at your option) any later version.
# CVS $Revision: 1.10 $
# CVS $Revision: 1.11 $
proc getcommits {rargs} {
global commits commfd phase canv mainfont
......@@ -17,7 +17,7 @@ proc getcommits {rargs} {
set commits {}
set phase getcommits
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
}
fconfigure $commfd -blocking 0
......@@ -261,7 +261,7 @@ Copyright
Use and redistribute under the terms of the GNU General Public License
(CVS $Revision: 1.10 $)} \
(CVS $Revision: 1.11 $)} \
-justify center -aspect 400
pack $w.m -side top -fill x -padx 20 -pady 20
button $w.ok -text Close -command "destroy $w"
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册