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

newlines at EOFs

Browse Source 
svn: r13105

original commit: d1a0086471bf5e9553a9b056b26286c427831d38
This commit is contained in:
Eli Barzilay 2009-01-14 03:10:47 +00:00
parent 83d951d54a
commit b5dba569ae
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/comment-box.ss
View File

@ -122,4 +122,4 @@
(make-special-comment "comment")) (make-special-comment "comment"))
(super-instantiate ()) (super-instantiate ())
(inherit set-snipclass) (inherit set-snipclass)
(set-snipclass snipclass)))) (set-snipclass snipclass))))

2
collects/framework/private/search.ss
View File

@ -96,4 +96,4 @@
(if (not embedded-pos) (if (not embedded-pos)
(next-loop) (next-loop)
(values embedded embedded-pos)))] (values embedded embedded-pos)))]
[else (next-loop)]))))))) [else (next-loop)])))))))

2
collects/framework/private/sig.ss
View File

@ -465,4 +465,4 @@
(open (prefix frame: frame^)) (open (prefix frame: frame^))
(open (prefix handler: handler^)) (open (prefix handler: handler^))
(open (prefix scheme: scheme^)) (open (prefix scheme: scheme^))
(open (prefix main: main^)))) (open (prefix main: main^))))

2
collects/mrlib/close-icon.ss
View File

@ -118,4 +118,4 @@
(define f (new frame% [label "test"])) (define f (new frame% [label "test"]))
(define c (new close-icon% [parent f] [callback (λ () (printf "hi\n"))])) (define c (new close-icon% [parent f] [callback (λ () (printf "hi\n"))]))
(define gb (new grow-box-spacer-pane% [parent f])) (define gb (new grow-box-spacer-pane% [parent f]))
(send f show #t)) (send f show #t))