If you're going to use Racket's GUI and class systems, there's no reason to use R6RS. Why not just use #lang racket? Everything will work better.
Also, you probably want to use `racket/contract`, `racket/class`, and `racket/gui/base` instead of the `scheme` equivalents. Vincent On Thu, 28 Jan 2016 14:48:52 -0600, jmhuffle wrote: > > 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. -- 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.
