cascaded menus don't work in 4.0.0 or 4.0.1

From: Jonathan Berry <Jonathan.Berry_at_elon.edu>
Date: Thu, 6 Jan 2000 11:11:55 -0500

My application wouldn't work after recompiling it with 4.0.0
or 4.0.1, and I tracked the problem down to cascaded menus.
Here's a small example illustrating the problem:
------------------------------------------------------------
(define mtxt
`(
    ("File"
       ("Option 1" ,(lambda () (newline))) ; ok
       ("Option 2" ,(lambda () (newline))) ; ok
       ("Option 3"
         (
           ("Option 3.1" ,(lambda () (newline))) ; segfault
           ("Option 3.2" ,(lambda () (newline))) ; segfault
         )
       )
    )
 )
)
(define my-top (make <toplevel>))
(define m (make-menubar my-top mtxt))
(pack m)

Thanks in advance for any help,
        Jon Berry
----------------------------------------
Jonathan Berry
Email: Jonathan.Berry_at_elon.edu
Elon College
Received on Thu Jan 06 2000 - 17:12:04 CET