(use-modules (ice-9 threads)
	     (gtk gtk)
	     (gtk gdk))

(begin-thread
 (display "1 entering\n")
 (gdk-threads-enter)
 (display "1 entered\n")
 (sleep 2)
 (display "1 leaving\n")
 (gdk-threads-leave)
 (display "1 left\n"))

(begin-thread
 (display "2 entering\n")
 (gdk-threads-enter)
 (display "2 entered\n")
 (sleep 2)
 (display "2 leaving\n")
 (gdk-threads-leave)
 (display "2 left\n"))

(begin-thread
 (display "3 entering\n")
 (gdk-threads-enter)
 (display "3 entered\n")
 (sleep 2)
 (display "3 leaving\n")
 (gdk-threads-leave)
 (display "3 left\n"))

(sleep 20)