original commit: 14ce2a85305e4f9f0206b910d52d8e795dce180d
This commit is contained in:
John Clements 2002-09-09 20:18:47 +00:00
parent 8b1e836048
commit 8368cf83f7

View File

@ -4845,7 +4845,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; REPL ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (-graphical-read-eval-print-loop user-esp)
(define (-graphical-read-eval-print-loop user-esp override-ports?)
;; The REPL buffer class
(define esq:text%
(class100 text% ()
@ -4974,7 +4974,7 @@
(send repl-buffer auto-wrap #t)
;; Go
(unless user-esp
(when (or (not user-esp) override-ports?)
(parameterize ((wx:current-eventspace user-eventspace))
(wx:queue-callback
(lambda ()
@ -4993,11 +4993,13 @@
(define graphical-read-eval-print-loop
(case-lambda
[() (-graphical-read-eval-print-loop #f)]
[() (-graphical-read-eval-print-loop #f #f)]
[(esp)
(unless (or (not esp) (wx:eventspace? esp))
(raise-type-error 'graphical-read-eval-print-loop "eventspace or #f" esp))
(-graphical-read-eval-print-loop esp)]))
(-graphical-read-eval-print-loop esp #f)]
[(esp override-ports?)
(-graphical-read-eval-print-loop esp override-ports?)]))
(define box-width 300)
(define (no-stretch a) (send a stretchable-width #f) (send a stretchable-height #f))