The following is the example taken from the table-panel docs. (
https://docs.racket-lang.org/table-panel/index.html) It displays a frame
with four sets of numeric keypads laid out in quadrants. If you expand the
window, the expectation, based on the docs, is that spacing between buttons
will remain constant and the keys should demonstrate the different
stretching behaviors based on which quadrant they're in:
Q1: (horiz + vertical)
Q2: (horiz)
Q3: (vertical)
Q4: (neither)
On OSX 10.6.11 and Racket 6.11, it does not do this. Instead, the keys
stretch as follows:
Q1: (horiz + increase vertical spacing)
Q2: (horiz)
Q3: (increase vertical spacing)
Q4: (neither)
Where should I be looking for the source of this issue? The table-panel%
docs, the code, or one of the parent classes?
#lang at-exp racket/gui
(require table-panel)
; The top-level frame
(define frame
(instantiate frame%
("Test")))
; A 2 x 2 table panel
(define table-panel
(instantiate table-panel%
(frame)
(alignment '(center center))
(dimensions '(2 2))))
; Fill each cell with a table panel displaying a simulated keypad.
(for ((i (in-range 4)))
(let ((child (instantiate table-panel%
(table-panel)
(style '(border))
(dimensions '(4 3))
(column-stretchability (if (memq i '(0 1)) #t #f))
(row-stretchability (if (memq i '(0 2)) #t #f)))))
(for ((j '(1 2 3
4 5 6
7 8 9
* 0 |#|)))
(instantiate button%
((format "~a" j) child)
(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.
