>
> I'm assuming the documentation has been updated to mention the
> new methods, etc.?
I have regenerate html doc from source and include it in PPM distribution.
You can found it in ActiveState package index documentation.
But, dont know if documentation is very update ;o)
> Also, this has been bugging me for a while,
> but due to my own lack of time, I've yet to research the
> equivalent:
>
> Win32::GUI: the -style option is deprecated!
> Win32::GUI: the -style option is deprecated!
> Win32::GUI: the -exstyle option is deprecated!
Yes it's a know problem.
We probably add a special Win32::GUI option for disable it.
Not yet implemented.
>
> The last error correlates to a RichEdit control - removing the -exstyle
had
> no adverse affects, so I just left it as is. The other two are related to
a
> bitmap and richedit:
>
> # create our pretty logo.
> $window->AddLabel( -text => "",
> -name => "Bitmap",
> -left => -34,
> -top => -3,
> -width => 505,
> -height => 116,
> -style => 14,
> -visible => 1,
>
> );
I think you can replace -style => 14 by -bitmap => 0.
-bitmap theoricly take a bitmap handle but with 0 only SS_BITMAP style is
set.
> # create the log box which is gonna hold all our info.
> $logbox = $window->AddRichEdit( -name =>
> "AmphetaDesk::OS::Windows::_RichEdit",
> -font => $font,
> -top => 116,
> -left => 0,
> -width => 505,
> -height => 240,
> -tabstop => 1,
> -style => WS_CHILD | WS_VISIBLE | ES_LEFT |
> ES_MULTILINE | ES_AUTOVSCROLL |
> WS_VSCROLL | ES_READONLY,
> -exstyle => WS_EX_CLIENTEDGE
> );
>
> Removing the style, at least on the AddLabel, totally breaks my bitmap
> image. I've yet to fiddle with the -style on the RichEdit. What should
> those be changed too?
For RichEdit control default style is :
perlcs.cs.style = WS_VISIBLE | WS_CHILD | ES_MULTILINE |
ES_AUTOHSCROLL | ES_AUTOVSCROLL;
perlcs.cs.dwExStyle = WS_EX_CLIENTEDGE;
You only need to add WS_VSCROLL, ES_LEFT and ES_READONLY.
You can use -addstyle for this or use specific option.
WS_VSCROLL can be set with -vscroll => 1
ES_LEFT can be set with -align => 'left'
ES_READONLY can be set with -readonly => 1
I think your tabstop option doesn't work because it's before -style option.
-style option ovewrite all previous style setting.
I forget to mention it in fix list but now -remstyle only remove set style.
So, you can do something like this (but not very nice) :
-remstyle => 0xFFFFFFFF,
-addstyle => WS_CHILD | WS_VISIBLE | ES_LEFT | ES_MULTILINE |
ES_AUTOVSCROLL | WS_VSCROLL | ES_READONLY
Laurent.
