#lang racket/gui
(define frame (new frame% [label "Test"][width 600][height 400]))
(define message (new message% [label "hello world"][parent frame]))
(define text-field (new text-field% [label ""][parent frame]))
(define button (new button% [label "Click here"][parent frame]
[callback (lambda (b e)
(send message set-label
(send text-field get-value)))]))
(send frame show #t)
Racket GUI,命令按钮
最新推荐文章于 2022-10-07 10:18:36 发布