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

.

Browse Source 
original commit: b0eb1f793774a33cb608db27675f6f7bfac3b063
This commit is contained in:
Matthew Flatt 1999-03-09 19:53:23 +00:00
parent 0910355ec7
commit daa8753387
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -671,7 +671,7 @@
; contents. Each direction is handled
; independently.
[on-size
(lambda (width height)
(lambda (bad-width bad-height)
(wx:queue-callback resized #t))])
(public
@ -1053,8 +1053,8 @@
(as-exit
(lambda ()
(send (get-proxy) on-drop-file f)))))]
[on-size (lambda (w h)
(super-on-size w h)
[on-size (lambda (bad-w bad-h)
(super-on-size bad-w bad-h)
; Delay callback to make sure X structures (position) are updated, first
(queue-window-callback
this
@ -1481,7 +1481,10 @@
[(#\tab #\return escape) (not single-line-canvas?)]
[else (not meta?)]))])
(public
[on-tab-in (lambda () (send (wx->mred this) on-tab-in))]
[on-tab-in (lambda ()
(let ([mred (wx->mred this)])
(when mred
(send mred on-tab-in))))]
[set-single-line (lambda () (set! single-line-canvas? #t))]
[is-single-line? (lambda () single-line-canvas?)]
[set-line-count (lambda (n)