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

srot optionally recusrive

Browse Source 
svn: r52

original commit: 724c893b1fb3170ce079417bf0feef79ef05aa65
This commit is contained in:
Matthew Flatt 2005-06-02 17:40:54 +00:00
parent 07bea6744e
commit 5a1a71c401
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -398,17 +398,18 @@
[e (line-end-position pos)])
(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?)
[sort (opt-lambda (less-than? [recur? #t])
(let ([l (mergesort children (lambda (a b)
(less-than? (send a get-item)
(send b get-item))))])
(begin-edit-sequence)
(for-each (lambda (child)
(when (is-a? child hierarchical-list-snip%)
(let ([ed (send child get-content-buffer)])
(when (is-a? ed hierarchical-list-text%)
(send ed sort less-than?)))))
children)
(when recur?
(for-each (lambda (child)
(when (is-a? child hierarchical-list-snip%)
(let ([ed (send child get-content-buffer)])
(when (is-a? ed hierarchical-list-text%)
(send ed sort less-than?)))))
children))
(erase)
(let ([to-scroll-to #f])
(for-each
@ -642,7 +643,7 @@
[set-no-sublists (lambda x (send top-buffer set-no-sublists . x))]
[new-list (lambda x (send top-buffer new-list . x))]
[delete-item (lambda (i) (send top-buffer delete-item i))]
[sort (lambda (less-than?) (send top-buffer sort less-than?))]
[sort (opt-lambda (less-than? [recur? #t]) (send top-buffer sort less-than? recur?))]
[get-items (lambda () (send top-buffer get-items))]
[toggle-open/closed
(lambda ()