Re: TR warning with pict3d-canvas% (in pict3d)

:-(

Latest nightly "snapshot 6.6.0.4--2016-09-07(42f4784/a)" still throws
the error.

Tim

On 07/09/16 15:37, Sam Tobin-Hochstadt wrote:
> I think this is fixed in the git repository. Can you try a snapshot build and see if that works?
> 
> Sam
> 
> On Wed, Sep 7, 2016 at 10:35 AM Tim Brown <[email protected] <mailto:[email protected]>> wrote:
> 
>     Folks (Neil?),
> 
>     Another type issue, but this time with pict3d.
>     I am trying to use the following code to display a sphere.
>     But there seems to be an issue throwing up a warning. A warning
>     that “will become an error in a future release”. A warning that
>     also seems to be using up a lot of juice to print itself out.
> 
>     Has anyone any idea where to improve the type declarations to
>     suppress this?
> 
>     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>     #lang typed/racket/gui
>     (require pict3d)
> 
>     (define f (new frame% [label "T"] [width 400] [height 400]))
> 
>     (new pict3d-canvas% [parent f] [pict3d (sphere origin 1/2)])
> 
>     (send f show #t)
>     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> 
>     Generates numerous errors of the form:
>     ------------------------------------------------------------
>     cpointer?: contract violation
>       any-wrap/c: Unable to protect opaque value passed as `Any`
>       value: #<cpointer>
>       This warning will become an error in a future release.
>       in: the 1st argument of
>           a part of the or/c of
>           (or/c
>            struct-predicate-procedure?/c
>            (-> Any boolean?))
>       contract from: (interface for cpointer?)
>       blaming: <pkgs>/pict3d/typed/opengl/ffi-types.rkt
>        (assuming the contract is correct)
>       at: <pkgs>/pict3d/typed/opengl/ffi-types.rkt:19.20
>     ------------------------------------------------------------
> 
>     ffi-types.rkt:19 is:
>      ..
>      17  (require/typed
>      18   ffi/unsafe
>     *19   [#:opaque CPointer cpointer?]  ; includes Bytes and other things that can be used as cpointers
>      20   [#:opaque CType ctype?]
>      21   )
>      ..
>     which seems perfectly innocuous to me :-/
> 
>     Tim
> 
>     --
>     Tim Brown CEng MBCS <[email protected] <mailto:[email protected]>>
>     ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
>                     City Computing Limited · www.cityc.co.uk <http://www.cityc.co.uk>
>           City House · Sutton Park Rd · Sutton · Surrey · SM1 2AE · GB
>                     T:+44 20 8770 2110 · F:+44 20 8770 2130
>     ────────────────────────────────────────────────────────────────────────
>     City Computing Limited registered in London No:1767817.
>     Registered Office: City House, Sutton Park Road, Sutton, Surrey, SM1 2AE
>     VAT No: GB 918 4680 96
> 
>     --
>     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] <mailto:racket-users%[email protected]>.
>     For more options, visit https://groups.google.com/d/optout.
> 


-- 
Tim Brown CEng MBCS <[email protected]>
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
                City Computing Limited · www.cityc.co.uk
      City House · Sutton Park Rd · Sutton · Surrey · SM1 2AE · GB
                T:+44 20 8770 2110 · F:+44 20 8770 2130
────────────────────────────────────────────────────────────────────────
City Computing Limited registered in London No:1767817.
Registered Office: City House, Sutton Park Road, Sutton, Surrey, SM1 2AE
VAT No: GB 918 4680 96

-- 
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.