From c2b75a6c5732ce4135f574a28b38b20ac871f9ed Mon Sep 17 00:00:00 2001 From: John Clements Date: Tue, 7 Sep 2010 14:44:56 -0700 Subject: [PATCH] updated stepper to use 1-based step numbering. Closes PR 11166. --- collects/stepper/view-controller.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/stepper/view-controller.rkt b/collects/stepper/view-controller.rkt index 239683213a..af822c1bb5 100644 --- a/collects/stepper/view-controller.rkt +++ b/collects/stepper/view-controller.rkt @@ -253,7 +253,8 @@ (send status-text begin-edit-sequence) (send status-text lock #f) (send status-text delete 0 (send status-text last-position)) - (send status-text insert (format "~a/~a" view (length view-history))) + ;; updated to yield 1-based step numbering rather than 0-based numbering. + (send status-text insert (format "~a/~a" (if view (+ 1 view) "none") (length view-history))) (send status-text lock #t) (send status-text end-edit-sequence))