diff --git a/collects/framework/private/panel.rkt b/collects/framework/private/panel.rkt index daf59fb4..5377b808 100644 --- 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%)))