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

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

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

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

@ -256,8 +256,7 @@
(set! percentages (map make-percentage ps)) (set! percentages (map make-percentage ps))
(container-flow-modified)) (container-flow-modified))
(define/public (after-percentage-change) (define/pubment (after-percentage-change) (inner (void) after-percentage-change))
(void))
(define/private (get-available-extent) (define/private (get-available-extent)
(let-values ([(width height) (get-client-size)]) (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 find-first-snip find-next-selected-snip)
(inherit dc-location-to-editor-location get-canvas) (inherit dc-location-to-editor-location get-canvas)
(rename [super-on-event on-event])
(field (currently-overs null)) (field (currently-overs null))
(define/override (on-event evt) (define/override (on-event evt)
(cond (cond
[(send evt leaving?) [(send evt leaving?)
(change-currently-overs null) (change-currently-overs null)
(super-on-event evt)] (super on-event evt)]
[(or (send evt entering?) [(or (send evt entering?)
(send evt moving?)) (send evt moving?))
(let ([ex (send evt get-x)] (let ([ex (send evt get-x)]
[ey (send evt get-y)]) [ey (send evt get-y)])
(let-values ([(x y) (dc-location-to-editor-location ex ey)]) (let-values ([(x y) (dc-location-to-editor-location ex ey)])
(change-currently-overs (find-snips-under-mouse x y)))) (change-currently-overs (find-snips-under-mouse x y))))
(super-on-event evt)] (super on-event evt)]
[else [else
(super-on-event evt)])) (super on-event evt)]))
(rename [super-on-interactive-move on-interactive-move])
(define/override (on-interactive-move evt) (define/override (on-interactive-move evt)
(invalidate-selected-snips) (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) (define/override (after-interactive-move evt)
(invalidate-selected-snips) (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) (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))
(rename [super-after-insert after-insert])
(define/override (after-insert snip before x y) (define/override (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
@ -263,7 +258,6 @@
;; on-paint : ... -> void ;; on-paint : ... -> void
;; see docs, same as super ;; see docs, same as super
;; draws all of the lines and then draws all of the arrow heads ;; 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) (define/override (on-paint before? dc left top right bottom dx dy draw-caret)
(when before? (when before?
(let ([old-pen (send dc get-pen)] (let ([old-pen (send dc get-pen)]
@ -274,7 +268,7 @@
(send dc set-pen old-pen) (send dc set-pen old-pen)
(send dc set-brush old-brush))) (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 ;; draw-all-connections : ... boolean -> void
;; draws all of the connections between the snips ;; draws all of the connections between the snips