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

...

Browse Source 
original commit: c2c7891c733e8564adec3b581c67d56cdecb1afe
This commit is contained in:
Robby Findler 1999-01-16 04:52:07 +00:00
parent c953013d3e
commit 5eca08ac78
4 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/frame.ss
View File

@ -11,6 +11,7 @@
[finder : framework:finder^] [finder : framework:finder^]
[keymap : framework:keymap^] [keymap : framework:keymap^]
[text : framework:text^] [text : framework:text^]
[editor : framework:editor^]
[mzlib:function : mzlib:function^]) [mzlib:function : mzlib:function^])
(rename [-editor<%> editor<%>] (rename [-editor<%> editor<%>]
@ -706,7 +707,7 @@
r-root))]) r-root))])
(override (override
[get-editor<%> (lambda () text:info<%>)] [get-editor<%> (lambda () editor:info<%>)]
[get-editor% (lambda () text:info%)]) [get-editor% (lambda () text:info%)])
(public (public

6
collects/framework/group.ss
View File

@ -8,7 +8,7 @@
(define-struct frame (frame id)) (define-struct frame (frame id))
(define % (define %
(class null () (class object% ()
(private (private
[active-frame #f] [active-frame #f]
[frame-counter 0] [frame-counter 0]
@ -195,7 +195,9 @@
(let* ([frame (frame-frame (car frames))]) (let* ([frame (frame-frame (car frames))])
(if (test-frame frame) (if (test-frame frame)
frame frame
(loop (cdr frames))))]))))]))) (loop (cdr frames))))]))))])
(sequence
(super-init))))
(define the-frame-group #f) (define the-frame-group #f)

5
collects/framework/handler.ss
View File

@ -111,7 +111,7 @@
(define *open-directory* ; object to remember last directory (define *open-directory* ; object to remember last directory
(make-object (make-object
(class null () (class object% ()
(private (private
[the-dir #f]) [the-dir #f])
(public (public
@ -123,7 +123,8 @@
(lambda () (lambda ()
(set! the-dir (current-directory)))]) (set! the-dir (current-directory)))])
(sequence (sequence
(set-to-default))))) (set-to-default)
(super-init)))))
(define open-file (define open-file
(lambda () (lambda ()

6
collects/tests/framework/framework-test-engine.ss
View File

@ -1,4 +1,4 @@
(require-library "errortrace.ss" "errortrace") (require-library "errortrace.ss" "errortrace") (error-print-width 80)
(let* ([errs null] (let* ([errs null]
[sema (make-semaphore 1)] [sema (make-semaphore 1)]
@ -15,9 +15,9 @@
[exception->string [exception->string
(lambda (x) (lambda (x)
(if (exn? x) (if (exn? x)
(if (defined? 'errortrace-print-trace) (if (defined? 'print-error-trace)
(let ([p (open-output-string)]) (let ([p (open-output-string)])
(errortrace-print-trace p x) (print-error-trace p x)
(string-append (exn-message x) (string #\newline) (get-output-string p))) (string-append (exn-message x) (string #\newline) (get-output-string p)))
(exn-message x)) (exn-message x))
(format "~s" x)))]) (format "~s" x)))])