original commit: 7667caf3bdf68c331be760496a3646973afbdb79
This commit is contained in:
Matthew Flatt 2003-05-20 19:02:39 +00:00
parent 4c46442bd3
commit 946cc09c62

View File

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