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

[perl-win32-gui-users] Context Menus

[Marcus <li...@wo...>]

Does anyone know how to create a right-click context menu for the main
window?

I need the context menu to appear anywhere in the main window. Is it
possible to just capture right-click actions in general, and then get
detailed. You can create keyboard actions/bindings, but what about
mouse actions other than those predefined?

I tried MainWindow_RightClick just to see, since there are other
undocumented events around too, but that didn't respond.


Thanks,

Marcus

Re: [perl-win32-gui-users] ListView MultiSelect

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

I should have tried it before I sent out the message because it doesn't=20
seem to be working.

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

At 11/15/2001 08:36 AM, you wrote:
>At 11/14/2001 05:06 PM, you wrote:
>>Is there a way to prevent a ListView in details mode from allowing the=20
>>user to select more than one line?
>
>Add this to your ListView definition:
>
>         -multisel  =3D> 0,
>
>
>Jonathan Southwick
>jso...@al...
>Technical & Network Services
>Allegheny College, Meadville, PA 16335
>(814) 332-2755
>
>>Thanks
>>
>>=A7Flame=A7
>>
>>_________________________________________________________________
>>Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
>>
>>
>>_______________________________________________
>>Perl-Win32-GUI-Users mailing list
>>Per...@li...
>>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] ListView MultiSelect

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

At 11/14/2001 05:06 PM, you wrote:
>Is there a way to prevent a ListView in details mode from allowing the=20
>user to select more than one line?

Add this to your ListView definition:

         -multisel  =3D> 0,


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

>Thanks
>
>=A7Flame=A7
>
>_________________________________________________________________
>Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Some basic questions

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

1) How can I have a perl routine running as the master program with the 
Window just popping up as a dialog box and once I have modified the 
appropriate parameters, it just disappears and the command is given back to 
the background perl script ?
You can have any number of windows defined and controls added. A window only
shows after you issue the $Winvar->Show() method. After that, it just sits
on your monitor. If you want it to interact with the user, you either need
to go Win32::GUI::Dialog() once or Win32::GUI::DoEvents() periodically.

If you want to take a window off the screen and reuse it later, your
Window_Terminate event handler (subroutine) must not return -1. Returning 1
or -1 from _Terminate (should be any non-zero value, but in fact I found 2
to misbehave) destroys all your controls, even though they might still be
visible on the screen. Go $Winvar->Hide() and return 0 - preventing the
default action of destroying the window when control passes back from the
_Terminate event handler. To Hide() from elsewhere, return 1 - or don't
return at all. Later, you can simply Show() and Dialog() again. But see
below on how to end the message loop if you return 0 from _Terminate.

2) How can I pass control objects as parameters to the perl subroutines, if 
i wish to come up with a generic GUI of myy own being called as a 
subroutine from within the main perl program ?
You can create windows and their controls at any time. No problem creating
controls dynamically, even after the window has been on the screen, i.e.,
from within an event handler. In that case, have your _Terminate handler
return -1 and destroy the window. Next time you need another window, create
one. That does leak some memory, but nothing serious. If your program is
designed to run forever, you must get more inventive - reuse the window and
all the controls you ever needed, only hiding those you don't currently want
seen; for each new control check a hash to see which one to reuse and only
create another when there is none that fits and so on. But again, this
should not be necessary for a program with a reasonable running time.

3) Can I have two main windows open at a time ?
Yes. One Dialog() call (or a loop with one DoEvents() call) passes control
to the message loop - that is, all messages from all windows created within
this perl session and task get processed and the appropriate event handler
subs called. You just need to keep track of your termination: if you return
-1 from ANY event handler, the message loop terminates and control passes
back to your perl script after the Win32::GUI::Dialog() call. If you still
have another window, you need to call Dialog() again. If you don't have
another window and do Dialog(), your script hangs due to lack of events that
could terminate the message loop.

It is important to bear in mind how control is passed around, especially
with more than one window active or with your intention of showing and
hiding windows. Win32::GUI::Dialog() passes control to the message loop
(inside the Win32::GUI xs C++ code). From there, the event subs get called.
If one of them returns -1, the message loop returns and script execution
resumes after the Dialog() line. This clearly implies, if one of your event
handlers does a lot of lengthy stuff, your window appears to be frozen,
because control does not pass back to the xs and no other event subs get
called. There is an easy solution to this: call Win32::GUI::DoEvents() from
within the bit of script that runs so long. Even if it is from within the
event handler or a subroutine called from the event handler. The only trap
is, beware of re-entering the same bit of script. Here's an example:

# create window here
$button1_active = 0;
$return_value = 1;
Win32::GUI::Dialog();
print "done.\n";
exit;

Button1_Click
{
	return 1 if $button1_active;
# in case the user clicked on Button1 again
	$button1_active = 1;
	for (0..1000)
	{
		print "$_ ";
		Win32::GUI::DoEvents();
# this gives the user a chance to click Abort
		last unless $button1_active;
# quit loop if (s)he did
	}
	$button1_active = 0;
	return $return_value;
}
Abort_Click
{
	$button1_active = 0;
	return 1;
}
Window_Terminate
{
	Abort_Click();
# don't forget that or the loop continues after the window is closed and
destroyed
	$return_value = -1;	# this also returns -1 from the event sub!!
}

business as usual if the script was not running, because the implicit return
-1 destroys the window and stops the message loop, which was started by
Win32::GUI::Dialog().

If the script was running, control passes back out of the inner message
loop, which was started by Win32::GUI::DoEvents() inside the Button1_Click
handler. The perl loop there finds the flag $button1_active zero and
terminates. If this sub now would return 1 instead of the $return_value -1,
the outer message loop, invoked by Win32::GUI::Dialog(), would not terminate
- with the window already destroyed, because _Terminate did not return 0,
the script would effectively hang, receiving no more messages.

One more note: if you $Winvar->Hide() your window inside an event handler
and then start your "background" script (this would in fact be a foreground
script, because you only have one task here), your window would still be
visible. Call Win32::GUI::DoEvents() one more time after Hide() to have the
internal INVALIDATE and PAINT messages take the window off the screen. And
don't forget to Show() the window when your script finishes or you won't
receive any more messages except timer ticks - not even Window_Activate,
because you can't activate a hidden window.

Feel free to come back with more basic questions, but I won't usually sit
around with nothing else to do ;-)

Re: [perl-win32-gui-users] Some basic questions

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

Hi Faraz,

This list is really not the forum for Tk-related questions.  The Win32 GUI list
is for users of the module Win32::GUI (a native Windows GUI, rather than a Tk
GUI).  You should look at the newsgroup comp.lang.perl.tk and direct your
questions there.

http://www.faqs.org/faqs/by-newsgroup/comp/comp.lang.perl.tk.html

best wishes,

M


Faraz Faheem wrote:

> Right now I have developed a GUI in which the Main Window is the Master
> Control with the background perl scripts running in the subroutine calls
> associated with the GUI controls. The Mainloop() routine just waits for the
> actions corresponding to the GUI.
>
> 1) How can I have a perl routine running as the master program with the
> Window just popping up as a dialog box and once I have modified the
> appropriate parameters, it just disappears and the command is given back to
> the background perl script ?
>
> 2) How can I pass control objects as parameters to the perl subroutines, if
> i wish to come up with a generic GUI of myy own being called as a
> subroutine from within the main perl program ?
>
> 3) Can I have two main windows open at a time ?
>
> Any sources of information, comments and feedbacks are welcome.
>
> Regards,
>
> Faraz
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] ListView MultiSelect

[Ultimate R. D. <scc...@ho...>]

Is there a way to prevent a ListView in details mode from allowing the user 
to select more than one line?

Thanks

§Flame§

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp

[perl-win32-gui-users] Some basic questions

[Faraz F. <ff...@qu...>]

Right now I have developed a GUI in which the Main Window is the Master 
Control with the background perl scripts running in the subroutine calls 
associated with the GUI controls. The Mainloop() routine just waits for the 
actions corresponding to the GUI.

1) How can I have a perl routine running as the master program with the 
Window just popping up as a dialog box and once I have modified the 
appropriate parameters, it just disappears and the command is given back to 
the background perl script ?

2) How can I pass control objects as parameters to the perl subroutines, if 
i wish to come up with a generic GUI of myy own being called as a 
subroutine from within the main perl program ?

3) Can I have two main windows open at a time ?

Any sources of information, comments and feedbacks are welcome.

Regards,

Faraz

[perl-win32-gui-users] Aldo's site

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

Is anyone else having problems downloading from Aldo's site?  I am wanting 
to do a PPM iinstall of the Win32::GUI module on another computer but it's 
not working.


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

RE: [perl-win32-gui-users] fork and LostFocus problems

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

> If fork is before show window,then window wont initailise 
> untill forked sub exits.

I vaguely remember that fork() does a subroutine call and does not actually
launch another task. If you use backtick instead (as in `runme.exe
/option=param` or rather `perl.exe yetanotherscript.pl`), your called script
will run concurrently with the caller, so that the caller can keep taking
care of the GUI. That is, as far as I remember ... it might be altogether
totally different.

RE: [perl-win32-gui-users] Capture shutdown

[Rogers, J. <rog...@oc...>]

		Marcus,

		The mod to GUI.xs does in fact work.

		Ive tested on, (or had it tested)
		Win95a/b and win98  works O.K windows will not shutdown
untill shutdown sub has finished.

		WinNT40 and WIN2K   non console app works O.K (e.g.  run
with wperl.exe)

	console apps (run with perl.exe) do not. NT has a different messages
CTRL_SHUTDOWN_EVENT or CTRL_LOGOFF_EVENT-- AFAIK
	the console will die before WM_ messages occur...

		JohnR

RE: [perl-win32-gui-users] fork and LostFocus problems

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

Try adding $Win1->DoEvents(); to the &mouseover sub. This might help catch
any other events while you are waiting for the mouseover to finish.

> -----Original Message-----
> From: Rogers, John [mailto:rog...@oc...]
> Sent: 14 November 2001 08:41
> To: per...@li...
> Subject: [perl-win32-gui-users] fork and LostFocus problems
> 
> 
> 
> Howdy,
> 
> I thought I could use fork with Win32-GUI and wait for a message
>  it seems to have various problems unless I am doing something wrong.
> If fork is before show window,then window wont initailise 
> untill forked sub
> exits.
> if launched form a event (activate button in this case) then 
> other buttons
> dont work untill
> the forked sub returns.
> 
> Also the _LostFocus event does not work with buttons, even 
> though the docs
> say it can.
> 
> do nothing script follows for your general entertainment.
> 
> JohnR
> --------------------
> #!perl 
> use Win32::GUI;
> $Win1 = new Win32::GUI::Window( -title  => "Test Window",
> 					-name   => "Win1",
> 					-left   => 100,
> 					-top    => 100,
> 					-width  => 500,
> 					-height => 250,
> 					);
> 
> $Win1->AddLabel(-name => "l1",
> 			-width =>$Win1->ScaleWidth,
>     			-height => $Win1->ScaleHeight,
> 			-sunken=>l,);
> $Status = $Win1->AddStatusBar(-name => "Status",);
> $Win1->AddLabel(-name=> "ipdroplbl",
> 					-text=> "This is a Test Window",
> 					-left=>150,
> 					-top=> 10,);
> $Win1->AddButton(-name=>"quit",-left=>150,
> 				-top=>160,
> 				-width=>100,
> 				-text=>"QUIT",
> 				-cancel  => 1,
> 				-default => 0,
> 				-tabstop=>0,);
> $Win1->AddButton(-name=>"hello",-left=>10,
> 				-top=>160,
> 				-width=>100,
> 				-text=>"HELLO",
> 				-cancel  => 1,
> 				-default => 1,
> 				-tabstop=>1,
> 					);
> $Win1->AddButton(-name=>"other",-left=>260,
> 				-top=>160,
> 				-width=>100,
> 				-text=>"OTHER",
> 				-cancel  => 1,
> 				-default => 0,
> 				-tabstop=>0,);
> $Win1->AddButton(-name=>"activate",-left=>10,
> 				-top=>10,
> 				-width=>100,
> 				-text=>"ACTIVATE",
> 				-cancel  => 1,
> 				-default => 0,
> 				-tabstop=>0,);
> #fork and &mouseoverhello;
> 
> $Win1->Show;
> Win32::GUI::Dialog();
> 
> exit(0);
> 
> sub quit_Click {return -1;
> }
> 
> sub Win1_Terminate {return -1;
> }
> 
> sub Win1_Shutdown{
> print "Windows Shutting Down\n";
> print "press enter to carry on";	
> my $wait=<>;
> 
> }		
> sub mouseoverhello{@gmessage=$Win1->hello->GetMessage(0,0);
> 		$Win1->Status->Text("Mouse over hello button");
> 	print "mouse over hello button\n";
> return 0;
> }
> 
> sub other_Click{
> 		$Win1->Status->Text("other clicked");
> }
> sub activate_Click{
> 		$Win1->Status->Text("Activate clicked");
> 		&mouseoverhello;
> }
> sub hello_LostFocus {
> 		$Win1->Status->Text("Hello button lost focus");
> print "lost focus\n";
> }
> sub hello_GotFocus{
> print "got focus\n";
> }
> ---------------------------end
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> You cant sue us.
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] fork and LostFocus problems

[Rogers, J. <rog...@oc...>]

Howdy,

I thought I could use fork with Win32-GUI and wait for a message
 it seems to have various problems unless I am doing something wrong.
If fork is before show window,then window wont initailise untill forked sub
exits.
if launched form a event (activate button in this case) then other buttons
dont work untill
the forked sub returns.

Also the _LostFocus event does not work with buttons, even though the docs
say it can.

do nothing script follows for your general entertainment.

JohnR
--------------------
#!perl 
use Win32::GUI;
$Win1 = new Win32::GUI::Window( -title  => "Test Window",
					-name   => "Win1",
					-left   => 100,
					-top    => 100,
					-width  => 500,
					-height => 250,
					);

$Win1->AddLabel(-name => "l1",
			-width =>$Win1->ScaleWidth,
    			-height => $Win1->ScaleHeight,
			-sunken=>l,);
$Status = $Win1->AddStatusBar(-name => "Status",);
$Win1->AddLabel(-name=> "ipdroplbl",
					-text=> "This is a Test Window",
					-left=>150,
					-top=> 10,);
$Win1->AddButton(-name=>"quit",-left=>150,
				-top=>160,
				-width=>100,
				-text=>"QUIT",
				-cancel  => 1,
				-default => 0,
				-tabstop=>0,);
$Win1->AddButton(-name=>"hello",-left=>10,
				-top=>160,
				-width=>100,
				-text=>"HELLO",
				-cancel  => 1,
				-default => 1,
				-tabstop=>1,
					);
$Win1->AddButton(-name=>"other",-left=>260,
				-top=>160,
				-width=>100,
				-text=>"OTHER",
				-cancel  => 1,
				-default => 0,
				-tabstop=>0,);
$Win1->AddButton(-name=>"activate",-left=>10,
				-top=>10,
				-width=>100,
				-text=>"ACTIVATE",
				-cancel  => 1,
				-default => 0,
				-tabstop=>0,);
#fork and &mouseoverhello;

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

exit(0);

sub quit_Click {return -1;
}

sub Win1_Terminate {return -1;
}

sub Win1_Shutdown{
print "Windows Shutting Down\n";
print "press enter to carry on";	
my $wait=<>;

}		
sub mouseoverhello{@gmessage=$Win1->hello->GetMessage(0,0);
		$Win1->Status->Text("Mouse over hello button");
	print "mouse over hello button\n";
return 0;
}

sub other_Click{
		$Win1->Status->Text("other clicked");
}
sub activate_Click{
		$Win1->Status->Text("Activate clicked");
		&mouseoverhello;
}
sub hello_LostFocus {
		$Win1->Status->Text("Hello button lost focus");
print "lost focus\n";
}
sub hello_GotFocus{
print "got focus\n";
}
---------------------------end












































You cant sue us.

[perl-win32-gui-users] SourceForge support for list archive

[Marcus <li...@wo...>]

Hi Folks,

I emailed SourceForge support about the archive problem. Their reply is
below. Should we respond, or find another mirror for now if this is
going to take a long time?

Marcus

--------------------------------------------------------------
>Comment By: Jacob Moorman (moorman)
Date: 2001-11-13 05:51

Message:
Logged In: YES 
user_id=152443

Greetings, 

Over the past few months, the SourceForge.net team has been 
exploring its options for replacement of the aging 
GeoCrawler mailing list archival system.  As we continue to 
explore these options, direct maintenance of the GeoCrawler
system has been put on hold; issues are being recorded, but 
are not being processed.  Certain fixes require testing and 
are of a risky nature; these fixes will be considered once 
the primary load has been lifted from the existing 
GeoCrawler system. 

The new replacement for the GeoCrawler system will ease the 
burden placed on the existing GeoCrawler system, making 
resolution of outstanding issues plausible.  As this new 
replacement begins implementation and testing, information 
will be provided through the usual channels, the sitewide 
newsletter and the Site Status page. 

The issue you reported has been added to a separate task 
list which will be reviewed once the GeoCrawler replacement 
has entered production use.  In the mean time, should you 
have further questions or concerns regarding this matter, 
please contact Patrick McGovern, Site Director for 
SourceForge.net, at pmc...@va...

Thank you, 

Jacob Moorman 
Quality of Service Manager, SourceForge.net

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

You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=200001&aid=481176&group
_id=1

Re: [perl-win32-gui-users] Intro to Tk

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

> I need some introductory book or online documentation with the description
> of methods and properties associated with the different objects (Buttons,
> Check boxes etc) with good examples, defined in the Tk package.

O'Reily has two books - Perl/Tk and Perl/Tk pocket reference.  Once you have the
general gist of things from the former (larger and longer) book  strongly suggest
that you switch to the pocket reference.  The large Tk book is a nightmare to learn
from as the examples are unnecessarily complex.


> Further I need a quick guidance on how to shut down or kill the window once
> I bring it up using the Show() method.

$window->withdraw;
or
$window->iconify;

RE: [perl-win32-gui-users] Text boxes -- Interactive

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

rethink the while( ($fin == 0 )) statement that you have. In Win32::GUI you
are going to use the 

Win32::GUI::Dialog(); 

statement to keep the window active until you terminate it. I commented out
the while loop, replaced it with the Dialog() and the repeated text went
away. Of course, I probably killed some of your intended functionality like
the $Window->Progbar->SetPos but you should probably do that within a
Timer() anyway.

Here's the edited version of your script.



> -----Original Message-----
> From: Steven Swenson [mailto:ssw...@su...]
> Sent: 13 November 2001 12:39
> To: Peter Eisengrein
> Cc: per...@li...
> Subject: RE: [perl-win32-gui-users] Text boxes -- Interactive
> 
> 
> Sure ... the sample textield.pl doesnt behave the same way.   This is 
> weird.    I put the txtfield in from the example you provided.
> my script is attached.
> 
> 
> 
> 
> 
> At 07:40 AM 11/13/01, you wrote:
> >They do? Can you share your script with the list? Or have 
> you tried looking
> >at the sample that I referenced? I'm attaching a copy, in 
> case you don't
> >have them.
> >
> >-Pete
> >
> >
> > > -----Original Message-----
> > > From: Steven Swenson [mailto:ssw...@su...]
> > > Sent: 12 November 2001 23:52
> > > To: Peter Eisengrein
> > > Subject: RE: [perl-win32-gui-users] Text boxes -- Interactive
> > >
> > >
> > > Hi Peter,
> > >
> > > Thanks... Small problem though these fields double echo
> > > keyboard input. An
> > > improvement :) but still a problem.
> > >
> > > --Steve
> > >
> > >
> > >
> > >
> > > At 08:18 AM 11/12/01, you wrote:
> > > >Two Textfields from the sample textfield.pl
> > > >
> > > >### Single line, colored
> > > >$Textfield = $Window->AddTextfield(
> > > >     -name     => "Textfield",
> > > >     -left     => 10,
> > > >     -top      => 10,
> > > >     -text     => "sample text",
> > > >     -width    => 180,
> > > >     -height   => 22,
> > > >     -foreground => [0,255,0],
> > > >     -background => [0,0,0],
> > > >);
> > > >
> > > >### multiline with scroll bars
> > > >$Multitext = $Window->AddTextfield(
> > > >     -name     => "Multitext",
> > > >     -multiline => 1,
> > > >     -autohscroll => 0,
> > > >         -vscroll   => 1,
> > > >         -hscroll   => 1,
> > > >     -left     => 10,
> > > >     -top      => 140,
> > > >     -width    => 180,
> > > >     -height   => 180,
> > > >);
> > > >
> > > > > -----Original Message-----
> > > > > From: Steven Swenson 
[mailto:ssw...@su...]
> > > > Sent: 11 November 2001 20:45
> > > > To: per...@li...
> > > > Subject: [perl-win32-gui-users] Text boxes -- Interactive
> > > >
> > > >
> > > >    Anyone have an example of  interactive textboxes?  I tried
> > > > using the
> > > > examples in the documentaion I could find but all I am
> > getting is the
> > > > prompt label displayed... no place to enter text.
> > > >
> > > >            --Steve
> > > >
> > > >
> > > > _______________________________________________
> > > > Perl-Win32-GUI-Users mailing list
> > > > Per...@li...
> > > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > > >
> >
>

[perl-win32-gui-users] Intro to Tk

[Faraz F. <ff...@qu...>]

Hi guys,

I have recently installed Active Perl and installed the Tk option using the=
=20
Package Manager.

I need to do some basic Dialog based GUI development, where I don't want=20
the GUI window to stay throughout the execution of my perl script but only=
=20
when a dialog is needed, some parameters have to be passed etc.

I need some introductory book or online documentation with the description=
=20
of methods and properties associated with the different objects (Buttons,=20
Check boxes etc) with good examples, defined in the Tk package.

Further I need a quick guidance on how to shut down or kill the window once=
=20
I bring it up using the Show() method.

Regards,

Faraz


At 05:27 PM 11/13/2001 +0000, you wrote:
>Has anyone found out how to display unicode characters in a text or rich
>edit control?  It doesn't seem to work for me.  '=C3=A7' comes out as=
 '=E2=94=9C=C2=BA' when
>I try to use it (apologies if various email systems have destroyed the
>original character but it was a unicode 00E7 character).
>
>Cheers,
>
>Kev.=DE=AEU=A2=9F}=86P=85,z=BB&j)b=9E=20
>b=B2=D3=DE=AEU=A2=9F}=86P=85,z=BB%=8A=CBl=B2=8B=ABq=E7=E8=AE=A7z=D8m=B6=9B?=
=FEX=AC=B6=CB(=BA=B7~=8A=E0zw=AD=FEX=AC=B6=CF=E5=8A=CBb=9D=FA?=A5=EA=E5=C2)=
=F7=DA=A2=BA=C7=AB

RE: [perl-win32-gui-users] Text boxes -- Interactive

[Steven S. <ssw...@su...>]

Sure ... the sample textield.pl doesnt behave the same way.   This is 
weird.    I put the txtfield in from the example you provided.
my script is attached.





At 07:40 AM 11/13/01, you wrote:
>They do? Can you share your script with the list? Or have you tried looking
>at the sample that I referenced? I'm attaching a copy, in case you don't
>have them.
>
>-Pete
>
>
> > -----Original Message-----
> > From: Steven Swenson [mailto:ssw...@su...]
> > Sent: 12 November 2001 23:52
> > To: Peter Eisengrein
> > Subject: RE: [perl-win32-gui-users] Text boxes -- Interactive
> >
> >
> > Hi Peter,
> >
> > Thanks... Small problem though these fields double echo
> > keyboard input. An
> > improvement :) but still a problem.
> >
> > --Steve
> >
> >
> >
> >
> > At 08:18 AM 11/12/01, you wrote:
> > >Two Textfields from the sample textfield.pl
> > >
> > >### Single line, colored
> > >$Textfield = $Window->AddTextfield(
> > >     -name     => "Textfield",
> > >     -left     => 10,
> > >     -top      => 10,
> > >     -text     => "sample text",
> > >     -width    => 180,
> > >     -height   => 22,
> > >     -foreground => [0,255,0],
> > >     -background => [0,0,0],
> > >);
> > >
> > >### multiline with scroll bars
> > >$Multitext = $Window->AddTextfield(
> > >     -name     => "Multitext",
> > >     -multiline => 1,
> > >     -autohscroll => 0,
> > >         -vscroll   => 1,
> > >         -hscroll   => 1,
> > >     -left     => 10,
> > >     -top      => 140,
> > >     -width    => 180,
> > >     -height   => 180,
> > >);
> > >
> > > > -----Original Message-----
> > > > From: Steven Swenson [mailto:ssw...@su...]
> > > > Sent: 11 November 2001 20:45
> > > > To: per...@li...
> > > > Subject: [perl-win32-gui-users] Text boxes -- Interactive
> > > >
> > > >
> > > >    Anyone have an example of  interactive textboxes?  I tried
> > > > using the
> > > > examples in the documentaion I could find but all I am
> > getting is the
> > > > prompt label displayed... no place to enter text.
> > > >
> > > >            --Steve
> > > >
> > > >
> > > > _______________________________________________
> > > > Perl-Win32-GUI-Users mailing list
> > > > Per...@li...
> > > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > > >
> >
>

[perl-win32-gui-users] Rich Text and Unicode characters

[<Kev...@al...>]

SGFzIGFueW9uZSBmb3VuZCBvdXQgaG93IHRvIGRpc3BsYXkgdW5pY29kZSBjaGFyYWN0ZXJzIGlu
IGEgdGV4dCBvciByaWNoDQplZGl0IGNvbnRyb2w/ICBJdCBkb2Vzbid0IHNlZW0gdG8gd29yayBm
b3IgbWUuICAnw6cnIGNvbWVzIG91dCBhcyAn4pScwronIHdoZW4NCkkgdHJ5IHRvIHVzZSBpdCAo
YXBvbG9naWVzIGlmIHZhcmlvdXMgZW1haWwgc3lzdGVtcyBoYXZlIGRlc3Ryb3llZCB0aGUNCm9y
aWdpbmFsIGNoYXJhY3RlciBidXQgaXQgd2FzIGEgdW5pY29kZSAwMEU3IGNoYXJhY3RlcikuDQoN
CkNoZWVycywNCg0KS2V2Lg==

RE: [perl-win32-gui-users] Text boxes -- Interactive

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

Two Textfields from the sample textfield.pl

### Single line, colored
$Textfield = $Window->AddTextfield(
    -name     => "Textfield",
    -left     => 10,
    -top      => 10,
    -text     => "sample text",
    -width    => 180,
    -height   => 22,
    -foreground => [0,255,0],
    -background => [0,0,0],
);

### multiline with scroll bars
$Multitext = $Window->AddTextfield(
    -name     => "Multitext",
    -multiline => 1,
    -autohscroll => 0,
	-vscroll   => 1,
	-hscroll   => 1,
    -left     => 10,
    -top      => 140,
    -width    => 180,
    -height   => 180,
);

> -----Original Message-----
> From: Steven Swenson [mailto:ssw...@su...]
> Sent: 11 November 2001 20:45
> To: per...@li...
> Subject: [perl-win32-gui-users] Text boxes -- Interactive
> 
> 
>    Anyone have an example of  interactive textboxes?  I tried 
> using the 
> examples in the documentaion I could find but all I am getting is the 
> prompt label displayed... no place to enter text.
> 
>            --Steve
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Will write a Tutorial on Win32::GUI ...

[Johannes G. <in...@de...>]

Hello all,

i'm a german editor of webdevelopement. i' playing to write a
documentation for the Win32::GUI and also a detailed tutorial for a
planed Book to Perl Developement on Win32 and specialy for GUI
Developement.

My work will be published on Web, after doing ... but this could be
taken a while ;.)

Ok, what i do ist to check all available Widgets, but the
documentation is a bit poor ;-) Any helps are welcome.

My general questions:
  * Aldo, do you have some more documentation?
  * Will the Win32::GUI still develop?
  * Is ther a way to get all archived Mails of the old and
    new MailingLists ... ?


First work i did is to play arround the Button-Widget. So this are my
up to now conclusion:



Question to options:
  * the background, foreground options seems not to be suppored
    on the Button-Widget?
  * are this all available options for the Button-Widget?

  
Question to Styles:
  * Do you have any eg. for the usage of BS_BITMAP and BS_ICON?
  * Any eg. of the usage and description of BS_NOTIFY ,BS_OWNERDRAW
    and BS_PUSHBUTTON?


Questions to Events:
  * Any Ideas to use GotFocus(), LostFocus(), MouseDown() and
    MouseUp()?

    something like that, doesn't work:

    sub Button_MouseDown() {
      print "Mouse Down";
      return 1;
    }
    


Eg. (hope this is correct ...)

1. Tabstop for Buttons

   * Set for all relevant Widgets the -tabstop option to 1.
   * Use $Your_window_name->{-dialogui} = 1;
     (You need this to realize Tabstop and ENTER Event)

2. Hit a Button on ENTER

   * Set for all relevant Widgets the -tabstop option to 1.
   * For commands set -ok option to 1

3. Set Button to default on loading

   * Set -default option to 1

4. Do action by click on ESC

   * Set -cancel option to 1

5. Get a dblClick Event

   * set -addstyle => BS_NOTIFY,
 

    

::AddButton();
-------------

*** Options ***

-name     => name of the widget
-text     => Caption
-titel    => same as -text
-left     => x-pos in px
-top      => y-pos in px
-width    => width
-height   => height
-size     => [width, height]
-pos      => [x-pos, y-pos]      
-align    => left/center/right (default left)
-valign   => top/center/bottom (default center)
-default  => 0/1 (default 0)
-ok       => 0/1 (default 0)
-cancel   => 0/1 (default 0)
-disabled => 0/1 (default 0)
-font     => Fontobject (needs ::Font)
-addstyle => see Styles (more than one, separated by |)
-visible  => 0/1 (default 1)
-tabstop  => 0/1 (default 0)


*****************************************************************


*** Styles ***

BS_TOP|BS_VCENTER|BS_BOTTOM (use -valign option)
BS_CENTER|BS_LEFT|BS_RIGHT (use -align option)

BS_TEXT (no need to use)
I think this sytles will be called internal of the Modul to display
-text opitionl. Is this right?

BS_DEFPUSHBUTTON
Creates a push button that behaves like a BS_PUSHBUTTON style
button, but also has a heavy black border. If the button is in a
dialog box, the user can select the button by pressing the ENTER
key, even when the button does not have the input focus. This style
is useful for enabling the user to quickly select the most likely
(default) option.

BS_MULTILINE
Wraps the button text to multiple lines if the text string is
too long to fit on a single line in the button rectangle.

This seems only has a effect by wraping the lines with \n inside the
-text option. eg.

-text => "I'm a long Button text.\nSo i have to get a wrap.",

Problem: You have to adjust height and width of the Button.

BS_BITMAP
Specifies that the button displays a bitmap.

BS_ICON   
Specifies that the button displays an icon.

BS_USERBUTTON (obsolet, was only used for 16-bit Windows)


BS_NOTIFY
no exact idea .. any help for usage?
(ok, i found, that this style could used to get the dblClick
Event ...)

BS_OWNERDRAW
no exact idea .. any help for usage?

BS_PUSHBUTTON
no exact idea .. any help for usage?


*****************************************************************


*** Events ***

Click()
This event is sent by a click on the button.

DblClick()
This event is sent by a dbl-click on the button.


GotFocus()
no exact idea .. any help for usage?

LostFocus()
no exact idea .. any help for usage?

MouseDown()
no exact idea .. any help for usage?

MouseUp() 
no exact idea .. any help for usage?



*****************************************************************


*** Eg. of AddButton usage: ***


use Win32::GUI;

$MainWindow = new Win32::GUI::Window(
      -pos     => [100, 100],
      -size    => [130, 110],     
      -name   => "Win",
      -text   => "AddButton - eg.",
      );

$MainWindow->{-dialogui} = 1;

$b1 = $MainWindow->AddButton(
       -name     => "Button_1",
       -text     => "I'm a normal-Button",
       -pos      => [10, 10],      
       -default  => 1,
       -ok       => 1,
       -tabstop  => 1,
       -addstyle => BS_NOTIFY,
      );
  
$b2 = $MainWindow->AddButton(
       -name     => "Button_2",
       -text     => "I'm a close-Button",
       -pos      => [10, 50],      
       -cancel   => 1,
       -tabstop  => 1,
      );


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

sub Win_Terminate {
  return -1;
}

sub Button_1_Click {
   print "Normal-Button was clicked.\n"; 
   return 1;
}

sub Button_2_Click {
   Win_Terminate();
}


sub Button_1_DblClick {
   print "Normal-Button was dbl-clicked.\n"; 
   return 1;
}

[perl-win32-gui-users] Problems with ListBox in separated modules

[<e54...@es...>]

I am using WIN32::GUI and I have separate some 
Windows in different .pm modules. 
I have add the  -name  => 
"PackageName::ControlName" in order to use the 
event in each module and it works ...
..but I am terrible confuse because I have a 
ListBox that change this information when a user 
click on a Button...but I can remove the 
previous items.
I can Add items,but not remove.I have tried --
>Reset() and ->Clear(). But the list don't 
appear.
What is going wrong ??? 

Is necessary to use 'use strict' in this case or 
is only a help?
 
The extract of the event:
 
# ========================
sub baquest_Click{
# ========================
 
$escollit=$comboalu->GetString($comboalu-
>SelectedItem());
 

 $pos=0;
 for $napsicols (obtenir_ref_assignatures
($escollit))
 {
     $comboassig->RemoveItem($pos);
  
  $cargols = $napsicols->{Nomassig};
  print "------->>>>>>>>>>>>>$pos   $cargols \n";
  $comboassig->InsertItem($cargols,$pos);
  $pos++;

 }
}
 
Thanks !!!
 
Guillem Cunillera i Wefers

[perl-win32-gui-users] Text boxes -- Interactive

[Steven S. <ssw...@su...>]

   Anyone have an example of  interactive textboxes?  I tried using the 
examples in the documentaion I could find but all I am getting is the 
prompt label displayed... no place to enter text.

           --Steve

RE: [perl-win32-gui-users] GUI & OLE

[<pko...@me...>]

Sorry, haven't found a short demonstration of the problems.

The only demonstration I can give is my current project
http://sourceforge.net/projects/auctioneer/.

There is a ConfigWizard.pm with a Textfield to show large amount of text.

Formerly I used a RichEdit (the code is still in comment blocks), but whe=
n
the program got bigger, the OLE problem arrived. First: the removal of
OLE::Constants helped. But after I had written some more code: The proble=
m
was still there.

I think hit has to do with the method calls of the Outlook object. But I
haven't the time to find out a short working piece of demo code.

Peter


> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...]On Behalf Of
> Kev...@al...
> Sent: Monday, November 05, 2001 10:53 AM
> To: per...@li...
> Subject: RE: [perl-win32-gui-users] GUI & OLE (WAS: Drag-n-Drop?)
>
>
>
> The only problem I've had with GUI and OLE is that OLE::Constants doesn=
't
> work.  Apart from that it works fine.
>
> Aldo seems to have gone very quiet on new releases but then again he se=
ems
> to be developing all the XS code on his own.  A big project for just on=
e
> person I'd say.  Anyone sufficiently competent with XS to lend a hand?
> Sadly, my attempts at XS haven't got me very far.
>
> Kev.
>
>
>
>
>
>                     "Peter K=F6ller"
>
>                     <pko...@me...>
> To:     "Jason Bingham" <jas...@gb...>,
>                     Sent by:
> <per...@li...>
>                     per...@li...urc
> cc:
>                     eforge.net
> Subject:     RE: [perl-win32-gui-users] GUI & OLE (WAS: Drag-n-Drop?)
>
>
>
>
>                     05/11/2001 07:05
>
>
>
>
>
>
>
>
>
> > I have had no problems with combining the use of Win32::GUI &
> > Win32::OLE in
> > the same application. Currently I have a Win32::GUI program that
> > sits in the
> > systray and communicates (read / write) to Outlook calendar & tasks v=
ia
> > Win32::OLE.
> > Is there any code that shows the problems....
>
> I think I can find a pieve of code on my harddisk which shows the
> problems.
> Please wait for the end of this week because I am busy.
>
> Peter
>
>
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] Bold and unbold in RichEdit

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

Thanks a zillion!!!!  Now I can have alternating colors instead producing a=
=20
better effect.

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

At 11/9/2001 02:39 PM, you wrote:
>At 08:18 2001-11-09 -0500, Jonathan Southwick wrote:
>>I know that if you specify the '-bold =3D> 1' option in creating a font=20
>>object and using that font in the RichEdit object creation that you can=20
>>get your text bolded in the RichEdit field.  My question is this, is it=20
>>possible to go back and forth between bolded and unbolded text in a=20
>>Richedit field?
>
>Working code:
>
>=3Dhead2 podAddLine($line, $heading)
>
>Add the $line to the end of the POD text box, using the
>$heading level of emphasis.
>
>$heading -- 0 =3D=3D text, 1 =3D=3D H1, 2 =3D=3D H2
>
>Return 1 on success, else 0.
>
>=3Dcut
>sub podAddLine { my $self =3D shift; my $pkg =3D ref($self);
>     my ($line, $heading) =3D @_;
>
>     my @aFont =3D (
>             -height =3D> $self->rhConfig()->{podFontSize},
>             -name =3D> $self->rhConfig()->{podFontName},
>             );
>     my %hOn =3D (
>             1 =3D> [-color =3D> 0x000000, -bold =3D> 1, @aFont],
>             2 =3D> [-color =3D> 0x000000, -bold =3D> 1, @aFont],
>             0 =3D> [-color =3D> 0x000000, -bold =3D> 0, @aFont],
>             );
>     my $rePOD =3D $self->winMain()->rePOD();
>
>     $rePOD->Select(999999,999999); #Stolen from the PM chatterbox
>     $rePOD->SetCharFormat(@{$hOn{$heading}});
>     $rePOD->ReplaceSel("$line\n",1);
>
>     return(1);
>     }
>
>
>/J
>
>------ ---- --- -- -- -- -  -   -    -        -
>Johan Lindstr=F6m                    Boss Casinos
>Sourcerer                     jo...@ba...
>                  http://www.bahnhof.se/~johanl/
>If the only tool you have is a hammer,
>everything tends to look
>like a nail
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] Bold and unbold in RichEdit

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

At 08:18 2001-11-09 -0500, Jonathan Southwick wrote:
>I know that if you specify the '-bold => 1' option in creating a font 
>object and using that font in the RichEdit object creation that you can 
>get your text bolded in the RichEdit field.  My question is this, is it 
>possible to go back and forth between bolded and unbolded text in a 
>Richedit field?

Working code:

=head2 podAddLine($line, $heading)

Add the $line to the end of the POD text box, using the
$heading level of emphasis.

$heading -- 0 == text, 1 == H1, 2 == H2

Return 1 on success, else 0.

=cut
sub podAddLine { my $self = shift; my $pkg = ref($self);
     my ($line, $heading) = @_;

     my @aFont = (
             -height => $self->rhConfig()->{podFontSize},
             -name => $self->rhConfig()->{podFontName},
             );
     my %hOn = (
             1 => [-color => 0x000000, -bold => 1, @aFont],
             2 => [-color => 0x000000, -bold => 1, @aFont],
             0 => [-color => 0x000000, -bold => 0, @aFont],
             );
     my $rePOD = $self->winMain()->rePOD();

     $rePOD->Select(999999,999999); #Stolen from the PM chatterbox
     $rePOD->SetCharFormat(@{$hOn{$heading}});
     $rePOD->ReplaceSel("$line\n",1);

     return(1);
     }


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail