suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 9c461d13ffd481f4ced99ce665c08b1299b6a7cb
This commit is contained in:
Matthew Flatt 2003-07-11 14:34:32 +00:00
parent 5551c24bde
commit a87ceb7b9a
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/hierlist/hierlist-unit.ss
View File

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

5
notes/mred/HISTORY
View File

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