Every time I run the following program, the BrowseEntry entry comes up blank. I see no alternating behavior. The only way I can get the entry to show initial content is to uncomment the
    $midi_outdev = 'INITIAL CONTENT';
statement (update: and then I always get the same initial content :). Can you post a Short, Self-Contained, Correct Example that shows the behavior you're seeing? 

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'

[download]
This doesn't answer your question, but it may at least provide a useful data point.

Give a man a fish:  <%-{-{-{-<

In reply to Re: Confusing behavior from Tk::BrowseEntry (updated) by AnomalousMonk
in thread Confusing behavior from Tk::BrowseEntry by DcmbrAgnt

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.