fix clickback highlighting

Highlighting seems to have been broken in the C++-to-Racket port of
2009, where a method call was turned into a structure update, probably
because the names are the same except for a trailing `?!`. The method
was still present, but not quite all there.

Closes #2909

Author: mflatt

gui-lib/mred/private/wxme/editor.rkt

@@ -856,7 +856,7 @@
   (define/public (add-undo-rec rec)
     (cond
      [interceptmode?
-      (send intercepted append rec)]
+      (set! intercepted (cons rec intercepted))]
      [undomode?
       (append-undo rec #t)]
      [(zero? s-noundomode)
@@ -1024,9 +1024,9 @@
 
   (def/public (s-end-intercept)
     (begin0
-     intercepted
-     (set! interceptmode? #f)
-     (set! intercepted null)))
+      (reverse intercepted)
+      (set! interceptmode? #f)
+      (set! intercepted null)))
 
   (define/public (undo-preserves-all-history?)
     emacs-style-undo?)

gui-lib/mred/private/wxme/text.rkt

@@ -538,7 +538,7 @@
                               (set! track-clickback click)
                               (when s-admin
                                 (send s-admin update-cursor))
-                              (set-clickback-hilited?! track-clickback #t)))
+                              (set-clickback-hilited track-clickback #t)))
                         (begin
                           (set! dragstart now)
                           (set! dragging? #t)
@@ -561,15 +561,15 @@
                     (let ([cb (if (x . >= . 0)
                                   (find-clickback now y)
                                   #f)])
-                      (set-clickback-hilited?! track-clickback (eq? cb track-clickback)))])]
+                      (set-clickback-hilited track-clickback (eq? cb track-clickback)))])]
                  [(send event button-up?)
                   (cond
                    [dragging?
                     (set! dragging? #f)]
                    [tracking?
                     (set! tracking? #f)
                     (when (clickback-hilited? track-clickback)
-                      (set-clickback-hilited?! track-clickback #f)
+                      (set-clickback-hilited track-clickback #f)
                       (let ([click track-clickback])
                         ((clickback-f click) this (clickback-start click) (clickback-end click))))
                     (when s-admin
@@ -579,7 +579,7 @@
                   (when tracking?
                     (set! tracking? #f)
                     (when (clickback-hilited? track-clickback)
-                      (set-clickback-hilited?! track-clickback #f)
+                      (set-clickback-hilited track-clickback #f)
                       (let ([click track-clickback])
                         ((clickback-f click) this (clickback-start click) (clickback-end click)))))
                   (when s-admin
@@ -2532,15 +2532,15 @@
 
         (begin-edit-sequence)
         (flash-on (clickback-start c) (clickback-end c) #f #f 0)
-        (do-change-style (clickback-start c) (clickback-end c) #f (clickback-delta c) #f)
+        (do-change-style (clickback-start c) (clickback-end c) #f (clickback-delta c) #f #f)
         (end-edit-sequence)
 
         (set-clickback-unhilite! c (s-end-intercept))]
        [else
         (perform-undo-list (clickback-unhilite c))
         (set-clickback-unhilite! c null)
         (flash-off)])
-      (set-clickback-hilited?! (and on? #t))))
+      (set-clickback-hilited?! c (and on? #t))))
 
   ;; ----------------------------------------