From 6940de82d359f66e25d8fbb464e072727ec06b90 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 5 Dec 2000 16:34:13 +0000 Subject: [PATCH] no message original commit: cc979c8ef33825ead4120591e0059c32869dcbe1 --- collects/framework/panel.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/framework/panel.ss b/collects/framework/panel.ss index c3355ec4..45900fbd 100644 --- a/collects/framework/panel.ss +++ b/collects/framework/panel.ss @@ -186,6 +186,7 @@ [y-min (max thumb-min (get-top-min))] [y-max (- h (max thumb-min (get-bot-min)))]) (set! percentage (/ (min (max y-min y) y-max) h)) + (send parent on-percentage percentage) (on-paint))))]) (private [point1 (make-object point% 0 0)] @@ -194,7 +195,7 @@ [points (list point1 point2 point3)] [grab-brush (send the-brush-list find-or-create-brush "blue" 'solid)] [reg-brush (send the-brush-list find-or-create-brush "black" 'solid)] - [reg-pen (send the-pen-list find-or-create-pen "black" 1 'solid)] + [reg-pen (send the-pen-list find-or-create-pen "black" 1 'solid)]) (inherit get-dc get-client-size get-top-level-window) (rename [super-on-event on-event]) (override @@ -293,6 +294,7 @@ res))]) (inherit reflow-container get-top-level-window set-alignment get-alignment) (public + [on-percentage (lambda (p) (void))] [set-percentage (lambda (p) (send thumb-canvas set-percentage p)