Racket中不可调整大小的框架

Question

我正在尝试创建一个不可调整大小的框架来发送消息：

#lang racket/gui

(define (non_resizable_frame)
  (define myframe (new frame% 
                         [label "MyFrame"]
                         [style (list 'no-resize-border)] ; does not work.
                         ))
  (new message% [parent myframe][label "This is just for testing."])
  (new message% [parent myframe][label "I am trying to create a non-resizable frame."])
  (send myframe show #t))

(non_resizable_frame)

但是，框架仍可调整大小。问题在哪里，我该如何解决？

Answer 1

在构建框架时，将stretchable-width和stretchable-height init参数设置为#f。