perl-win32-gui-users — Using the Win32::GUI Perl extension

[perl-win32-gui-users] richedit formatting

[Brian R. (G. H. School) <Row...@gr...>]

Hi
Another day and another question. Hope some one can shed some light on a
niggling problem

I'm trying to layout text in a RichEdit window and find that the layout
with tabs doesn't give me nice neat columns of text.

My thoughts are to use a mono spaced font (using Windows XP).

Is that the solution? If so, how do I set the font for the control
please?

Thanks 
Brian Rowlands

Education is the best provision for the journey to old age.
<http://www.quotationspage.com/quote/34568.html> 
Aristotle 

Re: [perl-win32-gui-users] Drag and Drop Controls

[Jeremy W. <jez...@ho...>]

> I'm developing an application to allow a customer to create custom forms to
> be printed. In searching this group I found notes on drag and drop in a
> listview, but can any control be draged as in GUI loft? I need to allow for
> labels, text boxes and picture controls on a canvas defined by the printer
> paper.

Hi,

Some controls such as the listview support drag and drop, but only in the context of the contents of the control. The control itself can't be dragged as native functionality. As all controls can be programatically moved (and thus redrawn by windows) you could implement your own dragging and dropping... 

Hope that is of some help,

Cheers,

jez. 
_________________________________________________________________

http://clk.atdmt.com/UKM/go/msnnkmgl0010000002ukm/direct/01/

Re: [perl-win32-gui-users] Browse Buttons For Just Directories, and the Clear() method

[Jeremy W. <jez...@ho...>]

Do you mean browsing for a folder rather than a file? If so, see:

Win32::GUI::BrowseForFolder

Cheers,

jez.
________________________________
> From: ad...@ms...
> To: per...@li...
> Date: Mon, 2 Jun 2008 14:48:29 -0500
> Subject: [perl-win32-gui-users] Browse Buttons For Just Directories, and the Clear() method
> 
> Hello, I was wondering if there is a way that you can setup the Win32::GUI::GetOpenFileName to open a directory rather than a file?
> 
> Also I have tried the Clear() method and it doesn't seem to do anything. I have the following code:
> 
> 
> # Clear button
> my $clearButton = $main->AddButton(-name    => "clearButton",
>            -text    => "Clear Text",
>            -pos     => [250, 150],
>            -size    => [75, 30],
>            -tabstop => 1,);
> 
> # Clear the text in the main screen
> sub clearButton_Click
> {
>  $main->textDirPath->Clear();
>  $main->textFileExt->Clear();
> }
> 
> 
> That obviously is not the whole thing, but I can't seem to figure out how to make it work. Any Suggestions? Thanks
> 
> -Andy

_________________________________________________________________

All new Live Search at Live.com

http://clk.atdmt.com/UKM/go/msnnkmgl0010000006ukm/direct/01/

Re: [perl-win32-gui-users] DateTime format

[Jeremy W. <jez...@ho...>]

Hi,

The strings below are some of the formats that I have used:

'dd MMM yyyy'
'MM/dd/yyyy' 
'dd/MM/yyyy'
'yyyy MM dd'
'yyyyMMdd'
'dd MMM yyyy HH:mm:ss'
'MM/dd/yyyy HH:mm:ss'
'dd/MM/yyyy HH:mm:ss'
'yyyy MM dd HH:mm:ss'
'yyyyMMdd HH:mm:ss'

Cheers,

Jeremy.

________________________________
Date: Sun, 1 Jun 2008 23:27:57 +1200
From: Row...@gr...
To: per...@li...
Subject: [perl-win32-gui-users] DateTime format














Hi



I’ve put a Win32::GUI::DateTime control on a GUI application I’m putting together but I’m a bit stuck on how to use SetFormat().



Can someone point me to a reference that outlines the various format strings that can be used to present the date?



In particular, I’d like to have the date presented as 01-June, say.





Thanks

Brian Rowlands



Education is the best provision for the journey to old age.



Aristotle








_________________________________________________________________

http://clk.atdmt.com/UKM/go/msnnkmgl0010000002ukm/direct/01/

Re: [perl-win32-gui-users] Browse Buttons For Just Directories, and the Clear() method

[Geoffrey S. <geo...@gm...>]

On Mon, Jun 2, 2008 at 3:48 PM, Andy Daykin <ad...@ms...> wrote:
> Also I have tried the Clear() method and it doesn't seem to do anything. I
> have the following code:
[...]
>  $main->textDirPath->Clear();
>  $main->textFileExt->Clear();

use $textfield->Text("");

Clear() actually clears the current selection.

[perl-win32-gui-users] Browse Buttons For Just Directories, and the Clear() method

[Andy D. <ad...@ms...>]

Hello, I was wondering if there is a way that you can setup the Win32::GUI::GetOpenFileName to open a directory rather than a file?

Also I have tried the Clear() method and it doesn't seem to do anything. I have the following code:


# Clear button
my $clearButton = $main->AddButton(-name    => "clearButton",
           -text    => "Clear Text",
           -pos     => [250, 150],
           -size    => [75, 30],
           -tabstop => 1,);

# Clear the text in the main screen
sub clearButton_Click
{
 $main->textDirPath->Clear();
 $main->textFileExt->Clear();
}


That obviously is not the whole thing, but I can't seem to figure out how to make it work. Any Suggestions? Thanks

-Andy

[perl-win32-gui-users] example of the usefullness of win32 GUI

[zak <cho...@gm...>]

hi
here is an example for using perl and win32 gui to run an excellent Dos
Prompt Factorizing program in a windows GUI : it is for demonstrating the
benefits of GUI interface over DOS like steel, the program are compiled
using cava packager  http://www.cava.co.uk/
the Factor.exe is a freeware for factoring big numbers from
http://www.shamus.ie/uploads/File/factor.exe
the new gui for the program in:
http://www.4shared.com/file/49815871/9090655a/factorize.html
the source code in case the file is deleted below, my source code are not
the optimum one especially in the perl side coding, but it is working, any
suggestions are welcome.

use Win32::GUI;
use warnings;
use strict;

my $Win = new Win32::GUI::Window(
      -left   => 3,
      -top    => 5,
      -width  => 640,
      -height => 480,
      -name   => "Win",
      -text   => "factorizing numbers"
      );


$Win->Show();
my $font = Win32::GUI::Font->new(
           -name => "Courier New",
           -size => 14,
);
my $font2 = Win32::GUI::Font->new(
           -name => "Courier New",
           -size => 16,

);

$Win->AddButton(
       -text    => "Run",
       -name    => "Button1",
       -left    => 7,
       -top     => 5,
       -width   => 56,
       -height  => 36,
       -foreground    => 0,
      );
$Win->AddButton(
       -text    => "CLS",
       -name    => "Button2",
       -left    => 581,
       -top     => 399,
       -width   => 47,
       -height  => 25,
       -foreground    => 0,
      );
$Win->AddLabel(
       -text    => "Write the Number",
       -name    => "Label_2",
       -left    => 400,
       -top     => 30,
       -width   => 200,
       -height  => 18,
       -foreground    => 0,
  );
my $numberinput = $Win->AddTextfield(
       -text    => "",
       -name    => "Textfield_2",
       -left    => 4,
       -top     => 54,
       -width   => 595,
       -height  => 33,
       -align      => "left",
       -font    => $font,
       -background    =>"#FFF8CD",
      );


my $output = $Win->AddTextfield(
       -text    => "",
       -name    => "Textfield_Output",  # OutPut textfield
       -left    => 1,
       -top     => 91,
       -width   => 634,
       -height  => 297,
       -multiline    => 1,
       -vscroll    => 1,
       -align      => "left",

      );
my $waitLable = $Win->AddLabel(
       -text    => "",
       -name    => "Label_3",
       -left    => 95,
       -top     => 8,
       -width   => 213,
       -height  => 39,
       -foreground    => 0,
       -font    => $font2,
       -foreground    => 8388863,
         );
$Win->AddButton(
       -text    => "CLS",
       -name    => "Button3",
       -left    => 603,
       -top     => 56,
       -width   => 26,
       -height  => 29,
       -foreground    => 0,
      );

Win32::GUI::Dialog();
exit(0);

sub Win_Terminate {
   return -1;
}

sub Button1_Click {
my $number = $numberinput->GetLine(1);
$waitLable -> Text("Please Wait");
my $i = 0; my $r; my $ss;
    my @a;my @ss;
    my @info = `factor.exe $number`;
    foreach (@info) {
       $r = $_;
      if ($r =~ /this number is prime/){
                $output->Append("this number is PRIME\n");last}

        {if (@a = $r =~ m/PRIME.*?\d+/g)
    {
 @ss = $a[0] =~ /\d+/g;
        $output->Append("$ss[0]\n");

    }

}
}
$output->Append("===============================\n");
$waitLable -> Text("");
}

sub Button2_Click {
$output->Text("");

}
sub Button3_Click {
 $numberinput->Text("");
          }

[perl-win32-gui-users] DateTime format

[Brian R. (G. H. School) <Row...@gr...>]

Hi
I've put a Win32::GUI::DateTime control on a GUI application I'm putting
together but I'm a bit stuck on how to use SetFormat().

Can someone point me to a reference that outlines the various format
strings that can be used to present the date? 

In particular, I'd like to have the date presented as 01-June, say.


Thanks 
Brian Rowlands

Education is the best provision for the journey to old age.
<http://www.quotationspage.com/quote/34568.html> 
Aristotle 

[perl-win32-gui-users] Drag and Drop Controls

[rpnoble <rp...@ib...>]

I'm developing an application to allow a customer to create custom forms to
be printed. In searching this group I found notes on drag and drop in a
listview, but can any control be draged as in GUI loft? I need to allow for
labels, text boxes and picture controls on a canvas defined by the printer
paper.
-- 
View this message in context: http://www.nabble.com/Drag-and-Drop-Controls-tp17582516p17582516.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] creating controls on the fly

[Jeremy W. <jez...@ho...>]

> I'm porting a web application back to a win32 app and have used win32-gui for
> my development for the past three years. However I have hit a road block in
> creating controls on the fly. My web application allows my users to define
> questions tied to a database field. As part of the question definition they
> can choose the control type (i.e,: text box, list box, radio button, check
> box). What is the best method to create these controls in a win32 window?

Hi,

Creating controls (or indeed windows) on the fly is straightforward. All you need to do is make sure your new control stays in scope and use the new event model (NEM) for handling the events. Using NEM will allow you to have a single event handler for each control type with each control having it's own state information with the UserData method.

Hope that is of some help,

Cheers,

jez. 
_________________________________________________________________

http://clk.atdmt.com/UKM/go/msnnkmgl0010000009ukm/direct/01/

[perl-win32-gui-users] creating controls on the fly

[rpnoble <rp...@ib...>]

I'm porting a web application back to a win32 app and have used win32-gui for
my development for the past three years. However I have hit a road block in
creating controls on the fly. My web application allows my users to define
questions tied to a database field. As part of the question definition they
can choose the control type (i.e,: text box, list box, radio button, check
box). What is the best method to create these controls in a win32 window?
-- 
View this message in context: http://www.nabble.com/creating-controls-on-the-fly-tp17444828p17444828.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

[perl-win32-gui-users] Problem with Labels not appearing

[Blomquist, Ron-P. <Ron...@gd...>]

I am having a problem where the Labels and Button labels are not
appearing on one system, but are appearing on another system.  Both
systems are Windows XP SP2, running cygwin/perl 5.8.8.  My sample code
is below:

---------------------------------
#!/usr/bin/perl -w  
# Perl script to show Problem with Labels

use Win32::GUI();

# Build the UI
$main = Win32::GUI::Window->new(
			-name 	=> 'Main', 
			-text 	=> 'Disappearing Labels',
			-top	=> 100,
			-left	=> 100,
			-width 	=> 450, 
			-height => 150);

$widgetX = 100;
$widgetY = 20;
$height = 22;

$directory = `pwd`;
chop $directory;

$directoryField = $main->AddTextfield(
			-name   => "DirectoryField",
			-text   => "$directory",
			-left   => $widgetX,
			-top    => $widgetY,
			-width  => 250,
			-height => $height,
			-prompt => ["Base Directory", -78],
	);
$main->AddButton(
			-name   => "BrowseButton",
			-text => "Browse ...",
			-left =>
$directoryField->Left()+$directoryField->ScaleWidth()+10,
			-top  => $widgetY,
	);
	
$widgetY += 20+$height;
$exitButton = $main->AddButton(
			-name   => "ExitButton",
			-text => "Exit",
			-ok   => "1",
			-left => $widgetX,
			-top  => $widgetY,
	);

# Center Exit Button
$exitButton->Left(($main->Width()-$exitButton->ScaleWidth())/2);

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

sub Main_Terminate {
	-1;
}

sub ExitButton_Click {
	exit 0;
}
---------------------------------

Looking in the archives, I found the article "Re: [perl-win32-gui-users]
Info From ActiveState on a problem"
http://sourceforge.net/mailarchive/forum.php?thread_name=BLU140-W366544E
50685B49801CAA182D00%40phx.gbl&forum_name=perl-win32-gui-users, which
appears to have similar symptoms to this problem, put I am not using
perlapp.  When I copied the sample manifest file into
"perl.exe.manifest", I was able to see the button text.  However, I
still cannot see the labels.  
Any help/suggestions are much appreciated!

Thanks!
Ron B

Re: [perl-win32-gui-users] right click on RichEdit control

[Robert M. <rob...@us...>]

2008/5/14 peter <gla...@ya...>:
> how can we enable the mouse right click on the Win32::GUI::RichEdit control,
> it is not enabled by default.


Yes it is {1].   (There is probably a better way of doing what you want [2].)

#!perl -w
use strict;
use warnings;

use Win32::GUI 1.05 qw(CW_USEDEFAULT);

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

my $re = $mw->AddRichEdit(
	-width  => $mw->ScaleWidth,
	-height => $mw->ScaleHeight,
	-onMouseRightUp => sub { print "Right Mouse Up!\n"; 1; },
);

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

Regards,
Rob.

[1] OK, so an onRightClick event is not supported.  The technical
difference is that onRightClick is only raised by controls that
generate a NM_CLICK notification, which RichEdit controls don't ever
raise.  A RichEdit control will raise a WM_NOTIFY notification, of
type EN_MSGFILTER for a mouse right click, if the event mask for the
control includes ENM_MOUSEEVENTS.  It could be considered a bug that
Win32::GUI does not set all this up and raise the onRightClick event
for RichEdit controls.

[2] If you want to get a right-click notification to display a context
menu, then it is better form to hook the WM_CONTEXTMENU message - this
is sent by the default message handlers if an unprocesssed right-click
is detected, or if the context-menu key (VK_APP, IIRC, to the right of
the space-bar) is pressed.

[perl-win32-gui-users] right click on RichEdit control

[peter <gla...@ya...>]

<table cellspacing='0' cellpadding='0' border='0' ><tr><td style='font: inherit;'><P>hi<BR>how can we enable the mouse right click on the Win32::GUI::RichEdit control, it is not enabled by default. i refer also to the same question 2 years ago by Octavian Rasnita: in:<BR><A href="http://www.mail-archive.com/per...@li.../msg04870.html">http://www.mail-archive.com/per...@li.../msg04870.html</A><BR>with no success.<BR>i have tried $Control-&gt;SetEventMask(ENM_MOUSEEVENTS);<BR>it does not work.<BR>thanks for any help</P>
<P>&nbsp;</P></td></tr></table><br>

      

[perl-win32-gui-users] Fw: win32::gui with perldb in EMACS

[Sylvain T. <syl...@co...>]

 CPerl mode, ALT-X perldb script.pl
 I can step through it no problem, I just never get the GUI.

> ----- Original Message ----- 
> From: "Geoffrey Spear" <geo...@gm...>
> To: <per...@li...>
> Sent: Thursday, May 08, 2008 7:05 AM
> Subject: Re: [perl-win32-gui-users] win32::gui with perldb in EMACS
>
>
>> On Thu, May 8, 2008 at 12:25 AM, Sylvain Thibault <syl...@co...> 
>> wrote:
>>> When debugging inside EMACS, the gui never appears.  Somehow win32::gui 
>>> is
>>> not happy with STDOUT being redirected to EMACS instead of a console
>>> window.  Perl tk gui programs work fine from inside EMACS.  Any 
>>> workaround ?
>>>
>>> Thanks.
>>
>> I've never had any problem at all running Win32::GUI programs from a
>> *shell* buffer (with cmd.exe as the shell).  Have you done any unusual
>> emacs customization?
>>
>> -------------------------------------------------------------------------
>> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
>> Don't miss this year's exciting event. There's still time to save $100.
>> Use priority code J8TL2D2.
>> http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
>> _______________________________________________
>> Perl-Win32-GUI-Users mailing list
>> Per...@li...
>> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>> http://perl-win32-gui.sourceforge.net/
> 

Re: [perl-win32-gui-users] win32::gui with perldb in EMACS

[Geoffrey S. <geo...@gm...>]

On Thu, May 8, 2008 at 2:56 PM, Glenn Linderman <pe...@ne...> wrote:
> On approximately 5/8/2008 6:05 AM, came the following characters from the
> keyboard of Geoffrey Spear:
>>
>> On Thu, May 8, 2008 at 12:25 AM, Sylvain Thibault <syl...@co...>
>> wrote:
>>>
>>> When debugging inside EMACS, the gui never appears.  Somehow win32::gui
>>> is
>>> not happy with STDOUT being redirected to EMACS instead of a console
>>> window.  Perl tk gui programs work fine from inside EMACS.  Any
>>> workaround ?
>>>
>>> Thanks.
>>
>> I've never had any problem at all running Win32::GUI programs from a
>> *shell* buffer (with cmd.exe as the shell).  Have you done any unusual
>> emacs customization?
>
>
> I marked the OPs message as interesting, because I thought I have had that
> problem too...
>
> Because the perl debugger didn't seem to work with emacs for GUI programs
> (or maybe I was too dumb to figure out how), I have mostly not used the perl
> debugger, but instead have used the old "printf" style of debugging, when
> needed...
>
> I was surprised, after you message to learn that I could run
> win32-gui-demos.pl from the shell window, so then I launched it in the
> debugger.  Doing a single "c" command takes me to the point in perl5db.pl
> where it says "Debugged program terminated".  No win32-gui-demos.pl window
> appeared on the screen (but it did when running from the *shell* buffer).
>
> So I don't know if the problem is:
>
> 1) my ignorance of the perl debugger
> 2) my ignorance of how to use the perl debugger with Win32-GUI
> 3) a limit in Win32-GUI
> 4) a limit in perldb
> 5) a limit in emacs
>
> Because of the plethora of choices there, and given the alternative of using
> brains and printf to compensate, I've never pursued figuring out whether or
> not it is possible to get this combination working.
>
> Help welcome.

I missed the OP's mention of "debugging" and didn't even think of
perldb, but it's definitely the case that Win32::GUI doesn't care
where the script's output is going (which isn't surprising because
AKAIK Win32::GUI itself never sends anything to STDOUT and if having
it redirected broke things that would be incredibly weird.)  Using
perl -d in a shell buffer seems to work ok, except that the debugger
stops the program if I close an MDI child window in my program.  The
GUI certainly appears, though.

Trying M-x perldb myself seems to consistently fail just because it's
unable to figure out what to do with a path containing spaces, which
is kind of annoying since every other emacs function dealing with
files works perfectly fine in those cases.

Re: [perl-win32-gui-users] win32::gui with perldb in EMACS

[Geoffrey S. <geo...@gm...>]

On Thu, May 8, 2008 at 12:25 AM, Sylvain Thibault <syl...@co...> wrote:
> When debugging inside EMACS, the gui never appears.  Somehow win32::gui is
> not happy with STDOUT being redirected to EMACS instead of a console
> window.  Perl tk gui programs work fine from inside EMACS.  Any workaround ?
>
> Thanks.

I've never had any problem at all running Win32::GUI programs from a
*shell* buffer (with cmd.exe as the shell).  Have you done any unusual
emacs customization?

Re: [perl-win32-gui-users] Info From ActiveState on a problem

[Jeremy W. <jez...@ho...>]

Hi,

I dont have perl instaled on this machine so I can't test this at the moment. I assume this is with PerlApp 7.x? Would you be able to create a bug report via:

http://sourceforge.net/tracker/?group_id=16572&atid=116572

and I'll take a look at it.

There is a simpler way to view and edit resources within an exe:

http://www.angusj.com/resourcehacker/

I use this to add manifests (for XP styles), bitmaps, string tables and icons into a PerlApp generated exe. As well as the GUI, it also has a command line interface which makes the build process much easyer.

Cheers,

Jeremy.


> I was having a problem where a program when compiled with PerlApp caused a
> radio button to be blacked out.
> It would only be blacked out if it was inside of a group box.
> http://www.nabble.com/file/p17023512/listbox.pl listbox.pl Attached is the
> program and the explanation from Activestate.
>
> David,
>
> This problem should win a prize. I almost never see such a long explanation
> and workaround from the developers. Warning- The workaround requires the
> Windows SDK. It was also tested on Vista, but XP should be much the same.
> Here
> goes:
>
> --------------------------------------------------------------------------
> I know "why" it happens, but can't suggest a good workaround right
> now: PerlApp will always bundle a manifest with the generated executable
> that directs it to use the themed versions of common controls when
> available. This manifest is embedded in the executable and cannot be easily
> removed / replaced. If you put the following text (without the
> "==============" divider lines) into a file called perl.exe.manifest right
> next to your perl.exe file in C:\Perl\bin then got the same effect with
> plain Perl:
>
> ==========================================================================
>   xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
>  name="mash"/>
> Comctl32 Test App 
> 
>  type="win32"
> name="Microsoft.Windows.Common-Controls" version="6.0.0.0"
> language="*"
> processorArchitecture="*"
> publicKeyToken="6595b64144ccf1df"
> />
> 
> 
> 
> ==========================================================================
>
> As a workaround, you can use mt.exe from the Windows SDK to replace the
> embedded manifest (I found no way to just remove the manifest). I used this
> manifest that tells Windows Vista to run "asInvoker", which means "do not
> try to elevate privileges":
>
> ==========================================================================
> 
>  manifestVersion="1.0">
>  name="Sample" type="win32" />
> Sample Manifest Test Application  xmlns="urn:schemas-microsoft-com:asm.v3">
> 
> 
>  
>   
> ==========================================================================
>
> I ran:
>
> perlapp -f listbox.pl
> mt -manifest my.manifest -outputresource:listbox.exe
>
> And after that listbox.exe behaved "normally" again. Unfortunately the
> Windows SDK is quite a huge download for achieving this.
> ------------------------------------------------------------------
>
> So there you go. I hope that helps. We are planning to make some improvement
> to how PDK handles manifests in the near future. It's mostly to better
> handle Vista UAC, but it should also make workarounds like this one easier
> to implement.
>
> The core issue is still in Win32-GUI, and you should probably get back to
> the Win32-GUI community and ask them to figure out why the module doesn't
> work nicely with the newer common controls enabled.
>
> Best regards,
>
>
>
>
>
> --
> View this message in context: http://www.nabble.com/Info-From-ActiveState-on-a-problem-tp17023512p17023512.html
> Sent from the perl-win32-gui-users mailing list archive at Nabble.com.
>
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
> Don't miss this year's exciting event. There's still time to save $100.
> Use priority code J8TL2D2.
> http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

_________________________________________________________________
Great deals on almost anything at eBay.co.uk. Search, bid, find and win on eBay today!
http://clk.atdmt.com/UKM/go/msnnkmgl0010000004ukm/direct/01/

[perl-win32-gui-users] win32::gui with perldb in EMACS

[Sylvain T. <syl...@co...>]

When debugging inside EMACS, the gui never appears.  Somehow win32::gui is not happy with STDOUT being redirected to EMACS instead of a console window.  Perl tk gui programs work fine from inside EMACS.  Any workaround ?

Thanks.

[perl-win32-gui-users] Window Transperancy

[K. S. <kri...@hg...>]

Hi,

I found this old post in this list about window transparency and that
Steve Loughran got it working, unfortunaly he didn't post his solution.

Does anyone know how to accomplish this and/or are you still around
Steve?

Thanks in advance.
/Kristian

[perl-win32-gui-users] Info From ActiveState on a problem

[dwinkjr <dav...@gm...>]

I was having a problem where a program when compiled with PerlApp caused a
radio button to be blacked out.
It would only be blacked out if it was inside of a group box.  
http://www.nabble.com/file/p17023512/listbox.pl listbox.pl Attached is the
program and the explanation from Activestate. 

David,

This problem should win a prize. I almost never see such a long explanation
and workaround from the developers.  Warning- The workaround requires the
Windows SDK. It was also tested on Vista, but XP should be much the same.
Here
goes:

--------------------------------------------------------------------------
I know "why" it happens, but can't suggest a good workaround right
now: PerlApp will always bundle a manifest with the generated executable
that directs it to use the themed versions of common controls when
available.  This manifest is embedded in the executable and cannot be easily
removed / replaced.  If you put the following text (without the
"==============" divider lines) into a file called perl.exe.manifest right
next to your perl.exe file in C:\Perl\bin then got the same effect with
plain Perl:

==========================================================================
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <assembly
xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity type="win32" processorArchitecture="*" version="6.0.0.0"
name="mash"/>
<description>Comctl32 Test App</description> <dependency>
   <dependentAssembly>
      <assemblyIdentity
           type="win32"
           name="Microsoft.Windows.Common-Controls" version="6.0.0.0"
           language="*"
           processorArchitecture="*"
           publicKeyToken="6595b64144ccf1df"
      />
   </dependentAssembly>
</dependency>
</assembly>
==========================================================================

As a workaround, you can use mt.exe from the Windows SDK to replace the
embedded manifest (I found no way to just remove the manifest).  I used this
manifest that tells Windows Vista to run "asInvoker", which means "do not
try to elevate privileges":

==========================================================================
<?xml version="1.0" encoding="utf-8" ?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" processorArchitecture="X86"
name="Sample" type="win32" />
<description>Sample Manifest Test Application</description> <trustInfo
xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="asInvoker" /> </requestedPrivileges>
</security> </trustInfo> </assembly>
==========================================================================

I ran:

    perlapp -f listbox.pl
    mt -manifest my.manifest -outputresource:listbox.exe

And after that listbox.exe behaved "normally" again.  Unfortunately the
Windows SDK is quite a huge download for achieving this. 
------------------------------------------------------------------

So there you go. I hope that helps. We are planning to make some improvement
to how PDK handles manifests in the near future. It's mostly to better
handle Vista UAC, but it should also make workarounds like this one easier
to implement.

The core issue is still in Win32-GUI, and you should probably get back to
the Win32-GUI community and ask them to figure out why the module doesn't
work nicely with the newer common controls enabled.

Best regards,





-- 
View this message in context: http://www.nabble.com/Info-From-ActiveState-on-a-problem-tp17023512p17023512.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] How to catch/process mouse clicks on a balloon?

[Robert M. <ro...@th...>]

2008/4/15 Ilya BANDORIN <Ily...@so...>:
>  Does anybody know if it is possible to execute a subroutine when user
>  clicks on a popup balloon of NotifyIcon? Now it just closes on mouse
>  click. Can't find any solution for this.

Yes, it's possilbe.  Look at the code for the NotifyIcon.pl sample
that is installed with Win32::GUI (try running the win32-gui-demos
script if you haven't before),  and check out the NIN_BALLOONUSERCLICK
message.  Post back if you need more assistance.

Regards,
Rob.

Re: [perl-win32-gui-users] Handling WM_MOUSEWHEEL or other arbitrary windows messages

[Robert M. <ro...@th...>]

2008/4/15 E. Westbrook <win...@we...>:
>  I have a Win32-GUI app with a scrollable window area, and it uses the
>  "-onScroll => \&scrollfn" model to handle manipulation of the scrollbar
>  (and other normal messages).  It's working well, such as it is.
>
>  Now I'd like to add handling for the WM_MOUSEWHEEL message so I can scroll
>  on mouse wheel events.  However, I don't see any "-onMouseWheel" or
>  similar event parameter in the supported events.

Jeremy pointed you in the right direction.

I've got some code that does this in some further articles in my
scrollbar series.  As soon as I get time I'll post the code.

Regards,
Rob.

Re: [perl-win32-gui-users] Help constructing a task-manager like listbox

[Robert M. <ro...@th...>]

2008/4/29 Eric M. Hillman <Eri...@dc...>:
> I'm trying to build a listbox that will have about the same contents as the
> "Applications" tab in Task manager, showing only those apps that have real,
> focusable windows.  I've been using Win32::GuiTest's "FindWindowLike" with
> empty search strings to get a list of windows, but even with a search depth
> of 1 I get a lot of what appear to be sub-windows of, say, Winamp or
> UltraEdit.  How do I filter those out, or is there a better way to be going
> about this in the first place?

I have code to do this elsewhere - I will post next time I am at the
right PC.  I think there are a couple of things to test for: Whether
the window is top-level or not, and whether the window is visible or
not.  Possibly some other things too.

> Also, a possibly brain-damaged question - is there a canonical way to change
> Windows handles (that is, the integers returned by, for example,
> Win32::GUI::GetWindow()) into Win32::GUI objects?  This seems like it ought
> to be simple but I can't even find a useful example of how to do it.

Most (but not all) methods that can be invoked on window objects can
also be called with a window object or a window handle as a first
argument:

my $v = $win->IsVisible();

or

my $v = Win32::GUI::IsVisible($win);
my $v = Win32::GUI::IsVisible($hwnd);

Regards,
Rob.

Re: [perl-win32-gui-users] Scrollbars

[Robert M. <ro...@th...>]

2008/4/30 Steven Vasilogianis <ste...@gm...>:
> I have been having some trouble getting my scroll bars to work well. I
>  have been modifying an example I found on Rob May's weblog
>  (http://blog.robmay.me.uk/search/label/perl-win32-gui).
>
>  Sample code is included below. The problems I am having are:
>
>  1) The ScrollRange() call does not seem to be doing anything - I can
>  scroll well beyond the range specified.

I don't think you can really.

>  2) SB_PAGE(UP|DOWN) events are not working at all

Because you never set the page size.

>  I am rather new to Win32::GUI and would appreciate any help.

Here's a minimally adapted version of your code that works for me.
There are easier ways to do this, and you really need to see the next
few examples in the series of scrollbar articles - I wrote the code at
the same time as the first 7 articles, but haven't had time to turn
them into full articles yet.  I will post to this list when I do.

Regards,
Rob.

#!perl -w
use strict;
use warnings;

use Win32::GUI 1.05 qw(
   SB_VERT SB_LINEUP SB_LINEDOWN SB_PAGEUP SB_PAGEDOWN
   SB_THUMBTRACK SB_THUMBPOSITION
);

my $window = Win32::GUI::DialogBox->new(
   -name => "scroll_test",
   -text => "Scroll Test",
   -size => [400, 400],
   -vscroll => 1,
   -onScroll => \&process_scroll,
);

my $v_pos = 5;
for ( 1..100 ) {
   $window->AddLabel(
       -name => "label$_",
       -text => "Label $_",
       -pos => [5, $v_pos],
       -size => [100, 30],
   );

   $v_pos += 35;
}

$window->ScrollRange(SB_VERT, 0, 5 + (35 * 99) + $window->label1->Height());
$window->ScrollPage(SB_VERT, $window->ScaleHeight());

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

sub process_scroll {
   my ( $self, $bar, $op, $pos ) = @_;

   my $prev_pos = $self->ScrollPos($bar);
   my $new_pos  = $prev_pos;

   if ( $op == SB_LINEUP ) {    # or SB_LINELEFT
       $new_pos -= 35;
   } elsif ( $op == SB_LINEDOWN ) {    # or SB_LINERIGHT
       $new_pos += 35;
   } elsif ( $op == SB_PAGEUP ) {      # or SB_PAGELEFT
       $new_pos -= $self->ScrollPage($bar);
   } elsif ( $op == SB_PAGEDOWN ) {    # or SB_PAGERIGHT
       $new_pos += $self->ScrollPage($bar);
   } elsif ( $op == SB_THUMBTRACK ) {
       $new_pos = $pos;
   } elsif ( $op == SB_THUMBPOSITION ) {
       $new_pos = $pos;
   }

   $new_pos = $self->ScrollPos( $bar, $new_pos );
   print "NP: $new_pos\n";

   if ( $bar == SB_VERT ) {
        my $v_pos = 5;
        for ( 1..100 ) {
           $self->{"label$_"}->Top($v_pos - $new_pos);

           $v_pos += 35;
        }
   }
   $self->Redraw(1);

   1;
}
__END__