0

HtDP から演習 22.3.3 を試みていますが、クリックされたボタンのラベルを取得する方法がわかりません。draw-message: expected <string> as second argument, given: (instantiate (class ...) ...)文字列が必要であることを示唆しているように見えるこのメッセージが表示されますが、クラスのインスタンスを取得しています。答えはコールバックにありますか? もしそうなら、どうすればそれを分解できますか？

これは私がこれまでに持っているものです:

(define pad1
  '((1 2 3)
    (4 5 6)
    (7 8 9)
    (\# 0 *)))

(define pad2 
  '((1 2 3  +)
    (4 5 6  -)
    (7 8 9  *)
    (0 = \. /)))

(define (title t)
  (make-message t))

(define display
  (make-message ""))

(define (pad->gui p)
  (cond
    [(empty? p) empty]
    [else (cons (button-maker (first p))
                (pad->gui (rest p)))]))

;; make buttons out of a list
(define (button-maker a-list)
  (cond
    [(empty? a-list) empty]
    [(number? (first a-list))(cons (make-button (number->string (first a-list)) call-back)
                                   (button-maker (rest a-list)))]
    [(symbol? (first a-list))(cons (make-button (symbol->string (first a-list)) call-back)
                                   (button-maker (rest a-list)))]))

(define (call-back b)
  (draw-message display ...))


(create-window
 (append (list (list (title "Virtual Phone")))
         (list (list display))
         (pad->gui pad1)))

正しく理解していれば、各ボタンcall-backは押されたときに呼び出されます。displayこれは、テキストを更新する呼び出しを行う必要があります。ただし、発信者のラベルを取得する方法がわかりません。たとえば、ボタン「9」を押すと、 が呼び出されますcall-back。しかし、値「9」を取得するにはどうすればよいですか? これは私が確信していないことです。

4

1 に答える 1

3

正しい。draw-message 関数は、同じセクションの図 62 に記載されている「ウィンドウ」と「文字列」を消費します。「ボタンオブジェクト」に適用しているようです。同じセクションの例 2 も参照してください。これは次のようになります。

(define a-text-field
  (make-text "Enter Text:"))

(define a-message
  (make-message "`Hello World' is a silly program."))

(define (echo-message e)
  (draw-message a-message (text-contents a-text-field)))

(define w (create-window
           (list (list a-text-field a-message)
                 (list (make-button "Copy Now" echo-message)))))

「今すぐコピー」ボタンをクリックすると、エコーメッセージがどのように表示を変更するかを確認してください。

ヒント: ボタンごとに 1 つのコールバックがあるため、どのボタンのコールバックからどの文字列をディスプレイに送信するかが正確にわかります。

訂正: 本書の例 1 が壊れています。使用する

 (define u
  (create-window (list (list (make-button "Close" (lambda (x) (hide-window u)))))))

代わりは。

于 2011-01-06T14:39:18.710 に答える