Fix horizontal-panel-mixin to use correct interface.

2011-03-27 03:55:10 -04:00 · 2011-03-27 03:55:10 -04:00 · 8ea0e5916d
commit 8ea0e5916d
parent 4b575c315b
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/private/panel.rkt
+++ b/collects/framework/private/panel.rkt
@ -498,7 +498,7 @@
      (super-new [vertical? #t])))
  
  (define horizontal-dragable-mixin
-    (mixin (dragable<%>) (vertical-dragable<%>)
+    (mixin (dragable<%>) (horizontal-dragable<%>)
      (super-new [vertical? #f])))
  
  (define vertical-dragable% (vertical-dragable-mixin (dragable-mixin panel%)))