diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss index bc85c239..aaa47e4e 100644 --- a/collects/framework/private/panel.ss +++ b/collects/framework/private/panel.ss @@ -182,14 +182,14 @@ ;; type percentage : (make-percentage number) (define-struct percentage (%)) - (define dragable<%> + (define vertical-dragable<%> (interface ((class->interface vertical-panel%)) after-percentage-change set-percentages get-percentages)) (define vertical-dragable-mixin - (mixin ((class->interface vertical-panel%)) (dragable<%>) + (mixin ((class->interface vertical-panel%)) (vertical-dragable<%>) (init parent) (super-instantiate (parent)) (inherit get-client-size container-flow-modified) diff --git a/collects/framework/private/sig.ss b/collects/framework/private/sig.ss index c36353bc..f6dfaedb 100644 --- a/collects/framework/private/sig.ss +++ b/collects/framework/private/sig.ss @@ -53,6 +53,7 @@ single-pane% ;;multi-view% + vertical-dragable<%> vertical-dragable-mixin vertical-dragable%))