> On May 14, 2018, at 6:55 AM, Denis Michiels <dmichi...@mailoo.org> wrote:
> Hello,
> I'm trying to build a macro to be able to do :
> ```
> (define data (list (cons 'label "My button")
>                   (cons 'stretchable-width #t)))
> (my-macro button% data)
> ```
> to be translated in  :
> ```
> (new button% [label "My button"] [stretchable-width #t])
> ```
> (I take gui example, and incomplete (like no frame) but it is to show my
> goal)
> Unfortunately, I didn't manage well macro in Racket...
> Can someone help me, or have a hint how to manage this macro?

#lang racket/gui

(define data '((label "My button") (stretchable-width #t)))

(define-syntax (mk-but stx)
  (syntax-case stx ()
    [(_ data)
     #'(let ()
         (match-define (cons label others) data)
         (define button (make-object button% (second label) frame))
         (for ((o others))
           (match-define (list m val) o)
           (dynamic-send button m val)))]))

(define frame (new frame% [label "test"]))

(mk-but data)

(send frame show #t)

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