Display a watch cursor when reading the commits initially
# and distributed under the terms of the GNU General Public Licence,
# either version 2, or (at your option) any later version.
# and distributed under the terms of the GNU General Public Licence,
# either version 2, or (at your option) any later version.
proc getcommits {rargs} {
global commits commfd phase canv mainfont
global startmsecs nextupdate
proc getcommits {rargs} {
global commits commfd phase canv mainfont
global startmsecs nextupdate
+ global ctext maincursor textcursor
if {$rargs == {}} {
set rargs HEAD
if {$rargs == {}} {
set rargs HEAD
$canv delete all
$canv create text 3 3 -anchor nw -text "Reading commits..." \
-font $mainfont -tags textitems
$canv delete all
$canv create text 3 3 -anchor nw -text "Reading commits..." \
-font $mainfont -tags textitems
+ . config -cursor watch
+ $ctext config -cursor watch
}
proc getcommitline {commfd} {
}
proc getcommitline {commfd} {
global canv canv2 canv3 linespc charspc ctext cflist textfont
global findtype findloc findstring fstring geometry
global entries sha1entry sha1string sha1but
global canv canv2 canv3 linespc charspc ctext cflist textfont
global findtype findloc findstring fstring geometry
global entries sha1entry sha1string sha1but
+ global maincursor textcursor
menu .bar
.bar add cascade -label "File" -menu .bar.file
menu .bar
.bar add cascade -label "File" -menu .bar.file
bind . <Button-1> "click %W"
bind $fstring <Key-Return> dofind
bind $sha1entry <Key-Return> gotocommit
bind . <Button-1> "click %W"
bind $fstring <Key-Return> dofind
bind $sha1entry <Key-Return> gotocommit
+
+ set maincursor [. cget -cursor]
+ set textcursor [$ctext cget -cursor]
}
# when we make a key binding for the toplevel, make sure
}
# when we make a key binding for the toplevel, make sure
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.22 $)} \
+(CVS $Revision: 1.23 $)} \
-justify center -aspect 400
pack $w.m -side top -fill x -padx 20 -pady 20
button $w.ok -text Close -command "destroy $w"
-justify center -aspect 400
pack $w.m -side top -fill x -padx 20 -pady 20
button $w.ok -text Close -command "destroy $w"
proc finishcommits {} {
global phase
global startcommits
proc finishcommits {} {
global phase
global startcommits
+ global ctext maincursor textcursor
if {$phase != "incrdraw"} {
$canv delete all
if {$phase != "incrdraw"} {
$canv delete all
drawslants
set level [decidenext]
drawrest $level [llength $startcommits]
drawslants
set level [decidenext]
drawrest $level [llength $startcommits]
+ . config -cursor $maincursor
+ $ctext config -cursor $textcursor
-set noreadobj [load libreadobj.so.0.0]
-set noreadobj 0
+set noreadobj [catch {load libreadobj.so.0.0}]
set stopped 0
set redisplaying 0
set stuffsaved 0
set stopped 0
set redisplaying 0
set stuffsaved 0