Fix horizontal-panel-mixin to use correct interface.

original commit: 8ea0e5916de95ecb8754e62bd94c3a25ed34a536
2011-03-27 03:55:10 -04:00 · 2011-03-27 03:55:10 -04:00 · 20d73086b0
commit 20d73086b0
parent ae8faa265d
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%)))