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

.

Browse Source 
original commit: e9abf9c5dc9f82b03f49601731a05ccc4bdb2abb
This commit is contained in:
Robby Findler 2004-11-30 15:18:44 +00:00
parent 94892215a9
commit 6b6142d0f6
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/mrlib/name-message.ss
View File

@ -152,10 +152,10 @@
(define button-label-inset 1) (define button-label-inset 1)
(define black-color (make-object color% "BLACK")) (define black-color (make-object color% "BLACK"))
(define right-triangle-bitmap (make-object bitmap% (build-path (collection-path "icons") "turn-up.png") 'unknown/mask)) (define unclicked-triangle (make-object bitmap% (build-path (collection-path "icons") "turn-down.png") 'unknown/mask))
(define down-triangle-bitmap (make-object bitmap% (build-path (collection-path "icons") "turn-down.png") 'unknown/mask)) (define clicked-triangle (make-object bitmap% (build-path (collection-path "icons") "turn-down-click.png") 'unknown/mask))
(define triangle-width (send right-triangle-bitmap get-width)) (define triangle-width (send clicked-triangle get-width))
(define triangle-height (send right-triangle-bitmap get-height)) (define triangle-height (send clicked-triangle get-height))
(define triangle-space 2) (define triangle-space 2)
(define circle-spacer 3) (define circle-spacer 3)
@ -169,11 +169,11 @@
(define normal-background "lightgray") (define normal-background "lightgray")
(define mouse-over/grabbed-background "darkgray") (define mouse-over/grabbed-background "darkgray")
(define mouse-over-border-color "black") (define border-color "lightgray")
(define border-color "darkgray") (define mouse-over-border-color "darkgray")
(define normal-text-color (send the-color-database find-color "black")) (define normal-text-color (send the-color-database find-color "black"))
(define mouse-over-text-color (send the-color-database find-color "firebrick")) (define mouse-over-text-color (send the-color-database find-color "black"))
(define (calc-button-min-sizes dc label) (define (calc-button-min-sizes dc label)
(send dc set-font button-label-font) (send dc set-font button-label-font)
@ -228,7 +228,7 @@
(+ circle-spacer button-label-inset) (+ circle-spacer button-label-inset)
(- (/ h 2) (/ th 2))))) (- (/ h 2) (/ th 2)))))
(let ([bm (if grabbed? down-triangle-bitmap right-triangle-bitmap)]) (let ([bm (if grabbed? clicked-triangle unclicked-triangle)])
(send dc draw-bitmap (send dc draw-bitmap
bm bm
(- w triangle-width circle-spacer) (- w triangle-width circle-spacer)