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

.

Browse Source 
original commit: 9fe075d7199d85f6ab3de6650b64d224bb54671d
This commit is contained in:
Matthew Flatt 1999-12-01 19:19:13 +00:00
parent afd18187aa
commit 10488f25fe
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mred/wrap/mred.ss
View File

@ -4215,12 +4215,13 @@
(new-prompt))]) (new-prompt))])
(sequence (sequence
(super-init) (super-init)
(let ([s (last-position)]) (let ([s (last-position)]
(insert (format "Welcome to MrEd version ~a." (version))) [m (regexp-match "^(.*), (Copyright.*)$" (banner))])
(insert (format "Welcome to ~a." (cadr m)))
(let ([e (last-position)]) (let ([e (last-position)])
(insert #\newline) (insert #\newline)
(change-style (send (make-object wx:style-delta% 'change-bold) set-delta-foreground "BLUE") s e))) (change-style (send (make-object wx:style-delta% 'change-bold) set-delta-foreground "BLUE") s e))
(output (format "Copyright (c) 1995-99 PLT (Matthew Flatt and Robby Findler)~n")) (output (caddr m)))
(insert "This is a simple window for evaluating MrEd Scheme expressions.") (insert #\newline) (insert "This is a simple window for evaluating MrEd Scheme expressions.") (insert #\newline)
(let ([s (last-position)]) (let ([s (last-position)])
(insert "Quit now and run DrScheme to get a better window.") (insert "Quit now and run DrScheme to get a better window.")
@ -4303,7 +4304,8 @@
(lambda () (lambda ()
(current-output-port user-output-port) (current-output-port user-output-port)
(current-error-port user-output-port) (current-error-port user-output-port)
(current-input-port (make-input-port (lambda () eof) void void))))) (current-input-port (make-input-port (lambda () eof) void void)))
#t))
(send repl-display-canvas set-editor repl-buffer) (send repl-display-canvas set-editor repl-buffer)
(send frame show #t) (send frame show #t)