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

.

Browse Source 
original commit: 13de1de3863f42122386ecd06e86cfd5f0cd609c
This commit is contained in:
Matthew Flatt 1998-08-28 23:41:59 +00:00
parent 51e326192b
commit 8b1a7656ce
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2056,7 +2056,7 @@
[on-subwindow-char (lambda (w event) (send wx handle-menu-key event))])
(public
[create-status-line (lambda () (unless status-line? (send wx create-status-line) (set! status-line? #t)))]
[set-status-line (lambda () (send wx create-status-line))]
[set-status-line (lambda (s) (send wx set-status-text s))]
[has-status-line? (lambda () status-line?)]
[iconize (lambda (on?) (send wx iconize on?))]
[is-iconized? (lambda () (send wx iconized?))]
@ -2370,6 +2370,9 @@
[on-paint (lambda () (send wx do-on-paint))]
[on-scroll (lambda (e) (send wx do-on-scroll e))]
[min-client-width (param (lambda () wx) 'min-client-width)]
[min-client-height (param (lambda () wx) 'min-client-height)]
[popup-menu (lambda (m x y)
(check-instance '(method canvas<%> popup-menu) popup-menu% "popup-menu" #f m)
(send wx popup-menu (mred->wx m) x y))]