On Tue, Sep 18, 2018 at 3:15 PM, David Storrs <david.sto...@gmail.com> wrote:
> 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: > For the record, this should have said 10.11.6. The way I wrote it would refer to a version of Snow Leopard that never existed but would have probably been released in 2013-ish and therefore not super relevant to the issue. </embarrassment> > 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.
