(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)