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

RE: [perl-win32-gui-users] another menu question

[Peter E. <Pet...@at...>]

> Anyway, the Message shortcuts are stored (sorted) in a 
> Message menu.  When 
> they click on the message shortcut the text of the message is 
> placed in a 
> message box for them.  That part all works.  The user is able 
> to add their 
> own message shortcuts to the menu but they don't appear there 
> until the 
> program is restarted because the .ini file is read when the program 
> runs.  Is there a way to automatically add these shortcuts to 
> the menu 
> without having to restart the program?
> 


Depends on what you want to happen. Do you want their changes to be saved to
the .ini file or should the changes only last for that session. My
suggestion is that you localize the building of the menu after they've made
their edit (maybe a button event?) and store the shortcut/description
relationship in a hash and write (or don't write) it to the .ini after the
edit.

Another way to do it would be the brute force method, where they make the
changes, save to .ini, and then restart the script (exec script.pl).

[perl-win32-gui-users] another menu question

[Jonathan S. <jso...@al...>]

I am now able to create a menu based on text in a file thanks to Aldo's 
help.  Now that the menu items have been added, is there a way to modify 
the menu?

Here is what my program does.  It allows a user running Windows 2000 or NT 
to send a message to every computer running Windows 2000 or NT in a network 
environment (based on workgroup names).  I want the user to be able to add 
a list of message shortcuts to a menu.  For instance...

Shortcut name	Message
GODZILLA		Godzilla has been sighted downtown, run for your lives!
THUNDERSTORM	There is a severe thunderstorm watch.
TORNADO		There is a tornado on its way!


Anyway, the Message shortcuts are stored (sorted) in a Message menu.  When 
they click on the message shortcut the text of the message is placed in a 
message box for them.  That part all works.  The user is able to add their 
own message shortcuts to the menu but they don't appear there until the 
program is restarted because the .ini file is read when the program 
runs.  Is there a way to automatically add these shortcuts to the menu 
without having to restart the program?

Any help would be appreciated.


Jonathan 

Re: [perl-win32-gui-users] Creating menu's "on-the-fly"

[Jonathan S. <jso...@al...>]

Thanks Aldo.  It works now.

Jonathan

At 6/18/2002 05:35 PM, you wrote:
>Jonathan Southwick wrote:
> > I have a file that contains some information that is used to create a
>menu,
> > almost like a Recently Opened Files list.  I tried using the code from the
> > podview,pl sample but it is not working for me.  Can anyone see anything I
> > am doing wrong?
> >
> > [...]
> >        *$subname = eval(qq(
> >           sub {
> >                       print "got a click\n";   ## this is for testing, but
> > I don't get a click
> >              $MainWindow->Message->Text($MESSAGE{$key});
> >              return;
> >           }
> >        ));
>
>if you're using qq() to quote the sub, you need to escape sigils:
>
>                \$MainWindow->Message->Text(\$MESSAGE{\$key});
>
>NOTE: please forward this msg to the mailing list, because SourceForge
>is refusing to receive mail from me :-(
>
>cheers,
>Aldo
>
>__END__
>$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Fwd: Re: [perl-win32-gui-users] Creating menu's "on-the-fly"

[Jonathan S. <jso...@al...>]

>From: "Aldo Calpini" <dad...@al...>
>To: <per...@li...>,
>         "Jonathan Southwick" <jso...@al...>
>Subject: Re: [perl-win32-gui-users] Creating menu's "on-the-fly"
>Date: Tue, 18 Jun 2002 17:35:23 +0200
>X-Mailer: Microsoft Outlook Express 5.50.4807.1700
>
>Jonathan Southwick wrote:
> > I have a file that contains some information that is used to create a
>menu,
> > almost like a Recently Opened Files list.  I tried using the code from the
> > podview,pl sample but it is not working for me.  Can anyone see anything I
> > am doing wrong?
> >
> > [...]
> >        *$subname = eval(qq(
> >           sub {
> >                       print "got a click\n";   ## this is for testing, but
> > I don't get a click
> >              $MainWindow->Message->Text($MESSAGE{$key});
> >              return;
> >           }
> >        ));
>
>if you're using qq() to quote the sub, you need to escape sigils:
>
>                \$MainWindow->Message->Text(\$MESSAGE{\$key});
>
>NOTE: please forward this msg to the mailing list, because SourceForge
>is refusing to receive mail from me :-(
>
>cheers,
>Aldo
>
>__END__
>$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

[perl-win32-gui-users] Creating menu's "on-the-fly"

[Jonathan S. <jso...@al...>]

I have a file that contains some information that is used to create a menu, 
almost like a Recently Opened Files list.  I tried using the code from the 
podview,pl sample but it is not working for me.  Can anyone see anything I 
am doing wrong?

# define main menu
my $MainMenu = new Win32::GUI::Menu(
     "&File" => "File",
     "   >   E&xit" => "FileExit",
     "&Message" => "Message",
     "   >   &Add New" => "AddMessage",
     "   >   &Edit" => "EditMessage",
     "   >   &Delete" => "DeleteMessage",
     "   >   -" => 0,
     @MENUDEF,
     "&Tools" => "Tools",
     "   >   &Setup" => "Setup",
     "   >   -" => 0,
     "   >   Change &Password" => "ChangePassword",
     "&Help" => "Help",
     "   >   &About" => "About",
);


### I call this routine *before* I create my menu.
sub getMessageList {
    ### stuff deleted, this section just read in the file and created the has
    ### now I want to use the values in the hash for my menu.
    @MENUDEF = ();
    foreach $key (keys (%MESSAGE)) {
       print "$key is text: $MESSAGE{$key}\n";  ## this is only for testing 
purposes to make
						   ## sure I have the right information
       push(@MENUDEF," > $key");
       push(@MENUDEF,"Menu$key");
       $subname = "Menu${key}_Click";
       *$subname = eval(qq(
          sub {
          	            print "got a click\n";   ## this is for testing, but 
I don't get a click
             $MainWindow->Message->Text($MESSAGE{$key});
             return;
          }
       ));
    }
    return;
}


Jonathan

[perl-win32-gui-users] TreeView and Menu Event problems

[Ceres <ce...@ce...>]

Hello Folks..

Atlast i found what i realy wanted,
a GUI posibility for windows in Perl..(Not that VisualPerl shit)...
But, as long as i lose events it's not any funn programming...:(
I made a test script to show what i meen..
download is at http://ceressites.nl/Win32::GUI/test.zip

First problem is:
  1 Start test.cgi
  2 Enable the TreeView Object (Menu - Tree>Enable)
  3 now you'll see the menu event names are lost if you click again on one=
 of the menu items..
    But you still see the printed info when clicking a TreeView-node..(DOS=
 screen)

	Here i lose the Menu-Event-Names(after adding a TreeView Object in the=
 Main Window).
	Perl Error (Undefined subroutinge &main:: called at 'test.cgi' line=
 '*line*') when klicking a random menu item.

Second problem is:
  1 Start test.cgi
  2 Enable the TabStrip Object (Menu - Tab>Enable).
  3 Enable the TreeView Object (Menu - Tree>Enable).
  4 Now the menu event names are this time not lost if you click again on=
 one of the menu items..
    but now you'll see nothing printed when clicking a TreeView-node..(DOS=
 screen)
    so the events are not fired i gess..

	Here the TreeView-node Events are lost.(After adding a TreeView Object in=
 a TabStrip)

This is verry frustrating to work with, what am i doing wrong?
or do i have an incompleet version?
I'm running Win32::GUI version 0.0.665 on WinXP..

Greeting,
  Ceres..

[perl-win32-gui-users] Selecting multiple files with GetOpenFileName

[H C <key...@ya...>]

Is there a way to get GetOpenFileName to allow for
selecting multiple files, or is the current method of
allowing this to use Win32::FileOp?

Thanks


__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com

[perl-win32-gui-users] [ann/spam] AmphetaDesk v0.93 Available (uses Win32::GUI)

[Morbus I. <mo...@di...>]

Just wanted to spam the list. My "AmphetaDesk v0.93", which is
compiled with perl2exe and uses Win32::GUI is now available from:

    http://www.disobey.com/amphetadesk/

The source code is freely available as well (and is actually
shipped and interpreted at runtime with the Win32 binary).


-- 
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Tech: http://www.oreillynet.com/pub/au/779 - articles and weblog
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus

RE: [perl-win32-gui-users] Win2k/DeviceContext Problems?

[Piske, H. <Har...@bo...>]

I've successfully used DCs in both 98 and 2k. I found that the Arc function
fails in 98, but lines and multilines work fine. I'm guessing you have to
define pens and brushes first.

	$pen = new Win32::GUI::Pen
	(
		-style => 0,
		-width => 1,
		-color => 0x0000FF,
	);
	$dc = $Main->GetDC ();
	$dc->SelectObject ($pen);
	$dc->MoveTo (...
	$dc->LineTo (...
[...]
	$blue  = [ 51, 102, 255];
	$Pb5   = new Win32::GUI::Pen   (-color => 0x000000, -width => 5);
	$Bblu  = new Win32::GUI::Brush ($blue);
	@_ = (180, 200, 100, $pitch + $roll, 180 - 2 * $pitch);
	$dc->BeginPath();
	$dc->Arc (@_[0..3], 0);
	$dc->AbortPath();			# just to position pen on
arc
	$dc->SelectObject($Pb5);	# thick black line
	$dc->SelectObject($Bblu);	# blue background
	$dc->BeginPath();
	$dc->Arc (@_);			# this fails on windows 9x
	$dc->CloseFigure();		# but works fine under 2k
	$dc->EndPath();
	$dc->StrokeAndFillPath();


> -----Original Message-----
> From: Chris Ingrassia [mailto:ch...@sp...]
> Sent: Friday, June 14, 2002 06:31
> To: per...@li...
> Subject: [perl-win32-gui-users] Win2k/DeviceContext Problems?
> 
> 
> 
> 	Related to my last message - has anyone experienced any 
> problems using
> DeviceContexts
> on Windows 2000?  I tried using my DrawIcon and simple LineTo 
> code at home
> using the same version of ActivePerl and the PPM distribution 
> v556 and v650,
> and both worked great.  I got back here and ran the same code, only to
> discover it still doesn't work.  I suspect this means that 
> for whatever
> reason drawing to the Device Context in windows 2000 is 
> broken?  Can anyone
> fill me in on this?
> 
> thanks,
> 
> chris
> 
> 
> _______________________________________________________________
> 
> Don't miss the 2002 Sprint PCS Application Developer's Conference
> August 25-28 in Las Vegas - 
http://devcon.sprintpcs.com/adp/index.cfm?source=osdntextlink

_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] Win2k/DeviceContext Problems?

[Chris I. <ch...@sp...>]

	Related to my last message - has anyone experienced any problems using
DeviceContexts
on Windows 2000?  I tried using my DrawIcon and simple LineTo code at home
using the same version of ActivePerl and the PPM distribution v556 and v650,
and both worked great.  I got back here and ran the same code, only to
discover it still doesn't work.  I suspect this means that for whatever
reason drawing to the Device Context in windows 2000 is broken?  Can anyone
fill me in on this?

thanks,

chris

[perl-win32-gui-users] DrawIcon?

[Chris I. <ch...@sp...>]

Hello all -
 
 	I'm attempting to use the windows API function "DrawIcon" to draw one
of the stock icons (i.e. Warning, Information, Error, etc) into a dialog
box.  I'm having a heck of a time.  
 
   I'm loading the DrawIcon function using the Win32::API package, but
 the Win32::GUI  issue is that I can't seem to draw to the device
context (or at least get it to show up) of either my dialog or a
Win32::Graphic object.  I've tried just drawing a line using one of the
methods defined in Win32::GUI::DC, but it doesn't seem to show up
either.  So I'm thinking the root of my problem might be that I'm
attempting to draw incorrectly.  Unfortunately I don't have my original
code available, but it goes something like this:
 
 $Dialog = new Win32::GUI::DialogBox( -name => "DialogBox",
                                      -text => "DialogBox",
                                      -width => 400,
                                      -height => 400);
 
 [ add things to the dialog box ]
 
 and then [either this or my code to grab a stock Icon and call
 DrawIcon]:
 
 $Dialog->GetDC->MoveTo(0, 0);
 $Dialog->GetDC->LineTo(100, 100);
 $Dialog->GetDC->Validate;
 $Dialog->Show;
 Win32::GUI::Dialog;
 
 I've tried all sorts of other things as well, such as calling
 InvalidateRect and Update on my Dialog object, and creating a Graphic
 object and using it's GetDC method.  If anyone has any hints, they 
would be greatly appreciated.  
 
   The basic idea here is just to be able to use those icons in a dialog
 that's more complex than the standard DialogBox function, I need to
have a few text inputs and such, but I need those icons as well.  If
anyone knows of an easier way to do this, I'm all ears.
 
 Thanks a bunch,
 
 chris


-- 
--
  The shortest distance between two points is under construction.

    -- Noelie Alito

[perl-win32-gui-users] Beginner : How to Add Scrollable text Box?

[Hassan N. <hn...@is...>]

.\_....\_....\_.....\_....\_\_\_....\_\_\_.........\_\_\_ 
..\_.....\_....\_\_..\_....\_...\_....\_...............\_...\_ 
....\_\_\_\_...\_ \_.\_....\_\_\_....\_......\_\_...\_\_\_ 
......\_......\_...\_..\_\_....\_....\_...\_......\_......\_...\_
........\_..... \_...\_.....\_....\_....\_...\_\_\_\_......\_..
\_ 
Hi Every 
 I want to make a textbox scroll when the number of lines exceed
the height of that box .
Can anyone help me in solving this prblem ?
thanx for those will replay and, those will ignore this message
8-)=
__________________________

Visit IslamWay Radio Online
http://www.islamway.com
--------------------------------------
Get your free email @ISLAMWAY.NET
http://bareedy.islamway.com
-> 15 Mbytes free space
-> POP & SMTP support
-> Full Arabic Support

Re: [perl-win32-gui-users] Windows help (winhlp32)

[Andrea M. <mae...@fr...>]

carollyne courtney wrote:
> 
> I'm trying to lauch a windows help file(.hlp) from a
> Win32::GUI::Menu as follows:
>

try this:

sub helpme_Click {

	my $path=$_[0];

	my $whelp = new Win32::API ('user32', 'WinHelp', [N,P,I,N], I) or die
'can\'t find WinHelp function';

	my $string="$path\\winnt.hlp";
	$whelp->Call (0, $string, 3, '');

	return 0;
}

-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

RE: [perl-win32-gui-users] Rich edit: formatted text lost when sc rollled

[Straub, P. (Peter) <st...@op...>]

I already saw this suggestion somewhere in the list archives
(probably posted by you), but it did not work for me.

Forcing the RichEdit control to refresh [$RichEdit->InvalidateRect(0)]
restored the contents but at the same time restored it to an
unscrolled state (even if the contents had been scrolled).

Btw I managed to migrate my application from version 558 to 655
and for me the problems with RichEdit controls persisted :-(

Peter

-----Original Message-----
From: Jonathan Southwick [mailto:jso...@al...] 
Sent: Montag, 10. Juni 2002 14:31
To: 'per...@li...'
Subject: Re: [perl-win32-gui-users] Rich edit: formatted text lost when
scrollled


What finally worked for me was to add:

## $MainWindow is the window that has my RichEdit control.
$MainWindow->InvalidateRect(0);

I hope this works for you as well.

Jonathan


At 6/6/2002 09:56 AM, Straub, Peter (Peter) wrote:
>Hi all,
>
>like other contributors to this list I experienced
>refresh problems with rich edit controls (Win32-GUI 558). Everything 
>displays ok but when the contents is scolled, especially some chars I 
>add this way:
>
>   $wRichEdit->Select($iOffset, $iOffset+1);
>   $wRichEdit->ReplaceSel(chr(0x3A));
>   $hFormat{-color} = hex("FF0000");
>   $wRichEdit->Select($iOffset, $iOffset+1);
>   $wRichEdit->SetCharFormat(%hFormat);
>
>I'm afraid I can not recover from this with the "update" solution that 
>has been suggested so far, at least I'm not aware of any usable event 
>to trigger it with.
>
>Anything wrong with my code?
>All Suggestions greatly appreciated. Thanks!
>
>Peter
>
>P.S.:
>I already thought about migrating to 665, but then I
>need subclassing to get mouse events from the rich edit controls and 
>this doesn't seem to work ... ?
>
>_______________________________________________________________
>
>Don't miss the 2002 Sprint PCS Application Developer's Conference 
>August 25-28 in Las Vegas - 
>http://devcon.sprintpcs.com/adp/index.cfm?source=osdntextlink
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list 
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


_______________________________________________________________

Don't miss the 2002 Sprint PCS Application Developer's Conference August
25-28 in Las Vegas -
http://devcon.sprintpcs.com/adp/index.cfm?source=osdntextlink

_______________________________________________
Perl-Win32-GUI-Users mailing list Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] Changing a the topmost Window property

[Guillem C. W. <vac...@es...>]

I would like to change the property "topmost" of a Window which is =
declared with -topmost =3D>1

I have tried this two sentences:

$WindowVis->Change($WindowVis, -topmost =3D>0);
$WindowVis->Change(-topmost =3D>0);

but no results...

What's wrong ?

Guilem

Re: [perl-win32-gui-users] Rich edit: formatted text lost when scrollled

[Jonathan S. <jso...@al...>]

What finally worked for me was to add:

## $MainWindow is the window that has my RichEdit control.
$MainWindow->InvalidateRect(0);

I hope this works for you as well.

Jonathan


At 6/6/2002 09:56 AM, Straub, Peter (Peter) wrote:
>Hi all,
>
>like other contributors to this list I experienced
>refresh problems with rich edit controls (Win32-GUI 558).
>Everything displays ok but when the contents is scolled,
>especially some chars I add this way:
>
>   $wRichEdit->Select($iOffset, $iOffset+1);
>   $wRichEdit->ReplaceSel(chr(0x3A));
>   $hFormat{-color} = hex("FF0000");
>   $wRichEdit->Select($iOffset, $iOffset+1);
>   $wRichEdit->SetCharFormat(%hFormat);
>
>I'm afraid I can not recover from this with the "update"
>solution that has been suggested so far, at least I'm not
>aware of any usable event to trigger it with.
>
>Anything wrong with my code?
>All Suggestions greatly appreciated. Thanks!
>
>Peter
>
>P.S.:
>I already thought about migrating to 665, but then I
>need subclassing to get mouse events from the rich edit
>controls and this doesn't seem to work ... ?
>
>_______________________________________________________________
>
>Don't miss the 2002 Sprint PCS Application Developer's Conference
>August 25-28 in Las Vegas - 
>http://devcon.sprintpcs.com/adp/index.cfm?source=osdntextlink
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] System Administrator

[FARRINGTON, R. <rya...@ci...>]

Here is your solution
Win32::PerfLib 


I've used it in the past and it works great for the applications I'm using
it in....

-----Original Message-----
From: rch...@li... [mailto:rch...@li...]
Sent: Sunday, June 09, 2002 11:32 AM
To: per...@li...
Subject: [perl-win32-gui-users] System Administrator



I am a novice in Perl. pardon me if this is too basic.. 

i am trying to get the PerfMon statistics such as CPU utilization, Memory
Utilization. 

how can i do this? 


ravi 

RE: RE: [perl-win32-gui-users] no events when tree view is tabstr ip child (665)

[Straub, P. (Peter) <st...@op...>]

Stupid enough I didn't realize it also works as you suggest.
Thanks a lot!

Peter

-----Original Message-----
From: Johan Lindstrom [mailto:jo...@ba...]=20
Sent: Freitag, 7. Juni 2002 11:05
To: per...@li...
Subject: Re: [perl-win32-gui-users] no events when tree view is =
tabstrip
child (665)


At 10:31 2002-06-07 +0200, Straub, Peter (Peter) wrote:
>I try to migrate an existing script from win32-gui
>558 to 665. One show-stopper I came upon was that
>no NodeClick events are generated by a tree view
>control if it is child of a tab strip control.

What do you gain by it being a child of a tab strip control?

Try adding it to the window control instead and see if that works out
better.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Ovid's Journal: Bob and the dog"
http://use.perl.org/~Ovid/journal/2204
dmoz (1 of 8): /Computers/Programming/Languages/Perl

[perl-win32-gui-users] Windows help (winhlp32)

[carollyne c. <car...@ho...>]

I'm trying to lauch a windows help file(.hlp) from a
Win32::GUI::Menu as follows:

sub helpme_Click
{
	print "Trying to help...\n";
	system("winnt.hlp");
	return 0;
}

But the main prog window 'dies' until the help file is terminated.
Any idea how I can launch the help file as an external process without 
affecting the main Win32::GUI program window?

Thanks



_________________________________________________________________
MSN Photos is the easiest way to share and print your photos: 
http://photos.msn.com/support/worldwide.aspx

Re: [perl-win32-gui-users] System Administrator

[H C <key...@ya...>]

Mark,

I checked out systeminfo...it only does memory and
processor info...not PerfMon...


--- Mark Di Nicola <amo...@ih...> wrote:
> rch...@li... wrote:
> > I am a novice in Perl. pardon me if this is too
> basic..
> > 
> > i am trying to get the PerfMon statistics such as
> CPU utilization, 
> > Memory Utilization.
> > 
> > how can i do this?
> > 
> > 
> > ravi
> > 
> 
> check out win32::systeminfo on cpan.
> 
> 
>
_______________________________________________________________
> 
> Don't miss the 2002 Sprint PCS Application
> Developer's Conference
> August 25-28 in Las Vegas -
>
http://devcon.sprintpcs.com/adp/index.cfm?source=osdntextlink
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com

Re: [perl-win32-gui-users] System Administrator

[Mark Di N. <amo...@ih...>]

rch...@li... wrote:
> I am a novice in Perl. pardon me if this is too basic..
> 
> i am trying to get the PerfMon statistics such as CPU utilization, 
> Memory Utilization.
> 
> how can i do this?
> 
> 
> ravi
> 

check out win32::systeminfo on cpan.

[perl-win32-gui-users] System Administrator

[<rch...@li...>]

I am a novice in Perl. pardon me if this is too basic..

i am trying to get the PerfMon statistics such as CPU utilization, Memory
Utilization.

how can i do this?


ravi

[perl-win32-gui-users] ToolTips example?

[Mark W. <ma...@il...>]

Does anyone have an example of tooltips being used wth a toolbar (not a 
notify Icon)?

even an example of a valid tooltips constructor would be great... the 
documentation is almost blank on the subject.

Cheers!

Mark

RE: [perl-win32-gui-users] subclassing in build 665?

[Piske, H. <Har...@bo...>]

This is pretty much the reason why I did not go 665 yet. I saw it mentioned
somewhere that subclassing fell victim to the NEM (new event model)
altogether - if you need events, which is what subclassing achieves rather
poorly in 558, you need to take on the NEM, which does the job much better.
The problem for me is that I've been using subclassing extensively and don't
want to rewrite everything.

To be honest, instead of 665, I tried Tk for a current project and I must
say, It's not perfect, either, but it does have its strong points. The main
reason for me to switch for this particular program was a) I may have to
deliver a linux version and b) some graphics I need - the arc function of
GUI works under win2k, but not 98. And what I found is that, oddly, Tk is
much faster with those graphics.

> -----Original Message-----
> From: Straub, Peter (Peter) [mailto:st...@op...]
> Sent: Wednesday, June 05, 2002 01:36
> To: 'per...@li...'
> Subject: [perl-win32-gui-users] subclassing in build 665?
> 
> 
> Hi all,
> 
> I try to migrate an existing application from 558
> to 665 and I am stuck because subclassing doesn't
> (seem to) work in this version...
> I subclass rich edit controls to make them mouse-
> and keystroke-aware:
> 
> my $EditorClass = new Win32::GUI::Class(
>   -name => "Editor",
>   -extends => "RichEdit",
>   -widget => "RichEdit",
> );
> 
> my $redAllMessages = $winMain->AddRichEdit(
>   -class     => $EditorClass,
>   -name     => "RedMessages",
>   -text     => "",
>   -left     => 0,
>   -top      => 0,
>   -addstyle => WS_TABSTOP |
>                WS_CHILD |
>                WS_VISIBLE |
>                WS_HSCROLL |
>                WS_VSCROLL |
>                ES_LEFT |
>                ES_READONLY |
>                ES_MULTILINE,
>   -addexstyle  => WS_EX_CLIENTEDGE,
> );
> 
> This works for "LButtonDown" and "MouseMove"
> events and helps to implement sorts of "links"
> and a custom cursor shape.
> Is there a way to achieve this in version 665?
> Should I wait for 772 :)?
> Please advise...
> 
> Cheers-
> Peter
> 

Re: [perl-win32-gui-users] no events when tree view is tabstrip child (665)

[Johan L. <jo...@ba...>]

At 10:31 2002-06-07 +0200, Straub, Peter (Peter) wrote:
>I try to migrate an existing script from win32-gui
>558 to 665. One show-stopper I came upon was that
>no NodeClick events are generated by a tree view
>control if it is child of a tab strip control.

What do you gain by it being a child of a tab strip control?

Try adding it to the window control instead and see if that works out better.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Ovid's Journal: Bob and the dog"
http://use.perl.org/~Ovid/journal/2204
dmoz (1 of 8): /Computers/Programming/Languages/Perl