21 lines
No EOL
605 B
Racket
21 lines
No EOL
605 B
Racket
#lang racket/gui
|
|
|
|
(require racket/gui/base)
|
|
|
|
|
|
; Make a frame by instantiating the frame% class
|
|
(define frame (new frame% [label "Example"]))
|
|
|
|
; Make a static text message in the frame
|
|
(define msg (new message% [parent frame]
|
|
[label "No events so far..."]))
|
|
|
|
; Make a button in the frame
|
|
(new button% [parent frame]
|
|
[label "Click Me"]
|
|
; Callback procedure for a button click:
|
|
[callback (lambda (button event)
|
|
(send msg set-label "Button click"))])
|
|
|
|
; Show the frame by calling its show method
|
|
(send frame show #t) |