1

我在下面添加了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%它周围有一个矩形，超出了它本身。背景是灰色的，我想将它的颜色设置为白色，但没有找到办法。

4

1 回答 1

2

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

#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)

...我没有看到按钮周围的矩形。我不认为我可以在...中附上屏幕截图哦，等等，也许我可以：

一键小对话框

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

此外，对于此类问题，球拍邮件列表可能会为您提供更及时的回复。

于 2012-10-31T05:08:56.580 回答