From 8ea0e5916de95ecb8754e62bd94c3a25ed34a536 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Sun, 27 Mar 2011 03:55:10 -0400 Subject: [PATCH] Fix horizontal-panel-mixin to use correct interface. --- collects/framework/private/panel.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/panel.rkt b/collects/framework/private/panel.rkt index daf59fb4f2..5377b8088b 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%)))