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

drop superflous dependency on srfi1

Browse Source 
original commit: f182d0def4cb65f3089e0de167d61053279cb799
This commit is contained in:
Robby Findler 2011-01-25 15:12:26 -06:00
parent 8dd3d90602
commit 4e61f8bb71
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/framework/private/text.rkt
View File

@ -11,8 +11,7 @@
mred/mred-sig
mrlib/interactive-value-port
setup/dirs
racket/list
(prefix-in srfi1: srfi/1))
racket/list)
(require setup/xref
scribble/xref
scribble/manual-struct)
@ -3308,7 +3307,7 @@ designates the character that triggers autocompletion
(set! hidden? #t)
(set! all-completions (send cursor get-completions))
(set! all-completions-length (send cursor get-length))
(set! visible-completions (srfi1:take (send cursor get-completions) (autocomplete-limit)))
(set! visible-completions (take (send cursor get-completions) (autocomplete-limit)))
(set! visible-completions-length (autocomplete-limit))]))
(define/public (get-completions) all-completions)
@ -3322,14 +3321,14 @@ designates the character that triggers autocompletion
(define/public (scroll-down)
(when hidden?
(set! all-completions (append (srfi1:drop all-completions (autocomplete-limit)) visible-completions))
(set! visible-completions (srfi1:take all-completions (autocomplete-limit)))))
(set! all-completions (append (drop all-completions (autocomplete-limit)) visible-completions))
(set! visible-completions (take all-completions (autocomplete-limit)))))
(define/public (scroll-up)
(when hidden?
(let ([n (- all-completions-length (autocomplete-limit))])
(set! all-completions (append (srfi1:drop all-completions n) (srfi1:take all-completions n)))
(set! visible-completions (srfi1:take all-completions (autocomplete-limit))))))
(set! all-completions (append (drop all-completions n) (take all-completions n)))
(set! visible-completions (take all-completions (autocomplete-limit))))))
(define/public (narrow char)
(let ([new-cursor (send cursor narrow char)])