suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added calls to inner methods

Browse Source 
svn: r5813
This commit is contained in:
Robby Findler 2007-03-22 20:15:33 +00:00
parent 8bd72e512d
commit dffb855f10
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mrlib/graph.ss
View File

@ -279,12 +279,11 @@
(define/augment (on-interactive-move evt) (define/augment (on-interactive-move evt)
(invalidate-selected-snips) (invalidate-selected-snips)
#;(super on-interactive-move evt) (inner (void) on-interactive-move evt))
)
(define/augment (after-interactive-move evt) (define/augment (after-interactive-move evt)
(invalidate-selected-snips) (invalidate-selected-snips)
#;(super on-interactive-move evt)) (inner (void) on-interactive-move evt))
(define/override (interactive-adjust-move snip x y) (define/override (interactive-adjust-move snip x y)
(let ([dc (get-dc)]) (let ([dc (get-dc)])
@ -296,7 +295,7 @@
(let ([dc (get-dc)]) (let ([dc (get-dc)])
(when dc (when dc
(invalidate-to-children/parents snip 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 ;; invalidate-selected-snips : -> void
;; invalidates the region around the selected ;; invalidates the region around the selected