c:\@Work\Perl\monks>perl
use strict;
use warnings;

use Tk;
use Tk::BrowseEntry;

my $midiCtrls = tkinit;

my @midi_outdevs = (
  'the rain in spain',
  'the cat in the hat',
  'how now brown cow',
  'foo bar baz',
  'now is the time',
  );

my $midi_outdev;
# $midi_outdev = 'INITIAL CONTENT';

my $midi_indev;

my $dropdwnMidiPort = $midiCtrls->BrowseEntry(
    -choices          => \@midi_outdevs,
    -state            => 'readonly',
    -justify          => 'right',
    -variable         => \$midi_outdev,
    -browsecmd        => sub { $midi_indev = $midi_outdev;
                   MidiConSetup('out');
                   MidiConSetup('in'); },
    -font             => 'Helvetica -12 bold',
    -disabledforeground => 'black')->grid(
    -row              => 0,
    -column           => 0);
$dropdwnMidiPort->Subwidget('slistbox')->configure(
    -selectbackground => 'IndianRed4',
    -selectforeground => 'white');

MainLoop;

exit;

sub MidiConSetup { print qq{'$_[0]' '$midi_indev' \n}; }

__END__
'out' 'how now brown cow'
'in' 'how now brown cow'
'out' 'now is the time'
'in' 'now is the time'
'out' 'the rain in spain'
'in' 'the rain in spain'