macro stepper: fixed interface bugs

svn: r13109

original commit: 502edfb02f4abf631f1d878d207a781d71a51104

collects/macro-debugger/syntax-browser/controller.ss

@@ -68,9 +68,10 @@
     (super-new)))
 
 (define controller%
-  (class (secondary-partition-mixin
+  (class* (secondary-partition-mixin
            (selection-manager-mixin
             (mark-manager-mixin
              (displays-manager-mixin
               object%))))
+    (controller<%>)
     (super-new)))

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

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

collects/macro-debugger/view/term-record.ss

@@ -1,4 +1,3 @@
-
 #lang scheme/base
 (require scheme/class
          macro-debugger/util/class-iop

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)