attempt to fix one part of PR 8967

svn: r7458
This commit is contained in:
Robby Findler 2007-10-08 23:48:56 +00:00
parent 6517bfefda
commit e6d54fe082
4 changed files with 16 additions and 25 deletions

View File

@ -337,6 +337,10 @@
(scroll-to-position 0)
(lock #t))
(when (eq? (system-type) 'macosx)
;; otherwise, the focus is the tour button, as above
(send editor-canvas focus))
(send f show #t)
f))

View File

@ -282,28 +282,6 @@ TODO
(and (equal? (path-element->bytes name) (car pieces))
(loop base (cdr pieces))))]))))))
;; drscheme-error-value->string-handler : TST number -> string
(define (drscheme-error-value->string-handler x n)
(let ([port (open-output-string)])
;; using a string port here means no snips allowed,
;; even though this string may eventually end up
;; displayed in a place where snips are allowed.
(print x port)
(let* ([long-string (get-output-string port)])
(close-output-port port)
(if (<= (string-length long-string) n)
long-string
(let ([short-string (substring long-string 0 n)]
[trim 3])
(unless (n . <= . trim)
(let loop ([i trim])
(unless (i . <= . 0)
(string-set! short-string (- n i) #\.)
(loop (sub1 i)))))
short-string)))))
(define drs-bindings-keymap (make-object keymap:aug-keymap%))
(send drs-bindings-keymap add-function
@ -1364,7 +1342,6 @@ TODO
(define/private (initialize-parameters snip-classes) ; =User=
(current-language-settings user-language-settings)
(error-value->string-handler drscheme-error-value->string-handler)
(error-print-source-location #f)
(error-display-handler drscheme-error-display-handler)
(current-load-relative-directory #f)

View File

@ -365,4 +365,4 @@
(send f show #t))
#;(edit-points waiting-points)
#;(edit-points running-points/2))
#;(edit-points running-points))

View File

@ -2077,8 +2077,18 @@ module browser threading seems wrong.
(preferences:set 'drscheme:unit-window-max? (is-maximized?))
(super on-size w h))
(define on-move-callback-waiting #f)
(define/override (on-move x y)
(preferences:set 'drscheme:frame:initial-position (cons x y)))
(cond
[on-move-callback-waiting
(set! on-move-callback-waiting (cons x y))]
[else
(set! on-move-callback-waiting (cons x y))
(queue-callback
(λ ()
(preferences:set 'drscheme:frame:initial-position on-move-callback-waiting)
(set! on-move-callback-waiting #f))
#f)]))
(define/override (get-editor) definitions-text)
(define/override (get-canvas)