Re: cascaded menus don't work in 4.0.0 or 4.0.1

From: Erick Gallesio <Erick.Gallesio_at_unice.fr>
Date: Fri, 7 Jan 2000 10:35:15 +0100 (CET)

Jonathan Berry writes:
>
> 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)
>
What is the archirecture you have done this test?. It works for me on
Linux-i386.

                -- Erick
Received on Fri Jan 07 2000 - 11:06:17 CET