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

.

Browse Source 
original commit: 62454db9603df14663c32d483ceee1766af410bf
This commit is contained in:
Matthew Flatt 1999-07-07 19:33:31 +00:00
parent 5792cf2d7e
commit c1bda99fbf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2938,7 +2938,9 @@
[has-status-line? (lambda () status-line?)]
[iconize (entry-point-1 (lambda (on?) (send wx iconize on?)))]
[is-iconized? (entry-point (lambda () (send wx iconized?)))]
[set-icon (entry-point-1 (lambda (i) (send wx set-icon i)))]
[set-icon (entry-point-1-2 (case-lambda
[(i) (send wx set-icon i)]
[(i b) (send wx set-icon i b)]))]
[maximize (entry-point-1 (lambda (on?) (send wx maximize on?)))]
[get-menu-bar (entry-point (lambda () (let ([mb (ivar wx menu-bar)])
(and mb (wx->mred mb)))))])