cursor on the text #41
Comments
|
Hmm… I’m not completely sure what you’re asking, but I’m pretty confident that it has nothing to do with the “rsound” package for generating sound. Would you like me to forward your message to the racket users mailing list?
John Clements
… On Jul 13, 2019, at 06:00, madatao ***@***.***> wrote:
(define CHAR-CANVAS%
(class canvas%
(define/override (on-char evt)
(let ((c (send evt get-key-code)) (dc(send this get-dc)))
(send dc clear)
(print c)
(cond
((equal? c 'release)(void))
((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))
(begin(set! tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member (list->string (reverse tampon-key)) alphabet )) 30 30)
(send R-k-text insert (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set! tampon-key '())))
((equal? c #;)(begin(send R-k-text insert "。") (set! tampon-key '())))
((equal? c #,)(begin(send R-k-text insert "、") (set! tampon-key '())))
((equal? c #()(begin(send R-k-text insert "「") (set! tampon-key '())))
((equal? c #))(begin(send R-k-text insert " 」") (set! tampon-key '())))
((equal? c #&)(begin(send R-k-text insert "々") (set! tampon-key '())))
((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))
((begin (set! tampon-key (cons c tampon-key))(print tampon-key))))
))
(super-new)))
It works very well (it is for writing in hiragana katakana and other characters)
I want to add to this same canvas
a feature which tells me the position of the cursor on a text
is it possible? if yes
what is the code to add?
(define/override (on-char evt)......
Or do I need a another canvas?
in this case what will be my code?
(define/override (on-char evt)......
this in order to do something similar to a "RIKAICHAN"
—
You are receiving this because you are subscribed to this thread.
Reply to this email directly, view it on GitHub, or mute the thread.
|
|
Hmm… I’m not completely sure what you’re asking, but I’m pretty confident that it has nothing to do with the “rsound” package for generating sound. Would you like me to forward your message to the racket users mailing list?John ClementsOn Jul 13, 2019, at 06:00, madatao <[email protected]> wrote:(define CHAR-CANVAS%(class canvas%(define/override (on-char evt)(let ((c (send evt get-key-code)) (dc(send this get-dc)))(send dc clear)(print c)(cond((equal? c 'release)(void))((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))(begin(set! tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member (list->string (reverse tampon-key)) alphabet )) 30 30)(send R-k-text insert (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set! tampon-key '())))((equal? c #;)(begin(send R-k-text insert "。") (set! tampon-key '())))((equal? c #,)(begin(send R-k-text insert "、") (set! tampon-key '())))((equal? c #()(begin(send R-k-text insert "「") (set! tampon-key '())))((equal? c #))(begin(send R-k-text insert " 」") (set! tampon-key '())))((equal? c #&)(begin(send R-k-text insert "々") (set! tampon-key '())))((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))((begin (set! tampon-key (cons c tampon-key))(print tampon-key))))))(super-new)))It works very well (it is for writing in hiragana katakana and other characters)I want to add to this same canvasa feature which tells me the position of the cursor on a textis it possible? if yeswhat is the code to add?(define/override (on-char evt)......Or do I need a another canvas?in this case what will be my code? (define/override (on-char evt)......this in order to do something similar to a "RIKAICHAN"—You are receiving this because you are subscribed to this thread.Reply to this email directly, view it on GitHub, or mute the thread.
|
|
thank you very much for your answer
this is not directly relating to the rsound package (at the moment)
is my problem difficult?
i am find à solution with a copy pass from a text-field to a another but
that is not so elegant as a direct detecting of the word when the carret
(cursor) over this
Le mar. 16 juil. 2019 à 17:37, John Clements <[email protected]> a
écrit :
… Hmm… I’m not completely sure what you’re asking, but I’m pretty confident
that it has nothing to do with the “rsound” package for generating sound.
Would you like me to forward your message to the racket users mailing
list?John ClementsOn Jul 13, 2019, at 06:00, madatao <
***@***.***> wrote:(define CHAR-CANVAS%(class
canvas%(define/override (on-char evt)(let ((c (send evt get-key-code))
(dc(send this get-dc)))(send dc clear)(print c)(cond((equal? c
'release)(void))((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))(begin(set!
tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member
(list->string (reverse tampon-key)) alphabet )) 30 30)(send R-k-text insert
(cadr (member (list->string (reverse tampon-key)) alphabet ))) (set!
tampon-key '())))((equal? c #;)(begin(send R-k-text insert "。") (set!
tampon-key '())))((equal? c #,)(begin(send R-k-text insert "、") (set!
tampon-key '())))((equal? c #()(begin(send R-k-text insert "「") (set!
tampon-key '())))((equal? c #))(begin(send R-k-text insert " 」") (set!
tampon-key '())))((equal? c #&)(begin(send R-k-text insert "々") (set!
tampon-key '())))((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p
#\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))((begin (set!
tampon-key (cons c tampon-key))(print tampon-key))))))(super-new)))It works
very well (it is for writing in hiragana katakana and other characters)I
want to add to this same canvasa feature which tells me the position of the
cursor on a textis it possible? if yeswhat is the code to
add?(define/override (on-char evt)......Or do I need a another canvas?in
this case what will be my code? (define/override (on-char evt)......this in
order to do something similar to a "RIKAICHAN"—You are receiving this
because you are subscribed to this thread.Reply to this email directly,
view it on GitHub, or mute the thread.
—
You are receiving this because you authored the thread.
Reply to this email directly, view it on GitHub
<#41?email_source=notifications&email_token=AJAFCKH3ETNVZIZSYIHQOYLP7XTKFA5CNFSM4IC2GWG2YY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOD2BIG5A#issuecomment-511869812>,
or mute the thread
<https://github.com/notifications/unsubscribe-auth/AJAFCKHXRKONF34UI75OZALP7XTKFANCNFSM4IC2GWGQ>
.
|
|
(define b '(あ い う え お か き く け こ さ し す せ そ た ち つ て と な に ぬ ね の は ひ ふ
へ ほ ま み む め も や ゆ よ わ を ん ら り る れ ろ にょ びゃ びゅ びょ みゃ みゅ みょ )
(define (foo-play l)
(while (not(null? l)
(play (car l))
(set! l (cdr l)))))
(foo play b)
;play: expects to be at the top level in: (play (car l))
what should I do to be able to listen to this list?
あ
(rsound #<s16vector> 0 48971 44100)
...................
みょ
(rsound #<s16vector> 0 31675 44100)
best regards
Le mar. 16 juil. 2019 à 18:15, claude talarmin <[email protected]> a
écrit :
… thank you very much for your answer
this is not directly relating to the rsound package (at the moment)
is my problem difficult?
i am find à solution with a copy pass from a text-field to a another but
that is not so elegant as a direct detecting of the word when the carret
(cursor) over this
Le mar. 16 juil. 2019 à 17:37, John Clements ***@***.***> a
écrit :
> Hmm… I’m not completely sure what you’re asking, but I’m pretty confident
> that it has nothing to do with the “rsound” package for generating sound.
> Would you like me to forward your message to the racket users mailing
> list?John ClementsOn Jul 13, 2019, at 06:00, madatao <
> ***@***.***> wrote:(define CHAR-CANVAS%(class
> canvas%(define/override (on-char evt)(let ((c (send evt get-key-code))
> (dc(send this get-dc)))(send dc clear)(print c)(cond((equal? c
> 'release)(void))((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))(begin(set!
> tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member
> (list->string (reverse tampon-key)) alphabet )) 30 30)(send R-k-text insert
> (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set!
> tampon-key '())))((equal? c #;)(begin(send R-k-text insert "。") (set!
> tampon-key '())))((equal? c #,)(begin(send R-k-text insert "、") (set!
> tampon-key '())))((equal? c #()(begin(send R-k-text insert "「") (set!
> tampon-key '())))((equal? c #))(begin(send R-k-text insert " 」") (set!
> tampon-key '())))((equal? c #&)(begin(send R-k-text insert "々") (set!
> tampon-key '())))((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p
> #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))((begin (set!
> tampon-key (cons c tampon-key))(print tampon-key))))))(super-new)))It works
> very well (it is for writing in hiragana katakana and other characters)I
> want to add to this same canvasa feature which tells me the position of the
> cursor on a textis it possible? if yeswhat is the code to
> add?(define/override (on-char evt)......Or do I need a another canvas?in
> this case what will be my code? (define/override (on-char evt)......this in
> order to do something similar to a "RIKAICHAN"—You are receiving this
> because you are subscribed to this thread.Reply to this email directly,
> view it on GitHub, or mute the thread.
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub
> <#41?email_source=notifications&email_token=AJAFCKH3ETNVZIZSYIHQOYLP7XTKFA5CNFSM4IC2GWG2YY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOD2BIG5A#issuecomment-511869812>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AJAFCKHXRKONF34UI75OZALP7XTKFANCNFSM4IC2GWGQ>
> .
>
|
|
(define (transform-syll->mot L-romanji L-hiragana)
(let ((a '())(b'()))
(set! a (map list->string (reverse L-romanji)))
(set! b (map char->string (string->list "たべます")))
(list a b)))
(define (foo-w1 tw) ;transforme syllabe en fichier wav (if exist)
(let ((l '()))
(while (not (null? tw))
(set! l(cons (string-append (car tw )".wav")l))
(set! tw (cdr tw)))
(reverse l)))
(define (transform-mot->son L-romanji L-hiragana)
(let* ((x (transform-syll->mot L-romanji L-hiragana))
(a (car x)))
(current-directory "/Users/izuko/Desktop/japonais-new/jap-syll")
(rs-append* (map rs-read (foo-w1 a)))))
(define syllabe-R '())
(define syllabe-H '())
(define clip "")
(define Bt-dir
(new button%
(parent GP-1 )
(label "Direct")
(callback (lambda (obj evt)
(begin (set! alphabet hiragana)
(set! lecture-feld (send R-k-tex-rech get-text))
(set! LECT-HI* (cons lecture-feld LECT-HI*))
(set! LECT-ID* (cons lecture-feld LECT-ID*))
(send R-k-text insert lecture-feld)
(set! syllabe-R (transform-syll->mot tampon-wort
lecture-feld))
(set! clip (transform-mot->son tampon-wort
lecture-feld))
(play clip))))))
Le jeu. 18 juil. 2019 à 15:38, claude talarmin <[email protected]> a
écrit :
… (define b '(あ い う え お か き く け こ さ し す せ そ た ち つ て と な に ぬ ね の は ひ ふ
へ ほ ま み む め も や ゆ よ わ を ん ら り る れ ろ にょ びゃ びゅ びょ みゃ みゅ みょ )
(define (foo-play l)
(while (not(null? l)
(play (car l))
(set! l (cdr l)))))
(foo play b)
;play: expects to be at the top level in: (play (car l))
what should I do to be able to listen to this list?
> あ
(rsound #<s16vector> 0 48971 44100)
...................
> みょ
(rsound #<s16vector> 0 31675 44100)
best regards
Le mar. 16 juil. 2019 à 18:15, claude talarmin ***@***.***> a
écrit :
> thank you very much for your answer
> this is not directly relating to the rsound package (at the moment)
> is my problem difficult?
> i am find à solution with a copy pass from a text-field to a another but
> that is not so elegant as a direct detecting of the word when the carret
> (cursor) over this
>
> Le mar. 16 juil. 2019 à 17:37, John Clements ***@***.***>
> a écrit :
>
>> Hmm… I’m not completely sure what you’re asking, but I’m pretty
>> confident that it has nothing to do with the “rsound” package for
>> generating sound. Would you like me to forward your message to the racket
>> users mailing list?John ClementsOn Jul 13, 2019, at 06:00, madatao <
>> ***@***.***> wrote:(define CHAR-CANVAS%(class
>> canvas%(define/override (on-char evt)(let ((c (send evt get-key-code))
>> (dc(send this get-dc)))(send dc clear)(print c)(cond((equal? c
>> 'release)(void))((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))(begin(set!
>> tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member
>> (list->string (reverse tampon-key)) alphabet )) 30 30)(send R-k-text insert
>> (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set!
>> tampon-key '())))((equal? c #;)(begin(send R-k-text insert "。") (set!
>> tampon-key '())))((equal? c #,)(begin(send R-k-text insert "、") (set!
>> tampon-key '())))((equal? c #()(begin(send R-k-text insert "「") (set!
>> tampon-key '())))((equal? c #))(begin(send R-k-text insert " 」") (set!
>> tampon-key '())))((equal? c #&)(begin(send R-k-text insert "々") (set!
>> tampon-key '())))((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p
>> #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))((begin (set!
>> tampon-key (cons c tampon-key))(print tampon-key))))))(super-new)))It works
>> very well (it is for writing in hiragana katakana and other characters)I
>> want to add to this same canvasa feature which tells me the position of the
>> cursor on a textis it possible? if yeswhat is the code to
>> add?(define/override (on-char evt)......Or do I need a another canvas?in
>> this case what will be my code? (define/override (on-char evt)......this in
>> order to do something similar to a "RIKAICHAN"—You are receiving this
>> because you are subscribed to this thread.Reply to this email directly,
>> view it on GitHub, or mute the thread.
>>
>> —
>> You are receiving this because you authored the thread.
>> Reply to this email directly, view it on GitHub
>> <#41?email_source=notifications&email_token=AJAFCKH3ETNVZIZSYIHQOYLP7XTKFA5CNFSM4IC2GWG2YY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOD2BIG5A#issuecomment-511869812>,
>> or mute the thread
>> <https://github.com/notifications/unsubscribe-auth/AJAFCKHXRKONF34UI75OZALP7XTKFANCNFSM4IC2GWGQ>
>> .
>>
>
|
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
(define CHAR-CANVAS%
(class canvas%
(define/override (on-char evt)
(let ((c (send evt get-key-code)) (dc(send this get-dc)))
(send dc clear)
(print c)
(cond
((equal? c 'release)(void))
((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))
(begin(set! tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member (list->string (reverse tampon-key)) alphabet )) 30 30)
(send R-k-text insert (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set! tampon-key '())))
((equal? c #;)(begin(send R-k-text insert "。") (set! tampon-key '())))
((equal? c #,)(begin(send R-k-text insert "、") (set! tampon-key '())))
((equal? c #()(begin(send R-k-text insert "「") (set! tampon-key '())))
((equal? c #))(begin(send R-k-text insert " 」") (set! tampon-key '())))
((equal? c #&)(begin(send R-k-text insert "々") (set! tampon-key '())))
((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))
((begin (set! tampon-key (cons c tampon-key))(print tampon-key))))
))
It works very well (it is for writing in hiragana katakana and other characters)
I want to add to this same canvas
a feature which tells me the position of the cursor on a text
is it possible? if yes
what is the code to add?
(define/override (on-char evt)......
Or do I need a another canvas?
in this case what will be my code?
this in order to do something similar to a "RIKAICHAN"
The text was updated successfully, but these errors were encountered: