how do I use environment slot for radio-buttons ?

From: Brian Denheyer <briand_at_deldotd.com>
Date: Mon, 10 May 1999 22:17:23 -0700 (PDT)

When I try the following (this is only part of the code, there is NO
other day-var declaration) :

(define m2 (make <Menu> :parent mb-2))

(let ((day-var 'wednesday))
  (menu-add m2 'radio
            :label "Monday"
            :variable 'day-var
            :value 'monday
            :command (lambda ()
                       (format #t "Monday\n"))
            :environment (the-environment))
  (menu-add m2 'radio
            :label 'tuesday
            :variable 'day-var
            :value 'tuesday
            :environment (the-environment))
  (menu-add m2 'radio
            :label 'wednesday
            :variable 'day-var
            :value 'wednesday
            :command (lambda ()
                       (format #t "Wednesday\n"))
            :environment (the-environment)))

I get an error when I invoke the menu items :

    **** Tk error ("") ""

Anybody have an example of proper use ?

Brian
Received on Tue May 11 1999 - 07:18:04 CEST