文本球拍

Question

不是围绕信息％我有以下简单的GUI代码：

#lang racket/gui 
(define myfr (new frame% [label ""] [width 200] [height 100])) 
(define mymsg (new message% [label "See text position here."][parent myfr])) 
(define mytf (new text-field% [label "Enter some text here."][parent myfr])) 
(define bt (new button% [parent myfr] [label "Reset text"] 
      [callback (lambda (b e) 
         (send mymsg set-label 
           (send mytf get-value)))])) 
(send myfr show #t) 

首先，在消息的％文本位置非常集中。但是，当我改变文本时，它不再以中心为中心。为什么会发生这种情况，以及如何纠正这种情况，以便新文本也很好地集中在一起？

Answer 1

添加[auto-resize #t]您的留言：

(define mymsg (new message% [label "See text position here."] [parent myfr] [auto-resize #t]))