This is the mail archive of the
guile-gtk@sources.redhat.com
mailing list for the Guile project.
Re: where is gtk-window-set-modal?
- To: tb at becket dot net (Thomas Bushnell, BSG)
- Subject: Re: where is gtk-window-set-modal?
- From: Marius Vollmer <mvo at zagadka dot ping dot de>
- Date: 04 Nov 2000 20:33:49 +0100
- Cc: guile-gtk at sourceware dot cygnus dot com
- References: <87g0l88ogz.fsf@becket.becket.net>
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))