use Tk;
use Tk::LabEntry;
$mw = tkinit;
$mw->Button(-text => "Open", -command => \&openit)->pack();
sub openit{
$polefr = $mw->Frame()->pack();
$polefr->Button(-text => 'aaaaa')->pack();
$mw->Button(-text => 'This does not appeare')->pack();
}
MainLoop;
Perhaps it may depend on the font used, you might add something more
do the frame, but in my environement the last Button is not visible.
Zbigniew Lukasiak
$Tk::version = '8.0';
$Tk::patchLevel = '8.0';
$Tk::VERSION = '800.024';
$Tk::XS_VERSION = $Tk::VERSION;
$Tk::strictMotif = 0;
ZL
I can't see a problem with the script and fvwm2. Maybe it's a window
manager specific problem. Also note that once you have resized the
window using the window manager, Tk won't resize the window anymore.
Regards,
Slaven
--
Slaven Rezic - slaven...@berlin.de
sf-upload: make batch releases on SourceForge
http://sf-upload.sf.net
>
> I can't see a problem with the script and fvwm2. Maybe it's a window
> manager specific problem. Also note that once you have resized the
> window using the window manager, Tk won't resize the window anymore.
I don't resize it manually. And I did try it under KDE, Gnome,
Blackbox and Enlightement with the same result. All on a debian woody
box.
Zbigniew Lukasiak
On my FreeBSD box, it works with fvwm2, twm and wmaker (the sane
window managers) and it does not work with kde2, enlightenment and
blackbox (usually the window managers with more bugs). But it works
also with Tk804 and wish8.4 regardless of the window manager. Before
the release of Tk804, and as a workaround for older versions, it seems
that you can add $mw->idletasks before the creation of the second
button.
Regards,
Slaven
--
Slaven Rezic - slaven...@berlin.de
tkrevdiff - graphical display of diffs between revisions (RCS or CVS)
http://ptktools.sourceforge.net/#tkrevdiff