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

Updated for v299

Browse Source 
original commit: ed3f6cdf77f2d57098d4a3a7f3bbdb1b335d9a0f
This commit is contained in:
Jacob Matthews 2004-09-27 20:34:03 +00:00
parent c6a1734675
commit 7750506245
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/mrlib/graph.ss
View File

@ -141,21 +141,22 @@
[else [else
(super on-event evt)])) (super on-event evt)]))
(define/override (on-interactive-move evt) (define/augment (on-interactive-move evt)
(invalidate-selected-snips) (invalidate-selected-snips)
(super on-interactive-move evt)) #;(super on-interactive-move evt)
)
(define/override (after-interactive-move evt) (define/augment (after-interactive-move evt)
(invalidate-selected-snips) (invalidate-selected-snips)
(super on-interactive-move evt)) #;(super on-interactive-move evt))
(define/override (interactive-adjust-move snip x y) (define/override (interactive-adjust-move snip x y)
(invalidate-to-children/parents snip) (invalidate-to-children/parents snip)
(super interactive-adjust-move snip x y)) (super interactive-adjust-move snip x y))
(define/override (after-insert snip before x y) (define/augment (after-insert snip before x y)
(invalidate-to-children/parents snip) (invalidate-to-children/parents snip)
(super after-insert snip before x y)) #;(super 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