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

.

Browse Source 
original commit: 0c0c0352b537a1baa507406b4b19d9be6a6d6cd2
This commit is contained in:
Matthew Flatt 1999-01-12 03:09:28 +00:00
parent b0f77f169b
commit 41df19a6bb
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -743,15 +743,16 @@
(send o button-focus (if forward? 0 (sub1 (send o number)))) (send o button-focus (if forward? 0 (sub1 (send o number))))
(begin (begin
(send o set-focus) (send o set-focus)
(when (and (is-a? o wx-text-editor-canvas%) (if (and (is-a? o wx-text-editor-canvas%)
(send o is-single-line?)) (send o is-single-line?))
(let ([e (send o get-editor)]) (let ([e (send o get-editor)])
(as-exit (as-exit
(lambda () (lambda ()
(send e set-position 0 (send e last-position) #f #t 'local))))) (send e set-position 0 (send e last-position) #f #t 'local))))
(when (or (is-a? o wx-canvas%) ;; Not a text field; a canvas?
(is-a? o wx-editor-canvas%)) (when (or (is-a? o wx-canvas%)
(as-exit (lambda () (send o on-tab-in)))))))))]) (is-a? o wx-editor-canvas%))
(as-exit (lambda () (send o on-tab-in))))))))))])
(if (is-a? o wx:radio-box%) (if (is-a? o wx:radio-box%)
(let ([n (send o number)] (let ([n (send o number)]
[s (send o button-focus -1)] [s (send o button-focus -1)]