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

change scheme/unit and scheme/signature #langs to build on scheme/base

Browse Source 
svn: r7792

original commit: 5b0a0be3d65f5a8deb871a43e077665377067aa9
This commit is contained in:
Matthew Flatt 2007-11-20 23:44:31 +00:00
parent e57868835a
commit 0f3e5b911c
13 changed files with 28 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,7 @@
#lang scheme/unit
(require (lib "class.ss")
(lib "file.ss")
scheme/file
"sig.ss"
"../gui-utils.ss"
"../preferences.ss"

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

@ -7,7 +7,7 @@
"../gui-utils.ss"
(lib "etc.ss")
(lib "mred-sig.ss" "mred")
(lib "file.ss"))
scheme/file)
(import mred^
[prefix autosave: framework:autosave^]

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

@ -5,7 +5,7 @@
"../preferences.ss"
(lib "mred-sig.ss" "mred")
(lib "string.ss")
(lib "file.ss")
scheme/file
(lib "etc.ss"))

4
collects/framework/private/frame.ss
View File

@ -8,7 +8,7 @@
"bday.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss")
(lib "file.ss")
scheme/file
(lib "etc.ss"))
(import mred^
@ -310,7 +310,7 @@
(define-struct status-line (id count))
;; status-line-msg : (make-status-line-msg (is-a?/c message%) (union symbol #f))
(define-struct status-line-msg (message id))
(define-struct status-line-msg (message [id #:mutable]))
(define status-line-mixin
(mixin (basic<%>) (status-line<%>)

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

@ -7,7 +7,7 @@
"../gui-utils.ss"
(lib "mred-sig.ss" "mred")
(lib "list.ss")
(lib "file.ss"))
scheme/file)
(import mred^
[prefix application: framework:application^]

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

@ -7,7 +7,7 @@
"../preferences.ss"
"../gui-utils.ss"
(lib "mred-sig.ss" "mred")
(lib "file.ss")
scheme/file
(lib "string-constant.ss" "string-constants"))

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

@ -1,5 +1,6 @@
#lang scheme/unit
(require (lib "class.ss")
(require (for-syntax scheme/base)
(lib "class.ss")
(lib "include-bitmap.ss" "mrlib")
"bday.ss"
"sig.ss"

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

@ -511,7 +511,7 @@
(λ (edit event)
(let ([sel-start (send edit get-start-position)]
[sel-end (send edit get-end-position)])
(if (= sel-start sel-end)
(when (= sel-start sel-end)
(send* edit
(insert #\newline)
(set-position sel-start)))))]
@ -729,7 +729,7 @@
(get-text-from-user
(string-constant goto-position)
(string-constant goto-position))))])
(if (string? num-str)
(when (string? num-str)
(let ([pos (string->number num-str)])
(when pos
(send edit set-position (sub1 pos))))))

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

@ -164,7 +164,7 @@
(define-struct gap (before before-dim before-percentage after after-dim after-percentage))
;; type percentage : (make-percentage number)
(define-struct percentage (%))
(define-struct percentage (%) #:mutable)
(define dragable<%>
(interface (window<%> area-container<%>)

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

@ -30,7 +30,7 @@ the state transitions / contracts are:
(require (lib "string-constant.ss" "string-constants")
(lib "class.ss")
(lib "file.ss")
scheme/file
"sig.ss"
"../gui-utils.ss"
"../preferences.ss"
@ -117,7 +117,7 @@ the state transitions / contracts are:
;; (make-ppanel-interior string (union #f panel) (listof panel-tree)))
(define-struct ppanel (name panel))
(define-struct (ppanel-leaf ppanel) (maker))
(define-struct (ppanel-interior ppanel) (children))
(define-struct (ppanel-interior ppanel) (children) #:mutable)
;; ppanels : (listof ppanel-tree)
(define ppanels null)

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

@ -75,7 +75,7 @@
(send text last-position)
(send text last-position)))
saved-snips)
(datum->syntax-object
(datum->syntax
#f
(read (open-input-text-editor text))
(list file line col pos 1))))
@ -551,10 +551,10 @@
[get-proc
(λ ()
(let ([id-end (get-forward-sexp contains)])
(if (and id-end (> id-end contains))
(let* ([text (get-text contains id-end)])
(or (get-keyword-type text tabify-prefs)
'other)))))]
(and (and id-end (> id-end contains))
(let* ([text (get-text contains id-end)])
(or (get-keyword-type text tabify-prefs)
'other)))))]
[procedure-indent
(λ ()
(case (get-proc)
@ -715,7 +715,7 @@
(let* ([first-para (position-paragraph start-pos)]
[last-para (calc-last-para end-pos)])
(let para-loop ([curr-para first-para])
(if (<= curr-para last-para)
(when (<= curr-para last-para)
(let ([first-on-para (paragraph-start-position curr-para)])
(insert #\; first-on-para)
(para-loop (add1 curr-para))))))
@ -964,8 +964,8 @@
[first-char (get-character pos)]
[paren? (or (char=? first-char #\( )
(char=? first-char #\[ ))]
[closer (if paren?
(get-forward-sexp pos))])
[closer (and paren?
(get-forward-sexp pos))])
(if (and paren? closer)
(begin (begin-edit-sequence)
(delete pos (add1 pos))

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

@ -1,7 +1,7 @@
(module sig mzscheme
(require (lib "unit.ss"))
(module sig scheme/base
(require scheme/unit)
(provide (prefix-all-defined-except framework: framework^)
(provide (prefix-out framework: (except-out (all-defined-out) framework^))
framework^)
(define-signature number-snip-class^

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

@ -18,7 +18,7 @@ WARNING: printf is rebound in the body of the unit to always
(lib "etc.ss")
(lib "dirs.ss" "setup")
(lib "string.ss")
(prefix srfi1: (lib "1.ss" "srfi")))
(prefix-in srfi1: (lib "1.ss" "srfi")))
(import mred^
[prefix icon: framework:icon^]
@ -954,7 +954,7 @@ WARNING: printf is rebound in the body of the unit to always
get-box-input-editor-snip%
get-box-input-text%))
(define-struct peeker (bytes skip-count pe resp-chan nack polling?) (make-inspector))
(define-struct peeker (bytes skip-count pe resp-chan nack polling?) #:inspector (make-inspector))
(define-struct committer (kr commit-peeker-evt done-evt resp-chan resp-nack))
(define msec-timeout 500)
@ -1989,7 +1989,7 @@ WARNING: printf is rebound in the body of the unit to always
;;
;; queues
;;
(define-struct queue (front back count))
(define-struct queue (front back count) #:mutable)
(define (empty-queue) (make-queue '() '() 0))
(define (enqueue e q) (make-queue
(cons e (queue-front q))