From b99ae65e0d728ff0e4348beb392093314b1d5937 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Wed, 14 Jan 2009 06:11:59 +0000
Subject: [PATCH] macro stepper: fixed interface bugs

svn: r13109

original commit: 502edfb02f4abf631f1d878d207a781d71a51104
---
 collects/macro-debugger/syntax-browser/controller.ss | 11 ++++++-----
 collects/macro-debugger/view/interfaces.ss           |  2 ++
 collects/macro-debugger/view/stepper.ss              |  4 ++--
 collects/macro-debugger/view/term-record.ss          |  1 -
 collects/macro-debugger/view/view.ss                 |  2 +-
 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
index 3524158..f834abc 100644
--- 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
index 4d9e19a..aae8172 100644
--- 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
index c731972..ed9b6ed 100644
--- 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
index 4c1fdf9..ae007a7 100644
--- 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
index be4451a..3d831bd 100644
--- 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)