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

goes in 4.2.2 release: fixed missing init arg to stepper-text% for errors

Browse Source 
svn: r16182
This commit is contained in:
John Clements 2009-09-30 06:04:28 +00:00
parent 6a8c35d429
commit 1b0a450739
1 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/stepper/view-controller.ss
View File

@ -247,8 +247,7 @@
;; jump-to-beginning : the action of the choice menu entry
(define (jump-to-beginning)
(set! stepper-is-waiting? #f)
(update-view/existing 0))
(first-of-specified-kind (lambda (x) #t)))
;; jump-to-end : the action of the choice menu entry
(define (jump-to-end)
@ -324,16 +323,7 @@
;; based on view-controller state
(define (en/dis-able-buttons)
;; let's just leave all the buttons enabled...
(void)
#;(let* ([can-go-back? (and view (> view 0))])
(send previous-button enable can-go-back?)
(send previous-application-button enable can-go-back?)
(send next-button
enable (or (find-later-step/boolean (lambda (x) #t) view)
(not stepper-is-waiting?)))
(send next-application-button
enable (or (find-later-step/boolean application-step? view)
(not stepper-is-waiting?)))))
(void))
(define (print-current-view item evt)
(send (send canvas get-editor) print))
@ -351,7 +341,6 @@
(list (new x:stepper-text%
[left-side pre-exps]
[right-side post-exps]
;; get this from the language level
[show-inexactness? (send language-level stepper:show-inexactness?)])
kind (list pre-src post-src))]
[(struct before-error-result (pre-exps err-msg pre-src))
@ -361,7 +350,11 @@
[show-inexactness? (send language-level stepper:show-inexactness?)])
'finished-or-error (list pre-src))]
[(struct error-result (err-msg))
(list (new x:stepper-text% [left-side null] [right-side err-msg]) 'finished-or-error (list))]
(list (new x:stepper-text%
[left-side null]
[right-side err-msg]
[show-inexactness? (send language-level stepper:show-inexactness?)])
'finished-or-error (list))]
[(struct finished-stepping ())
(list x:finished-text 'finished-or-error (list))])])
(hand-off-and-block step-text step-kind posns))))