From 20d73086b05a55f35aad44de8b92e32269ab1e44 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. original commit: 8ea0e5916de95ecb8754e62bd94c3a25ed34a536 --- 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 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%)))