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

..

Browse Source 
original commit: 10e3c32a0ae7712aa545de1c01b6e829cba47073
This commit is contained in:
Robby Findler 2003-05-22 17:00:21 +00:00
parent b295108f85
commit 072d0880d7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/hierlist/hierlist-unit.ss
View File

@ -20,10 +20,10 @@
(define transparent (make-object brush% "WHITE" 'transparent)) (define transparent (make-object brush% "WHITE" 'transparent))
(define transparent-pen (make-object pen% "WHITE" 1 'transparent)) (define transparent-pen (make-object pen% "WHITE" 1 'transparent))
(define black-xor-pen (make-object pen% "BLACK" 1 'hilite)) (define black-xor-pen (make-object pen% "BLACK" 1 'solid #|'hilite|#))
(define red (make-object brush% "RED" 'solid)) (define red (make-object brush% "RED" 'solid))
(define blue (make-object brush% "BLUE" 'solid)) (define blue (make-object brush% "BLUE" 'solid))
(define black-xor (make-object brush% "BLACK" 'hilite)) (define black-xor (make-object brush% "BLACK" 'solid #|'hilite|#))
(define arrow-cursor (make-object cursor% 'arrow)) (define arrow-cursor (make-object cursor% 'arrow))
(define-values (up-bitmap down-bitmap up-click-bitmap down-click-bitmap) (define-values (up-bitmap down-bitmap up-click-bitmap down-click-bitmap)