#!/usr/bin/perl -w

# muppet
# This simple bit of code has helped my toddlers learn letters and  
# numbers for quite some time.  I thought i should share it, if for  
# nothing else than the line where i set the font size.  :-)

# zentara
# Version 2 ... the keyboard trainer....free for all who purchased
# Version 1 within the last year :-)

use strict;
use Gtk2 -init;

my $window = Gtk2::Window->new;
$window->set_size_request(800,300);
$window->set_position('center');

my $label = Gtk2::Label->new ("W");
my $font_desc = Gtk2::Pango::FontDescription->from_string ("Sans Bold"
+);
$font_desc->set_size (100000);
$label->modify_font ($font_desc);
$window->add ($label);

$window->signal_connect (key_release_event => \&keyrelease);

$window->signal_connect (destroy => sub { Gtk2->main_quit });
$window->show_all;
Gtk2->main;

sub keyrelease {
    my ($widget, $event) = @_;
    
    my $key = Gtk2::Gdk->keyval_name ($event->keyval);
    if( $key =~ /^(Alt|Multi|Control|Shift)/ ){ return }   
    $key =~ tr/_/ /;
    
    my $ukey = uc($key);
    $label->set_text ($ukey);
        
        #added by zentara
        Gtk2->main_iteration while Gtk2->events_pending;
        system('flite', '-t', "$key");
}

__END__
[download]