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 racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

Reply via email to