如何在球拍中設置按鈕％的背景？

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) 

...並且我沒有看到按鈕周圍的矩形。我不認爲我可以附上截圖... 哦，等等，也許我可以：

如果這不符合您所看到的，看看你可以創建一個說明問題的小程序。

此外，球拍郵件列表可能會給你提示 - 呃反應，這樣的問題。