Re: [perl-win32-gui-users] [win32-gui] Button + multiline text?

[Robert May]

Steve Loughran wrote:

Secondly, I notice there is a -multiline option for buttons, but I am unable to force my text to "wrap" with the usual "\r\n" entry in the text that I can use in other objects that support the -multiline option. Any ideas?

It seems to work for me.  Does this work for you?
Regards,
Rob.

#!perl -w
use strict;
use warnings;

use Win32::GUI 1.05 qw(CW_USEDEFAULT);

my $mw = Win32::GUI::Window->new(
    -left => CW_USEDEFAULT,
    -size => [400,300],
);

$mw->AddButton(
    -width  => 150,
    -height => 60,
    -multiline => 1,
    -align => 'left',
    -text  => "Some quite long text that we want to wrap.\r\n" .
              "And a second line",
);

$mw->Show();
Win32::GUI::Dialog();
$mw->Hide();
exit(0);