1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;;CheckScoreSkipping
(define-once CheckScoreSkipping::number 0)
(define-once CheckScore::ignore 0)
(let ((saved (d-GetSaved))(skip (d-GetUserInput (_ "Check Score Skipping Some Errors") (_ "Give number of errors to skip") (number->string (1+ CheckScoreSkipping::number)))))
(d-IncreaseGuard)
(if skip
(begin
(set! skip (string->number skip))
(if skip
(begin
(set! CheckScoreSkipping::number skip)
(set! CheckScore::ignore skip)
(d-CheckScore #f) ;;;interactive call
(if CheckScore::return
(begin
(if CheckScore::error-position
(apply d-GoToPosition CheckScore::error-position))
(d-InfoDialog (string-append (_ "Error number: ") (number->string (+ 1 skip)) ": " CheckScore::return)))
(begin
(set! CheckScore::error-position #f)
(d-InfoDialog (_ "No further problem detected in this score")))))))
(d-WarningDialog (_ "Cancelled")))
(d-DecreaseGuard)
(d-SetSaved saved))
|
