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

.

Browse Source 
original commit: eaccc6e77cd7c741224b098d4a243c46a0224579
This commit is contained in:
Matthew Flatt 2004-11-11 16:17:19 +00:00
parent 453de3de68
commit 87edd76bae
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -5396,7 +5396,13 @@
(lambda (i s) (lambda (i s)
(check-item 'set-item-label i) (check-item 'set-item-label i)
(check-label-string '(method tab-panel% set-item-label) s) (check-label-string '(method tab-panel% set-item-label) s)
(as-exit (lambda () (send (mred->wx tabs) set-label i s)))))]) (let ([s (string->immutable-string s)])
(set-car! (list-tail save-choices i) s)
(as-exit (lambda () (send (mred->wx tabs) set-label i s))))))]
[get-item-label (entry-point
(lambda (i)
(check-item 'get-item-label i)
(list-ref save-choices i)))])
(private (private
[check-item [check-item

3
notes/mred/HISTORY
View File

@ -1,4 +1,7 @@
Version 299.23
Added get-item-label and set-item-label to tab-panel%
Version 299.22 Version 299.22
Added 'float style for frame% Added 'float style for frame%
Added combo-field% Added combo-field%