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

.

Browse Source 
original commit: daab1fad4b0981b51ae49a606888f4e3346997f5
This commit is contained in:
Robby Findler 2004-06-22 15:23:54 +00:00
parent 3849d8bd4d
commit e36d2ecc6e
4 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drscheme/private/syntax-browser.ss
View File

@ -379,7 +379,6 @@ needed to really make this work:
(set-box/f! w arrow-snip-width)
(set-box/f! h arrow-snip-height))
(rename [super-on-event on-event])
(define/override (on-event dc x y editorx editory evt)
(let ([snip-evt-x (- (send evt get-x) x)]
[snip-evt-y (- (send evt get-y) y)])
@ -420,7 +419,7 @@ needed to really make this work:
[(down down-click) 'down]
[else 'up-click]))]
[else
(super-on-event dc x y editorx editory evt)])))
(super on-event dc x y editorx editory evt)])))
(inherit get-admin)
(define/private (set-state new-state)

4
collects/framework/private/main.ss
View File

@ -140,8 +140,8 @@
'(define defmacro define-macro
define-syntax-set
define-values
define/public define/override define/private define/field
define/override-final define/public-final
define/public define/pubment define/private define/field
define/override define/augment define/overment define/augride
define/contract
define-signature
define-syntax define-syntaxes

3
collects/framework/private/panel.ss
View File

@ -256,8 +256,7 @@
(set! percentages (map make-percentage ps))
(container-flow-modified))
(define/public (after-percentage-change)
(void))
(define/pubment (after-percentage-change) (inner (void) after-percentage-change))
(define/private (get-available-extent)
(let-values ([(width height) (get-client-size)])

22
collects/mrlib/graph.ss
View File

@ -125,42 +125,37 @@
(inherit find-first-snip find-next-selected-snip)
(inherit dc-location-to-editor-location get-canvas)
(rename [super-on-event on-event])
(field (currently-overs null))
(define/override (on-event evt)
(cond
[(send evt leaving?)
(change-currently-overs null)
(super-on-event evt)]
(super on-event evt)]
[(or (send evt entering?)
(send evt moving?))
(let ([ex (send evt get-x)]
[ey (send evt get-y)])
(let-values ([(x y) (dc-location-to-editor-location ex ey)])
(change-currently-overs (find-snips-under-mouse x y))))
(super-on-event evt)]
(super on-event evt)]
[else
(super-on-event evt)]))
(super on-event evt)]))
(rename [super-on-interactive-move on-interactive-move])
(define/override (on-interactive-move evt)
(invalidate-selected-snips)
(super-on-interactive-move evt))
(super on-interactive-move evt))
(rename [super-after-interactive-move after-interactive-move])
(define/override (after-interactive-move evt)
(invalidate-selected-snips)
(super-on-interactive-move evt))
(super on-interactive-move evt))
(rename [super-interactive-adjust-move interactive-adjust-move])
(define/override (interactive-adjust-move snip x y)
(invalidate-to-children/parents snip)
(super-interactive-adjust-move snip x y))
(super interactive-adjust-move snip x y))
(rename [super-after-insert after-insert])
(define/override (after-insert snip before x y)
(invalidate-to-children/parents snip)
(super-after-insert snip before x y))
(super after-insert snip before x y))
;; invalidate-selected-snips : -> void
;; invalidates the region around the selected
@ -263,7 +258,6 @@
;; on-paint : ... -> void
;; see docs, same as super
;; draws all of the lines and then draws all of the arrow heads
(rename [super-on-paint on-paint])
(define/override (on-paint before? dc left top right bottom dx dy draw-caret)
(when before?
(let ([old-pen (send dc get-pen)]
@ -274,7 +268,7 @@
(send dc set-pen old-pen)
(send dc set-brush old-brush)))
(super-on-paint before? dc left top right bottom dx dy draw-caret))
(super on-paint before? dc left top right bottom dx dy draw-caret))
;; draw-all-connections : ... boolean -> void
;; draws all of the connections between the snips