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

[perl-win32-gui-users] Tutorials

[Brad C. <b_c...@ya...>]

I just decided to take Win32-GUI for a test drive and
tried the following sample.  It abortrf on the
addlabel method.  I'm running on Win2000 and I've got
the latest release of Win32-GUI I believe, release
0.0.558.  If I comment that line out it runs fine.
Also, I also noticed that the tutorial page one is
missing.

    use Win32::GUI;
    $main = Win32::GUI::Window->new(
                -name   => 'Main',
                -width  => 100,
                -height => 100,
        );
    $main->AddLabel(-text => "Hello, world");
    $main->Show();
    Win32::GUI::Dialog();


    sub Main_Terminate {
        -1;
    }

Thanks in Advance
Brad



__________________________________________________
Do You Yahoo!?
Get email alerts & NEW webcam video instant messaging with Yahoo! Messenger. http://im.yahoo.com

Re: [perl-win32-gui-users] Wrapping text

[Jeremy D. <jer...@ad...>]

Try adding -wrap=>1

Jeremy

At 08:36 24/09/01 +0200, you wrote:
>This is probably a simple one, but I can't find out how to wrap text,
>for example the "text" property for a Radiobutton.
>I tried with a Perlish carriage return+newline such as "bla \r\n more
>bla", which did not work. What code do you use?
>
>Thanks,
>
>Marcus
>
>
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Wrapping text

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

> This is probably a simple one, but I can't find out how to wrap text,
> for example the "text" property for a Radiobutton.
> I tried with a Perlish carriage return+newline such as "bla \r\n more
> bla", which did not work. What code do you use?

I dunno if this comes down to the same side-effect or has anything to do
with it. I just remembered Aldo talking about labels and multiline captions
in this thread:


> -----Original Message-----
> From: Aldo Calpini [mailto:da...@pe...]
> Sent: Monday, August 06, 2001 03:42
> To: Renat Araslanow
> Cc: per...@li...
> Subject: Re: [perl-win32-gui-users] bug_or_feature [1]

Renat Araslanow wrote:
> Subject: Can't see label with user defined font
> Reason: '-escapement' tag in font definition"

this is a (rather unpleasant) feature :-)
the label is there, and the text is even rotated 90, but it
falls outside of the label area. the reference point for the
text is the upper left corner of the label, so when you rotate
it, the text is above the label area. the following ASCII art
should (hopefully) explain what's happening:

               T
               X
               E
               T
  +------+    +------+
  |TEXT  |    |      |
  +------+    +------+
  normal      rotated

I did some research and found that, in order to see at least
some of the text inside the label, you need this:

    $W->AddLabel(
        -name=>"ok",
        -left=>0,-top=>100,
        -width=>500,-height=>500,
        -align => 'center',  # center horizontally
        -addstyle => 0x200, # SS_CENTERIMAGE (center vertically)
        -font=>$font1,
        -text=>"ooooooo",
    );

the only drawback to this is that SS_CENTERIMAGE works only for
a single-line text. if you try it with more than one line, it
just doesn't wrap.

another pretty ugly workaround to fit the text in the label area
is to add some newline before the text (eg. -text =>
"\r\n\r\noooooo").

> when i write in C and use it - it working pretty good.

you should've been writing something else, because in C it works
exactly the same way as Win32::GUI.


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

[perl-win32-gui-users] Wrapping text

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

This is probably a simple one, but I can't find out how to wrap text,
for example the "text" property for a Radiobutton.
I tried with a Perlish carriage return+newline such as "bla \r\n more
bla", which did not work. What code do you use?

Thanks,

Marcus

Re: [perl-win32-gui-users] Embedding a browser window of some sor t?...

[Sean H. <jal...@ho...>]

>Well, i know how to get their default web browser, but i don't know how i
>could, say, embed it inside a win32::gui window, or (what i'd rather do)
>create my own window that could interpret simple html...no images or
>javascript or anything, just text formatting.

Well, if all you want is text formatting, I suggest using html2rtf and 
RichEdit.  The program is available here: 
http://www.speech.cs.cmu.edu/~sburke/html2rtf/ (this page describes how to 
use the program; you can get the file itself from a link near the bottom of 
the page).  (One caveat: html2rtf can't do tables.)

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

RE: [perl-win32-gui-users] Embedding a browser window of some sor t?...

[Frazier, J. J. <Joe...@Pe...>]

If you JUST want to get html content and only get the text part of it,
use LWP.  You may also want to use HTML::Tree or HTML::Treebuilder or
the other various HTML::* modules if you need to format the text in a
richedit field or something.   I have never used any of these, However,
I would assume HTML::* would have some functions to tell you what is a
Heading and you could then update that part with a bigger font for
instance.  Again, I dont know, but would be worth looking into.
=20
=20

-----Original Message-----
From: Eva...@ao... [mailto:Eva...@ao...]
Sent: Friday, September 21, 2001 13:38
To: per...@li...
Subject: Re: [perl-win32-gui-users] Embedding a browser window of some
sor t?...


>Not sure exactly what you're asking but the easiest way=20
>I've found to open html files with the users' preferred=20
>browser is to let the OS decide and simply execute that=20
>file like so:=20
>=20
>`\\path\\filename.htm`;=20
>=20
>This works on NT4, but I doubt it would work on Win9x/ME=20
>. If that's the OS you're working with I suppose your=20
>script could use Win32::Registry to find the default=20
>browser.=20
>=20
>But, of course, this may not have been your question :)=20
>=20
>-Pete=20

Well, i know how to get their default web browser, but i don't know how
i could, say, embed it inside a win32::gui window, or (what i'd rather
do) create my own window that could interpret simple html...no images or
javascript or anything, just text formatting.=20


-=20
______________________________=20
"Very funny Scotty.  Now beam up my clothes."=20

RE: [perl-win32-gui-users] Embedding a browser window of some sort?...

[Frazier, J. J. <Joe...@Pe...>]

The closest I could get(NOT embedded!!!):
use Win32::OLE;
use Win32::GUI;
=20
my $win =3D new Win32::GUI::Window (
    -name   =3D> "Window",
 #-topmost =3D> 1,
    -left   =3D> 100,
    -top    =3D> 100,
    -width  =3D> 550,
    -height =3D> 550,
    #-maxsize  =3D> [550,550],
    #-minsize  =3D> [205,228],
    -text   =3D> "PC 4.0 Keys",
 -maximizebox =3D> 0,
 -minimizebox =3D>1,
 -helpbutton =3D> 0,
 -resizable =3D>0,
);
=20
my $ie =3D Win32::OLE->new('InternetExplorer.Application');
$ie->{AddressBar} =3D0;
$ie->Navigate( 'www.microsoft.com');
$ie->{MenuBar} =3D0;
$ie->{Top} =3D110;
$ie->{Left} =3D110;
$ie->{height} =3D500;
$ie->{width} =3D500;
$ie->{StatusBar} =3D0;
$ie->{ToolBar} =3D0;
$ie->{Resizable} =3D 0;
$ie->{Visible} =3D1;
=20
$win->Show();
Win32::GUI::Dialog;
=20
sub Window_Terminate {
 $ie->Quit();
 undef $ie;
 return -1;
}
=20
This does however, give you programtic control over the IE window
created.   To my knowledge, there is no way to "embed" it into the gui
window.   I will be using something like this to copy information from
IE to a GUI window( name, address, etc.) and then save the GUI data to a
DB.   What I had thought of doing was making the GUI window resized to
take up the left half of the screen and resize the IE window to take up
the right side of the screen when the IE window is opened.  Sorry, but
this is the best I can do for you.  It would be great if they could be
embeded directly, so then I could also embed Word, Excel, etc.....
Heck, I would probably be able to afford to donate $10  if someone could
figure out a way to hack the current version of Win32::GUI( doubtful) or
add it to the next version( and then release it!!). =20
=20
Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
joe...@pe...
=20

-----Original Message-----
From: Peter Eisengrein [mailto:Pet...@at...]
Sent: Friday, September 21, 2001 08:45
To: 'Eva...@ao...'; per...@li...
Subject: RE: [perl-win32-gui-users] Embedding a browser window of some
sort?...


Not sure exactly what you're asking but the easiest way I've found to
open html files with the users' preferred browser is to let the OS
decide and simply execute that file like so:
=20
`\\path\\filename.htm`;
=20
This works on NT4, but I doubt it would work on Win9x/ME. If that's the
OS you're working with I suppose your script could use Win32::Registry
to find the default browser.=20
=20
But, of course, this may not have been your question :)
=20
-Pete
=20
=20

-----Original Message-----
From: Eva...@ao... [mailto:Eva...@ao...]
Sent: 21 September 2001 03:31
To: per...@li...
Subject: [perl-win32-gui-users] Embedding a browser window of some
sort?...


I think a question similar to this may have been asked, but i didn't
find it in the mailing list archive, so here goes...I'm looking to make
or embed a web browser window of some sort as part of my own win32::gui
program.  i wouldnt really like to use any specific browser (ie,
netscape, etc.), because different people use different browsers, so is
there perhaps some sort of small existing program i could use to
interpret and display html properly?=20



-=20
______________________________=20
"Very funny Scotty.  Now beam up my clothes."=20

[perl-win32-gui-users] GetOpenFileName - allowing multiselect

[Mark S. <mrs...@ho...>]

Is there anyway to get the OpenFileDialog to allow selection of multiple 
files...?

Thanks!

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

Re: [perl-win32-gui-users] Embedding a browser window of some sor t?...

[<Eva...@ao...>]

>Not sure exactly what you're asking but the easiest way 
>I've found to open html files with the users' preferred 
>browser is to let the OS decide and simply execute that 
>file like so:
> 
>`\\path\\filename.htm`;
> 
>This works on NT4, but I doubt it would work on Win9x/ME
>. If that's the OS you're working with I suppose your 
>script could use Win32::Registry to find the default 
>browser. 
> 
>But, of course, this may not have been your question :)
> 
>-Pete

Well, i know how to get their default web browser, but i don't know how i 
could, say, embed it inside a win32::gui window, or (what i'd rather do) 
create my own window that could interpret simple html...no images or 
javascript or anything, just text formatting.
-
______________________________
"Very funny Scotty.  Now beam up my clothes."

RE: [perl-win32-gui-users] Embedding a browser window of some sor t?...

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

Not sure exactly what you're asking but the easiest way I've found to open
html files with the users' preferred browser is to let the OS decide and
simply execute that file like so:
 
`\\path\\filename.htm`;
 
This works on NT4, but I doubt it would work on Win9x/ME. If that's the OS
you're working with I suppose your script could use Win32::Registry to find
the default browser. 
 
But, of course, this may not have been your question :)
 
-Pete
 
 

-----Original Message-----
From: Eva...@ao... [mailto:Eva...@ao...]
Sent: 21 September 2001 03:31
To: per...@li...
Subject: [perl-win32-gui-users] Embedding a browser window of some sort?...


I think a question similar to this may have been asked, but i didn't find it
in the mailing list archive, so here goes...I'm looking to make or embed a
web browser window of some sort as part of my own win32::gui program.  i
wouldnt really like to use any specific browser (ie, netscape, etc.),
because different people use different browsers, so is there perhaps some
sort of small existing program i could use to interpret and display html
properly? 



- 
______________________________ 
"Very funny Scotty.  Now beam up my clothes." 

[perl-win32-gui-users] Embedding a browser window of some sort?...

[<Eva...@ao...>]

I think a question similar to this may have been asked, but i didn't find it 
in the mailing list archive, so here goes...I'm looking to make or embed a 
web browser window of some sort as part of my own win32::gui program.  i 
wouldnt really like to use any specific browser (ie, netscape, etc.), because 
different people use different browsers, so is there perhaps some sort of 
small existing program i could use to interpret and display html properly?

-
______________________________
"Very funny Scotty.  Now beam up my clothes."

[perl-win32-gui-users] OT: Windows internals

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

[Somewhat Off Topic, but not totally]

I'm trying to add an entry to the Windows SendTo context menu, so that
filenames can be sent directly to my application's listbox. I have that
working, however, I don't know how to determine the SendTo directory on
the various Windows versions.

I'm new to programming Windows specifics. Is there a good source for
finding such information?

Thanks,

Marcus

-------------------------------------------------------
Why War? - A correspondence between Albert Einstein and
Sigmund Freud.

http://www.wordit.com/why/why_war.html
-------------------------------------------------------

Re: [perl-win32-gui-users] Retrieve string in text field

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

Joe wrote:
>How do I retrieve the string in a text field?

$tfYourfield->Text()


/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 

RE: [perl-win32-gui-users] Hiding text while you type

[Timothy J. <tjo...@sa...>]

What is it?

-----Original Message-----
From: Jos...@DM... [mailto:Jos...@DM...]
Sent: Friday, September 14, 2001 8:03 AM
To: Jos...@DM...
Cc: per...@li...
Subject: Re: [perl-win32-gui-users] Hiding text while you type



Never mind.  I found it.




Jos...@dm...@lists.sourceforge.net on 09/14/2001 10:46:14 AM

Sent by:  per...@li...


To:   per...@li...
cc:    (bcc: Joseph Vieira/DMR/CA)
Subject:  [perl-win32-gui-users] Hiding text while you type


Hello,

Is there a way to hide the text while you are typing into a textfield.
Let's ay I have a textfield to enter a password.  I don't want the password
showing up as the user types it.  Instead I want '*' to show up, but the
variable assigned to that textfield holds the actual password.  Is there a
way to do this in the gui module?

Thanks,

Joe




_______________________________________________
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] Hiding text while you type

[<Jos...@DM...>]

Never mind.  I found it.




Jos...@dm...@lists.sourceforge.net on 09/14/2001 10:46:14 AM

Sent by:  per...@li...


To:   per...@li...
cc:    (bcc: Joseph Vieira/DMR/CA)
Subject:  [perl-win32-gui-users] Hiding text while you type


Hello,

Is there a way to hide the text while you are typing into a textfield.
Let's ay I have a textfield to enter a password.  I don't want the password
showing up as the user types it.  Instead I want '*' to show up, but the
variable assigned to that textfield holds the actual password.  Is there a
way to do this in the gui module?

Thanks,

Joe




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

Re: [perl-win32-gui-users] 1st tutorial

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

Marcus wrote:
>Are there any example programs I can look at?
>I didn't see any links on Sourceforge.

In the source distriution (at SourceForge) there are a few indispensible 
sample scripts.

Other programs you can study:

<http://www.perlmonks.org/index.pl?node_id=18472>
A PerlMonks chat client

<http://www.disobey.com/amphetadesk/>
<http://sourceforge.net/projects/amphetadesk/>
A news aggregator

<ftp://ftp.wh.whoi.edu/pub/gb109.zip>
A GUI designer

<http://www.bahnhof.se/~johanl/perl/Oasis/>
A POD/code browser

<http://www.bahnhof.se/~johanl/perl/Loft/>
A GUI designer

[please add to the list if you know of any program I forgot]


There is also the Perl Code Exchange's Win32::GUI section:
<http://www.jeb.ca/cgi-bin/exchange/display.cgi?cat=win32::gui>


And since you are new to Win32::GUI, don't miss the FAQ:
http://www.jeb.ca/faq/Win32-GUI-FAQ.html


/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 

Re: [perl-win32-gui-users] Two questions

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

Ultimate Red Dragon wrote:
>Also, um, why do 'multiline' textfields (and richedit fields) that I 
>create not seem to go down a line when I hit enter?

That's the way it works(tm). Enter will trigger the Default button (the Ok 
button usually). Ctrl-Enter will give you the newline.

But, you can create the control with the -addstyle => ES_WANTRETURN option, 
and that will make the _control_ capture the Enter keypress and make a new 
line for you. This only works for multiline controls.

Now, I know you use The GUI Loft, so I added a WantReturn property to the 
Textfield and RichEdit controls. Download the new release here:

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


/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 

RE: [perl-win32-gui-users] Horizontal scroll bars on richedit

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

> How do you get horizontal bars on a richedit window.  I don't 
> want the text
> to wrap around.  Is this possible?

use

	-addstyle => WS_VSCROLL | WS_HSCROLL

it should not wrap by default.

hth
Harald

RE: [perl-win32-gui-users] 1st tutorial

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

On 13.09.01 at 17:24 Peter Eisengrein wrote:
>the samples didn't come with the module download? I can zip 'em and
send
>to
>you off line, if you'd like.

Yes please. I installed via PPM a week or so ago. I can't find any
samples in the Perl directory.

Thanks,

Marcus

RE: [perl-win32-gui-users] 1st tutorial

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

the samples didn't come with the module download? I can zip 'em and send to
you off line, if you'd like.

> -----Original Message-----
> From: Marcus [mailto:li...@wo...]
> Sent: 13 September 2001 17:14
> To: per...@li...
> Subject: [perl-win32-gui-users] 1st tutorial
> 
> 
> Hi, I've been using Perl/Tk and just decided to try Win32::GUI. I was
> able to get the 2nd and 3rd tutorials from Sourceforge, but 
> the 1st one
> shows an empty page. Does anybody know why?
> 
> Are there any example programs I can look at?
> I didn't see any links on Sourceforge.
> 
> Thanks,
> 
> Marcus
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] 1st tutorial

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

Hi, I've been using Perl/Tk and just decided to try Win32::GUI. I was
able to get the 2nd and 3rd tutorials from Sourceforge, but the 1st one
shows an empty page. Does anybody know why?

Are there any example programs I can look at?
I didn't see any links on Sourceforge.

Thanks,

Marcus

[perl-win32-gui-users] Two questions

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

Question:

Is it possible to make portions of images transparent in this?  I've tried a 
PNG with no sucess...

Also, um, why do 'multiline' textfields (and richedit fields) that I create 
not seem to go down a line when I hit enter?


Thanks

~Flame/Ultimate Red Dragon
-=UDIC=-

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

[perl-win32-gui-users] RE: Error in PerlSvc when trying to map a drive

[Frazier, J. J. <Joe...@Pe...>]

Disregard,  I sent to the wrong list!! Sorry.

> -----Original Message-----
> From: Frazier, Joe Jr=20
> Sent: Monday, September 10, 2001 16:48
> To: per...@li...
> Subject: Error in PerlSvc when trying to map a drive
>=20
>=20
>=20
>=20
> use Win32::Lanman;
> if(!Win32::Lanman::NetUseAdd({remote =3D> "\\\\server\\share",
>                                       password =3D> "xxxxxx",
>                                       username =3D> "user.name",
>                                       domain =3D> "domain",
>                                       local =3D> "h:",
>                                       asg_type =3D> &USE_DISKDEV}))
>          {
>                 print "Sorry, something went wrong; error: ";
>                 # get the error code
>                 print=20
> Win32::FormatMessage(Win32::Lanman::GetLastError());
>          }
>=20
> The problem is that I am trying to set up a service which will=20
> a) use the local system account to run
> b) be able to map a drive to an external share
> c) process files there. =20
>=20
> I FINALLY got Win32::Lanman to map a drive under shell=20
> control (tried Win32::NetResource but kept getting unknown=20
> username or password errors).  Now, when trying to "map" a=20
> drive under service control, I get(returned from=20
> Win32::FormatMessage(Win32::Lanman::GetLastError()):A=20
> specified logon session does not exist. It may already have=20
> been terminated.
>=20
> I am sure it has something to do with security permissions,=20
> just not sure what to change.  I would prefer NOT to run the=20
> service directly under the ID above if possible.
>=20
> Please reply directly to this email as I am behind(alot) on=20
> my digests.=20
>=20
> Thanks in advance for any help you can give on this.
>=20
> Joe Frazier, Jr
> Technical Support Engineer
> PeopleClick
> 919-645-2916
> joe...@pe...
> =20
>=20
> =20
>=20
>=20
> =20
>=20

[perl-win32-gui-users] Error in PerlSvc when trying to map a drive

[Frazier, J. J. <Joe...@Pe...>]

use Win32::Lanman;
if(!Win32::Lanman::NetUseAdd({remote =3D> "\\\\server\\share",
                                      password =3D> "xxxxxx",
                                      username =3D> "user.name",
                                      domain =3D> "domain",
                                      local =3D> "h:",
                                      asg_type =3D> &USE_DISKDEV}))
         {
                print "Sorry, something went wrong; error: ";
                # get the error code
                print
Win32::FormatMessage(Win32::Lanman::GetLastError());
         }

The problem is that I am trying to set up a service which will=20
a) use the local system account to run
b) be able to map a drive to an external share
c) process files there. =20

I FINALLY got Win32::Lanman to map a drive under shell control (tried
Win32::NetResource but kept getting unknown username or password
errors).  Now, when trying to "map" a drive under service control, I
get(returned from Win32::FormatMessage(Win32::Lanman::GetLastError()):A
specified logon session does not exist. It may already have been
terminated.

I am sure it has something to do with security permissions, just not
sure what to change.  I would prefer NOT to run the service directly
under the ID above if possible.

Please reply directly to this email as I am behind(alot) on my digests.=20

Thanks in advance for any help you can give on this.

Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
joe...@pe...
=20

=20


=20

[perl-win32-gui-users] Colors and ListView

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

Is it possible to change colors of individual parts (or lines) in ListView?

I have, essentially, a list of expenses & income

Three Cols: Description, Change and Balance

I'm hopeing to be able to change the colors of the 'Change' and Balance 
sections seperately

IE:

Reason  | Change | Balance |
Paycheck|  +10000|   +10000|
Car     |  -20000|   -10000|
Gift    |    +100|    -9900|

Now the cols with - values would be red, while + are green (text color, not 
background.)


Anyway, is this possible?

Thanks,

§Flame§ / Ultimate Red Dragon

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