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

added back in support for the with-border? flag

Browse Source 
svn: r14561
This commit is contained in:
Robby Findler 2009-04-19 22:20:46 +00:00
parent 5a4f15f5f9
commit 104dde2a08
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/decorated-editor-snip.ss
View File

@ -22,6 +22,9 @@
(define editor-snip:decorated-mixin (define editor-snip:decorated-mixin
(mixin ((class->interface editor-snip%)) (editor-snip:decorated<%>) (mixin ((class->interface editor-snip%)) (editor-snip:decorated<%>)
(init [with-border? #t])
(define draw-border? with-border?)
;; get-corner-bitmap : -> (union #f (is-a?/c bitmap%)) ;; get-corner-bitmap : -> (union #f (is-a?/c bitmap%))
;; returns the bitmap to be shown in the top right corner. ;; returns the bitmap to be shown in the top right corner.
(define/public (get-corner-bitmap) #f) (define/public (get-corner-bitmap) #f)
@ -152,13 +155,14 @@
(+ x (unbox bil) 2) (+ x (unbox bil) 2)
(+ y (unbox bmt)))]))) (+ y (unbox bmt)))])))
(when draw-border?
(send dc set-pen (get-pen)) (send dc set-pen (get-pen))
(send dc set-brush (get-brush)) (send dc set-brush (get-brush))
(send dc draw-rectangle (send dc draw-rectangle
(+ x (unbox bil)) (+ x (unbox bil))
(+ y (unbox bit)) (+ y (unbox bit))
(max 0 (- (unbox bw) (unbox bil) (unbox bir))) (max 0 (- (unbox bw) (unbox bil) (unbox bir)))
(max 0 (- (unbox bh) (unbox bit) (unbox bib)))) (max 0 (- (unbox bh) (unbox bit) (unbox bib)))))
(send dc set-pen old-pen) (send dc set-pen old-pen)
(send dc set-brush old-brush)))) (send dc set-brush old-brush))))