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

added some more characters

Browse Source 
svn: r7329

original commit: 6d32dabc63c8395aa4f2e304bb691cb61a9a0aa4
This commit is contained in:
Robby Findler 2007-09-13 20:04:46 +00:00
parent 69e3f09ce4
commit e1226a3c02
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/private/scheme.ss
View File

@ -370,8 +370,14 @@
(define init-wordbreak-map
(λ (map)
(send map set-map #\- '(line selection))
(send map set-map #\: '(line selection))))
(send map set-map #\< '(line selection)) ; interfaces e.g.the canvas<%> interface
(send map set-map #\> '(line selection)) ; interfaces, casts e.g. string->path
(send map set-map #\% '(line selection)) ; intefraces, classes
(send map set-map #\? '(line selection)) ; predicates
(send map set-map #\' '(line selection)) ; literal symbols
(send map set-map #\! '(line selection)) ; assignments e.g. set
(send map set-map #\- '(line selection)) ; hyphens
(send map set-map #\: '(line selection)))); valid identifiers with colons
(define wordbreak-map (make-object editor-wordbreak-map%))
(define (get-wordbreak-map) wordbreak-map)