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

made more files begin with #lang lines

Browse Source 
svn: r11429

original commit: 7c6bf8644a16be2c30335ec928ea78a8c9a9dce1
This commit is contained in:
Robby Findler 2008-08-25 20:02:02 +00:00
parent ff458e8256
commit 3ef5e3153d
13 changed files with 40 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/framework/private/autosave.ss
View File

@ -1,4 +1,3 @@
#lang scheme/unit
(require mzlib/class

6
collects/framework/private/bday.ss
View File

@ -1,4 +1,6 @@
(module bday mzscheme (require framework/private/encode-decode)
#lang mzscheme
(require framework/private/encode-decode)
(decode
\5d8f4
\10ec22010
@ -36,4 +38,4 @@
\8f335 \ea955
\e7e \2c7
||\6||\8||\7||\4||\3||\d||\e||\f||\c||\0||\1))
||\6||\8||\7||\4||\3||\d||\e||\f||\c||\0||\1)

52
collects/framework/private/collapsed-snipclass-helpers.ss
View File

@ -1,26 +1,26 @@
(module collapsed-snipclass-helpers mzscheme
(require mred
mzlib/class)
(provide make-sexp-snipclass%)
(define (make-sexp-snipclass% sexp-snip%)
(class snip-class%
(define/override (read in)
(let* ([left-bracket (integer->char (bytes-ref (send in get-bytes) 0))]
[right-bracket (integer->char (bytes-ref (send in get-bytes) 0))]
[snip-count (send in get-exact)]
[saved-snips
(let loop ([n snip-count])
(cond
[(zero? n) null]
[else
(let* ([classname (bytes->string/utf-8 (send in get-bytes))]
[snipclass (send (get-the-snip-class-list) find classname)])
(cons (send snipclass read in)
(loop (- n 1))))]))])
(instantiate sexp-snip% ()
(left-bracket left-bracket)
(right-bracket right-bracket)
(saved-snips saved-snips))))
(super-instantiate ()))))
#lang scheme/base
(require scheme/gui/base
scheme/class)
(provide make-sexp-snipclass%)
(define (make-sexp-snipclass% sexp-snip%)
(class snip-class%
(define/override (read in)
(let* ([left-bracket (integer->char (bytes-ref (send in get-bytes) 0))]
[right-bracket (integer->char (bytes-ref (send in get-bytes) 0))]
[snip-count (send in get-exact)]
[saved-snips
(let loop ([n snip-count])
(cond
[(zero? n) null]
[else
(let* ([classname (bytes->string/utf-8 (send in get-bytes))]
[snipclass (send (get-the-snip-class-list) find classname)])
(cons (send snipclass read in)
(loop (- n 1))))]))])
(instantiate sexp-snip% ()
(left-bracket left-bracket)
(right-bracket right-bracket)
(saved-snips saved-snips))))
(super-new)))

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

@ -1,4 +1,3 @@
#lang scheme/unit
(require mzlib/class

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

@ -1,5 +1,5 @@
#lang scheme/unit
(require mzlib/class
string-constants
"sig.ss"

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

@ -1,5 +1,5 @@
#lang scheme/unit
(require string-constants
"sig.ss"
"../preferences.ss"

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

@ -1,5 +1,5 @@
#lang scheme/unit
(require string-constants
mzlib/class
"sig.ss"

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

@ -1,4 +1,3 @@
#lang scheme/unit
(require string-constants

1
collects/framework/private/number-snip.ss
View File

@ -1,4 +1,3 @@
#lang scheme/unit
(require "sig.ss"

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

@ -1,5 +1,5 @@
#lang scheme/unit
(require mzlib/class
"sig.ss"
mred/mred-sig

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

@ -1,3 +1,4 @@
#lang scheme/unit
#|
@ -26,7 +27,6 @@ the state transitions / contracts are:
|#
#lang scheme/unit
(require string-constants
mzlib/class

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

@ -1,7 +1,8 @@
#lang scheme/unit
;; originally by Dan Grossman
;; 6/30/95
#lang scheme/unit
(require string-constants
scheme/class
mred/mred-sig

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

@ -1,4 +1,5 @@
(module sig scheme/base
#lang scheme/base
(require scheme/unit)
(provide (prefix-out framework: (except-out (all-defined-out) framework^))
@ -456,5 +457,4 @@
(open (prefix frame: frame^))
(open (prefix handler: handler^))
(open (prefix scheme: scheme^))
(open (prefix main: main^)))))
(open (prefix main: main^))))