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

fix method name 'equal?' i wxme test

Browse Source 
svn: r14492

original commit: 3a68af494ab4e3d2b46c68efea8bef05a87f005e
This commit is contained in:
Matthew Flatt 2009-04-11 22:40:04 +00:00
parent 7aac5a7004
commit 6bfcb41c5e
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/tests/mred/wxme.ss
View File

@ -156,9 +156,9 @@
(define d1 (new style-delta%))
(define d2 (new style-delta%))
(expect (send d1 get-underlined-on) #f)
(expect (send d1 equal d2) #t)
(expect (send d1 equal? d2) #t)
(send d1 set-underlined-on #t)
(expect (send d1 equal d2) #f)
(expect (send d1 equal? d2) #f)
(send d2 collapse d1)
(expect (send d2 get-underlined-on) #t)
(send d2 set-underlined-on #f)