From mboxrd@z Thu Jan  1 00:00:00 1970
From: Marius Vollmer <mvo@zagadka.ping.de>
To: tb@becket.net (Thomas Bushnell, BSG)
Cc: guile-gtk@sourceware.cygnus.com
Subject: Re: where is gtk-window-set-modal?
Date: Sat, 04 Nov 2000 11:39:00 -0000
Message-id: <87vgu38rc2.fsf@zagadka.ping.de>
References: <87g0l88ogz.fsf@becket.becket.net>
X-SW-Source: 2000-q4/msg00008.html

tb@becket.net (Thomas Bushnell, BSG) writes:

> Where is gtk-window-set-modal?  How can I turn that on

gtk-window-set-modal is right there, along with the other functions.
You would use it like this:

    (use-modules (gtk gtk))

    (define (annoy)
      (let ((d (gtk-window-new 'dialog))
	    (b (gtk-button-new-with-label "click me")))
	(gtk-signal-connect b "clicked" (lambda () (gtk-object-destroy d)))
	(gtk-container-add d b)
	(gtk-window-set-modal d #t)
        (gtk-widget-show-all d)))

    (let ((w (gtk-window-new 'dialog))
	  (b (gtk-button-new-with-label "annoy me")))
      (gtk-signal-connect b "clicked" annoy)
      (gtk-container-add w b)
      (gtk-widget-show-all w)
      (gtk-standalone-main w))