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

extend and refactor minor stuff in the framework

Browse Source 
specifically add an argument to move/copy-to-edit so that it
does copy-only and export a function for trigger a submission
to the input port of a text:ports<%> object programmatically
This commit is contained in:
Robby Findler 2011-09-22 10:36:28 -05:00
parent f07760bd02
commit 2ec720176a
2 changed files with 45 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/framework/private/text.rkt
View File

@ -500,7 +500,7 @@
(set! edition (+ edition 1))
(inner (void) after-delete start len))
(define/public (move/copy-to-edit dest-edit start end dest-position)
(define/public (move/copy-to-edit dest-edit start end dest-position #:try-to-move? [try-to-move? #t])
(split-snip start)
(split-snip end)
(let loop ([snip (find-snip end 'before)])
@ -509,13 +509,16 @@
(void)]
[else
(let ([prev (send snip previous)]
[released/copied (if (send snip release-from-owner)
[released/copied
(if try-to-move?
(if (send snip release-from-owner)
snip
(let* ([copy (send snip copy)]
[snip-start (get-snip-position snip)]
[snip-end (+ snip-start (send snip get-count))])
(delete snip-start snip-end)
snip))])
snip))
(send snip copy))])
(send dest-edit insert released/copied dest-position dest-position)
(loop prev))])))
@ -2108,6 +2111,11 @@
(= start end)
(submit-to-port? key))
(insert "\n" (last-position) (last-position))
(do-submission)]
[else
(super on-local-char key)])))
(define/public-final (do-submission)
(set-position (last-position) (last-position))
(for-each/snips-chars
unread-start-point
@ -2121,9 +2129,7 @@
(bytes->list (string->bytes/utf-8 (string s/c))))])))
(set! unread-start-point (last-position))
(set! insertion-point (last-position))
(on-submit)]
[else
(super on-local-char key)])))
(on-submit))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;

21
collects/scribblings/framework/text.scrbl
View File

@ -83,16 +83,24 @@
get-fixed-style].
}
@defmethod*[(((move/copy-to-edit (dest-text (is-a?/c text%)) (start exact-integer?) (end exact-integer?) (dest-pos exact-integer?)) void?))]{
@defmethod[(move/copy-to-edit [dest-text (is-a?/c text%)]
[start exact-integer?]
[end exact-integer?]
[dest-pos exact-integer?]
[#:try-to-move? try-to-move? boolean? #t])
void?]{
This moves or copies text and snips to another edit.
Moves or copies from the edit starting at @racket[start] and ending at
@racket[end]. It puts the copied text and snips in @racket[dest-text]
starting at location @racket[dest-pos].
If a snip refused to be moved, it will be copied, otherwise it will be
moved. A snip may refuse to be moved by returning @racket[#f] from
@method[snip% release-from-owner].
If @racket[try-to-move] is @racket[#t], then the snips are removed;
and if it is @racket[#f], then they are copied.
If a snip refused to be moved, it will be copied and deleted from the editor,
otherwise it will be moved. A snip may refuse to be moved by returning
@racket[#f] from @method[snip% release-from-owner].
}
@defmethod*[(((initial-autowrap-bitmap) (or/c #f (is-a?/c bitmap%))))]{
@ -770,6 +778,11 @@
them so you don't need this method).
}
@defmethod[(do-submission) void?]{
Triggers a submission to the input port with what is currently pending
in the editor.
}
@defmethod*[(((get-insertion-point) exact-integer?))]{
Returns the position where characters put into the output port will appear.
}