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

updated stepper to use 1-based step numbering.

Browse Source 
Closes PR 11166.
This commit is contained in:
John Clements 2010-09-07 14:44:56 -07:00
parent 11e168f01e
commit c2b75a6c57
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/stepper/view-controller.rkt
View File

@ -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))