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

Re: [perl-win32-gui-users] localtime($file->{'mtime'}) problem

[Glenn L. <Gle...@ne...>]

Jeremy,

I can't see that jb's code does much different than yours.  I think the real
problem is a basic Perl issue that you have missed:  "-M $file" (or, apparently,
"$file->{'mtime'}", with which I have no experience) returns the timestamp of
$file as a difference between the actual timestamp and the start time of the
perl session.

Therefore, most files that existed before you started your script will have
negative values for "-M $file".

Knowing that the Unix and Perl clocks start in 1970, it would seem that "69" is
probably a result of a negative number being passed to localtime, which is
consistent with the way "-M $file" works.

You might want to add in $^T before converting to a text date.  Note that even
the Perl 5 Pocket Reference documents this.  However, perhaps the documentation
for "$file->{'mtime'}" is not clear, I've not looked at it.


sco...@ya... wrote:

> Jeremy,
>
> While we are willing to help, your questions are more appropriate for the
> Perl-Win32-Users mailing list.  The Perl-Win32-GUI mailing list is
> specifically for the Win32::GUI module.  You can sign up for the
> Perl-Win32-Users mailing list using the following link:
> http://mailarchive.activestate.com
>
> Someone posted the following code for handling dates and I've found it very
> useful.
>
> sub get_date {
>   # Define arrays for the day of the week and month of the year.
>   @days =
> ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
>   @months =
> ('January','February','March','April','May','June','July','August','Septembe
> r','October','November','December');
>   # Get the current time and format the hour, minutes and seconds. Add
>   # 1900 to the year to get the full 4 digit year.
>   ($sec,$min,$hour,$mday,$mon,$year,$wday) =
> (localtime(time))[0,1,2,3,4,5,6];
>   $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
>   $year += 1900;
>   # Format the date.
>   $date = "$days[$wday], $months[$mon] $mday, $year at $time";
> }
>
> jb
>
> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...]On Behalf Of
> Jeremy Aiyadurai
> Sent: Wednesday, April 04, 2001 12:57 AM
> To: per...@li...
> Subject: [perl-win32-gui-users] localtime($file->{'mtime'}) problem
>
> hi
>
> i am having a problem getting proper modified time dates of files when
> using the win32:Internet ftp list, or the standard directory listing
>
> i do this
> ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
> localtime($file->{'mtime'});
>
> then for each file i do something like this
>
> print "$year/$mon/$mday $file->{'name'});
>
> for every file, i end up getting a modified date of 69/11/31 thefile
>
> eg;
>
> 69  - 11 - 31  bbsetup.exe                    144152 bytes
> 69  - 11 - 31  clients.pl                         29 bytes
>
> _______________________________________________
> 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
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

Re: [perl-win32-gui-users] How to refresh a window

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

Ladislav wrote:
>time returns back to my program.The window created by my
>program is
>not refreshed immediately to the state before switching but I must
>wait until my program writes to that window.

Not sure because I haven't done it, but this is what I would try: Find or 
create an event that you can put some code in.

The Window class has the Activate() event. Maybe some other control has 
something similar that you can use. Otherwise maybe the Timer control can 
help you, but that might ivolve performance issues. Time things and find out.

Hope that helps, and please share your solution with the list if you come 
up with one.


/J

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

RE: [perl-win32-gui-users] localtime($file->{'mtime'}) problem

[<sco...@ya...>]

Jeremy,

While we are willing to help, your questions are more appropriate for the
Perl-Win32-Users mailing list.  The Perl-Win32-GUI mailing list is
specifically for the Win32::GUI module.  You can sign up for the
Perl-Win32-Users mailing list using the following link:
http://mailarchive.activestate.com

Someone posted the following code for handling dates and I've found it very
useful.

sub get_date {
  # Define arrays for the day of the week and month of the year.
  @days =
('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
  @months =
('January','February','March','April','May','June','July','August','Septembe
r','October','November','December');
  # Get the current time and format the hour, minutes and seconds. Add
  # 1900 to the year to get the full 4 digit year.
  ($sec,$min,$hour,$mday,$mon,$year,$wday) =
(localtime(time))[0,1,2,3,4,5,6];
  $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
  $year += 1900;
  # Format the date.
  $date = "$days[$wday], $months[$mon] $mday, $year at $time";
}

jb

-----Original Message-----
From: per...@li...
[mailto:per...@li...]On Behalf Of
Jeremy Aiyadurai
Sent: Wednesday, April 04, 2001 12:57 AM
To: per...@li...
Subject: [perl-win32-gui-users] localtime($file->{'mtime'}) problem


hi

i am having a problem getting proper modified time dates of files when
using the win32:Internet ftp list, or the standard directory listing

i do this
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($file->{'mtime'});


then for each file i do something like this

print "$year/$mon/$mday $file->{'name'});

for every file, i end up getting a modified date of 69/11/31 thefile

eg;

69  - 11 - 31  bbsetup.exe                    144152 bytes
69  - 11 - 31  clients.pl                         29 bytes

_______________________________________________
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


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

[perl-win32-gui-users] How to refresh a window

[A <ex...@se...>]

Hi,
I have an application that uses Win32::GUI.
This program creates a window and writes, as it is running , some
information to this window. This  application runs for a quite long
time(about 20 minutes or longer).So far so good. A problem begins 
when
a user switches from this program to another program and after 
some
time returns back to my program.The window created by my 
program is
not refreshed immediately to the state before switching but I must
wait until my program writes to that window. And because the 
window is
not refreshed quickly  it seems that the program does not run any
longer. What is  the best way how to refresh the window and show 
users
that the program is still running? Thank you for any good idea.

Ladislav

[perl-win32-gui-users] Going IDE

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

Hi folks,

I've reworked my GUI object explorer, in another study on the way to an IDE.
It now uses a treeview to navigate objects and their properties and methods,
and does basic syntax highlighting.

Please have a look at the wex.pl and associated files. Download wex.zip from
http://www.fairymails.com/perl/

Thanks and have fun
Harald

[perl-win32-gui-users] localtime($file->{'mtime'}) problem

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

hi

i am having a problem getting proper modified time dates of files when
using the win32:Internet ftp list, or the standard directory listing

i do this
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($file->{'mtime'});


then for each file i do something like this

print "$year/$mon/$mday $file->{'name'});

for every file, i end up getting a modified date of 69/11/31 thefile

eg;

69  - 11 - 31  bbsetup.exe                    144152 bytes
69  - 11 - 31  clients.pl                         29 bytes

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

[perl-win32-gui-users] Aborting a buffered write

[Erick J. B. <er...@je...>]

I have a process running, which is writting to a file(using print instead of syswrite),
and I have a small dialogbox with a progressbar and an abort button. The problem is when I
click the abort button, I get a GUI message "select: Bad file descriptor at ... line 412".
This is the line where I read the data in, however, the event for the Abort button closes
the data stream and the file I'm writting to. Plus the title for the window error is a
subroutine which was a far ancestor to where it says the error is. This is what the
Abort_Click looks like.

sub Abort_Click {
    close(FILE);
    $data->abort();
    $ProgWin->Hide(); # <--progress dialogbox window
    $MainWin->SetForegroundWindow();
    $MainWin->BringWindowToTop();
    GUI::Update($MainWin);
}

I need a way tell the subroutine that is showing the progress to stop reading data and
move on. Any ideas?

erick
never stop questioning
www.jeb.ca

RE: [perl-win32-gui-users] Win32:Console problem

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

hi

i am using the win32:console module, and it seems that the built-in color
constants are not importing.

eg.

Variable "$FG_YELLOW" is not imported at bftpc.pl line 57.
Variable "$BG_BLUE" is not imported at bftpc.pl line 57.

how do i import them.

thanx
Jeremy

RE: [perl-win32-gui-users] Win32::GUI HOWTO

[<sco...@ya...>]

Erick,

Very nice work.  Here's one small thing that I noticed:

On the page http://www.jeb.ca/howto/Win32-GUI-HOWTO-2.html it says:

OK, now we need make sure the window will be displayed. By default, windows
start hidden, so they won't be visible on screen. To make them visible, we
need to use the Show() method.

    $Main>Show();

It should be $Main->Show()

No big deal, just thought I'd bring it to your attention.

Excellent work!
jb

-----Original Message-----
From: per...@li...
[mailto:per...@li...]On Behalf Of
Erick J. Bourgeois
Sent: Monday, April 02, 2001 8:04 PM
To: per...@li...
Subject: [perl-win32-gui-users] Win32::GUI HOWTO


To all Win32::GUI users,

I posted the new Win32::GUI HOWTO here:
http://www.jeb.ca/howto/The_Win32-GUI_HOWTO.html I
have only put the tutorials up (in a HOWTO format). With time permiting, of
course, I will
do all parts of the Win32::GUI documentation, with exception to the FAQ,
which Felix
Gaehler is working on. (If the FAQ does not have a home, I would be willing
to host it).
Feel free to post(or send to me directly) your comments.

regards,

erick
never stop questioning
www.jeb.ca


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


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

Re: [perl-win32-gui-users] Is it possible?

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

Jonathan wrote:
>Along those lines how about being able to make a program go to a web page
>that is a perl script and feeding the results of the script back to the
>local program?

I guess libwww is pretty much what you want:

   use LWP::Simple;
   $doc = get 'http://www.sn.no/libwww-perl/';

It is part of the distribution, so check out the LWP documentation (lwpcook 
contains examples) in your local Perl installation or look here:

http://search.cpan.org/search?dist=libwww-perl


/J

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

[perl-win32-gui-users] Win32::GUI IDE

[<se...@la...>]

> Please have a look at the GOE (GUI Object Explorer) at
> http://www.fairymails.com/perl/
> Download either goe.zip or the the other three files (which are
> actually the contents of the zip), start goe.pl and give it a
> Win32-GUI script in the fileopen dialog. If it happens to find a *.ui
> file of the same name, it offers to include this as part of the script
> - this is to interface to David's gb109. Maybe we can melt the goe -
> once ready - into the gb and call it ide?

	I've been planning a gui debugger for the last few days (although I 
haven't actually written any code yet).  I think an IDE would be a 
great idea.  With GB,GOE, an editor, and a debugger, it would be a 
pretty complete tool.  Maybe we should start working on this 
together.  If we do, we should probably design with the NEM in mind.
	As for the editor, Aldo mentioned that he was planning on adding a 
Scintilla component.  As I had never heard of it before, I looked it 
up, and it would be a much better editor than RichEdit.  RichEdit 
will do in the meantime, although it would mean creating a syntax 
highlighting routine.
	Finally, I think it would be great if we could do it in a Multiple 
Document Interface, but last time I tried to use it, Win32::GUI::MDI 
was not working yet.  I have not yet tried it in 0.0.558, though.  
Any news, Aldo?

Re: [perl-win32-gui-users] Is it possible?

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

Along those lines how about being able to make a program go to a web page
that is a perl script and feeding the results of the script back to the
local program?

Jonathan

----- Original Message -----
From: <ex...@se...>
To: <per...@li...>
Sent: Tuesday, April 03, 2001 9:30 AM
Subject: [perl-win32-gui-users] Is it possible?


> Hi,
> I have a program that uses Win32::GUI modul.
> Is there any way to open a HTML document in a created window?
> I would like to open the HTML document in a similar(the same )
> way as it it is done in a web browser.
>
> Thanks for help.
> Ladislav
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

[perl-win32-gui-users] Is it possible?

[<ex...@se...>]

Hi,
I have a program that uses Win32::GUI modul.
Is there any way to open a HTML document in a created window?
I would like to open the HTML document in a similar(the same ) 
way as it it is done in a web browser.

Thanks for help.
Ladislav

RE: [perl-win32-gui-users] console/commandline color module

[Doughty, M. <Dou...@bs...>]

Win32::Console

Matt Doughty BOT BSC Japan

-----Original Message-----
From: Jeremy Aiyadurai [mailto:bc...@te...]
Sent: 13$B!I(JN4??3$B!H(Ju 9:55
To: per...@li...
Subject: [perl-win32-gui-users] console/commandline color module


hello

i am creating a console/command line ftp program in perl...i was wondering
if there is a win32 or generic module that will add color and highlighting
to text,
just like with some software.

Jeremy


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

[perl-win32-gui-users] console/commandline color module

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

hello

i am creating a console/command line ftp program in perl...i was wondering
if there is a win32 or generic module that will add color and highlighting
to text,
just like with some software.

Jeremy

[perl-win32-gui-users] Win32::GUI HOWTO

[Erick J. B. <er...@je...>]

To all Win32::GUI users,

I posted the new Win32::GUI HOWTO here: http://www.jeb.ca/howto/The_Win32-GUI_HOWTO.html I
have only put the tutorials up (in a HOWTO format). With time permiting, of course, I will
do all parts of the Win32::GUI documentation, with exception to the FAQ, which Felix
Gaehler is working on. (If the FAQ does not have a home, I would be willing to host it).
Feel free to post(or send to me directly) your comments.

regards,

erick
never stop questioning
www.jeb.ca

Re: [perl-win32-gui-users] Re; Popup menu

[Ludvig af K. <kli...@ho...>]

I just tried this popup menu for a trayicon, and it worked great. Just
so you all know.

	-Ludde

"Piske, Harald" wrote:
> 
> Talking about RightClick(), is there any way to capture them for other
> objects? I only seem to be able to get them for ListView and TreeView.
> Textfield and RichEdit have their default RightClick behavior (the popup for
> cut&paste), but I won't get a RightClick for the Window, a Button or a Label
> (even with -notify => 1).
> 
> -----Original Message-----
> From: Jonathan Southwick [mailto:jso...@al...]
> # get right-click in listview
> sub DataView_RightClick {
>    my($X, $Y) = Win32::GUI::GetCursorPos();
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Re; Popup menu

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

Talking about RightClick(), is there any way to capture them for other
objects? I only seem to be able to get them for ListView and TreeView.
Textfield and RichEdit have their default RightClick behavior (the popup for
cut&paste), but I won't get a RightClick for the Window, a Button or a Label
(even with -notify => 1).


-----Original Message-----
From: Jonathan Southwick [mailto:jso...@al...]
# get right-click in listview
sub DataView_RightClick {
   my($X, $Y) = Win32::GUI::GetCursorPos();

Re: [perl-win32-gui-users] Re; Popup menu

[<se...@la...>]

The popup menu code is great.  I tried to create a context menu for a 
while, but never could get RightClick to work.  Is it new in 0.0.558? 
 I was unemployed for several months, so I was running around looking 
for a job, then I got one in which I had to be trained in Assembly 
Language, so I've been quite busy, and just downloaded 0.0.558 last 
night.  I tested some of my favorite Win32::GUI scripts against it, 
and they run just fine, but I haven't yet had time to do more than 
that.

[perl-win32-gui-users] Re; Popup menu

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

Erick,

Here is how I did it:

<=3D=3D=3D Start of code =3D=3D=3D>

# define popup menu for listview
my $PopupMenu =3D new Win32::GUI::Menu(
    "Item Properties" =3D> "ItemProp",
    ">&Properties" =3D> "ItemProperties",
);

# get right-click in listview
sub DataView_RightClick {
   my($X, $Y) =3D Win32::GUI::GetCursorPos();

   $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
}

# clicked on particular menu item in popup menu
sub ItemProperties_Click {
   ## code you want to process;
}

<=3D=3D=3D End of code =3D=3D=3D>

I hope this helps.

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadville, PA
jso...@al...

[perl-win32-gui-users] Popup menu

[Erick J. B. <er...@je...>]

Has anyone implemented a popup menu. That is, if the user right clicks, for example, a
listview, then a menu appears. I tried creating one using:

sub ListView_RightClick {
    @cursorpos = Win32::GUI::GetCursorPos();
    $Popup = new Win32::GUI::MenuButton(-pos=>[$cursorpos[0],$cursorpos[1]],);
    $Popup->AddMenuItem("Hello"=>"HelloBut",);
    $Popup->Show();
}
But, this is bad, very bad (extremely unpredictable, it doesn't have an owner). Is there a
way to do it?

erick
never stop questioning
www.jeb.ca

RE: [perl-win32-gui-users] How to refresh a window

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

> What is  the best way how to refresh the window and show users
> that the program is still running? Thank you for any good idea.

introduce Win32::GUI::DoEvents() from time to time.
look at "RE: [perl-win32-gui-users] Looping Question" for an implementation
sample.

[perl-win32-gui-users] How to refresh a window

[A <ex...@se...>]

Hi,
I have an application that uses Win32::GUI.
This program creates a window and writes, as it is running , some
information to this window. This  application runs for a quite long
time(about 20 minutes or longer).So far so good. A problem begins 
when
a user switches from this program to another program and after 
some
time returns back to my program.The window created by my 
program is
not refreshed immediately to the state before switching but I must
wait until my program writes to that window. And because the 
window is
not refreshed quickly  it seems that the program does not run any
longer. What is  the best way how to refresh the window and show 
users
that the program is still running? Thank you for any good idea.

Ladislav


------- End of forwarded message -------

[perl-win32-gui-users] How to refresh a window

[BMA T. ltd. <di...@se...>]

Hi,
I have an application that uses Win32::GUI.
This program creates a window and writes, as it is running , some
information to this window. This  application runs for a quite long
time(about 20 minutes or longer).So far so good. A problem begins 
when
a user switches from this program to another program and after 
some
time returns back to my program.The window created by my 
program is
not refreshed immediately to the state before switching but I must
wait until my program writes to that window. And because the 
window is
not refreshed quickly  it seems that the program does not run any
longer. What is  the best way how to refresh the window and show 
users
that the program is still running? Thank you for any good idea.

Ladislav

------- End of forwarded message -------

RE: [perl-win32-gui-users] Building a HOWTO for Win32-GUI

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

| | About the (numerous) [TBD]s in the doku
| I'm sorry Harald, it's probably just me, but what is "the 
| doku"? The modules pakage?

You had me here - I first had to find out where the heck I got these. I
found one Win32-GUI-0.0.558.tar in my downloads-folder that I got on feb 1st
from I don't know where. It is 6+MB big and there's a docs folder inside. I
can put it somewhere on the web, but it must be out there anyway.
As for the doc, it seems to be the same as

http://velocity.activestate.com/code/cpan/w/wi/Win32-GUI.html/docs/html/gui.
html