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

Well, then you just take the best of both ... first, you open a new browser
window and then you do what you did before. I pretty sure that the
ShellExecute will target this new browser. At least, when I click a link in
a mail in this rotten !#^%$Outlook, it does the very same &^%!# thing of
navigating away from the most important web site I happen to have been
looking at. So, I first open a new browser and then click the link - voila.

-----Original Message-----
From: Morbus Iff [mailto:mo...@di...]
Sent: Donnerstag, 31. Mai 2001 14:56
To: per...@li...;
'per...@li...'
Subject: RE: [perl-win32-gui-users] Opening a *New* Browser Window?


 >use Win32::TieRegistry;
 >$http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
 >`$http $url`;

Ok. Well, it certainly opened up new windows on Mozilla, unfortunately, it 
didn't pass the URL to Mozilla correctly - I got search results from 
NetScape for the term "". Sigh.


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/


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

 >use Win32::TieRegistry;
 >$http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
 >`$http $url`;

Ok. Well, it certainly opened up new windows on Mozilla, unfortunately, it 
didn't pass the URL to Mozilla correctly - I got search results from 
NetScape for the term "". Sigh.


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

 >use Win32::TieRegistry;

Well, now this is odd. I don't seem to have that on my machine, and a PPM 
says it's not found. Huh. Sigh. Gotta find it now...


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

Try this:

use Win32::TieRegistry;
$http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
`$http $url`;

I did not try with other browsers, though, just Micro$tuff.

Have fun,
Harald

-----Original Message-----
From: Morbus Iff [mailto:mo...@di...]
Sent: Donnerstag, 31. Mai 2001 13:18
To: per...@li...
Subject: [perl-win32-gui-users] Opening a *New* Browser Window?


Good day.

Currently, in my code [the opensource AmphetaDesk at
http://www.disobey.com/amphetadesk/], I open a browser window like so:

    use Win32::API;
    my $ShellExecute = new Win32::API("shell32", "ShellExecuteA",
                       ['N','P', 'P', 'P', 'P', 'I'], 'N');
    $ShellExecute->Call(0, "open", $url, 0, 0, 1);

This has the niceness of working with most browsers I've tested that have
been set as the default browser (Netscape, Mozilla, IE, etc.). My problem
is that this code always uses an *existing* browser window if it exists.

This causes some angst - if I'm viewing something, and then suddenly the
program takes over and loses my current page, I get pissed. So, anyways to
always open a *new* window, whether an existing one is there or not?


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/


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

Per your question, I pulled up Microsoft's website on maximizebox settings
(I just searched for it from their main page), and linking from there I
found information for a 'helpbutton'. After putting -helpbutton => 1 in my
window, sure enough, I got one of those '?' boxes. 

Its amazing what new functionality you can find by just being curious ;) 

-Michael Forhan

-----Original Message-----
From: Frazier, Joe Jr [mailto:Joe...@Pe...]
Sent: Thursday, May 31, 2001 1:49 PM
To: per...@li...
Subject: RE: [perl-win32-gui-users] Window Size Controls & Miscellany
?'s


Yea, I just found about the -maximizebox thing.  -minimizebox does the
opposite.  Set both to 0 if you want neither to show.  I wonder if
-questionbox works the same way for a Win32::GUI::DialogWindow and
removes the goofy question mark box?

> -----Original Message-----
> From: Morbus Iff [mailto:mo...@di...]
> Sent: Thursday, May 31, 2001 16:15
> To: per...@li...;
> per...@li...
> Subject: RE: [perl-win32-gui-users] Window Size Controls & Miscellany
> ?'s
> 
> 
>  >At 03:06 PM 5/31/01, Frazier, Joe Jr wrote:
>  >At 03:10 PM 5/31/01, Forhan, Michael wrote:
> 
> Hey, thanks to both of you on the min/max|width/height... 
> worked wonderfully!
> 
> 
> Morbus Iff
> .sig on other machine.
> http://www.disobey.com/
> http://www.gamegrene.com/
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

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

Yea, I just found about the -maximizebox thing.  -minimizebox does the
opposite.  Set both to 0 if you want neither to show.  I wonder if
-questionbox works the same way for a Win32::GUI::DialogWindow and
removes the goofy question mark box?

> -----Original Message-----
> From: Morbus Iff [mailto:mo...@di...]
> Sent: Thursday, May 31, 2001 16:15
> To: per...@li...;
> per...@li...
> Subject: RE: [perl-win32-gui-users] Window Size Controls & Miscellany
> ?'s
>=20
>=20
>  >At 03:06 PM 5/31/01, Frazier, Joe Jr wrote:
>  >At 03:10 PM 5/31/01, Forhan, Michael wrote:
>=20
> Hey, thanks to both of you on the min/max|width/height...=20
> worked wonderfully!
>=20
>=20
> Morbus Iff
> .sig on other machine.
> http://www.disobey.com/
> http://www.gamegrene.com/
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

Good day.

Currently, in my code [the opensource AmphetaDesk at
http://www.disobey.com/amphetadesk/], I open a browser window like so:

    use Win32::API;
    my $ShellExecute = new Win32::API("shell32", "ShellExecuteA",
                       ['N','P', 'P', 'P', 'P', 'I'], 'N');
    $ShellExecute->Call(0, "open", $url, 0, 0, 1);

This has the niceness of working with most browsers I've tested that have
been set as the default browser (Netscape, Mozilla, IE, etc.). My problem
is that this code always uses an *existing* browser window if it exists.

This causes some angst - if I'm viewing something, and then suddenly the
program takes over and loses my current page, I get pissed. So, anyways to
always open a *new* window, whether an existing one is there or not?


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

 >At 03:06 PM 5/31/01, Frazier, Joe Jr wrote:
 >At 03:10 PM 5/31/01, Forhan, Michael wrote:

Hey, thanks to both of you on the min/max|width/height... worked wonderfully!


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

While I haven't been able to get rid of the cursor change (into the resize
arrow), I've prevented people from resizing the box manually by placing the
-maxwidth and -maxheight settings in. Thanks for your tip for -maximize! It
works great, here is my window:
  $Name = new Win32::GUI::Window( -name      => $Name
                                 ,-text      => $Main_Title
                                 ,-width     => $Width
                                 ,-height    => $Height
                                 ,-left      => $Left
                                 ,-top       => $Top
                                 ,-minwidth  => $Width
                                 ,-minheight => $Height
                                 ,-maxwidth  => $Width
                                 ,-maxheight => $Height
                                 ,-menu      => $Menu
                                 ,-maximizebox => 0
                                );

-Michael Forhan
Mic...@tr...


-----Original Message-----
From: Morbus Iff [mailto:mo...@di...]
Sent: Thursday, May 31, 2001 11:40 AM
To: per...@li...;
'per...@li...'
Subject: Re: [perl-win32-gui-users] Window Size Controls & Miscellany
?'s


 >Is there a way to disable the Maximize button on a window? I've been using
 >-maxwidth and -maxheight in the window creation in order to prevent users
 >from resizing my windows (I don't really want to deal with resizing &
 >repositioning quite yet...) but since the maximize button is active, the
 >window does this ugly (imho) snap to the top left corner when its clicked.

You know, I was hoping for the same thing, with code like this:

    $window = new Win32::GUI::Window( -name   => '_Window',
                                      -text   => $SETTINGS->{app}->{name},
                                      -left   => ($screen_width - 600)/2,
                                      -top    => ($screen_height - 400)/2,
                                      -width  => 480, -height => 400,
                                      -menu   => $menu_bar,
                                      -class  => $hwnd_class,
                                      -icon   => $icon,
                                      -maximizebox => 0
                                    );

Unfortunately, that dims the maximize box so that it doesn't work, but 
still allows people to resize the window by the grab-an-edge-and-pull 
routine. I haven't figured out how to disable that. It's probably simple.


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/


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

> -----Original Message-----
> From: Morbus Iff [mailto:mo...@di...]
> Sent: Thursday, May 31, 2001 14:40
> To: per...@li...;
> 'per...@li...'
> Subject: Re: [perl-win32-gui-users] Window Size Controls & Miscellany
> ?'s
>=20
>=20
>  >Is there a way to disable the Maximize button on a window?=20
> I've been using
>  >-maxwidth and -maxheight in the window creation in order to=20
> prevent users
>  >from resizing my windows (I don't really want to deal with=20
> resizing &
>  >repositioning quite yet...) but since the maximize button=20
> is active, the
>  >window does this ugly (imho) snap to the top left corner=20
> when its clicked.
>=20
> You know, I was hoping for the same thing, with code like this:
>=20
>     $window =3D new Win32::GUI::Window( -name   =3D> '_Window',
>                                       -text   =3D>=20
> $SETTINGS->{app}->{name},
>                                       -left   =3D>=20
> ($screen_width - 600)/2,
>                                       -top    =3D>=20
> ($screen_height - 400)/2,
>                                       -width  =3D> 480, -height =3D> =
400,
>                                       -menu   =3D> $menu_bar,
>                                       -class  =3D> $hwnd_class,
>                                       -icon   =3D> $icon,
>                                       -maximizebox =3D> 0





#######add something like : 		=09
								-maxsize
=3D> [480,400],
    								-minsize
=3D> [480,400],
####### this puts a min/max size to the window meaning it cant be
resized with the handle bars....


>                                     );
>=20
> Unfortunately, that dims the maximize box so that it doesn't=20
> work, but=20
> still allows people to resize the window by the grab-an-edge-and-pull=20
> routine. I haven't figured out how to disable that. It's=20
> probably simple.
>=20
>=20
> Morbus Iff
> .sig on other machine.
> http://www.disobey.com/
> http://www.gamegrene.com/
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

 >Is there a way to disable the Maximize button on a window? I've been using
 >-maxwidth and -maxheight in the window creation in order to prevent users
 >from resizing my windows (I don't really want to deal with resizing &
 >repositioning quite yet...) but since the maximize button is active, the
 >window does this ugly (imho) snap to the top left corner when its clicked.

You know, I was hoping for the same thing, with code like this:

    $window = new Win32::GUI::Window( -name   => '_Window',
                                      -text   => $SETTINGS->{app}->{name},
                                      -left   => ($screen_width - 600)/2,
                                      -top    => ($screen_height - 400)/2,
                                      -width  => 480, -height => 400,
                                      -menu   => $menu_bar,
                                      -class  => $hwnd_class,
                                      -icon   => $icon,
                                      -maximizebox => 0
                                    );

Unfortunately, that dims the maximize box so that it doesn't work, but 
still allows people to resize the window by the grab-an-edge-and-pull 
routine. I haven't figured out how to disable that. It's probably simple.


Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

Is there a known memory problem with the GUI module and/or the Timer object?
I have a script that runs through a _Timer sub once per second and
increments a var (like $count++) and writes it to a Label. Just sitting
there quietly doing nothing more than that adds 4k to the process' memory
every second or two (or three -- it's not very exact). I would expect a
*little* more memory to be used but these 4k's add up over time.

Just curious.
Pete

Is there a way to disable the Maximize button on a window? I've been using
-maxwidth and -maxheight in the window creation in order to prevent users
from resizing my windows (I don't really want to deal with resizing &
repositioning quite yet...) but since the maximize button is active, the
window does this ugly (imho) snap to the top left corner when its clicked. 

Second, I was wondering if any further strides have been made on GOE ( as
posted by Harald Piske in late march (3/25 to be exact) ) I've recently been
playing with gb109, and have started building a wishlist of my own for a
large windows oriented development tool. (along the lines of Visual Basic).
Is anyone aware of any Sourceforge projects for this , or is GOE still
alive? (the fairymail link I followed didn't work for me) I'd love to see a
fully featured windows development tool for perl (with syntax highlighting
of course!) and am ready to contribute all I can to that project :). 

Lastly, I was wondering how the Win32::Gui FAQ was coming along. I've read
through the draft that was posted last month (april) and found that its
getting some good info in it, and was hoping to see much more added to it in
the future. I'd especially like to see some information in it describing
locations to look for more information for questions not yet answered (
though that probably isn't in-line with the concept of an FAQ ). I've found
that many Win32 API books have helped me with style flags that I have not
seen elsewhere (things like MB_YESNOCANCEL and the like). 

Thank you all for your help, and this great mailing list!
-Michael Forhan
Mic...@tr...

Hello,

I don't know if this has been asked before. Sorry, if there is already a
solution.

How can items, especially single columns of an item in a ListView be
changed, without removing and re-inserting the whole item?

Thanks in advance,

Peter

I used the select method as mentioned and it works perfectly. Thank you
very much everyone, this list has proven to be an invaluable resource
for me.

Dave

> -----Original Message-----
> From: per...@li...
[mailto:perl-win32-
> gui...@li...] On Behalf Of Piske, Harald
> Sent: Tuesday, May 29, 2001 3:17 PM
> To: 'per...@li...'
> Subject: RE: [perl-win32-gui-users] Appending to RichEdit?
> 
> Actually, Morbus' approach is the better choice, if you don't mind my
> saying
> so. While simply getting the text and setting the appended text
basically
> works (btw: even $RE->{-text} .= $newText; would do), what happens is
that
> the whole field gets refilled and redrawn, using a lot of resources
for
> nothing. With a couple of hundred lines this may cause annoying
flicker,
> plus it shifts the scroll bar back to the top. Selecting "nothing"
past
> the
> end of the contents and replacing the selection is the way to "go by
the
> book", so to speak.
> 
> 	$RE->Select (1e9, 1e9);
> 	$RE->ReplaceSel ($newText);
> 
> With a scrollable textfield this would also have the nice side-effect
of
> scrolling the new line into view. This does not work for richedit
fields
> as
> of 0.0.558 - there was a lengthy trail on this list about a
work-around.
> Bottom line, if you don't need text formatting, use a standard
multiline
> textfield instead of a richedit, it makes life easier.
> 
> Sorry for bugging in
> Have fun,
> Harald
> 
> | -----Original Message-----
> | From: Anthony George [mailto:ag...@em...]
> | Sent: Tuesday, May 29, 2001 11:59
> | To: per...@li...
> | Subject: Re: [perl-win32-gui-users] Appending to RichEdit?
> |
> |
> | Get the text, append, send it out:
> | my $previousText=$RE->Text();
> | $RE->Text($previusText.$newText);
> |
> |
> | On Tue, 29 May 2001 13:45:25 -0400
> | "Dave" <da...@sk...> mentioned:
> |
> | dave> This seems like it should be pretty easy, but I can't
> | figure out how to
> | dave> add text to a richedit window after the text that is
> | already there.
> | dave>
> | dave> I need to be able to continually add lines to the
> | window, from different
> | dave> sources (from the clipboard , textfields / buttons ),
> | then the user
> | dave> needs to be able to edit it before sending it to print.
> | dave>
> | dave> The richedit module works really well, only I can only
> | seem to add text
> | dave> to it with
> | dave>
> | dave> $RE->Text("$data");
> | dave>
> | dave> Everytime I do this it replaces the existing text. Is
> | there a way to
> | dave> append to the existing text instead( starting on a new line )?
> | dave>
> | dave> Thank you,
> | dave> Dave
> | dave>
> | dave>
> | dave>
> | dave> _______________________________________________
> | dave> Perl-Win32-GUI-Users mailing list
> | dave> Per...@li...
> | dave>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> |
> | <sig>  Anthony George <ag...@em...> Systems Engineer.
> | Do your technical services need medical attention?  We can
> | help.  EMSTS, LLC.
> | 800-304-8269   231-720-1600   http://www.emsts.com  </sig>
> |
> |
> |
> | _______________________________________________
> | Perl-Win32-GUI-Users mailing list
> | Per...@li...
> | http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> |
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

my answer was an uninformed one, I agree! :)
I like this approach much better!

On Tue, 29 May 2001 12:17:18 -0700 
"Piske, Harald" <Har...@bo...> mentioned:

Harald.Piske> Actually, Morbus' approach is the better choice, if you don't mind my saying
Harald.Piske> so. While simply getting the text and setting the appended text basically
Harald.Piske> works (btw: even $RE->{-text} .= $newText; would do), what happens is that
Harald.Piske> the whole field gets refilled and redrawn, using a lot of resources for
Harald.Piske> nothing. With a couple of hundred lines this may cause annoying flicker,
Harald.Piske> plus it shifts the scroll bar back to the top. Selecting "nothing" past the
Harald.Piske> end of the contents and replacing the selection is the way to "go by the
Harald.Piske> book", so to speak.
Harald.Piske> 
Harald.Piske> 	$RE->Select (1e9, 1e9);
Harald.Piske> 	$RE->ReplaceSel ($newText);
Harald.Piske> 
Harald.Piske> With a scrollable textfield this would also have the nice side-effect of
Harald.Piske> scrolling the new line into view. This does not work for richedit fields as
Harald.Piske> of 0.0.558 - there was a lengthy trail on this list about a work-around.
Harald.Piske> Bottom line, if you don't need text formatting, use a standard multiline
Harald.Piske> textfield instead of a richedit, it makes life easier.
Harald.Piske> 
Harald.Piske> Sorry for bugging in
Harald.Piske> Have fun,
Harald.Piske> Harald
Harald.Piske> 
Harald.Piske> | -----Original Message-----
Harald.Piske> | From: Anthony George [mailto:ag...@em...]
Harald.Piske> | Sent: Tuesday, May 29, 2001 11:59
Harald.Piske> | To: per...@li...
Harald.Piske> | Subject: Re: [perl-win32-gui-users] Appending to RichEdit?
Harald.Piske> | 
Harald.Piske> | 
Harald.Piske> | Get the text, append, send it out:
Harald.Piske> | my $previousText=$RE->Text();
Harald.Piske> | $RE->Text($previusText.$newText);
Harald.Piske> | 
Harald.Piske> | 
Harald.Piske> | On Tue, 29 May 2001 13:45:25 -0400 
Harald.Piske> | "Dave" <da...@sk...> mentioned:
Harald.Piske> | 
Harald.Piske> | dave> This seems like it should be pretty easy, but I can't 
Harald.Piske> | figure out how to
Harald.Piske> | dave> add text to a richedit window after the text that is 
Harald.Piske> | already there.
Harald.Piske> | dave> 
Harald.Piske> | dave> I need to be able to continually add lines to the 
Harald.Piske> | window, from different
Harald.Piske> | dave> sources (from the clipboard , textfields / buttons ), 
Harald.Piske> | then the user
Harald.Piske> | dave> needs to be able to edit it before sending it to print.
Harald.Piske> | dave> 
Harald.Piske> | dave> The richedit module works really well, only I can only 
Harald.Piske> | seem to add text
Harald.Piske> | dave> to it with 
Harald.Piske> | dave> 
Harald.Piske> | dave> $RE->Text("$data");
Harald.Piske> | dave> 
Harald.Piske> | dave> Everytime I do this it replaces the existing text. Is 
Harald.Piske> | there a way to
Harald.Piske> | dave> append to the existing text instead( starting on a new line )?
Harald.Piske> | dave> 
Harald.Piske> | dave> Thank you, 
Harald.Piske> | dave> Dave
Harald.Piske> | dave> 
Harald.Piske> | dave> 
Harald.Piske> | dave> 
Harald.Piske> | dave> _______________________________________________
Harald.Piske> | dave> Perl-Win32-GUI-Users mailing list
Harald.Piske> | dave> Per...@li...
Harald.Piske> | dave> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Harald.Piske> | 
Harald.Piske> | <sig>  Anthony George <ag...@em...> Systems Engineer.
Harald.Piske> | Do your technical services need medical attention?  We can 
Harald.Piske> | help.  EMSTS, LLC.
Harald.Piske> | 800-304-8269   231-720-1600   http://www.emsts.com  </sig>
Harald.Piske> | 
Harald.Piske> | 
Harald.Piske> | 
Harald.Piske> | _______________________________________________
Harald.Piske> | Perl-Win32-GUI-Users mailing list
Harald.Piske> | Per...@li...
Harald.Piske> | http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
Harald.Piske> | 
Harald.Piske> 
Harald.Piske> _______________________________________________
Harald.Piske> Perl-Win32-GUI-Users mailing list
Harald.Piske> Per...@li...
Harald.Piske> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

<sig>  Anthony George <ag...@em...> Systems Engineer.
Do your technical services need medical attention?  We can help.  EMSTS, LLC.
800-304-8269   231-720-1600   http://www.emsts.com  </sig>

Actually, Morbus' approach is the better choice, if you don't mind my saying
so. While simply getting the text and setting the appended text basically
works (btw: even $RE->{-text} .= $newText; would do), what happens is that
the whole field gets refilled and redrawn, using a lot of resources for
nothing. With a couple of hundred lines this may cause annoying flicker,
plus it shifts the scroll bar back to the top. Selecting "nothing" past the
end of the contents and replacing the selection is the way to "go by the
book", so to speak.

	$RE->Select (1e9, 1e9);
	$RE->ReplaceSel ($newText);

With a scrollable textfield this would also have the nice side-effect of
scrolling the new line into view. This does not work for richedit fields as
of 0.0.558 - there was a lengthy trail on this list about a work-around.
Bottom line, if you don't need text formatting, use a standard multiline
textfield instead of a richedit, it makes life easier.

Sorry for bugging in
Have fun,
Harald

| -----Original Message-----
| From: Anthony George [mailto:ag...@em...]
| Sent: Tuesday, May 29, 2001 11:59
| To: per...@li...
| Subject: Re: [perl-win32-gui-users] Appending to RichEdit?
| 
| 
| Get the text, append, send it out:
| my $previousText=$RE->Text();
| $RE->Text($previusText.$newText);
| 
| 
| On Tue, 29 May 2001 13:45:25 -0400 
| "Dave" <da...@sk...> mentioned:
| 
| dave> This seems like it should be pretty easy, but I can't 
| figure out how to
| dave> add text to a richedit window after the text that is 
| already there.
| dave> 
| dave> I need to be able to continually add lines to the 
| window, from different
| dave> sources (from the clipboard , textfields / buttons ), 
| then the user
| dave> needs to be able to edit it before sending it to print.
| dave> 
| dave> The richedit module works really well, only I can only 
| seem to add text
| dave> to it with 
| dave> 
| dave> $RE->Text("$data");
| dave> 
| dave> Everytime I do this it replaces the existing text. Is 
| there a way to
| dave> append to the existing text instead( starting on a new line )?
| dave> 
| dave> Thank you, 
| dave> Dave
| dave> 
| dave> 
| dave> 
| dave> _______________________________________________
| dave> Perl-Win32-GUI-Users mailing list
| dave> Per...@li...
| dave> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| 
| <sig>  Anthony George <ag...@em...> Systems Engineer.
| Do your technical services need medical attention?  We can 
| help.  EMSTS, LLC.
| 800-304-8269   231-720-1600   http://www.emsts.com  </sig>
| 
| 
| 
| _______________________________________________
| Perl-Win32-GUI-Users mailing list
| Per...@li...
| http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| 

Get the text, append, send it out:
my $previousText=$RE->Text();
$RE->Text($previusText.$newText);


On Tue, 29 May 2001 13:45:25 -0400 
"Dave" <da...@sk...> mentioned:

dave> This seems like it should be pretty easy, but I can't figure out how to
dave> add text to a richedit window after the text that is already there.
dave> 
dave> I need to be able to continually add lines to the window, from different
dave> sources (from the clipboard , textfields / buttons ), then the user
dave> needs to be able to edit it before sending it to print.
dave> 
dave> The richedit module works really well, only I can only seem to add text
dave> to it with 
dave> 
dave> $RE->Text("$data");
dave> 
dave> Everytime I do this it replaces the existing text. Is there a way to
dave> append to the existing text instead( starting on a new line )?
dave> 
dave> Thank you, 
dave> Dave
dave> 
dave> 
dave> 
dave> _______________________________________________
dave> Perl-Win32-GUI-Users mailing list
dave> Per...@li...
dave> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

<sig>  Anthony George <ag...@em...> Systems Engineer.
Do your technical services need medical attention?  We can help.  EMSTS, LLC.
800-304-8269   231-720-1600   http://www.emsts.com  </sig>

 >I need to be able to continually add lines to the window, from different
 >sources (from the clipboard , textfields / buttons ), then the user
 >needs to be able to edit it before sending it to print.

Attached is a gui library that does exactly that. You should be able to 
hunt it down - the RE is made in &gui_init, and the text is appended in 
&gui_note. If you have any questions, lemme know.

This seems like it should be pretty easy, but I can't figure out how to
add text to a richedit window after the text that is already there.

I need to be able to continually add lines to the window, from different
sources (from the clipboard , textfields / buttons ), then the user
needs to be able to edit it before sending it to print.

The richedit module works really well, only I can only seem to add text
to it with 

$RE->Text("$data");

Everytime I do this it replaces the existing text. Is there a way to
append to the existing text instead( starting on a new line )?

Thank you, 
Dave

Yes, yes, that gets a windows handle, but not a Win32::GUI::Window object
containing the handle, which seems to be the only thing -parent will accept.
Attempting to pass $desktop (as defined below) to -parent results in a crash
on my machine.

Aldo Calpini wrote:

> Glenn Linderman wrote:
> > Perhaps the desktop could be used, if there was a way to get its handle
> > into a Win32::GUI::Window object.
>
>     my $desktop = Win32::GUI::GetDesktopWindow();
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

What is the event generated when you click on the [?] button (next to the
[X] terminate button) on a DialogBox?

I know the link , but ...

----- Original Message ----- 
From: "Frazier, Joe Jr" <Joe...@Pe...>
To: <per...@li...>
Sent: Tuesday, May 29, 2001 2:10 PM
Subject: [perl-win32-gui-users] Gui Builder


Could someone give me the link for the GUIBuilder.  I remember seeing it
serveral weeks ago, but because I did not have access to a 5.6 Perl, I
could not use it.  Alternatly, is there a searchable archive for the
list on sourceforge?


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

Was the -dialogui option implemented on Window? I am trying to use tabstops
and I thought I remembered seeing mention of this on the list but [1] can't
find it and [2] it doesn't work on my NT4 machine. Works fine as a
DialogBox, though.

Thanks,
Pete

Could someone give me the link for the GUIBuilder.  I remember seeing it
serveral weeks ago, but because I did not have access to a 5.6 Perl, I
could not use it.  Alternatly, is there a searchable archive for the
list on sourceforge?