perl-win32-gui-users Mailing List for Win32::GUI

Kind, Uwe (AGIS) wrote:
> Hi,
> 
> I've got a problem with popup menus for TabStrip-controls, demonstrated
> in the following lines of code.
> The same popup menu which works perfectly for the main-window doesn't
> work
> for the TabStrip-control. The menu is tracked, but the Click-event
> handlers
> of the MenuItems aren't called.
> 
> Any help to get around this problem would be very appreciated.

I've seen this before, and IIRC it has to do with the way WM_COMMAND 
messages are not handled correctly for child controls.

The easiest solution is to change your TrackPopupMenu() call to:
   $mw -> TrackPopupMenu( ... );

Could you raise a bug report?

Regards,
Rob.

jez...@ho... wrote:
> I haven't got the link handy, but there is a thread util package
 > on Rob's home page that will do most of the work for you
 > - I think it also contains a few examples.

Win32::GUI::ThreadUtils
http://www.robmay.me.uk/win32gui/

> 
> Cheers,
> 
> Jez.
> 
>> Hi,
>>
>> Most of Win32-GUI is thread safe, and you should be Ok using UserData as
> long as the var is itself shared.
>> You will have problems sharing controls and windows between threads, but
> you should be ok with basic types.
> 
> I want to put a thread to download some data continuously and assign it to
> UserData for the main window after each download, then the main window
> should print that data using the main thread.
> Could this be done this way?
> 
>> An alternative approach is to use thread safe queues to handle
> communication/data sharing.
> 
> Where can I read more about thread safe queues?
> 
> Thank you.
> 
> Teddy
> 
> 
> 
> 
> 
> -------------------------------------------------------------------------
> Using Tomcat but need to do more? Need to support web services, security?
> Get stuff done quickly with pre-integrated technology to make your job easier
> Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
> 

-- 
Robert May
Win32::GUI, a perl extension for native Win32 applications
http://perl-win32-gui.sourceforge.net/

Kind, Uwe (AGIS) wrote:
> If you don't have the possibility to build the module, you will have to
> wait until an official patch is available. I've created an entry in the
> bug tracker for this issue.
> 
> If you have a C-compiler readily to hand, then download the source-
> distribution, go to Combobox.xs file and replace the code of SetEditSel
> with the following lines:
> 
> ------------------------------------------------------------------------
> 
>     ###################################################################
>     # (@)METHOD:SetEditSel(START,END)
>     # Select characters in the textfield.
> LRESULT
> SetEditSel(handle,start,end)
>     HWND handle
>     WPARAM start
>     WPARAM end
> PREINIT:
>     LPARAM sel = end * 0x10000 + start;
> CODE:
>     RETVAL = SendMessage(handle, CB_SETEDITSEL, 0, sel);
> OUTPUT:
>     RETVAL
> 
> ------------------------------------------------------------------------

I propose the following:

     ###############################################################
     # (@)METHOD:SetEditSel(START,END)
     # Select characters in the textfield.  START and END are the
     # (zero-based) index of the characters to be selected.  START
     # is the index of the first character to be selected, and END
     # is the index of the first character following the selection.
     # For example to select the first 4 characters:
     #
     #    $combobox->SetEditSel(0,4);
     #
     # If START is -1, the any selection is removed.  If END is -1,
     # then the selection is from START to the last character in the
     # textfield.
     #
     # Returns 1 on success, 0 on failure and -1 if sent to a
     # Combobox that does not have a textfield (C<-dropdownlist => 1>).
LRESULT
SetEditSel(handle,start,end)
     HWND handle
     UINT start
     UINT end
CODE:
     RETVAL = SendMessage(handle, CB_SETEDITSEL, 0, MAKELPARAM(start, end));
OUTPUT:
     RETVAL

I think that is equivalent.

Regards,
Rob.

Doug Gruber wrote:
> I'm using MSVC++ 6 straight out the box on Windows XP Pro (SP2).  I 
> compiled Perl 5.8.8 successfully on this and I can compile and install 
> Win32::GUI 1.03 without any problems.  Long explanation short, I dumped 
> the output of running 'perl Makefile.PL' to perl.txt and 'nmake' to 
> nmake.txt and attached them (assuming I can send attachments to this 
> list).  Let me know if you need me to provide anything else.  Thanks for 
> your help.

Doug,

Win32::GUI will no long build with VC6 'out of the box' - you'll need 
more recent headers from a more recent Platform SDK.  My rational  is 
not continuing to add cruft to GUI.h which is getting somewhat out of 
control.

There are some mails a few weeks back on the hackers list about getting 
include and library search paths in the correct order ...

https://sourceforge.net/mailarchive/forum.php?thread_id=30581473&forum_id=3221
https://sourceforge.net/mailarchive/forum.php?thread_id=30591619&forum_id=3221

Regards,
Rob.

Octavian Rasnita wrote:
> Hi,
> 
> I have seen that
> if the window has the -dialogui => 1 and
> if it contains a RichEdit field and
> if the focus is in that RichEdit field and
> if the user presses escape,
> the window closes but the application doesn't finish.
> I have tried to kill the application using control+C and control+break, and
> in that moment it appears an error window of perl.
> 
> I am using Win32::GUI 1.04.
> 
> I guess this bug is similar with that one regarding the Textfield in case of
> using -multiline option for it.
> 
> (The RichEdit field also uses the -multiline option).
> 
> Is it a known bug? Can I solve it using the same workaround that worked in
> case of Textfields?

You're right - it is the same problem as seen with multi-line edit 
controls (Textfields).  You should be able to work around it in the same 
way - try it and let us know if it doesn't work.

Regards,Rob.

Steve Lloyd wrote:
> Can anyone tell me how to capture the mousemove event on the notifyicon? 
> 
> I have tried the following but to no avail. 
> ---------------------- 
>     my $systray = $mw->AddNotifyIcon( 
>     -icon            => $icon, 
>     -tip             => $progname, 
>     -onMouseEvent      => \&systrayEvent, 
>     ); 
> ----------------- 
> I also tried hooking the main window as follows: 
> $mw->Hook(WM_NOTIFYICON, \&systrayEvent); 
> 
> This method captures all buy mousemove.. 

Steve,

I owe you an apology - I was too fast with closing your bug report at 
the end of last week.  There is indeed a problem with NEM events on the 
NotifyIcon class.  I have re-opened your bug report, and think this is a 
serious enough problem that I am considering a 1.05 release to fix it.

In the mean time you can work around it by
- Using OEM events, or
- using the Change() method, after creation of the notify icon object to 
set the event handler.  The following works for me:

#!perl -w
use strict;
use warnings;

use Win32::GUI qw( WM_MOUSEMOVE );

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

my $ni = $mw->AddNotifyIcon();
$ni->Change(
     -onMouseEvent => \&ni_event,
);

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

sub ni_event
{
     my ($self, $name, $event) = @_;

     if($event = WM_MOUSEMOVE) {
         print "Mouse Move\n";
     }

     return 0;
}
__END__

Regards,
Rob.

Hi,

I want to create a RichEdit field that handles the keyboard and mouse
events, and other events (like ENM_LINK).

I have imported all the events I want using:
use Win32::GUI qw(MB_OK MB_YESNO MB_ICONEXCLAMATION MB_ICONHAND ENM_CHANGE
ENM_KEYEVENTS ENM_LINK ENM_MOUSEEVENTS ENM_SELCHANGE);

Then right after defining the RichEdit field, I have put:

$Control->SetEventMask(ENM_MOUSEEVENTS);

I have also tried:
$Control->SetEventMask(ENM_CHANGE|ENM_KEYEVENTS|ENM_LINK|ENM_MOUSEEVENTS|ENM
_SELCHANGE);

I have defined a Control_Click and a Control_DblClick subroutines which
should be called by -onClick and -onDblClick, but nothing happends if I
click or double-click in the RichEdit field.

Should I do something else to activate those events?

Thank you.

Teddy

Hi Teddy,
=20
did you build Win32::GUI on your own or did you use the ppm-package?

If you don't have the possibility to build the module, you will have to
wait until an official patch is available. I've created an entry in the
bug tracker for this issue.

If you have a C-compiler readily to hand, then download the source-
distribution, go to Combobox.xs file and replace the code of SetEditSel
with the following lines:

------------------------------------------------------------------------

    ###################################################################
    # (@)METHOD:SetEditSel(START,END)
    # Select characters in the textfield.
LRESULT
SetEditSel(handle,start,end)
    HWND handle
    WPARAM start
    WPARAM end
PREINIT:
    LPARAM sel =3D end * 0x10000 + start;
CODE:
    RETVAL =3D SendMessage(handle, CB_SETEDITSEL, 0, sel);
OUTPUT:
    RETVAL

------------------------------------------------------------------------

Patch applied ;-)

Now you have to build the package. How to do so is described in the
Readme
file that you can find in the basedir of the downloaded distribution.

Bye, Uwe

>
> ----- Original Message -----
>
> Thank you very much for this code.
> I will try to test it, although I am not sure that I know how to apply
that
> patch.
>
> Teddy
>

Hi,

The best way to do this would be to use queues to communicate between the boss thread ( the thread running the GUI) and the worker thread (the one doing the data fetch).

It might sound complicated, but it is very straight forward. I haven't got the link handy, but there is a thread util package on Rob's home page that will do most of the work for you - I think it also contains a few examples.

Cheers,

Jez.

> Hi,
>
> Most of Win32-GUI is thread safe, and you should be Ok using UserData as
long as the var is itself shared.
>
> You will have problems sharing controls and windows between threads, but
you should be ok with basic types.

I want to put a thread to download some data continuously and assign it to
UserData for the main window after each download, then the main window
should print that data using the main thread.
Could this be done this way?

> An alternative approach is to use thread safe queues to handle
communication/data sharing.

Where can I read more about thread safe queues?

Thank you.

Teddy

Thank you very much for this code.
I will try to test it, although I am not sure that I know how to apply that
patch.

Teddy

----- Original Message ----- 
From: "Kind, Uwe (AGIS)" <uwe...@al...>
To: <per...@li...>
Sent: Sunday, October 29, 2006 1:35 AM
Subject: Re: [perl-win32-gui-users] Combobox


> Hi Teddy,
>
> try the following:
>
> ------------------------------------------------------------------------
> ----
> #!perl -w
>
> use Win32::GUI ( 'WM_COMMAND' );
>
> my $mw  =   new Win32::GUI::Window
>     (   -name             =>  'mw',
>         -left             =>  100,
>         -top              =>  100,
>         -width            =>  300,
>         -height           =>  100,
>         -title            =>  'CBTest',
>     );
>
> my $cb= $mw -> AddCombobox
>     (   -name               =>  'cb',
>         -left               =>  10,
>         -top                =>  20,
>         -width              =>  $mw -> ScaleWidth () - 20,
>         -height             =>  200,
>
>         -disablenoscroll    =>  200,
>         -dropdown           =>  1,
>         -vscroll            =>  1,
>     );
>
> my  $cb_event = sub
>     {
>         my  $self = shift ();
>
>         if ( $_ [ 0 ] == 0x40003E9 )
>         {
>             my $text  = $self -> Text ();
>             my $match = $self -> FindString ( $text );
>
>             if ( $match >= 0 )
>             {
>                 $self -> Text ( $self -> GetString ( $match ) );
>                 $self -> SetEditSel ( length ( $text ), -1 );
>             }
>         }
>         return ( 1 );
>     };
>
> $cb -> Hook ( WM_COMMAND, $cb_event );
> $cb -> SetFocus ();
>
> for ( 65 .. 90 )
> {
>     $cb -> AddString ( chr ( $_ ) . ' Test' );
> }
>
> $mw -> Show ();
> Win32::GUI::Dialog ();
> ------------------------------------------------------------------------
> ----
>
> It won't work from the scratch because of an bug in SetEditSel, so
> Combobox
> has to be patched first:
>
> ------------------------------------------------------------------------
> ----
>
> XS(XS_Win32__GUI__Combobox_SetEditSel)
> {
>     dXSARGS;
>     if (items != 3)
> Perl_croak(aTHX_ "Usage:
> Win32::GUI::Combobox::SetEditSel(handle, start, end)");
>     {
> HWND handle;
> WPARAM start = (WPARAM)SvIV(ST(1));
> WPARAM end = (WPARAM)SvIV(ST(2));
> LPARAM sel = end * 0x10000 + start;  /* added */
>
> LRESULT RETVAL;
> dXSTARG;
>
>     if(SvROK(ST(0))) {
>         SV** out=hv_fetch((HV*)SvRV(ST(0)), "-handle", 7, 0);
>         if(out != NULL)
>             handle = INT2PTR(HWND,SvIV(*out));
>         else
>             handle = NULL;
>     } else
>        handle = INT2PTR(HWND,SvIV(ST(0)));
> #line 561 "Combobox.xs"
>     / * RETVAL = SendMessage(handle, CB_SETEDITSEL, start, (LPARAM)
> end); */
>     RETVAL = SendMessage(handle, CB_SETEDITSEL, 0, sel);  /* changed */
> #line 984 "Combobox.c"
> XSprePUSH; PUSHi((IV)RETVAL);
>     }
>     XSRETURN(1);
> }
>
> ------------------------------------------------------------------------
> ----
>
> Furthermore You should handle Del and Backspace or it won't possible to
> enter a string like 'A Te' because it's always expanded to 'A Test'.
>
> Regards, Uwe
>
> -------------------------------------------------------------------------
> Using Tomcat but need to do more? Need to support web services, security?
> Get stuff done quickly with pre-integrated technology to make your job
easier
> Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

Hi Teddy,

try the following:

------------------------------------------------------------------------
----
#!perl -w

use Win32::GUI ( 'WM_COMMAND' );

my $mw  =3D   new Win32::GUI::Window
    (   -name             =3D>  'mw',
        -left             =3D>  100,
        -top              =3D>  100,
        -width            =3D>  300,
        -height           =3D>  100,
        -title            =3D>  'CBTest',
    );
   =20
my $cb=3D $mw -> AddCombobox
    (   -name               =3D>  'cb',
        -left               =3D>  10,
        -top                =3D>  20,
        -width              =3D>  $mw -> ScaleWidth () - 20,
        -height             =3D>  200,

        -disablenoscroll    =3D>  200,
        -dropdown           =3D>  1,
        -vscroll            =3D>  1,
    );

my  $cb_event =3D sub
    {
        my  $self =3D shift ();

        if ( $_ [ 0 ] =3D=3D 0x40003E9 )
        {
            my $text  =3D $self -> Text ();
            my $match =3D $self -> FindString ( $text );
           =20
            if ( $match >=3D 0 )
            {
                $self -> Text ( $self -> GetString ( $match ) );
                $self -> SetEditSel ( length ( $text ), -1 );
            }
        }
        return ( 1 );
    };

$cb -> Hook ( WM_COMMAND, $cb_event );
$cb -> SetFocus ();

for ( 65 .. 90 )
{
    $cb -> AddString ( chr ( $_ ) . ' Test' );
}

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

It won't work from the scratch because of an bug in SetEditSel, so
Combobox
has to be patched first:

------------------------------------------------------------------------
----

XS(XS_Win32__GUI__Combobox_SetEditSel)
{
    dXSARGS;
    if (items !=3D 3)
	Perl_croak(aTHX_ "Usage:
Win32::GUI::Combobox::SetEditSel(handle, start, end)");
    {
	HWND	handle;
	WPARAM	start =3D (WPARAM)SvIV(ST(1));
	WPARAM	end =3D (WPARAM)SvIV(ST(2));
	LPARAM	sel =3D end * 0x10000 + start;  /* added */

	LRESULT	RETVAL;
	dXSTARG;

    if(SvROK(ST(0))) {
        SV** out=3Dhv_fetch((HV*)SvRV(ST(0)), "-handle", 7, 0);
        if(out !=3D NULL)
            handle =3D INT2PTR(HWND,SvIV(*out));
        else
            handle =3D NULL;
    } else
       handle =3D INT2PTR(HWND,SvIV(ST(0)));
#line 561 "Combobox.xs"
    / * RETVAL =3D SendMessage(handle, CB_SETEDITSEL, start, (LPARAM)
end); */
    RETVAL =3D SendMessage(handle, CB_SETEDITSEL, 0, sel);  /* changed =
*/
#line 984 "Combobox.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

------------------------------------------------------------------------
----

Furthermore You should handle Del and Backspace or it won't possible to
enter a string like 'A Te' because it's always expanded to 'A Test'.

Regards, Uwe

Hi,

Most of Win32-GUI is thread safe, and you should be Ok using UserData as long as the var is itself shared.

You will have problems sharing controls and windows between threads, but you should be ok with basic types. 

An alternative approach is to use thread safe queues to handle communication/data sharing.

Cheers,

Jez.

 




-----Original Message-----
From: "Octavian Rasnita" <ora...@gm...>
To: "per...@li..." <per...@li...>
Sent: 28/10/06 20:57
Subject: [perl-win32-gui-users] UserData

Hi,

Is the method UserData() thread safe?

Can it be used for associating some data with a certain window in a thread,
then read that data from another thread?

Thank you.

Teddy


-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

Hi,

Is the method UserData() thread safe?

Can it be used for associating some data with a certain window in a thread,
then read that data from another thread?

Thank you.

Teddy

Hi,

I've got a problem with popup menus for TabStrip-controls, demonstrated
in the following lines of code.
The same popup menu which works perfectly for the main-window doesn't
work
for the TabStrip-control. The menu is tracked, but the Click-event
handlers
of the MenuItems aren't called.

Any help to get around this problem would be very appreciated.

------------------------------------------------------------------------
---

#!perl -w

use Win32::GUI ();

my $mw  =3D   new Win32::GUI::Window
    (   -name             =3D>  'mw',
        -left             =3D>  100,
        -top              =3D>  100,
        -width            =3D>  150,
        -height           =3D>  100,
        -title            =3D>  'PopupTest',

        -onMouseRightDown =3D>  \&popup,
    );
   =20
my  $ml =3D $mw ->AddLabel
    (   -name             =3D>  'ml',
        -left             =3D>  50,
        -top              =3D>  38,
        -width            =3D>  90,
        -height           =3D>  20,
    );

my $ts  =3D $mw -> AddTabStrip
    (   -name             =3D>  'ts',
        -left             =3D>  0,
        -top              =3D>  0,
        -width            =3D>  $mw -> ScaleWidth (),
        -height           =3D>  21,

        -onMouseRightDown =3D>  \&popup,
    );

( $ts -> InsertItem
    (   -index            =3D>  $_,
        -text             =3D>  "Test_0$_",
    )
) for ( 0 .. 1 );

my $pm =3D Win32::GUI::MakeMenu
    (   'tabstrip_menu'     =3D>  'tabstrip_menu',   =20
        '> Test_00'
            =3D> { -name        =3D>  'menu_item_00000',
                 -onClick     =3D>  sub { $ml -> Text ( 'Test_00' ) },
               },
        '> Test_01'        =20
            =3D> { -name        =3D>  'menu_item_00001',
                 -onClick     =3D>  sub { $ml -> Text ( 'Test_01' ) },
               },
    );

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

sub popup
{
    my $self =3D shift ();

    $self -> TrackPopupMenu ( $pm -> { 'tabstrip_menu' },
                              Win32::GUI::GetCursorPos ()
                            );
    return ( 0 );
}

------------------------------------------------------------------------
---

Thanks in advance,
Uwe

Hi,

I want to create a combo box that has a visible edit box in which I can type
words, and a listbox that can be opened and that can hold the typed words
in.
And I want that each time when I type a part of a word, it should select the
first match from its list and copy it to the edit box.

I have seen that the Combobox object has a method named SelectString that
could get the first match and copy it into the textfield, but I don't know
how to run this method, because the combo box doesn't seem to have any event
that could fire it after each char is typed.

I have tried -onChar, -onKeyDown, but they are not available for this
object.

I have seen that they are available in case I use the -dropdownlist => 1
option, but in that case the combo box doesn't allow typing words in the
edit field but only selecting words from the list.

Please tell me how can I do that, and one more thing... please tell me how
the Combobox works.
If the combo box is a simple one that doesn't have the -dropdownlist option
set, I guess that the edit box is always shown on the screen. But can the
list box be displayed? I am not sure this type of combo box has that button
with the "down triangle" button that can be used for displaying the list.
Is it possible to have an editable  combo box that also can display the list
box?

Thanks for anything that can help me.

Teddy

Hi,

I have seen that
if the window has the -dialogui => 1 and
if it contains a RichEdit field and
if the focus is in that RichEdit field and
if the user presses escape,
the window closes but the application doesn't finish.
I have tried to kill the application using control+C and control+break, and
in that moment it appears an error window of perl.

I am using Win32::GUI 1.04.

I guess this bug is similar with that one regarding the Textfield in case of
using -multiline option for it.

(The RichEdit field also uses the -multiline option).

Is it a known bug? Can I solve it using the same workaround that worked in
case of Textfields?

Thank you.

Teddy

I'm using MSVC++ 6 straight out the box on Windows XP Pro (SP2).  I 
compiled Perl 5.8.8 successfully on this and I can compile and install 
Win32::GUI 1.03 without any problems.  Long explanation short, I dumped 
the output of running 'perl Makefile.PL' to perl.txt and 'nmake' to 
nmake.txt and attached them (assuming I can send attachments to this 
list).  Let me know if you need me to provide anything else.  Thanks for 
your help.

-- 

Doug

Can anyone tell me how to capture the mousemove event on the notifyicon? 

I have tried the following but to no avail. 
---------------------- 
    my $systray = $mw->AddNotifyIcon( 
    -icon            => $icon, 
    -tip             => $progname, 
    -onMouseEvent      => \&systrayEvent, 
    ); 
----------------- 
I also tried hooking the main window as follows: 
$mw->Hook(WM_NOTIFYICON, \&systrayEvent); 

This method captures all buy mousemove.. 



Any help would be appreciated. 

Steve

 


-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.

 

Can anyone tell me how to capture the mousemove event on the notifyicon?

I have tried the following but to no avail.
----------------------
     my $systray = $mw->AddNotifyIcon(
	-icon            => $icon,
	-tip             => $progname,
	-onMouseEvent 	 => \&systrayEvent,
     );
-----------------
I also tried hooking the main window as follows:
$mw->Hook(WM_NOTIFYICON, \&systrayEvent);

This method captures all buy mousemove..



Any help would be appreciated.

Steve

Glenn Linderman/Chris Wearn/Robert May wrote:

[highly edited]

>>  >>>> Undefined subroutine &main::UpdateHTML_blib called at -e line 1.
>>
>> [snip]
>>
>>  My gut reaction is this is a 5.8.8 specific thing (I know 
>> ActiveState have played with MakeMaker a lot in 5.8.8).
>>
>>  >>> Did you successfully compile earlier versions with 5.8.8?  Anyone?
>>
>> So not sure why this has occurred as the only thing I have updated was 
>> Perl, from 5.8.7 to 5.8.8.819 dated 29 Aug 2006 (noted that Glenn installed 
>> build 817, but was able to compile it without the 'UpdateHTML_blib').
>>

Was there every any resolution to this issue?

Regards,
Rob.

Hi,

Can you tell me how can I set the wanted charset for a certain web page I
want to display in an AxWindow object?
I want to set it to UTF-8.

I have tried some ways, but they are not OK.
I have printed the html page into a temporary file with the .htm extension
then I have given the path to that file to -control => in the AxWindow
constructor or in the "Navigate" method of the object. The page is printed
using UTF-8 charset on some computers, and another charset on others.
I have seen that if I open the temporary file using Internet Explorer and
manually choose to view it using UTF-8, then I open again my program, it is
shown correctly using UTF-8 in my program also.

But the problem is that I don't know how to be sure that the file is printed
always using UTF-8.

I have also tried to store in the file:

<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

... but it seems that this element doesn't have any effect.

Thank you very much.

Teddy

TrackPopupMenu does work, I use it in the Skin module.  Don't use the
onClick event however, you need to use MouseRightDown (if you want a =
right
click)

I can post an example tonight when I get home from work.  If you feel =
brave,
download Win32::GUI::Skin from Sourceforge and look in the Skin.pm =
module
for how I use it.

Brian Millham
This message traveled at least 44,000 miles to reach you!
Creator of the DW6000 Monitor
http://www.millham.net/dw6000
bmi...@hu...

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Glenn Linderman
Sent: Tuesday, October 24, 2006 6:56 AM
To: GUI
Cc: Robert May
Subject: Re: [perl-win32-gui-users] [win32-gui] NEM Menus?

On approximately 10/23/2006 11:27 PM, came the following characters from =

the keyboard of Glenn Linderman:
> On approximately 10/23/2006 6:14 PM, came the following characters =
from=20
> the keyboard of Glenn Linderman:
>  =20
>> On approximately 10/23/2006 12:47 PM, came the following characters =
from=20
>> the keyboard of Robert May:
>>  =20
>>    =20
>>> Glenn Linderman wrote:
>>>  > Hi,
>>>  >
>>>  > Last time I tried to play around with NEM menus, they didn't =
work,
but
>>>  > that was several years ago.
>>>  >
>>>  > 1) Do they work now?
>>>  > 2) Any one have a small working sample?  I didn't find one in the =

>>> demos....
>>>
>>> I've not played extensively with the menu support.  Basic NEM =
(-onClick)

>>>  definitely exists and works - several of the new demos use it:
>>>
>>> NotifyIcon.pl
>>> standard_images.pl
>>> win32-gui-demos (the demo launcher itself)
>>>
>>> Rob.
>>>
>>>
>>>    =20
>>>      =20
>> Thanks for the response, Rob, I didn't see any with the right name, =
and=20
>> was too tired to read all the demos to find one... so sent my message =

>> and went to bed.  Thanks for focusing my attention on ones that use=20
>> -onClick.  Glad it is working now, I vaguely recalled some work being =

>> done in that area, but hadn't needed to convert my code yet... but =
last=20
>> night I made some other changes that would be greatly eased by using=20
>> -onClick.  Of course the documentation for Menus doesn't have any=20
>> examples at all...
>>
>> I wonder if it could be helpful to add pointers in the documentation =
to=20
>> the demos that use a particular feature, even if it isn't the main=20
>> thrust of the demo?
>>  =20
>>    =20
> And hmm.  I can't find NotifyIcon.pl or standard_images.pl in the=20
> installed version of the demos...
>
> They are in the CVS source samples directory, though.
>
> Was that intentional, or an oversight?
>  =20
Another comment is that none of those files include using -onClick with=20
TrackPopupMenu. Which I haven't yet gotten to work. Making me wonder if=20
it does.

Well, tomorrow I'll try to work up a sample, to see if that sheds any=20
light on my failure to get it to work, and also a sample for the use of=20
Image::Info which works fine normally, but fails when packaged with=20
PAR's pp.

--=20
Glenn -- http://nevcal.com/
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D
A protocol is complete when there is nothing left to remove.
-- Stuart Cheshire, Apple Computer, regarding Zero Configuration =
Networking


-------------------------------------------------------------------------=

Using Tomcat but need to do more? Need to support web services, =
security?
Get stuff done quickly with pre-integrated technology to make your job
easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache =
Geronimo
http://sel.as-us.falkag.net/sel?cmd=3Dlnk&kid=3D120709&bid=3D263057&dat=3D=
121642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
---
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0643-1, 10/23/2006
Tested on: 10/24/2006 7:02:59 AM
avast! is copyright (c) 2000-2006 ALWIL Software.
http://www.avast.com



---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0643-1, 10/23/2006
Tested on: 10/24/2006 9:34:25 AM
avast! is copyright (c) 2000-2006 ALWIL Software.
http://www.avast.com

Steve Loughran wrote:
> Robert May wrote:
>>> foreach my $tempwin (@windows)
>>> 	{
>>> 	# $tempwin->InvalidateRect(1);
>>          Win32::GUI::InvalidateRect($tmpwin, 1);
>>          # $tmpwin is a scalar not an object
>>
>>> 	my $tempdib = newFromWindow Win32::GUI::DIBitmap ($tempwin,1);
>>> 	$tempdib->SaveToFile("saved-image.bmp");
>>> 	}
>  >
>> $tmpwin isn't a pakcakge or object reference.
>>
> So, on to the WM_PRINT event method. If I cant do:
> 
> 	$tempwin->GetDC();
> 
> because its a scalar, and
> 
> 	Win32::GUI:GetDC($tempwin);
> 
> doesnt seem to be able to find GetDC in the Win32::GUI package, how can 
> I find the DC for the scalar $tempwin entry? (I picked a bad week to 
> give up smoking AND caffeine)

   Win32::GUI::DC::GetDC($tempwin);

Regards,
Rob.

Robert May wrote:
>> foreach my $tempwin (@windows)
>> 	{
>> 	# $tempwin->InvalidateRect(1);
> 
>          Win32::GUI::InvalidateRect($tmpwin, 1);
>          # $tmpwin is a scalar not an object
> 
>> 	my $tempdib = newFromWindow Win32::GUI::DIBitmap ($tempwin,1);
>> 	$tempdib->SaveToFile("saved-image.bmp");
>> 	}
>
 >
> $tmpwin isn't a pakcakge or object reference.
> 
>> Odd that DIBitmap newFromWindow copes with it being passed a window, but 
>> InvalidateRect() barfs. What am I doing wrong here, or more to the 
>> point, would using InvalidateRect() actually do what I want it to?
> 
> I doubt it, but now you can try.
> 
> Regards,
> Rob.

doh! That fixed it, but you were right (as always), it didnt do what I 
was expecting (or maybe just hoping :) )

So, on to the WM_PRINT event method. If I cant do:

	$tempwin->GetDC();

because its a scalar, and

	Win32::GUI:GetDC($tempwin);

doesnt seem to be able to find GetDC in the Win32::GUI package, how can 
I find the DC for the scalar $tempwin entry? (I picked a bad week to 
give up smoking AND caffeine)

Steve

Steve Loughran wrote:
> Robert May wrote:
>> I've never tried, but I believe you can do what you want by creating a 
>> compatible DC, and then sending a WM_PRINT message to the window, with 
>> the DC's handle in the wParam and some flags in the lParam (see MDSN for 
>> more info).  I think most of the Win32::GUI windows/controls have enough 
>> support for this to work.
> 
> Following on from this, I was looking at the InvalidateRect() method on 
> a window handed to me by Win32::GUITest FindWindowLike(). I am hoping 
> this will cause the window to refresh itself totally in the DC.
 >
> my @windows = FindWindowLike(undef, undef, "WindowText", undef);
> 
> foreach my $tempwin (@windows)
> 	{
> 	# $tempwin->InvalidateRect(1);

         Win32::GUI::InvalidateRect($tmpwin, 1);
         # $tmpwin is a scalar not an object

> 	my $tempdib = newFromWindow Win32::GUI::DIBitmap ($tempwin,1);
> 	$tempdib->SaveToFile("saved-image.bmp");
> 	}
> 
> ===
> 
> This works great for saving the window contents, but doesnt deal with 
> the overlapped window issue. If I uncomment the first line in the 
> foreach loop (the InvalidateRect entry), I get:
> 
> 	Can't call method "InvalidateRect" without a package or object
> 	reference at mycode.pl line 10158, <DATA> line 164.

$tmpwin isn't a pakcakge or object reference.

> Odd that DIBitmap newFromWindow copes with it being passed a window, but 
> InvalidateRect() barfs. What am I doing wrong here, or more to the 
> point, would using InvalidateRect() actually do what I want it to?

I doubt it, but now you can try.

Regards,
Rob.