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

.

Browse Source 
original commit: 8a5e41b825b2ab874bb802b3fad99e30132b75e3
This commit is contained in:
Matthew Flatt 1999-07-08 15:53:29 +00:00
parent a5f5488e4a
commit f4f4d27358
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2938,13 +2938,14 @@
(check-instance '(method frame% on-menu-char) wx:key-event% 'key-event% #f e)
(send wx handle-menu-key e)))]
[create-status-line (entry-point (lambda () (unless status-line? (send wx create-status-line) (set! status-line? #t))))]
[set-status-text (entry-point-1 (lambda (s) (send wx set-status-text s)))]
[set-status-text (lambda (s) (send wx set-status-text s))]
[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-2 (case-lambda
[(i) (send wx set-icon i)]
[(i b) (send wx set-icon i b)]))]
[set-icon (case-lambda
[(i) (send wx set-icon i)]
[(i b) (send wx set-icon i b)]
[(i b l?) (send wx set-icon i b l?)])]
[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)))))])