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

last change before drscheme ii!!!

Browse Source 
original commit: 857137b6d0757f11641d54c70636445b9e562a11
This commit is contained in:
Robby Findler 1997-09-20 22:05:27 +00:00
parent f58653aa29
commit 16e8008db8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/edit.ss
View File

@ -424,8 +424,13 @@
(super-on-paint before dc left top right bottom dx dy draw-caret)
(for-each
(lambda (rectangle)
(let ([pen (make-object wx:pen% "black" 1 wx:const-stipple)]
[brush (make-object wx:brush% "black" wx:const-stipple)]
(let ([pen (make-object wx:pen%
"BLACK"
0
wx:const-stipple)]
[brush (make-object wx:brush%
"black"
wx:const-stipple)]
[old-pen (send dc get-pen)]
[old-brush (send dc get-brush)]
[old-logical-function (send dc get-logical-function)]