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) (check-instance '(method frame% on-menu-char) wx:key-event% 'key-event% #f e)
(send wx handle-menu-key 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))))] [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?)] [has-status-line? (lambda () status-line?)]
[iconize (entry-point-1 (lambda (on?) (send wx iconize on?)))] [iconize (entry-point-1 (lambda (on?) (send wx iconize on?)))]
[is-iconized? (entry-point (lambda () (send wx iconized?)))] [is-iconized? (entry-point (lambda () (send wx iconized?)))]
[set-icon (entry-point-1-2 (case-lambda [set-icon (case-lambda
[(i) (send wx set-icon i)] [(i) (send wx set-icon i)]
[(i b) (send wx set-icon i b)]))] [(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?)))] [maximize (entry-point-1 (lambda (on?) (send wx maximize on?)))]
[get-menu-bar (entry-point (lambda () (let ([mb (ivar wx menu-bar)]) [get-menu-bar (entry-point (lambda () (let ([mb (ivar wx menu-bar)])
(and mb (wx->mred mb)))))]) (and mb (wx->mred mb)))))])