(define (POPUPS)
  (ezd 

     '(window popups 400 400)
     '(set-drawing objects)
     '(overlay popups objects)
     '(object background (fill-rectangle 0 0 400 400 clear))
     '(object red-circle (fill-arc 100 100 100 100 0 360))
     '(object blue-square (fill-rectangle 250 250 100 100))
     '(define-popup days "Monday" (log-event) "Tuesday" (log-event)
                  "Wednesday" (log-event) "Thursday" (log-event)
                  "Friday" (log-event) "Saturday" (log-event)
                  "Sunday" (log-event))
     '(define-popup seasons "Winter" (log-event) "Spring" (log-event)
                     "Summer" (log-event) "Fall" (log-event))
     '(when * button1down (days))
     '(when * meta button1down (seasons))
     '(when * button3down (ezd '(quit)))
     '(get-attributes days popup 0 foreground background)
     '(set-attributes days popup (replace-action 0 #f) (replace-action 6 #f))
  )
)
