[perl-win32-gui-users] Windows not displaying?
Hello
I'm looking at adding a GUI to several of my Perl scripts. I've
been trying to use Win32::GUI, but my windows will never display.
I've tried several sample scripts I've found on the net and they
won't work either. i.e., a simple "Hello World" test like this
won't work for me (from
http://jeb.ca/perl/win32-gui-docs/index.pl/Win32-GUI-HOW-TO-2):
-
use Win32::GUI;
$main = Win32::GUI::Window->new(
-name => 'Main',
-width => 100,
-height => 100,
);
$main->AddLabel(-text => "Hello, world", -name => 'label');
$main->Show();
Win32::GUI::Dialog();
sub Main_Terminate {
-1;
}
-
Any ideas why? The window does appear to be created. I can open
Spy++ (DevStudio 7) and it shows the "Hello World" window in the
list. But the window does not show up on my display.
I've tried Win32::GUI v.558, v.99_ and v1.0. I'm using ActivePerl
v5.8 and win2k pro. Any ideas?
thanks
--Dan
Re: [perl-win32-gui-users] Windows not displaying?
Very odd - I just ran that example and it displayed for me. (XP perl 5.6,
win32::gui v1.0).
What sub version of 5.8 are you using?
Cheers,
jez.
- Original Message -
From: <[EMAIL PROTECTED]>
To:
Sent: Friday, January 07, 2005 8:04 PM
Subject: [perl-win32-gui-users] Windows not displaying?
Hello
I'm looking at adding a GUI to several of my Perl scripts. I've
been trying to use Win32::GUI, but my windows will never display.
I've tried several sample scripts I've found on the net and they
won't work either. i.e., a simple "Hello World" test like this
won't work for me (from
http://jeb.ca/perl/win32-gui-docs/index.pl/Win32-GUI-HOW-TO-2):
-
use Win32::GUI;
$main = Win32::GUI::Window->new(
-name => 'Main',
-width => 100,
-height => 100,
);
$main->AddLabel(-text => "Hello, world", -name => 'label');
$main->Show();
Win32::GUI::Dialog();
sub Main_Terminate {
-1;
}
-
Any ideas why? The window does appear to be created. I can open
Spy++ (DevStudio 7) and it shows the "Hello World" window in the
list. But the window does not show up on my display.
I've tried Win32::GUI v.558, v.99_ and v1.0. I'm using ActivePerl
v5.8 and win2k pro. Any ideas?
thanks
--Dan
---
The SF.Net email is sponsored by: Beat the post-holiday blues
Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek.
It's fun and FREE -- well, almosthttp://www.thinkgeek.com/sfshirt
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
RE: [perl-win32-gui-users] Windows not displaying?
See comments in line
> I'm looking at adding a GUI to several of my Perl scripts.
> I've been trying to use Win32::GUI, but my windows will never display.
> I've tried several sample scripts I've found on the net and
> they won't work either. i.e., a simple "Hello World" test
> like this won't work for me (from
> http://jeb.ca/perl/win32-gui-docs/index.pl/Win32-GUI-HOW-TO-2):
>
> -
> use Win32::GUI;
> $main = Win32::GUI::Window->new(
> -name => 'Main',
> -width => 100,
> -height => 100,
> );
> $main->AddLabel(-text => "Hello, world", -name => 'label');
> $main->Show(); Win32::GUI::Dialog();
Get used to using:
$main->Show();
$main->Enable();
> sub Main_Terminate {
> -1;
> }
> -
>
>
> Any ideas why? The window does appear to be created. I can open
> Spy++ (DevStudio 7) and it shows the "Hello World" window in the
> list. But the window does not show up on my display.
>
> I've tried Win32::GUI v.558, v.99_ and v1.0. I'm using ActivePerl
Are you 100% sure you have tried .99 and 1.0? I have had some issues
with ppm not always updating things properly in some cases. Try:
perl -MWin32::GUI -e "print $VERSION";
And see if you get .558. If so, us ppm to remove all the Win32::GUI
stuff, verify by using the command above, and the do a fresh ppm install
of v1.0.
> v5.8 and win2k pro. Any ideas?
>
>
> thanks
> --Dan
>
>
> ---
> The SF.Net email is sponsored by: Beat the post-holiday blues
> Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek.
> It's fun and FREE -- well, almosthttp://www.thinkgeek.com/sfshirt
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
Re: [perl-win32-gui-users] Windows not displaying?
[EMAIL PROTECTED] wrote: > > Hello > > I'm looking at adding a GUI to several of my Perl scripts. I've > been trying to use Win32::GUI, but my windows will never display. Ok, got it figured out. I tried on a few other computers in the office and it was fine. I'm using TextPad and have a macro set up to run Perl and pass it the current file as a parameter. That's how I was running it and the window doesn't show up doing it this way. If I run it from a command line, it works fine though. thanks --Dan
[perl-win32-gui-users] Listview Control functionality - Drag n Drop
Hi All, Have been experimenting with the Listview control, and noticed several features are TBD... Of course these are the ones I want to use... I wish to use the listview control in "Icon" view (see http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconusinglistviewcontrol.asp for diff examples of how the control can be used). Although -report and -list are in the constructors class specific options, you can also set the style by using "View" (which is currently TBD), you can set the view mode using: $lvwChart->View(0); # Set View to LargeIcon The View Properties are: 0 - lvwIcon 1 - lvwSmallIcon 2 - lvwList 3 - lvwReport At the end I have included an example, however for this mode to become more useful, you need to be able to move the item around by dragging them to a new location. For example - objects in MS Visio. This requires the use of LVN_BEGINDRAG or LVN_BEGINRDRAG. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/listview/notifications/lvn_begindrag.asp Providing then, if the left or right mouse button is depressed and moved over ListItem, typically four pixels in any direction, the real listview sends its parent window a LVN_BEGINDRAG or LVN_BEGINRDRAG notification message, respectively. It then begins repositioning the ListItem under the cursor. The ListView does not respond to LVN_BEGINRDRAG, and provides no right button item dragging facility. Once either notification has been processed and dragging has begun, the ListView stops raising its MouseMove event, until the respective button is released. There are quite a few other Methods that appear on the MSDN site: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/listview/listview_message_processing.asp What is required or is there anything that prevents these methods being implemented (barring time, hardwork and knowledge) ? Chris Wearn # = The example # # Listview Large Icon example # use Win32::GUI; use Win32::GUI::BitmapInline (); $bmpComputer = new Win32::GUI::BitmapInline( q( Qk02DDYoICABABgMAAATCwAAEwsA /v7++fn65eTkyMDBsqKiqJKSo4uNoYmLnYODnYmKqJyc vLi61NPU7Ozt/Pz8/v7+ +/v72dLTrpeXqYWFuJyeyLW2z7y90bu80Li5zrS0yqytvJaYqH5/lnFwloeIvLq76Onq/f39 9PPzuJ6fuZ6g1cvM3tvb3NjZ 3NXV2tHR2MzM18jI1cLCwZ6fwZma0rGz0qytv5KSmnFxl4qM1dXW/Pz8 +ff3u52e0sfI4+fn4ePk4OHh3t7f29rZ2tTU2dHR18vMu5SWtpaY noKCnHBys4aIzqam0KOkq3p6lISF4ODh/v7+ 3czNz8HB5+zt5ubn6ejo6enp5ebm4OHh29ra3NjX0L6/wpqb2NLTnZGSnouLmXd3rH+A1auqzJyc o3V2v7u8+/v70Li44N7d6+zt7u7u8fHw8PDw 7Ozs5ubn39/g3dzcy7W1y6enzru7oH9/poaGpoOCso2N0Kio0KOjtYODu7Gy+vv7 2cLD4d3d7/Hy9vb0/P37+vr58fDw6Ojp4eLi3Nzcxqam0K+w xaWmqHt5rn5+rXl4uoiI0Kqq0aKjtoSEzsfH/f7+ 8efn18bG8fX1+Pj3/fr7/f//9fn56eno4ePj2dbXw5ia07GxvIiJs3V1tXd2s3JyvoaH0a2t ypubu5qa8/Pz/v7+/v7+6dra4dbW7+zt0qms 0q2w4dHS6ezr5Ovr1srJxZaX06qqtnR0tG9xs25wsmtrwIiKzaSkwpub7+zs/v7+ /v7+9Ozs1ri5u31+wIOEwYiPv46Uy7O1yaamy5ub w4qLsGlqr2hpr2dorWRjtHx80by8+Pf3 6dnavIGC0Zpw4rmU1KWcxI6VuXqCtXJ1rWJhrGJfrGNgrGFfqFxbrpGS 9fX1/v7+3sfJ wYaAy41D1Jg32qRU3q5y27CUzJuYuHh+rGNopldUpFJPnExJsZ2d+Pn5 /f390K+zxYx605lG2KBF2Z9C2aA+3KVG 4K5f37OC0aGPv4aKrWRqm0tLmoeI0dPT8vPz/f39/v7+ 9/T0xJykyJBy3KRD3adI36hK36pK36tK4KpI4atH47BU4bFn2qyDyZKH sHN2mW91opKTw8HC6uvs/f397+jo wpacy5Zm4qxF4q1O47BQ5LFR5bNT5LJU5bNV5LJS5LFQ5LFO5LJa361u0Zd5u3p2m2VoqJqa8vLz 4tbXxZud0KBi5rNP5bRX5rZZ6Llb 6bla6Llb6bpc6bpc6blb57dZ5rZW5rVS5rNR5bJYzYlipoGB7e/v /fz807/DxZyX2Kle6rlX6rpd671f7b9i7MBi7MBi7cBi7cFj7cBi7L5h 67xf6bpd6Lda67tUzY5Wq4qL8vPz+vj5 ya+1wp2S4bRb7sFf7sJk78Rn8MZq8MZr8cds8sds8cds8cdr8MVo78Nm7cFk671g78JbxoVdsZaZ 9vf38e7uxquxxaCI6b5h8cZn8Mdr8spu 9Mty9M1z9M5z9c909c509M1z8stw8slt8cdr78Rn8cVhvn5gtqOm+fr6 4trbyK60x6R+7sZo88tv9M109tB49tN899N+99R/99V/99R/99R+ 9tF69tB29M1z9Mxu78NpuHpkvrK1+/z8/v7+ 2c7QybO3z6x29s1v9tB299J899WC+NaH+NeL+NeN+NeM+NeN+NiL99aH+NSA9tN799J27L9vsnVm yMDC/f39/
