1

以下のようbutton%に aを追加します。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% の領域の背景を設定する方法ですか?

しかし、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)

...そして、ボタンの周りに四角形が表示されません。スクリーンショットを添付できないと思います...ああ、待ってください、多分私はできるでしょう:

1 つのボタンを備えた小さなダイアログ

これが表示されているものと一致しない場合は、問題を説明する小さなプログラムを作成できるかどうかを確認してください。

また、このような問題については、ラケットのメーリング リストが迅速に対応してくれるでしょう。

于 2012-10-31T05:08:56.580 に答える