commit b99ae65e0d728ff0e4348beb392093314b1d5937 parent 8f08e40c41b47fae20b64e104c21b14046056afd Author: Ryan Culpepper <ryanc@racket-lang.org> Date: Wed, 14 Jan 2009 06:11:59 +0000 macro stepper: fixed interface bugs svn: r13109 original commit: 502edfb02f4abf631f1d878d207a781d71a51104 Diffstat:
5 files changed, 11 insertions(+), 9 deletions(-)
diff --git a/collects/macro-debugger/syntax-browser/controller.ss b/collects/macro-debugger/syntax-browser/controller.ss @@ -68,9 +68,10 @@ (super-new))) (define controller% - (class (secondary-partition-mixin - (selection-manager-mixin - (mark-manager-mixin - (displays-manager-mixin - object%)))) + (class* (secondary-partition-mixin + (selection-manager-mixin + (mark-manager-mixin + (displays-manager-mixin + object%)))) + (controller<%>) (super-new))) diff --git a/collects/macro-debugger/view/interfaces.ss b/collects/macro-debugger/view/interfaces.ss @@ -54,8 +54,10 @@ has-prev? has-next? +#| at-start? at-end? +|# navigate-to-start navigate-to-end navigate-previous diff --git a/collects/macro-debugger/view/stepper.ss b/collects/macro-debugger/view/stepper.ss @@ -237,12 +237,12 @@ (list navigator))))) ;; Navigation - +#| (define/public-final (at-start?) (send: (focused-term) term-record<%> at-start?)) (define/public-final (at-end?) (send: (focused-term) term-record<%> at-end?)) - +|# (define/public-final (navigate-to-start) (send: (focused-term) term-record<%> navigate-to-start) (update/save-position)) diff --git a/collects/macro-debugger/view/term-record.ss b/collects/macro-debugger/view/term-record.ss @@ -1,4 +1,3 @@ - #lang scheme/base (require scheme/class macro-debugger/util/class-iop diff --git a/collects/macro-debugger/view/view.ss b/collects/macro-debugger/view/view.ss @@ -14,7 +14,7 @@ go) (define macro-stepper-director% - (class object% + (class* object% (director<%>) (define stepper-frames (make-hasheq)) ;; Flags is a subset(list) of '(no-obsolete no-new-traces)