Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Tk Windows Speech Recognition

by IB2017 (Pilgrim)
on Nov 29, 2019 at 19:21 UTC ( #11109445=perlquestion: print w/replies, xml ) Need Help??

IB2017 has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks

I am playing with the speech recognition engine which is build in any Windows 10 computer. Has anyone experience in using it with Tk? I am experiencing the following problem: in a simple Tk Text widget, 1) it transcribes the first sentence, after this nothing else happen if I keep speaking 2) the sentence is transcribed after I make a pause. On almost any other application I have tried (for example Firefox), the transcription is in real-time (with a very low latency) and there is no interruption after a segment has been transcribed. Any idea? Is Tk the wrong GUI kit for using speech recognition?

use strict; use warnings; use Tk; use Tk::Text; my $mw = tkinit(); my $text = $mw->Text()->pack(); $text->insert('end',"Rot\n"); $text->tagAdd('red_text',"1.13","1.18"); $text->insert('end',"blue\n"); $text->tagAdd('blue_text','end -1 lines','end -1 lines'); $text->tagConfigure('red_text', -foreground => 'red'); $text->tagConfigure('blue_text', -foreground => 'blue'); $mw->MainLoop();

Replies are listed 'Best First'.
Re: Tk Windows Speech Recognition (Dictation)
by Anonymous Monk on Nov 30, 2019 at 01:39 UTC

    Hi ,

    What happens if you run perl -S gedi ?

    ? What happens if you add  $text->after( 500, sub{ $Tk::widget->update } );

    ? What happens if you add use Tcl::pTk;

    Got any other gui toolkits installed ( Win32::GUI, Prima, Wx ) ?

      Here is my result

      perl -S gedi Same situation as with my simple code

      $text->after( 500, sub{ $Tk::widget->update } ); No changes

      use Tcl::pTk; (which requires a proper Tcl/Tk installation), same behavior as Tk (same on macOS)

      Win32::GUI: works fine, real-time transcription

      Wx: works fine, real-time transcription

      So, it apparently seems that Tk (Perl or Tcl) is not supporting anything with Speech Recognition. What a shame.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://11109445]
Front-paged by haukex
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2019-12-05 22:12 GMT
Find Nodes?
    Voting Booth?
    Strict and warnings: which comes first?

    Results (152 votes). Check out past polls.