#lang racket/gui

(define (get-size)
  (call-with-values (lambda ()(send items get-graphical-min-size))
                    (λ (a b) (write a)(display " ,  ")(write b)(newline)) ))

(define f (new frame% [label "List Editor"]))
(define items (new vertical-pane% (parent f))) (get-size)

;(un)comment this line to change the smaller size of the flicker
;(new text-field% (parent f) (label "") (init-value "1")) (get-size)

(send f show #t) (get-size)

(for-each (λ (v)
            (get-size)
            (new text-field% (parent items) (label "") (init-value (number->string v))))
          '(1 2 2 3 4 4 5 2 2 3 4 3 4 2 3 4 2 5 1 2 4 1 5 2 3 4 3 3 4))
