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

Re: [perl-win32-gui-users] AutoScrolling a RichEdit?

[Johan L. <jp...@bo...>]

Morbus wrote:
>Neat idea, but now, instead of seeing the last $message being passed as 
>the first line of the RichEdit (scrolled to that first line), I see a 
>blank screen - the autoscroll goes past my last line... Course, changing 
>the \n around fixes that (with the side effect of a blank first line), but 
>my autoscrolling problem is still there.

Sorry I'm dense, I don't get it. Try this:


----------
#!/usr/local/bin/perl -w

use strict;

use Win32::GUI;

my $winMain = new Win32::GUI::Window(
         -left   => 13,
         -top    => 32,
         -width  => 439,
         -height => 260,
         -name   => "winMain",
         -text   => "Autoscroller"
         );

$winMain->AddRichEdit(
                 -text    => "",
                 -name    => "rePOD",
                 -left    => 0,
                 -top     => 0,
                 -width   => 400,
                 -height  => 220,
                 -style    =>
                                 WS_CHILD | WS_VISIBLE | ES_LEFT | 
ES_MULTILINE |
                                 ES_AUTOVSCROLL | WS_VSCROLL |
                                 ES_AUTOHSCROLL | WS_HSCROLL |
                                 ES_READONLY,
                 -exstyle  => WS_EX_CLIENTEDGE,
                 -tabstop        => 1,
             );

$winMain->Show();

for my $i (1..40) {
     Win32::GUI::DoEvents();

     $winMain->rePOD->Select(999999,999999); #Stolen from the PM chatterbox
     $winMain->rePOD->ReplaceSel("line $i\n",1);
     select(undef, undef, undef, 0.25);
     }

#EOF
----------

This will scroll the RichEdit as you "print" more text into it. Is that not 
what you wanted?

If you want to scroll the RichEdit to a certain line, download the Oasis 
source and look at the Win32::GUI::AdHoc module. It contains the sub

   richEditScroll($reControl, $noCol, $noLines)

which sends the EM_LINESCROLL message to the RichEdit control.


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...


NetZero Platinum
No Banner Ads and Unlimited Access
Sign Up Today - Only $9.95 per month!
http://www.netzero.net

RE: [perl-win32-gui-users] AutoScrolling a RichEdit?

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

| Neat idea, but now, instead of seeing the last $message being 
| passed as the first line of the RichEdit (scrolled to that first line), I 
| see a blank screen - the autoscroll goes past my last line... Course, 
| changing the \n around fixes that (with the side effect of a blank first 
| line), but my autoscrolling problem is still there.
| 
| Any ideas?

is the -height of your richie just missing from the code snippet you posted,
or do you really manage to create the control with zero height? 'Cause, if I
do, my field actually has zero height. Nada. From what you say, it seems to
me that your field is just one line high, so you actually would have to
scroll to the second-to-last line. Try
	$Main->Rich->SendMessage (0x115, 7, 0);	# scroll to bottom
	$Main->Rich->SendMessage (0x115, 0, 0);	# scroll one line up


But let me get this straight, please:
    $Window->Richie->SendMessage (0x115, 7, 0);
sends WM_VSCROLL to Richie with nScrollCode parameter set to SB_BOTTOM.
    Win32::GUI::SendMessage($logbox, 277, 7, 7);
as you had it, happens to do the same thing - the second 7 is actually
supposed to be the window handle of the scroll bar, but is unused with
SB_BOTTOM, so nothing goes foom from that error.

This works fine here with me, whether the WS_VSCROLL property is set or not.

Johan's idea of selecting past the end of the field's contents and replacing
the selection in order to force an autoscroll, works fine with textfields,
but not richedit controls (sorry Johan - dirty trivia Harry has got you
again ;-)

My question is: why did it not scroll the way you first had it and why does
it scroll now - or, the other way 'round: why does MY richedit scroll with
Morbus' code and not with Johan's?? I fiddled around with all the parameters
and cannot reproduce what happens at your place.

Re: [perl-win32-gui-users] AutoScrolling a RichEdit?

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

>#Select the last thing in the RichEdit
>$rePOD->Select(999999,999999);
>
>#Replace the selection with new text
>$rePOD->ReplaceSel("$line\n",1);

Neat idea, but now, instead of seeing the last $message being passed as the 
first line of the RichEdit (scrolled to that first line), I see a blank 
screen - the autoscroll goes past my last line... Course, changing the \n 
around fixes that (with the side effect of a blank first line), but my 
autoscrolling problem is still there.

Any ideas?

Re: [perl-win32-gui-users] AutoScrolling a RichEdit?

[Johan L. <jp...@bo...>]

Morbus Iff wrote:
>   # add the string to our box.
>    $logbox->Text($logbox->Text . "\r\n $message");

Instead of replacing the entire text with the entire text + something new, 
add the new text to the bottom of the existing text:

#Select the last thing in the RichEdit
$rePOD->Select(999999,999999);

#Replace the selection with new text
$rePOD->ReplaceSel("$line\n",1);

I "stole" this technique from the PerlMonks chatterbox client.


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

[perl-win32-gui-users] AutoScrolling a RichEdit?

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

I'm having difficulty trying to get an autoscrolling RichEdit - I can get 
the scroll bar to show up correctly, but all attempts to have the text 
automatically scroll up in the RichEdit is failing. In some cases, no 
scrolling occurs (although I can see the scroll bar growing), and in 
others, scrolling occurs, but the last line of text shows as the first line 
of the window (not the last).

My creator code:

   # create the log box which is gonna hold all our info.
    $logbox = $window->AddRichEdit( -name    => "_RichEdit",
                                    -font    => $font,
                                    -top     => 116,
                                    -left    => 0,
                                    -width   => 505,
                                    -tabstop => 1,
                                    -autovscroll => 1,
                                    -style   => WS_CHILD | WS_VISIBLE 
|
                                                WS_VSCROLL | WS_HSCROLL |
                                                ES_LEFT | ES_MULTILINE

And my add code:

    # add the string to our box.
    $logbox->Text($logbox->Text . "\r\n $message");

    # autoscroll the window. 277 is the number
    # of the WM_VSCROLL constant, which Win32::GUI
    # doesn't seem to define for us.
    Win32::GUI::SendMessage($logbox, 277, 7, 7);

In the above cases, $message always contains the complete RichEdit text so 
that it can be reprinted (this is probably wrong). The SendMessage I dunno 
what it does - it came from someone else. If I comment it out, no scrolling 
occurs.

What's my solution?

[perl-win32-gui-users] Win32::Setupsup on 5.6

[Thomas, T. B <tim...@lm...>]

Has anyone been able to get Setupsup to work on Perl 5.6. I can't get it
loaded via PPM and I tried to download the thing and do the makefile.pl,
nmake processes, but that didn't work at all. Does anyone know where it can
be installed from?
	Thanks,
		Tim

Re: [perl-win32-gui-users] Modal dialog box - how?

[Johan L. <jp...@bo...>]

Harald wrote:
>| If anyone knows how to get a Window to not be
>| displayed in the taskbar, please let me know.
>
>There is in fact a -parent => option coded in the XS function

Yes, Harald "Win32::GUI trivia" Piske did it again :)

Createing a window with a -parent => $winParent will display the window on 
top of the parent window, but it will not make it inactive in any way.


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

[perl-win32-gui-users] Icon in Button - can't get it to work

[Johan L. <jp...@bo...>]

Anyone have a working code example of a simple Button with an Icon image in it?

I managed to use a Bitmap image in the Button, but the "background" grey 
color in the image got miscolored (i.e. not quite the button grey, but a 
touch darker).

So I thought I'd try with an Icon instead, and use a real "masked" 
background color. I tried with both an icon of my own with a 16x16 and a 
32x32 version, and the guiperl.ico icon.

No luck. The Button text isn't visible anymore, but no icon either...


/J

PS. You can see the "ugly" buttons in the latest release of Oasis, which 
also includes:
+ Buttons to open Explorer, Explorer | Search... using a DDE link
+ Help POD & local HTML help
+ Preferences... modal dialog box
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

[perl-win32-gui-users] ChooseFont - can't get it to work

[Johan L. <jp...@bo...>]

Does the Win32::GUI::ChooseFont() work?

The -name is pretty straightforward, but I don't understand what I should 
do with the -size I get back. If I use it to set a font size in a RichEdit, 
the type is smaller than what I selected.

The -size passed to the sub doesn't seem to affect the preselected Size in 
the dialog box. The -height attribute seems to determine the Size in the 
dialog box, but no -height is returned. I'm trying to do a 
RichEdit->SetCharFormat() which unfortunately is undocumented, so... :/

BTW, the TreeView example behaves kind of weird if you do "Options | Choose 
font...".


/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

[perl-win32-gui-users] Re: Net::FTP size()

[Jeremy A. <bc...@te...>]

dont reply, I fixed it.


jeremy

[perl-win32-gui-users] Net::FTP size()

[Jeremy A. <bc...@te...>]

hi

I have a ftp script that i have been testing on my own machine. It works
when i try it on my ftp server on my computer, but it does not work when on
any server that is not mine.

I feel it is the $ftp->size() that does not register when i logon to a
remote site whether it be a microsoft, freebsd or linux server.....it gives
me no value for the size of the given file...without this i cannot
download, as i have setup my transfers not using the get() command, but
using the $ftp->retr for the purpose of displaying the gui progress bar of
the transfer.


try the attached script....just run it, it will log you on to anomynously
to ftp.microsoft.com and attempt to download a file.

it will display debugging messages such as "cannot get filesize "

Re: [perl-win32-gui-users] Image Display without Dialog()

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

> | To my disappoint, the image didn't display.
> That is more than strange. Say, you should make sure you have the latest
> Win32-GUI version. When you do "ppm query" from a DOS prompt, it should
say
> 0.0.558 and NOT 0.99, which has been around for a while.

We actually figured this out about 20 minutes after emailing it - the
solution came after figuring out why our menu bar wasn't showing after a
refresh. In the Windows.pl file attached yesterday, we "my" the menu, which
expires after &gui_init returns. The simple solution was to make the menu
global... Similar thing's happened with the image - as soon as we made the
image global it displayed fine.

The rest of your message was informative - thanks. Definitely a printout.

Any more thoughts on my DoEvents problem causing all those warning's? I was
initially thinking to define a empty subroutine for mouse movement, because
the warn's increased exponentially when I flurried my mouse over the window,
but just having the focus on the window causes the warnings...

Looking through the archives suggested that other people are seeing this
too, but besides a workaround that doesn't solve the problem (just quenches
it), no solutions... Any ideas?

RE: [perl-win32-gui-users] Image Display without Dialog()

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

| Good day.
Sure - it's a friday! Thank you.

| To my disappoint, the image didn't display.
That is more than strange. Say, you should make sure you have the latest
Win32-GUI version. When you do "ppm query" from a DOS prompt, it should say
0.0.558 and NOT 0.99, which has been around for a while.

| Or someway where I can call Dialog(), but immediately return 
| so that the script can continue?
Yes. Upon the initial $Main->Show(), you get two Main_Resize events pending.
Return -1 from the second one and your Dialog() call returns. You can still
DoEvent() and Dialog() around after that; ie no controls are being destroyed
at that point.

$resizecount = 0;
sub Main_Resize {
    return -1 if ++$resizecount == 2;
    # other stuff here
    return 1;  # don't forget that
}

Have fun,
Harald

[perl-win32-gui-users] Image Display without Dialog()

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

Good day.

I just used the GUI Builder to create a simple script that displayed an
image. I sucked the code for the image and threw it into my "real" code that
use DoEvents and is part of a while loop that does a bunch of other little
things. To my disappoint, the image didn't display.

I finally tracked it down to the Win32::GUI::Dialog() call. If I add that,
then the image displays fine but my script stops dead waiting for the
Dialog() that never returns. If I remove the Dialog() call, then my script
happily works as intended, only with no image display.

Is there a way around this?
Some internal Paint call that I can use that will display the image?
Or someway where I can call Dialog(), but immediately return so that the
script can continue?

RE: [perl-win32-gui-users] DoEvents and Uninit's...

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

>I don't know if that's the reason for your going batty, but your $logbox
>control doesn't have a name. That's a big no-no. You call DoEvents for the
>first time and GUI doesn't know where to mail the Resize or Show events.
>Maybe that's what causes it to screech, maybe not.

Welp, I gave the blasted thing a title, and with the Win32::GUI::DoEvents,
it still blabbers about uninit'd values. I've yet to try
$window->DoEvents(), but I'll try that tomorrow.

Any other ideas? What does DoEvents check?

-- 
      ICQ: 2927491      /      AOL: akaMorbus
   Yahoo: morbus_iff    /  Jabber: mo...@ja...
   mo...@di...   /   http://www.disobey.com/

RE: [perl-win32-gui-users] DoEvents and Uninit's...

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

I don't know if that's the reason for your going batty, but your $logbox
control doesn't have a name. That's a big no-no. You call DoEvents for the
first time and GUI doesn't know where to mail the Resize or Show events.
Maybe that's what causes it to screech, maybe not.

Have fun,
Harald


| -----Original Message-----
| From: Morbus Iff [mailto:mo...@di...]
| Sent: Thursday, April 26, 2001 14:35
| To: per...@li...
| Subject: [perl-win32-gui-users] DoEvents and Uninit's...
| 
| 
| Hey there... this is driving me flippin' batty. I've included 
| a GUI layer 
| library below that can be dropped into an existing program 
| (currently, the 
| one I'm using it with is AmphetaDesk at disobey.com/amphetadesk/).
| 
| Besides some uninit's that I know about and plan on fixing, 
| I'm getting 
| uninit's *every single time* that the DoEvents is called. The 
| specific 
| lines are 130 and 160, which match up to these blocks:
| 
| 	sub gui_listen {
| 
| 	# anyone there?
|     	Win32::GUI::PeekMessage(0,0,0);
|     	Win32::GUI::DoEvents();
| 
| 	return 1;
| 	}
| 
| The error is the normal "use of unitialized value" junk, and 
| it points 
| strictly to the DoEvents line.
| 
| What am I doing wrong? How can I make 'em go away?
| 

[perl-win32-gui-users] DoEvents and Uninit's...

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

Hey there... this is driving me flippin' batty. I've included a GUI layer 
library below that can be dropped into an existing program (currently, the 
one I'm using it with is AmphetaDesk at disobey.com/amphetadesk/).

Besides some uninit's that I know about and plan on fixing, I'm getting 
uninit's *every single time* that the DoEvents is called. The specific 
lines are 130 and 160, which match up to these blocks:

	sub gui_listen {

	# anyone there?
    	Win32::GUI::PeekMessage(0,0,0);
    	Win32::GUI::DoEvents();

	return 1;
	}

The error is the normal "use of unitialized value" junk, and it points 
strictly to the DoEvents line.

What am I doing wrong? How can I make 'em go away?

RE: [perl-win32-gui-users] Modal dialog box - how?

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

| If anyone knows how to get a Window to not be 
| displayed in the taskbar, please let me know.

I did not try it, but if I'm not mistaken, only top level windows (ie,
desktop children) appear in the taskbar. If you manage to create a window as
a child to your "main" window, it might solve a problem or two (or create
some).

There is in fact a -parent => option coded in the XS function
ParseWindowOptions, which is used by both Win32::GUI::DialogBox and
Win32::GUI::Window. As I said, I did not try it and don't have the time
right now. Maybe there is also another way to hide the taskbar icon of top
level windows.

Have fun,
Harald

Re: [perl-win32-gui-users] Modal dialog box - how?

[Johan L. <jp...@bo...>]

I wrote:
>Is there a way to create a "real" modal dialog box using Win32::GUI?

I guess not. Maybe in a future release of Win32::GUI? I looked around in 
the XS code and the SDK documentation, but couldn't get anything to work. 
So, I wrote a class to handle this: Win32::GUI::Modalizer. Name suggestions 
welcome :)

In brief it works like this when a modal window is displayed:

* When the modal window receives an Activate() event, Modalizer makes sure 
all application windows are on top of other applications.

* When windows other than the modal window receives an Activate() event, 
the modal window is immediately brought to the top.

This was actually a bit tricky to get working with events fired off left 
and right, recursively to boot. The solution isn't perfect, but it goes a 
long way. If anyone knows how to get a Window to not be displayed in the 
taskbar, please let me know.

Win32::GUI::Modalizer is available in the Oasis source package. There is a 
complete example in the SYNOPSIS, so you can try it out and tell me that it 
doesn't work on your installation :)


/J


--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

[perl-win32-gui-users] Oasis release

[Johan L. <jp...@bo...>]

A new release of Oasis is available at

http://www.bahnhof.se/~johanl/perl/Oasis/

New features include:
- Bug fixes
- Used modules are color coded (local vs. in the @INC)
- Inheritance tree (@ISA modules)
- Projects - browse files in your Project directories
- Recent files
- @INC - browse files in your include directories
- Help text
- About box (which is almost truly modal, see other mail)

A cool feature is the Projects list. You don't have to enter them manually 
(but you can if you want), Oasis will identify Projects on it's own.

Oasis tries to find used and required modules. Based on the name of the 
module and the directory in which the module was found, Oasis can determine 
which directory is the base directory for the application. For example, 
open the Oasis source file Oasis\lib\PDE\Editor\UltraEdit.pm and Oasis will 
find that Oasis\lib is a Project directory.

As always, I appreciate comments, feature suggestions, and bug reports.


/J
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

[perl-win32-gui-users] RE: [perl-win32-gui-users]FTP-Status download cancel event

[Jeremy A. <bc...@te...>]

At 02:54 PM 24/04/2001 -0700, you wrote:

Hi,

You may want to see my script attached.

I still don't quite understand how to get the cancel to work while download
is in progress.

I always appreciate your help, as I am new to gui development.

thankyou.

Jeremy


>| is there a way for it to listen while it downloads for the 
>| cancel event?
>Your sub Cancel_Click should NOT exit, however, the exit statement is never
>reached due to the return.
>Return -1 is correct, this is how you tell the GUI to end the message loop.
>Now the message loop exits back into your script from where it was called.
>At this point, YOU must watch for the GUI to exit:
>
>last if Win32::GUI::DoEvents() < 0;
>
>instead of just Win32::GUI::DoEvents();
>
>The chain goes:
>1) you call Dialog() or DoEvents() inside GUI
>2) GUI calls subs according to messages - like Cancel_Click when Exit button
>is clicked.
>3) your sub is active
>4) your sub returns -1
>5) GUI stops looking for messages and returns -1
>6) your script continues
>
>Have fun,
>Harald
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

RE: [perl-win32-gui-users] FTP-Status download Gui-program

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

| is there a way for it to listen while it downloads for the 
| cancel event?
Your sub Cancel_Click should NOT exit, however, the exit statement is never
reached due to the return.
Return -1 is correct, this is how you tell the GUI to end the message loop.
Now the message loop exits back into your script from where it was called.
At this point, YOU must watch for the GUI to exit:

last if Win32::GUI::DoEvents() < 0;

instead of just Win32::GUI::DoEvents();

The chain goes:
1) you call Dialog() or DoEvents() inside GUI
2) GUI calls subs according to messages - like Cancel_Click when Exit button
is clicked.
3) your sub is active
4) your sub returns -1
5) GUI stops looking for messages and returns -1
6) your script continues

Have fun,
Harald

Re: [perl-win32-gui-users] FTP-Status download Gui-program

[Jeremy A. <bc...@te...>]

At 04:33 PM 24/04/2001 -0400, you wrote:

Johan,

Thankyou for your help so far....it was a careless error that nothing to do
with the gui aspect...I got the download status working..

I have readded the DoEvents(), but i cannot get the cancel button "kill" to
work.

the kill should work in the middle of the transfer...eg...the while(1) loop.

I don't know how to do this with the dialog() call, because this call
causes everything to freeze until a button is pressed.

putting dialog() in the middle of the while loop will not work.

is there a way for it to listen while it downloads for the cancel event?

>Jeremy wrote:
>>I still cannot get my script to work with the gui windows, when the gui=
 sub
>>routine gets called and the windows gets created, the program freezes and
>>script does not continue
>>
>>As suggested by some I have gotten rid of the Dialog() call,
>
>There is one more place where it should be removed from i think (depends on=
=20
>what you want). Try that.
>
>
>>and have replaced the DoEvents() call with Update();
>
>Not sure about this one. You need the DoEvents() call if you want people to=
=20
>be able to abort. The ProgressBar is presumably updated with the SetPos()
call.
>
>
>>this is the only thing that happens, then my program exits mysteriously
>>without entering the while(1) loop which is the download progress of the
file.
>>I am left with a file-to-be of "0" bytes.
>
>Put print statements in your code to tell you exactly how far it goes and=
=20
>where, what values variables have etc. Data::Dumper is very nice if you=20
>have data structures to display.
>
>Also, coding Perl without "use strict;" and warnings are unnecessarily=20
>difficult and error prone. Just a tip.
>
>
>Hope That Helps,
>
>/J
>
>--
>Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
>jp...@bo...
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] FTP-Status download Gui-program problem continues

[Johan L. <jp...@bo...>]

Jeremy wrote:
>I still cannot get my script to work with the gui windows, when the gui sub
>routine gets called and the windows gets created, the program freezes and
>script does not continue
>
>As suggested by some I have gotten rid of the Dialog() call,

There is one more place where it should be removed from i think (depends on 
what you want). Try that.


>and have replaced the DoEvents() call with Update();

Not sure about this one. You need the DoEvents() call if you want people to 
be able to abort. The ProgressBar is presumably updated with the SetPos() call.


>this is the only thing that happens, then my program exits mysteriously
>without entering the while(1) loop which is the download progress of the file.
>I am left with a file-to-be of "0" bytes.

Put print statements in your code to tell you exactly how far it goes and 
where, what values variables have etc. Data::Dumper is very nice if you 
have data structures to display.

Also, coding Perl without "use strict;" and warnings are unnecessarily 
difficult and error prone. Just a tip.


Hope That Helps,

/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

[perl-win32-gui-users] FTP-Status download Gui-program problem continues

[Jeremy A. <bc...@te...>]

Hello all

I still cannot get my script to work with the gui windows, when the gui sub
routine gets called and the windows gets created, the program freezes and
script does not continue

As suggested by some I have gotten rid of the Dialog() call, and have
replaced the DoEvents() call with Update();

as you can see in the script, the empty file-to-be is created.....

this is the only thing that happens, then my program exits mysteriously
without entering the while(1) loop which is the download progress of the file.
I am left with a file-to-be of "0" bytes.

Try it running the script yourself configuring it to your own ftp and see
what you can make of problem. It's fairly straitforward to setup


I have not done win32::Gui programming before so your help is always
appreciated.

See the script attached.

Thankyou

Jeremy