fix tab-panel% callback

Closes PR 11537 original commit: f5577077646c3e0a25a99d092623b30071655d93
2010-12-13 20:38:44 -07:00 · 2010-12-13 20:38:44 -07:00 · 0edbc72f02
commit 0edbc72f02
parent 40bf1f8500
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/wx/win32/tab-panel.rkt
+++ b/collects/mred/private/wx/win32/tab-panel.rkt
@ -112,7 +112,7 @@
        (MoveWindow client-hwnd 1 (+ tab-height 2) (- w 4) (- h tab-height 6) #t)))

    (define/override (is-command? cmd)
-      (= cmd 64985))
+      (= cmd -551))

    (define/public (do-command cmd control-hwnd)
      (queue-window-event this (lambda ()