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