From 07178922a93e8b7157a98416643b1c7545e34f90 Mon Sep 17 00:00:00 2001
From: Johannes Schindelin <johannes.schindelin@gmx.de>
Date: Tue, 11 Aug 2009 16:04:49 +0200
Subject: [PATCH] Show busy cursor

In addition to warning the user, let's change the cursor to indicate
that we're working.

Signed-off-by: Johannes Schindelin <johannes.schindelin@gmx.de>
---
 lilycontrib.tcl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lilycontrib.tcl b/lilycontrib.tcl
index 42ee5209da..7544c34e6a 100755
--- a/lilycontrib.tcl
+++ b/lilycontrib.tcl
@@ -59,6 +59,7 @@ proc config_quiet {args} {
 
 proc update_lilypond {} {
 	global lily_dir
+	. config -cursor watch
 	if {![file exists $lily_dir]} {
 		write_to_output "Cloning LilyPond (this can take some time) ...\n"
 		file mkdir $lily_dir
@@ -82,6 +83,7 @@ proc update_lilypond {} {
 		}
 	}
 	write_to_output "Done.\n"
+	. config -cursor ""
 }
 
 proc toggle_rebase {} {
-- 
2.11.4.GIT