use Tk 800.000;
use strict;
my $width=45; # just right for 4 capital letters
my $height=30;
my @key_array = ();
@key_array =           split (//, "abcdefghijklmnopqrstuvwxyz");
@key_array = (@key_array, split (//, "0123456789" ) );
@key_array = (@key_array, qw(F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12) );
@key_array = (@key_array, qw(F13 F14 F15 F16 F17 F18 F19 F20 F21 F22 F23 F24) );
@key_array = (@key_array, qw(Esc Bksp Del Ins Home End PgUp PgDn CapLk Enter) );
@key_array = (@key_array, qw(Shift Ctrl Alt UpArr DnArr LtArr RtArr Pause) );

my $vvalue="";

my $mw = MainWindow->new;
my $code_font = $mw->fontCreate('code', -family => 'ariel', -size => 10);
native_optionmenu( $mw, \$vvalue)->place( -width =>  $width, -height => $height);
MainLoop;

sub native_optionmenu {

    my($parent, $varref, ) = @_;

    my @optionvals = @key_array;

    my $mb = $parent->Menubutton(
        -textvariable       => $varref,
        -indicatoron        => 0,
        -relief             => 'raised',
        -borderwidth        => 2,
        -highlightthickness => 2,
        -anchor             => 'c',
        -direction          => 'flush',
        -font          => $code_font,
    );
    my $menu = $mb->Menu(-tearoff => 0);
    $mb->configure(-menu => $menu);

    my $ii =0;
    foreach (@optionvals) {
        $menu->radiobutton(
            -label     => $_,
            -variable  => $varref,
        );
        $menu->entryconfigure($ii, -columnbreak => 1) unless $ii++ % 26;
    }
   $mb;

} # end native_optionmenu