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

.

Browse Source 
original commit: b4f4c4b54de58f4af35954a41473f7bdaaa975b2
This commit is contained in:
Matthew Flatt 2000-03-05 20:00:42 +00:00
parent 5da28fddd8
commit b7502d6a0d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mred/wrap/mred.ss
View File

@ -2750,7 +2750,9 @@
[get-label (lambda () label)]
[set-label (lambda (l)
(check-string/false '(method window<%> set-label) l)
(set! label l))]
(set! label (if (string? l)
(string->immutable-string l)
l)))]
[get-plain-label (lambda () (and (string? label) (wx:label->plain-label label)))]
[accept-drop-files
@ -2932,7 +2934,9 @@
[get-plain-label (lambda () (and (string? label) (wx:label->plain-label label)))]
[set-label (entry-point-1
(lambda (l)
(let ([l (and (string? l) (string->immutable-string l))])
(let ([l (if (string? l)
(string->immutable-string l)
l)])
(send wx set-label l)
(set! label l))))])
(public