如何在Racket中设置按钮％的背景？

Question

我将button%添加到dialog%，如下所示：

(new button%
  [label "ok"]
  [parent pop-dialog%]
  [callback
    (lambda (b e)
    (exit))])

抱歉，我的完整代码如下：

#lang racket

(require racket/gui)

(define *my-frame* (new frame% 
                      [label "VersionMonitor"]
                      [width 300]
                      [height 200]
                      ))

(define pop-dialog 
  (new dialog% 
       [label "bogga wogga"] 
       [parent *my-frame*]
       [width 200]
       [height 100]
       ))

(new canvas%
     [parent pop-dialog]
     [paint-callback
      (lambda (canvas info-dc)
        (send info-dc clear)
        (send info-dc set-background "white"))])

(new button%
  [label "ok"]
  [parent pop-dialog]
  [callback
    (lambda (b e)
    (exit))])

(send *my-frame* show #t)

(send pop-dialog show #t)

现在你可以看到灰色区域了。我真正的问题是如何设置按钮％的区域的背景 ？

但button%周围有一个矩形，超出了它自己。背景是灰色的，我想要 将其颜色设置为白色，但没有找到办法。

Answer 1

我没有看到您报告的问题。特别是，我正在运行这个程序：

#lang racket

(require mred)

(define pop-dialog 
  (new dialog% [label "bogga wogga"]))

(new button%
  [label "ok"]
  [parent pop-dialog]
  [callback
    (lambda (b e)
    (exit))])

(send pop-dialog show #t)

...而且我看不到按钮周围的矩形。我不认为我可以附上截图... 哦，等等，也许我可以：

如果这与您所看到的不符，请查看您是否可以创建一个说明问题的小程序。

此外，对于这样的问题，球拍邮件列表可能会为您提供快速响应。