gtk-text-insert freeze with gtk-1.3

[Ole Myren Rohne <ole dot rohne at cern dot ch>]

The following code makes guile-gtk freeze. Why would I want to write
such a thing? - it is the essentials of gtk-show-error:-( causing my
program to freeze at every scheme error.

(use-modules (gtk gtk) (gtk gdk))
(let* ((w (gtk-window-new 'toplevel))
       (h (gtk-hbox-new #f 1))
       (t (gtk-text-new #f #f))
       (s (gtk-vscrollbar-new (gtk-text-vadj t))))
  (gtk-container-add w h)
  (gtk-box-pack-start h t #t #t 0)
  (gtk-box-pack-start h s #t #t 0)
  (gtk-widget-show-all w)
  (gtk-text-insert t #f #f #f "Hello\n" -1))

The program hangs in gdk_event_get_graphics_expose, waiting for an
*GraphicsExpose* event on the text widget (!) - which never comes. I
think this is a bug in gtk and it should be reproducible in pure C.

Making gdk_event_get_graphics_expose accept *Expose* events seems to
fix the problem, another fix would be to add a function
gdk_event_get_expose to be called on text widgets.

	Regards,
	Ole