From dffb855f10139e872429d2c7b5b3aecaeb12de83 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 22 Mar 2007 20:15:33 +0000 Subject: [PATCH] added calls to inner methods svn: r5813 --- collects/mrlib/graph.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.ss index 8f2aac6d43..ebcaa79fb4 100644 --- a/collects/mrlib/graph.ss +++ b/collects/mrlib/graph.ss @@ -279,12 +279,11 @@ (define/augment (on-interactive-move evt) (invalidate-selected-snips) - #;(super on-interactive-move evt) - ) + (inner (void) on-interactive-move evt)) (define/augment (after-interactive-move evt) (invalidate-selected-snips) - #;(super on-interactive-move evt)) + (inner (void) on-interactive-move evt)) (define/override (interactive-adjust-move snip x y) (let ([dc (get-dc)]) @@ -296,7 +295,7 @@ (let ([dc (get-dc)]) (when dc (invalidate-to-children/parents snip dc))) - #;(super after-insert snip before x y)) + (inner (void) after-insert snip before x y)) ;; invalidate-selected-snips : -> void ;; invalidates the region around the selected