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

ignore source posn if #f

Browse Source 
svn: r15552
This commit is contained in:
John Clements 2009-07-24 20:46:10 +00:00
parent c21afa4bf2
commit de967c2755
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/stepper/private/model.ss
View File

@ -361,11 +361,12 @@
(define-struct skipped-step ())
(define the-skipped-step (make-skipped-step))
;; produce a posn-info structure based on the information in a mark-list
;; produce a posn-info structure or false based on the information in a mark-list
;; mark-list->posn-info : (listof mark) -> (or/c posn-info? false?)
(define (mark-list->posn-info mark-list)
(let* ([first-mark-source (mark-source (car mark-list))]
[posn (syntax-position first-mark-source)]
[span (syntax-span first-mark-source)])
(unless posn
(error 'mark-list->posn-info "expected a syntax object with a syntax-position, got: ~v" (syntax->datum first-mark-source)))
(make-posn-info posn span)))
(if posn
(make-posn-info posn span)
#f)))

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

@ -68,7 +68,7 @@
;; possible values: #f, or a predicate on steps.
(define stepper-is-waiting? (lambda (x) #t))
;; hand-off-and-block : (-> text%? boolean? void?)
;; hand-off-and-block : (-> text%? any (listof (or/c posn-info? false?)) void?)
;; hand-off-and-block generates a new semaphore, hands off a thunk to
;; drscheme's eventspace, and blocks on the new semaphore. The thunk
;; adds the text% to the waiting queue, and checks to see if the
@ -194,7 +194,8 @@
(begin
;; each step has its own semaphore, so releasing one twice is
;; no problem.
(semaphore-post release-for-next-step)
(when release-for-next-step
(semaphore-post release-for-next-step))
(when stepper-is-waiting?
(error 'try-to-get-view
"try-to-get-view should not be reachable when already waiting for new step"))
@ -327,7 +328,9 @@
;; en/dis-able-buttons : set enable & disable the stepper buttons,
;; based on view-controller state
(define (en/dis-able-buttons)
(let* ([can-go-back? (and view (> view 0))])
;; 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