From a87ceb7b9a752600c3a1aae1c17270236603f174 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 11 Jul 2003 14:34:32 +0000 Subject: [PATCH] . original commit: 9c461d13ffd481f4ced99ce665c08b1299b6a7cb --- collects/hierlist/hierlist-unit.ss | 2 +- notes/mred/HISTORY | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/hierlist/hierlist-unit.ss b/collects/hierlist/hierlist-unit.ss index 385b5785..0dd2ac18 100644 --- a/collects/hierlist/hierlist-unit.ss +++ b/collects/hierlist/hierlist-unit.ss @@ -377,7 +377,7 @@ (delete (if (zero? s) s (sub1 s)) (if (zero? s) (add1 e) e)))] [else (loop (add1 pos) (cdr l) (cons (car l) others))])))] [sort (lambda (less-than?) - (let ([l (mergesort children (lambda (a b) + (let ([l (quicksort children (lambda (a b) (less-than? (send a get-item) (send b get-item))))]) (begin-edit-sequence) diff --git a/notes/mred/HISTORY b/notes/mred/HISTORY index 9904b8a9..b8c40999 100644 --- a/notes/mred/HISTORY +++ b/notes/mred/HISTORY @@ -6,6 +6,11 @@ Added get-text! to snip% Added locations-computed? to editor<%> X with Xft: changed default 'modern mapping to " Courier 10 Pitch" +Finally fixed Mac OS X menu-bar flashing bug, thanks + Paul Schlie's detective work. (I blame Mac OS X for + having a refresh bug, but I wasn't able to find the + sequence of MrEd actions that triggered the bug. + Paul found it.) Version 204.6 Changed canvas% so that 'gl style is no longer needed