Dear Racket friends,

   I am surprised because the following code works in "lang racket", but not in 
R6RS: in this last case, I got a contract violation for the value associated 
with "alignment within the horizontal panel. Is there a way to include such a 
horizontal panel in a program using R6RS, please?

#!r6rs

(import (rnrs base) (rnrs io simple) (only (scheme base) define-values require))
(require scheme/contract)
(require scheme/class)
(require scheme/gui/base)
(require framework)

(define top-level (new frame% (label "Animation") (width 800) (height 800)))

(define hp (new horizontal-panel% (parent top-level) (alignment '(left top))))

   Many thanks in advance,

J.-M. Hufflen

-- 
You received this message because you are subscribed to the Google Groups 
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
For more options, visit https://groups.google.com/d/optout.

Reply via email to