Fix stder -> stderr

maint
Paul Mackerras 2005-05-15 21:49:26 +00:00
parent 276819b35b
commit e47120cb93
1 changed files with 3 additions and 3 deletions

6
gitk
View File

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