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();

[download]

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 ) ?

[reply]
[d/l]
[select]

      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.

[reply]
[reply]

Back to Seekers of Perl Wisdom