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

removed goto-position

Browse Source 
svn: r12181
This commit is contained in:
Robby Findler 2008-10-30 19:23:08 +00:00
parent ebb3efa6ba
commit a6b7f4ba16
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/framework/private/keymap.ss
View File

@ -724,19 +724,6 @@
(+ (send edit last-line) 1)))])))) (+ (send edit last-line) 1)))]))))
#t)] #t)]
[goto-position
(λ (edit event)
(let ([num-str
(call/text-keymap-initializer
(λ ()
(get-text-from-user
(string-constant goto-position)
(string-constant goto-position))))])
(when (string? num-str)
(let ([pos (string->number num-str)])
(when pos
(send edit set-position (sub1 pos))))))
#t)]
[repeater [repeater
(λ (n edit) (λ (n edit)
(let* ([km (send edit get-keymap)] (let* ([km (send edit get-keymap)]
@ -1081,7 +1068,6 @@
(add-m "select-click-line" select-click-line) (add-m "select-click-line" select-click-line)
(add "goto-line" goto-line) (add "goto-line" goto-line)
(add "goto-position" goto-position)
(add "delete-key" delete-key) (add "delete-key" delete-key)
@ -1268,7 +1254,6 @@
(map-meta "o" "toggle-overwrite") (map-meta "o" "toggle-overwrite")
(map-meta "g" "goto-line") (map-meta "g" "goto-line")
(map-meta "p" "goto-position")
(map "c:u" "command-repeat-0") (map "c:u" "command-repeat-0")
(let loop ([n 9]) (let loop ([n 9])