original commit: 06778ce93ed44aa21a5777aa27f7f3c4ade4411e
This commit is contained in:
Robby Findler 2000-08-24 17:38:28 +00:00
parent 59f4f161d5
commit bb5df936e2

View File

@ -305,7 +305,6 @@
(update-memory-text)
(set! memory-cleanup
(lambda ()
(send memory-text remove-canvas ec)
(send ec set-editor #f)))
(send panel stretchable-width #f))))
(private
@ -1150,6 +1149,11 @@
(unless dont-search
(search #f)))])))
;; this is here for when editors are printed.
(define replace-text%
(class text:keymap% args
(sequence (apply super-init args))))
(define find-edit #f)
(define replace-edit #f)
@ -1170,7 +1174,7 @@
(define (init-find/replace-edits)
(unless find-edit
(set! find-edit (make-object find-text%))
(set! replace-edit (make-object text:keymap%))
(set! replace-edit (make-object replace-text%))
(for-each (lambda (keymap)
(send keymap chain-to-keymap
(keymap:get-search)
@ -1247,7 +1251,6 @@
(remove-callback)
(let ([close-canvas
(lambda (canvas edit)
(send edit remove-canvas canvas)
(send canvas set-editor #f))])
(close-canvas find-canvas find-edit)
(close-canvas replace-canvas replace-edit))
@ -1398,11 +1401,11 @@
(list middle-left-panel middle-middle-panel middle-right-panel))
(send find-canvas set-editor find-edit)
(send replace-canvas set-editor replace-edit)
(send find-edit add-canvas find-canvas)
(send replace-edit add-canvas replace-canvas)
(hide-search #t))))
(define memory-text (make-object text%))
;; to see printouts in memory debugging better.
(define memory-text% (class text% args (sequence (apply super-init args))))
(define memory-text (make-object memory-text%))
(send memory-text hide-caret #t)
(define show-memory-text? (directory-exists? (build-path (collection-path "framework") "CVS")))