#lang racket/gui

(define frame (new frame% [label "Example"]))

(define panel (new panel%
                   [parent frame]
                   [alignment '(center center)]))

(define background-color (make-object color% 0 0 0))

(define text-font (make-font #:size 250
                             #:face "Impact"))

(define (do-paint canvas dc)
  (let*-values ([(text) "Hello, World!"]
                [(text-width text-height d a) (send dc get-text-extent text)]
                [(dc-width dc-height) (send dc get-size)])
    (send dc clear)
    (send dc set-text-mode 'transparent)
    (send dc set-smoothing 'aligned)
    (send dc set-text-foreground "red")
    (send dc set-text-background "red")
    (send dc set-font text-font)
    (send dc draw-text text 0 0)))

(define canvas (new canvas%
                    [parent panel]
                    [paint-callback do-paint]))

(define message (new message%
                     [parent panel]
                     [label "zzzzzzzzz"]
                     [font text-font]))

;;(send canvas set-canvas-background background-color)
(send frame fullscreen #t)
(send frame show #t)