Given the following code, how can I (a) make the buttons actually touch one
another when the panel comes up and (b) stretch horizontally and vertically
when the window does? I thought that having (spacing 0) on the panel and
(vert-margin 0) + (horiz-margin 0) on the buttons would do it, but nope.
If it's relevant, I'm on OSX 10.11.6 and using Racket 6.11. I could
upgrade to 6.12 if that will matter but simply haven't done it yet.
#lang racket/gui
; The top-level frame
(define frame
(new frame%
[label "test"]
[width 100]
[height 100]
(spacing 0)
))
(define panel
(instantiate horizontal-panel%
(frame)
(spacing 0)
(stretchable-width #t)
(stretchable-height #t)))
(for ([i 3])
(instantiate button%
("#" panel)
(stretchable-width #t)
(stretchable-height #t)
(vert-margin 0)
(horiz-margin 0)
(callback
(lambda (button event)
(printf "~a~n" (send button get-label))))))
; Show the top-level frame.
(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.
