Tabs Example in Racket GUI

gui-tabs.rkt

#lang racket/base

(require racket/class
         racket/gui)

(define frame
  (new frame% [label "Tabs!"]))

(define (change-tab tp event)
  (when (eq? (send event get-event-type) 'tab-panel)
    (fill-tab-content tp)))

(define (fill-tab-content tp)
  (define current-tab-name
      (send tp get-item-label (send tp get-selection)))
    (send tp change-children
          (lambda (c*)
            (list
             (new message%
                  [label (~a "You have selected: " current-tab-name)]
                  [parent tp])))))

(define tab-panel
  (new tab-panel%
       [parent frame]
       [choices (list "Tab 0"
                      "Tab 1"
                      "Tab 2")]
       [callback change-tab]))

(send frame show #t)
(fill-tab-content tab-panel)

thx