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

.

Browse Source 
original commit: 6e0d1a244164d428fc3375056664e2a2f98884bc
This commit is contained in:
Matthew Flatt 1998-08-15 21:15:04 +00:00
parent 997897933b
commit d6b37e8162
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -992,10 +992,9 @@
[on-new-box [on-new-box
(lambda (type) (lambda (type)
(make-object editor-snip% (make-object editor-snip%
(make-object (make-object (cond
(cond [(eq? type 'pasteboard-buffer) pasteboard-editor%]
[(eq? type 'pasteboard-buffer) (make-object pasteboard-editor%)] [else text-editor%]))))])
[else (make-object text-editor%)]))))])
(sequence (apply super-init args)))) (sequence (apply super-init args))))
@ -2860,7 +2859,7 @@
(when (send event button-down?) (when (send event button-down?)
(send edit set-position (send edit last-position)) (send edit set-position (send edit last-position))
(send edit paste)))]) (send edit paste)))])
(wx:add-text-editor-functions k) (wx:add-text-editor-keymap-functions k)
(send k add-mouse-function "mouse-paste" mouse-paste) (send k add-mouse-function "mouse-paste" mouse-paste)
(map (map
(lambda (key func) (send k map-function key func)) (lambda (key func) (send k map-function key func))
@ -3308,7 +3307,7 @@
[(is-a? p menu%) (loop (send p get-item))] [(is-a? p menu%) (loop (send p get-item))]
[else (send p get-frame)])))) [else (send p get-frame)]))))
(define (append-edit-operation-items m) (define (append-edit-operation-menu-items m)
(let ([mk (lambda (name key op) (let ([mk (lambda (name key op)
(make-object menu-item% name m (make-object menu-item% name m
(lambda (i e) (lambda (i e)
@ -3331,7 +3330,7 @@
(mk "Insert Image Box" #f 'insert-image) (mk "Insert Image Box" #f 'insert-image)
(void))) (void)))
(define (append-edit-font-items m) (define (append-edit-font-menu-items m)
(let ([mk (lambda (name m cb) (let ([mk (lambda (name m cb)
(make-object menu-item% name m (make-object menu-item% name m
(lambda (i e) (lambda (i e)