RE: [perl-win32-gui-users] URL Link Object?

[Thomas, Timothy B]

Should I take that as a no?
 
 -Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, January 08, 2001 11:47 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] URL Link Object?



Aldo or anyone else-

Is there an object within Win32::GUI that will allow you to have a URL link in 
a GUI-window? When you click on the text it should open up your default browser 
and take you to that URL. You know, the kind that a lot of Apps have in their 
About screen. Or is there another way to create this effect?

Thanks,

Tim Thomas





-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]  
-

RE: [perl-win32-gui-users] URL Link Object?

[Thomas, Timothy B]

Sean - thanks for your input. I hadn't thought of checking for the mouse 
position. Your drawbacks are BIG drawbacks and definitely would not be worth 
bothering with.

I had thought of doing it with a button or some other action, but I keep coming 
back to your drawback #2. How do I determine what the default browser is and 
where it is located? There is a Win32::FileType module where you can test file 
associations, but I couldn't seem to get it to work. Theoretically wherever 
your .html is associated, that is your default browser. I believe both IE and 
Netscape use this to check to see if they are the default browser.
Below is the code I have used to test out the Win32::FileType module, any help 
would be appreciated.
Tim

use Win32::FileType; 

check(".txt");
check(".pl");
check("Perl");
check(".doc");
check("Perl File");
check(".htm");
check(".html");


sub check {
print "-"x20,"\n";
($type)[EMAIL PROTECTED];
if ($obj = Win32::FileType::Open($type)) 
{
my ($command,$title);
print "type=$type\n";
print "title=",$obj->Title,"\n";
print "name=",$obj->Name,"\n";
print "Icon=",$obj->Icon,"\n";
print "Extensions= (".join(', ',$obj->Extensions).")\n"; 


#none of this stuff seems to work
#
#
print "Default Action=",$obj->DefaultAction,"\n";

print "Action=",$obj->Action("Open"),"\n";

($command,$title) = $obj->Action('&open') ;
print "command, title=$command, $title\n";

($command,$title) = $obj->Action('open') ;
print "command, title=$command, $title\n";
($command,$title) = $obj->Action("Open") ;
print "command, title=$command, $title\n";

($command,$title) = $obj->Action($type) ;
print "command, title=$command, $title\n";

$command = $obj->Action($obj->Title) ;
print "command, title=$command, $title\n";

($command,$title) = $obj->Action($obj->Title) ;
print "command, title=$command, $title\n";

($command,$title) = $obj->Action($obj->Name) ;
print "command, title=$command, $title\n";

$command = $obj->Action($obj->Name) ;
print "command=$command\n";

($command,$title) = $obj->Action('') ;
print "command, title=$command, $title\n";

($command,$title) = $obj->Action("/open/i") ;
print "command, title=$command, $title\n";


#print "Anything=",$obj->Anything(),"\n";
#($action, $title) = DDEAction($obj->Name); 
#print "action, title=$action, $title\n";
#
#
#none of the above stuff seems to work


$obj->Close
}
else {print "\"$type\" is not associated\n";}
}

-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-


-Original Message-
From: Sean Healy [mailto:[EMAIL PROTECTED]
Sent: Thursday, January 11, 2001 9:22 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] URL Link Object?


Never tried it or even seen anything on it, but theoretically you should be 
able to grab the mouse position in the window, and if it falls within the 
bounds of the text which should be a link, open an external application.

Some drawbacks:
1) You would have to change the mouse position range every time you changed 
the text (or else write a little something to find out the mouse position 
range of the text you want - but that would have to take into account font 
face, font size, and the length of the preceding string, and might be a 
little too complex to bother with.

2) You would have to write something to find the path of the default browser
if you plan to distribute, as not everyone uses the same browser or keeps it 
in the same place.

However, if you are going to use this only for yourself and not change the 
link text (or the text surrounding it), you could theoretically do this to 
make it work.

>Is there an object within Win32::GUI that will allow you to have a URL link 
>in a GUI-window? When you click on the text it should open up your default 
>browser and take you to that URL. You know, the kind that a lot of Apps 
>have in their About screen. Or is there another way to create this effect?
_
Get your FREE download of MSN Explorer at http

[perl-win32-gui-users] Deselect from Listview

[Thomas, Timothy B]

How do you deselect all currently selected items from a listview?

-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-

[perl-win32-gui-users] Win32::GUI::DC - displaying an image.

[Thomas, Timothy B]

I am not clear about the documentation on Win32::GUI::DC on 
http://dada.perl.it/gui_docs/DC.html
Is there a way to display an image?
I would like to display, given a file name, jpg, gif, tif and bmp files. Is 
this possible yet with Win32::GUI?

Does anyone have any example code of an implementation of this or something 
similar?

Has anyone written anything using DC?

Thanks,
Tim

-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-


-Original Message-
From: christopher sagayam [mailto:[EMAIL PROTECTED]
Sent: Friday, January 12, 2001 8:49 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] VB dialup code


Thanks for the code

now all I need is to convert it into perl


let me take one as example

can anyone tell me the equivalent of

"Private Declare Function InternetGoOnline Lib "wininet.dll" Alias
"InternetGoOnlineA" (ByVal lpszURL As String, ByVal hwndParent As Long,
ByVal dwReserved As Long) As Long"

in perl ?

I mean the vb code is accessing a function present in the wininet.dll I
believe ..how to do the same using PERL...


chris
- Original Message -
From: Robert White <[EMAIL PROTECTED]>
To: 
Sent: Friday, January 12, 2001 4:24 PM
Subject: Re: [perl-win32-gui-users] VB dialup code


> From: "christopher sagayam" <[EMAIL PROTECTED]>
> > I am looking for a VB (or a perl) to be later conversted to win32 GUI
> code
> > to autostart the default windows dial up connection if a user is NOT
> > connected to the internet ??
>
> see attached. Very very complete... force dial, go online, RAS, ect.
> Email me for the exe if you don't run VB.
>
> Rob
> http://bangkokwizard.com/
> "Software is like sex: It's better when it's free." -- Linus Torvalds
>
>



__
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

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

[perl-win32-gui-users] Listview column click sorting

[Thomas, Timothy B]

Jonathon,
Can you post the code that you refer to in this old posting. I am looking for 
the code that allows you to click on a column header and sort by that field.
http://www.mail-archive.com/[EMAIL PROTECTED]/msg00280.html
Thanks,
Tim Thomas





-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-

RE: [perl-win32-gui-users] Getting the browser

[Thomas, Timothy B]

Sean - 
Hey - that's pretty cool. I hadn't thought of taking that angle. I 
noticed a problem or two with your code. The main one was that if your 
association is pointing to something like "C:\Program Files\Windows 
NT\Accessories\WORDPAD.EXE", it doesn't like it because of the space in 
"Program Files". So I modified your code a little. I also put in some debugging 
stuff to make it easier to see what's going on. Below is the output on a bunch 
of different associations, all are coming out ok. 

I am not sure I like your use of split on getting everything up to the first 
space, but I couldn't figure out how to get everything up to the first space 
using a regular expression. If you do something like 
($cmd)=$command=~/^(.*)\s/; it gives you everything up to the last space, which 
is annoying, I am sure there is a way around it.
Let me know your thoughts on it.

Also- How is Win32::TieRegistry different from Win32::Registry?
Tim

.html="C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.htm="C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.txt="C:\Program Files\Windows NT\Accessories\WORDPAD.EXE"
.pl=C:\Perl\bin\Perl.exe
.doc="C:\Program Files\Microsoft Office\Office\winword.exe"
.xls="C:\Program Files\Microsoft Office\Office\excel.exe"
.ppt="C:\Program Files\Microsoft Office\Office\PowerPnt.exe"
.log="C:\Program Files\Windows NT\Accessories\WORDPAD.EXE"
.url=rundll32.exe
.jpg=C:\PROGRA~1\PAINTS~1\psp.exe
.gif=C:\PROGRA~1\PAINTS~1\psp.exe
.avi="C:\Program Files\Windows Media Player\mplayer2.exe"
.wav="C:\Program Files\Netscape\Communicator\Winamp\winamp.exe"

Here's the code:

use Win32::TieRegistry;

check(".html");
check(".htm");
check(".txt");
check(".pl");
check(".doc");
check(".xls");
check(".ppt");
check(".log");
check(".url");
check(".jpg");
check(".gif");
check(".avi");
check(".wav");

sub check
{
($item)[EMAIL PROTECTED];
$prog=getProgram($item);
print "$item=$prog\n";
}   


sub getProgram
{
if (my $ext = $_[0])
{
if (my $typeName = $Registry->{"HKEY_CLASSES_ROOT\\$ext"})
{
if (my $command = 
$Registry->{"HKEY_CLASSES_ROOT\\$typeName\\shell\\open\\command"})
{
my ($cmd);
#print "\tcommand=$command\n";
if ($command=~/^".*"\s+.*$/)
{
($cmd)=$command=~/^(".*")\s+.*$/;
return $cmd;
}
else
{
split(/ /, $command);
return $_[0];
}
}
else { return 0; }
}
else { return 0; }
}
else { return 0; }
}


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-


-Original Message-
From: Sean Healy [mailto:[EMAIL PROTECTED]
Sent: Saturday, January 13, 2001 9:13 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Getting the browser


Due to a message earlier this week, I was thinking about the problem of 
getting a browser preference from the user's registry, so I wrote this:

use Win32::TieRegistry;

sub getProgram
{
if (my $ext = $_[0])
{
if (my $typeName = $Registry->{"HKEY_CLASSES_ROOT\\$ext"})
{
if (my $command = 
$Registry->{"HKEY_CLASSES_ROOT\\$typeName\\shell\\open\\command"})
{
split(/ /, $command);
return $_[0];
}
else { return 0; }
}
else { return 0; }
}
else { return 0; }
}

You pass in the extension and this returns the path to the associated 
program.  The extension must include the dot (i.e, pass in '.html', not 
'html').

This works on my machine, and you're welcome to use it (or modify it to make 
it work on your system).  It does some basic error checking (makes sure you
pass in an extension, makes sure the extension exists in the registry, makes 
sure the file type has a command associated with it).  I have not tested 
case sensitivity (I know Windows is not case-sensitive as far as file names 
go, but I don't know if the same applies to the registry).

I'd be glad to hear any feedback.

RE: [perl-win32-gui-users] Getting the browser

[Thomas, Timothy B]

Same problem, here's the output I am getting with your new regular expression:
.html="C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.htm="C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.txt="C:\Program
.pl=C:\Perl\bin\Perl.exe
.doc="C:\Program
.xls="C:\Program
.ppt="C:\Program
.log="C:\Program
.url=rundll32.exe
.jpg=C:\PROGRA~1\PAINTS~1\psp.exe
.gif=C:\PROGRA~1\PAINTS~1\psp.exe
.avi="C:\Program
.wav="C:\Program

it's not pulling anything after the space. We need some kind of regular 
expression that says
"Everything up to the first space unless that space is in quotes"

This doesn't apply to .html because the association is using the short path (at 
least for me)
but for those extensions that use the long path, it's a problem.

-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-


-Original Message-
From: Sean Healy [mailto:[EMAIL PROTECTED]
Sent: Monday, January 15, 2001 9:55 AM
To: perl-win32-gui-users@lists.sourceforge.net;
[EMAIL PROTECTED]
Subject: RE: [perl-win32-gui-users] Getting the browser


Tim-
   Thanks for the suggestions.  I changed this piece:
>   my ($cmd);
>   #print "\tcommand=$command\n";
>   if ($command=~/^".*"\s+.*$/)
>   {
>   ($cmd)=$command=~/^(".*")\s+.*$/;
>   return $cmd;
>   }
>   else
>   {
>   split(/ /, $command);
>   return $_[0];
>   }

to this:
 my ($cmd);
 ($cmd) = $command=~/^(\S*)\s/;
 return $cmd;

which should solve both problems.  '\S' matches any non-whitespace 
character, including quotes.  I ran it on my system and it works.

>  Also- How is Win32::TieRegistry different from Win32::Registry?

The Win32::Registry documentation says this:

NOTE: This module provides a very klunky interface to access the Windows 
registry, and is not currently being developed actively. It only exists for 
backward compatibility with old code that uses it. For more powerful and 
flexible ways to access the registry, use Win32::TieRegistry.

Thanks again for your suggestions.
_
Get your FREE download of MSN Explorer at http://explorer.msn.com


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

[perl-win32-gui-users] Win32::GUI::Label Click()/DblClick()

[Thomas, Timothy B]

Do the Click() or DblClick() events work for the Win32::GUI::Label object yet?
My tests seem to indicate no, but the events are listed in the documentation.

Tim

-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-

RE: [perl-win32-gui-users] Win32::GUI::Label Click()/DblClick()

[Thomas, Timothy B]

Jeremy - can you post your code that uses it?
Thanks,
Tim

-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-


-Original Message-
From: Jeremy Blonde [mailto:[EMAIL PROTECTED]
Sent: Thursday, January 18, 2001 4:59 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Win32::GUI::Label Click()/DblClick()


Last time i tried it, I could get Click to work, but
not DblClick.

Jeremy Blonde
[EMAIL PROTECTED]

--- "Thomas, Timothy B" <[EMAIL PROTECTED]>
wrote:
> 
> Do the Click() or DblClick() events work for the
> Win32::GUI::Label object yet?
> My tests seem to indicate no, but the events are
> listed in the documentation.
> 
>   Tim
> 
>
-
> Tim Thomas
> Unix Systems Administrator
> Lockheed Martin EIS · Denver Data Center
> 303-430-2281
> mailto:[EMAIL PROTECTED]
>
-
> 
> 
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__
Do You Yahoo!?
Get email at your own domain with Yahoo! Mail. 
http://personal.mail.yahoo.com/

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

[perl-win32-gui-users] Final Code: Click on URL in About Window

[Thomas, Timothy B]

Here's the code that you all helped me to figure out. You can use this to
implement a clickable URL in your About Window, or whereever you like. The
code may not be very clean, let me know if you have suggestions to improve
this. This example runs as-is.

Aldo - any way to build all this in to the GUI Module and just have a -URL
option on the label? or a separate object?

Thanks everyone!
Tim Thomas


use Win32;
use Win32::GUI;
use Win32::Process;


$title='TestTool';
$author='T. Thomas';
$contact='[EMAIL PROTECTED]';
$contacturl='www.coloradonarwhal.com';
$version="1.0";
$date='January 2001';

my $AboutWindow = new GUI::Window(-title=>"About $title...", -left=>110,
-top=>110, -width=>230, -height=>150, -name=>"AboutWindow",);
my $AboutTitleFont = new Win32::GUI::Font(-name => "Times New
Roman", -height => 20, -bold => 1);
my $AboutFont = new Win32::GUI::Font(-name => "Times New Roman",
-height => 15);
my $URLFont = new Win32::GUI::Font(-name => "Times New Roman",
-height => 15, -underline => 1);

my $AboutTitle = $AboutWindow->AddLabel(-top => 13,-left =>
5,-height => 32,-width => $AboutWindow->ScaleWidth-10,-name =>
"AboutTitle", -text => "$title Version $version",-font =>
$AboutTitleFont,);
my $AboutDetails = $AboutWindow->AddLabel(-top => 32,-left
=> 5,-height =>15*3,-width => $AboutWindow->ScaleWidth-10,-name
=> "AboutDetails", -text=>"Author: $author\r\nContact: $contact\r\nDate:
$date\r\n\r\n", -font => $AboutFont);
my $AboutURL = $AboutWindow->AddLabel(-top
=>(32+$AboutDetails->Height),-left => 5,-height => $URLFont->Height,
-width => $AboutWindow->ScaleWidth-10,-name => "AboutURL",
-text=>"$contacturl", -font => $URLFont, -notify => 1, -foreground
=>[0,0,255]);
my $AboutOK = $AboutWindow->AddButton(-left => 0,-top => 0,
-text => "OK",-name => "AboutOK", -visible => 1,-default
=> 1,-ok => 1,);

$AboutOK->Move($AboutWindow->ScaleWidth-$AboutOK->Width,$AboutWindow->ScaleH
eight-$AboutOK->Height,);

$AboutWindow->Show();

Win32::GUI::Dialog();
#---
---


sub AboutOK_Click
{
$AboutWindow->Hide();
exit;
}
sub AboutWindow_Terminate
{
AboutOK_Click();
return 0;
}

sub AboutURL_Click
{
if ($ftype=getftype(".html"))
{
$ftype=~s/"//g;
($ftypeexe)=$ftype=~/^.*\\(.*\.exe)$/i;
my ($process);
Win32::Process::Create($process,$ftype,"$ftypeexe
$contacturl",0,DETACHED_PROCESS,".") || warn "Create: $!";
}
}

sub getftype
{
use Win32::TieRegistry;
if (my ($ext) = @_)
{
if (my $typeName =
$Registry->{"HKEY_CLASSES_ROOT\\$ext"})
{
if (my $command =
$Registry->{"HKEY_CLASSES_ROOT\\$typeName\\shell\\open\\command"})
{
my ($cmd);
unless (($cmd) = $command=~/^(".*")\s+.*$/)
{ ($cmd) = $command=~/^(\S*)\s/; }
return $cmd;
}
else { return 0; }
}
else { return 0; }
}
else { return 0; }
}


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-

RE: [perl-win32-gui-users] Win32::GUI::Label Click()/DblClick()

[Thomas, Timothy B]

it was the -notify option that I needed to make it clickable.
Thanks!


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-


-Original Message-
From: Jeremy Blonde [mailto:[EMAIL PROTECTED]
Sent: Friday, January 19, 2001 4:28 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Win32::GUI::Label Click()/DblClick()


There's not really much too it.  But here it is:

# Creates the label for the About "button"
$MAIN->AddLabel(
  -name   => "About",
  -notify => 1,
  -bitmap => 1,
  -top=> $top,
  -left   => $left,
  -width  => $width,
  -height => $height,
);

sub About_Click {
  Help_About_Click();
}

This creates a label that I use to fire up the about
dialog.  The label is "hidden" behind a bitmap.  As
long as I apply the bitmap to the background prior to
creating the label, the label's messages are received.

Jeremy Blonde
[EMAIL PROTECTED]

--- "Thomas, Timothy B" <[EMAIL PROTECTED]>
wrote:
> Jeremy - can you post your code that uses it?
>   Thanks,
>   Tim
> 
>

-
> Tim Thomas
> Unix Systems Administrator
> Lockheed Martin EIS · Denver Data Center
> 303-430-2281
> mailto:[EMAIL PROTECTED]
>

-
> 
> 
> -Original Message-
> From: Jeremy Blonde [mailto:[EMAIL PROTECTED]
> Sent: Thursday, January 18, 2001 4:59 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: Re: [perl-win32-gui-users]
> Win32::GUI::Label Click()/DblClick()
> 
> 
> Last time i tried it, I could get Click to work, but
> not DblClick.
> 
> Jeremy Blonde
> [EMAIL PROTECTED]
> 
> --- "Thomas, Timothy B" <[EMAIL PROTECTED]>
> wrote:
> > 
> > Do the Click() or DblClick() events work for the
> > Win32::GUI::Label object yet?
> > My tests seem to indicate no, but the events are
> > listed in the documentation.
> > 
> > Tim
> > 
> >
>

-
> > Tim Thomas
> > Unix Systems Administrator
> > Lockheed Martin EIS · Denver Data Center
> > 303-430-2281
> > mailto:[EMAIL PROTECTED]
> >
>

-
> > 
> > 
> > ___
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@lists.sourceforge.net
> >
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 
> 
> __
> Do You Yahoo!?
> Get email at your own domain with Yahoo! Mail. 
> http://personal.mail.yahoo.com/
> 
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__
Do You Yahoo!?
Yahoo! Auctions - Buy the things you want at great prices. 
http://auctions.yahoo.com/

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

RE: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow

[Thomas, Timothy B]

Christopher - it's not meant to work that way, only when you click on the
URL is it supposed to open your browser. What version of Win32-GUI are you
running? Make sure you are running the latest, I think 0.0.502 is the most
recent stable version.


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-


-Original Message-
From: christopher sagayam [mailto:[EMAIL PROTECTED]
Sent: Monday, January 22, 2001 9:56 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About
Window


one more thing

I don't know whether it is meant to be or not..

But when I click on the url it goes to the url BUT when I click on any other
place in the window too it goes to the url ( incl the OK button too)

chris
www.perl-resume.com



- Original Message -
From: Sean Healy <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, January 23, 2001 6:50 AM
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About Window


> >Here's the code that you all helped me to figure out. You can use this to
> >implement a clickable URL in your About Window, or whereever you like.
The
> >code may not be very clean, let me know if you have suggestions to
improve
> >this. This example runs as-is.
>
> This is great!  I've been playing with it a bit, and I added some stuff so
> you can change the cursor when it's over the link.  You put this code
> somewhere before the label with the URL:
>
> $linkCursor = new Win32::GUI::Cursor('harrow.cur');
>
> $urlClass = new Win32::GUI::Class(
> -name => "UrlLabelClass",
> -extends => "STATIC",
> -cursor => $linkCursor,
> );
>
> Then you add '-class => $urlClass' to the label.  The cursor 'harrow.cur'
is
> included with the Win32-GUI samples.  (I think) STATIC is what Windows
> actually calls labels.
> _
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


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

RE: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow

[Thomas, Timothy B]

Sean - Thanks! That was my next step, but didn't yet have the time to
research how to go about doing it. Didn't know it was so easy to implement a
custom cursor like that. Your code works perfectly.

Deviating from Win32-GUI somewhat:
Next step is to figure out how to mimik a "mailto:"; for the e-mail
link. Should be easy, once we figure out how to determine what the default
e-mail program is. Not sure what assication is set for that. .html for the
browser is easy, but what about e-mail's? maybe .msg? Here's the ftype info
for .msg on my NT system, using outlook for e-mail. 

C:\>assoc .msg
.msg=msgfile

C:\>ftype msgfile
msgfile="C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE" /f "%1"

Someone else see what it is on theirs, inparticular if you use Netscape
Messenger.
I'm not sure that's as much of a standard as .html.

Thanks again Sean!
Tim



-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-


-Original Message-
From: Sean Healy [mailto:[EMAIL PROTECTED]
Sent: Monday, January 22, 2001 6:21 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About
Window


>Here's the code that you all helped me to figure out. You can use this to
>implement a clickable URL in your About Window, or whereever you like. The
>code may not be very clean, let me know if you have suggestions to improve
>this. This example runs as-is.

This is great!  I've been playing with it a bit, and I added some stuff so 
you can change the cursor when it's over the link.  You put this code 
somewhere before the label with the URL:

$linkCursor = new Win32::GUI::Cursor('harrow.cur');

$urlClass = new Win32::GUI::Class(
-name => "UrlLabelClass",
-extends => "STATIC",
-cursor => $linkCursor,
);

Then you add '-class => $urlClass' to the label.  The cursor 'harrow.cur' is

included with the Win32-GUI samples.  (I think) STATIC is what Windows 
actually calls labels.
_
Get your FREE download of MSN Explorer at http://explorer.msn.com


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

[perl-win32-gui-users] Cursor Inline?

[Thomas, Timothy B]

Is there a way to imbed a cursor into your code the way you can a bitmap?

something like this:

$cursor = new Win32::GUI::BitmapInline( q(
...
) );

$linkCursor = new Win32::GUI::Cursor($cursor);

$urlClass = new Win32::GUI::Class(
-name => "UrlLabelClass",
-extends => "STATIC",
-cursor => $linkCursor,
);


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-


-Original Message-
From: Thomas, Timothy B [mailto:[EMAIL PROTECTED]
Sent: Tuesday, January 23, 2001 9:09 AM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] Final Code: Click on URL in About
Wind ow


Christopher - it's not meant to work that way, only when you click on the
URL is it supposed to open your browser. What version of Win32-GUI are you
running? Make sure you are running the latest, I think 0.0.502 is the most
recent stable version.


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-


-Original Message-
From: christopher sagayam [mailto:[EMAIL PROTECTED]
Sent: Monday, January 22, 2001 9:56 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About
Window


one more thing

I don't know whether it is meant to be or not..

But when I click on the url it goes to the url BUT when I click on any other
place in the window too it goes to the url ( incl the OK button too)

chris
www.perl-resume.com



- Original Message -
From: Sean Healy <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, January 23, 2001 6:50 AM
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About Window


> >Here's the code that you all helped me to figure out. You can use this to
> >implement a clickable URL in your About Window, or whereever you like.
The
> >code may not be very clean, let me know if you have suggestions to
improve
> >this. This example runs as-is.
>
> This is great!  I've been playing with it a bit, and I added some stuff so
> you can change the cursor when it's over the link.  You put this code
> somewhere before the label with the URL:
>
> $linkCursor = new Win32::GUI::Cursor('harrow.cur');
>
> $urlClass = new Win32::GUI::Class(
> -name => "UrlLabelClass",
> -extends => "STATIC",
> -cursor => $linkCursor,
> );
>
> Then you add '-class => $urlClass' to the label.  The cursor 'harrow.cur'
is
> included with the Win32-GUI samples.  (I think) STATIC is what Windows
> actually calls labels.
> _
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


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

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

RE: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow

[Thomas, Timothy B]

Aldo - pretty cool, did you just implement that?
I seem to be getting a not-very-descriptive error when I try your
code. See below.
Tim

D:\Archive\scripts\completed\digitaltool>perl aldourl.gpl
Wrong number of parameters: expected 0, got 2.
BEGIN failed--compilation aborted at aldourl.gpl line 2.

D:\Archive\scripts\completed\digitaltool>cat aldourl.gpl
use Win32::GUI;
use Win32::GUI::HyperLink;

my $Window = new Win32::GUI::Window(
-title   => 'Win32::GUI::HyperLink demo',
-pos => [ 100, 100 ],
-size=> [ 150, 100 ],
-name=> 'Window',
);
$Window->AddHyperLink(
-text=> "dada's perl lab",
-name=> "test",
-pos => [ 25, 25 ],
-url => "http://dada.perl.it";,
# or: -url => "mailto:[EMAIL PROTECTED]",
);
$Window->Show();
my $rc = Win32::GUI::Dialog(0);

sub Window_Terminate {
return -1;
}


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-


-Original Message-
From: Aldo Calpini [mailto:[EMAIL PROTECTED]
Sent: Tuesday, January 23, 2001 10:13 AM
To: Thomas, Timothy B
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About
Wind ow


Thomas, Timothy B wrote:
> Sean - Thanks! That was my next step, but didn't yet have the time
> to research how to go about doing it. Didn't know it was so easy
> to implement a custom cursor like that. Your code works perfectly.

please find attached HyperLink.pm, which implements a 'regular'
Win32::GUI::HyperLink control ;-)
warning: the code is full of black (maybe voodoo) magic.

using it is this simple:

use Win32::GUI;
use Win32::GUI::HyperLink;

my $Window = new Win32::GUI::Window(
-title   => 'Win32::GUI::HyperLink demo',
-pos => [ 100, 100 ],
-size=> [ 150, 100 ],
-name=> 'Window',
);
$Window->AddHyperLink(
-text=> "dada's perl lab",
-name=> "test",
-pos => [ 25, 25 ],
-url => "http://dada.perl.it";,
# or: -url => "mailto:[EMAIL PROTECTED]",
);
$Window->Show();
my $rc = Win32::GUI::Dialog(0);

sub Window_Terminate {
return -1;
}

you don't need to specify a Click event, the HyperLink
class already provides a default one that simply activates
the link.

> Deviating from Win32-GUI somewhat:
> Next step is to figure out how to mimik a "mailto:"; for
> the e-mail link. Should be easy, once we figure out how to
> determine what the default e-mail program is. Not sure what
> assication is set for that. .html for the browser is easy, but
> what about e-mail's? maybe .msg? Here's the ftype info for .msg
> on my NT system, using outlook for e-mail.

in my code, I've used the ShellExecute API that works like a
charm with a standard "mailto:"; linkage.


cheers,
Aldo

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

RE: [perl-win32-gui-users] MessageBox?

[Thomas, Timothy B]

Win32::MsgBox("Text", 0, "title");

or
$result=Win32::MsgBox("Do you want to do this?", 4, "Title");

if ($result==6) #yes is clicked

{

#do this stuff

}


-

Tim Thomas

Unix Systems Administrator

Lockheed Martin EIS · Denver Data Center

303-430-2281

mailto:[EMAIL PROTECTED]  


-

-Original Message-
From: Erick J. Bourgeois [mailto:[EMAIL PROTECTED]
Sent: Tuesday, January 23, 2001 2:01 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] MessageBox?


Is there a MessageBox constructor? I remember seeing this idea somewhere,
but I can't find it any more.
 
erick
never stop questioning
www.jeb.ca  

RE: [perl-win32-gui-users] MessageBox

[Thomas, Timothy B]

Erick - the function I was using was out of the Win32 module, not
Win32::GUI, that explains the differences.
to get the method I use to work you would need: use Win32, as well as
use: Win32::Gui.
Tim
 


-

Tim Thomas

Unix Systems Administrator

Lockheed Martin EIS · Denver Data Center

303-430-2281

mailto:[EMAIL PROTECTED]  


-

-Original Message-
From: Erick J. Bourgeois [mailto:[EMAIL PROTECTED]
Sent: Tuesday, January 23, 2001 2:50 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] MessageBox



Tim,
I tried your way and I got a runtime error, "Undefined subroutine
&Win32::MsgBox called at ...". However, if I call the method MessageBox() on
a window object, it's all good. Halfway through this email I realized what
you did wrong; shouldn't it be:
 
Win32::GUI::MessageBox(
0,
"Do you want to do this?",
"Title",
MB_ICONINFORMATION | MB_YESNO,
);
 
well at least this works for me. One question, what does the zero do? Make
it modal?
 
erick
never stop questioning
www.jeb.ca  

RE: [perl-win32-gui-users] get value from list

[Thomas, Timothy B]

Someone else has written a win32::Gui program to do just what you are trying
to do. I don't seem to have the code anymore. Maybe they can post it again,
or you can search the archives.

Here's a piece of code I just wrote that gets all the data, including the
image, from a listview, it puts it into a hash.
I used this with the column sort routine that has been floating around, by
Jonathan Southwick [EMAIL PROTECTED] I am still working out the
bugs, but this section of code should help you.

# you must already have $totalcols (the # of columns in your
listview)
#   I don't think there is a way to pull this from the object.
%data=();
$rows=$ListView->Count();
for $i(0..$rows-1)
{
$row="";
my %result=$ListView->GetItem($i,0);
$image=$result{-image};
for $j(0..$totalcols-1)
{
my %result=$ListView->GetItem($i,$j);
$text=$result{-text};
$row.=",$text";
}
$data{$i}="$image$row";
#Win32::MsgBox("data($i)=$image$row\n");
}



-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-
-Original Message-
From: Michael Solomon [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 15, 2001 5:19 AM
To: Perl Gui (E-mail)
Subject: [perl-win32-gui-users] get value from list


I am querying a database and putting the output into a listview
What I would like to next is to click on an item in the list and then
drilldown into the data base
The question is how can I return the value from a List
I am fairly new at using Win32::GUI and apologise if this is a stupid
question.
Should I be using a different type than listview and if so what should I be
using?



use strict;
use Socket;
use Win32::GUI;
use Win32::ODBC;
#set variables
my (%Data, %new, $result, $Window, $width);
my $Dir = "//neptune/tech_dept/databases";
my $DBase   = "asset.mdb";
my $DriverType  = "Microsoft Access Driver (*.mdb)";
my $Desc= "Description=The Win32::ODBC Test DSN for Perl";
my $DSN = "tmpdsn";
$Window = new GUI::Window(
-name   => "Window",
-text   => "Win32::GUI::ListView test",
-width  => 350,
-height => 500,
-left   => 100,
-top=> 100,
);


$Window->AddListView(
-name  => "ListView",
-left  => 10,
-top   => 10,
-width => 330,
-height=> 383,
-style => WS_VISIBLE | 1,
-gridlines => 1,
);
$width = $Window->ListView->ScaleWidth;
$Window->ListView->InsertColumn(
-index => 0,
-width => $width/2,
-text  => "Asset No",
);
$Window->ListView->InsertColumn(
-index   => 1,
-width   => $width/2,
-text=> "IP Address",
);
$Window->AddRadioButton(
-name=> "Radio1",
-left=> 8,
-top => 410,
-text=> "192 Network  ",
-tabstop => 1,
);
$Window->AddRadioButton(
-name=> "Radio2",
-left=> 8,
-top => 430,
-text=> "212 XTML  ",
-tabstop => 1,
);


$Window->AddRadioButton(
-name=> "Radio3",
-left=> 8,
-top => 450,
-text=> "212 EasyNet  ",
-tabstop => 1,
);
#$Window->ListView->TextColor(hex("FF"));
$Window->Show();
$Window->Dialog();


sub MAIN {
#set up dsn
Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, ("DSN=$DSN",
"Description=The Win32 ODBC Test DSN for Perl", "DBQ=$Dir\\$DBase",
"DEFAULTDIR=$Dir", "UID=", "PWD="));
#open connection as $0
my $cO = new Win32::ODBC($DSN);
#run sql
$cO->Sql("SELECT assetid, ipaddress FROM ip_address where ipaddress
like '${result}%'");
#reset new
%new = ();
# Fetch the next rowset
while($cO->FetchRow()){
%Data = $cO->DataHash();
#convert to binary
$new{inet_aton($Data{ipaddress})} =
"$Data{assetid},$Data{ipaddress}";
}
#close database
$cO->Close();
#remove tempdsn
Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, "DSN=$DSN");
#clear items
$Window->ListView->Clear();  
foreach (sort keys %new) {
my ($asset, $ip ) = split(",",$new{$_});
$Window->ListView->InsertItem(-text => [ "$asset", "$ip" ]
);
};
}


sub MAIN1 {
#clear items
$Window->ListView->Clear();  
foreach (sort numeric values %new) {
my ($asset, $ip ) = split(",",$_);
$Window->ListView->InsertItem(-text =

RE: [perl-win32-gui-users] get value from list

[Thomas, Timothy B]

There is a SelectedItems function you can use.
Here's a bit of code that will get the data from all the selected items.
Once you determine which item you have selected you can use that other piece
of code to get the data from every column, or you can use this example if
you just want the first column.
see the documentation at http://dada.perl.it/gui_docs/gui.html for more
help.

if ($ListView->SelectCount() gt 0)
{
for $i(0..$ListView->SelectCount()-1)
{

%data=$ListView->ItemInfo(($ListView->SelectedItems)[$i]);
$filename=$data{-text};
...


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-
-Original Message-
From: Michael Solomon [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 15, 2001 10:32 AM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] get value from list


Tim, 
Thanks for this 
Unfortunately this gets all the items from the list 
What I want to do is to click on an item in the list and just capture that 
For example 
If I have a list showing 
1 
2 
3 
if I click on the 3, I want to capture 3 
I hope this makes sense 


Regards 


Mike Solomon 
Technical Manager 
Work 01582 831125 
Mobile 07941 537 172 
email   [EMAIL PROTECTED] 

== 
Important: Any views or opinions expressed by the sender do not necessarily 
represent those of the 3s Group. This e-mail and any attachment(s) 
are intended for the above named only and may be confidential.  If you are
not 
the named recipient please notify us immediately.  You must not copy or
disclose 
the contents to any third party. 
Internet e-mail is not a fully secure communications medium.  Please take 
this into account when sending e-mail to us. 
Any attachment(s) to this e-mail are believed to be free from virus, but it 
is the responsibility of the recipient to make all the necessary virus 
checks. 
www.3s-group.com 
= 
 -Original Message----- 
From:   Thomas, Timothy B [mailto:[EMAIL PROTECTED] 
Sent:   15 February 2001 16:48 
To: 'perl-win32-gui-users@lists.sourceforge.net' 
Subject:RE: [perl-win32-gui-users] get value from list 
Someone else has written a win32::Gui program to do just what you are trying

to do. I don't seem to have the code anymore. Maybe they can post it again, 
or you can search the archives. 
Here's a piece of code I just wrote that gets all the data, including the 
image, from a listview, it puts it into a hash. 
I used this with the column sort routine that has been floating around, by 
Jonathan Southwick [EMAIL PROTECTED] I am still working out the 
bugs, but this section of code should help you. 
# you must already have $totalcols (the # of columns in your 
listview) 
#   I don't think there is a way to pull this from the object. 
%data=(); 
$rows=$ListView->Count(); 
for $i(0..$rows-1) 
{ 
$row=""; 
my %result=$ListView->GetItem($i,0); 
$image=$result{-image}; 
for $j(0..$totalcols-1) 
{ 
my %result=$ListView->GetItem($i,$j); 
$text=$result{-text}; 
$row.=",$text"; 
} 
$data{$i}="$image$row"; 
#Win32::MsgBox("data($i)=$image$row\n"); 
} 




- 
Tim Thomas 
Unix Systems Administrator 
Lockheed Martin EIS · Denver Data Center 
303-430-2281 
mailto:[EMAIL PROTECTED] 


- 
-Original Message- 
From: Michael Solomon [mailto:[EMAIL PROTECTED] 
Sent: Thursday, February 15, 2001 5:19 AM 
To: Perl Gui (E-mail) 
Subject: [perl-win32-gui-users] get value from list 


I am querying a database and putting the output into a listview 
What I would like to next is to click on an item in the list and then 
drilldown into the data base 
The question is how can I return the value from a List 
I am fairly new at using Win32::GUI and apologise if this is a stupid 
question. 
Should I be using a different type than listview and if so what should I be 
using? 



use strict; 
use Socket; 
use Win32::GUI; 
use Win32::ODBC; 
#set variables 
my (%Data, %n

RE: [perl-win32-gui-users] get value from list

[Thomas, Timothy B]

It seem that is what most people are doing, I personally like pulling the
data directly from the object.
Tim
 


-

Tim Thomas

Unix Systems Administrator

Lockheed Martin EIS · Denver Data Center

303-430-2281

mailto:[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 


-

-Original Message-
From: Michael Solomon [mailto:[EMAIL PROTECTED]
Sent: Friday, February 16, 2001 6:59 AM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] get value from list





Tim, 


Thanks for your help with this 

I realised that as I was supplying the data to the list box I just needed to
put it into an array and use: 

sub ListView_ItemClick { 
$item = shift; 
print $asset[$item]; 

} 



Regards 


Mike Solomon 
Technical Manager 
Work 01582 831125 
Mobile 07941 537 172 
email   [EMAIL PROTECTED] 


== 
Important: Any views or opinions expressed by the sender do not necessarily 
represent those of the 3s Group. This e-mail and any attachment(s) 
are intended for the above named only and may be confidential.  If you are
not 
the named recipient please notify us immediately.  You must not copy or
disclose 
the contents to any third party. 

Internet e-mail is not a fully secure communications medium.  Please take 
this into account when sending e-mail to us. 
Any attachment(s) to this e-mail are believed to be free from virus, but it 
is the responsibility of the recipient to make all the necessary virus 
checks. 

www.3s-group.com 

= 

 -Original Message- 
From:   Thomas, Timothy B [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ] 
Sent:   15 February 2001 17:45 
To: 'perl-win32-gui-users@lists.sourceforge.net' 
Subject:RE: [perl-win32-gui-users] get value from list 

There is a SelectedItems function you can use. 
Here's a bit of code that will get the data from all the selected items. 
Once you determine which item you have selected you can use that other piece

of code to get the data from every column, or you can use this example if 
you just want the first column. 
see the documentation at http://dada.perl.it/gui_docs/gui.html
<http://dada.perl.it/gui_docs/gui.html>  for more 
help. 

if ($ListView->SelectCount() gt 0) 
{ 
for $i(0..$ListView->SelectCount()-1) 
{ 

%data=$ListView->ItemInfo(($ListView->SelectedItems)[$i]); 
$filename=$data{-text}; 
... 



- 
Tim Thomas 
Unix Systems Administrator 
Lockheed Martin EIS · Denver Data Center 
303-430-2281 
mailto:[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>  


- 
-Original Message- 
From: Michael Solomon [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ] 
Sent: Thursday, February 15, 2001 10:32 AM 
To: 'perl-win32-gui-users@lists.sourceforge.net' 
Subject: RE: [perl-win32-gui-users] get value from list 


Tim, 
Thanks for this 
Unfortunately this gets all the items from the list 
What I want to do is to click on an item in the list and just capture that 
For example 
If I have a list showing 
1 
2 
3 
if I click on the 3, I want to capture 3 
I hope this makes sense 


Regards 


Mike Solomon 
Technical Manager 
Work 01582 831125 
Mobile 07941 537 172 
email   [EMAIL PROTECTED] 


== 
Important: Any views or opinions expressed by the sender do not necessarily 
represent those of the 3s Group. This e-mail and any attachment(s) 
are intended for the above named only and may be confidential.  If you are 
not 
the named recipient please notify us immediately.  You must not copy or 
disclose 
the contents to any third party. 
Internet e-mail is not a fully secure communications medium.  Please take 
this into account when sending e-mail to us. 
Any attachment(s) to this e-mail are believed to be free from virus, but it 
is the responsibility of the recipient to make all the necessary virus 
checks. 
www.3s-group.com 
============= 
 -Original Message- 
From:   Thomas, Timothy B [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ] 
Sent:   15 February 2001 16:48 
To: 'perl-win32-gui-users@lists.sourceforge.net' 
Subject:RE: [perl-win32-gui-users] get value from list 
Someone 

[perl-win32-gui-users] Display a jpeg and gif image

[Thomas, Timothy B]

Aldo or anyone - 
I really need to figure out a way to display jpeg and gif images in
one of my Win32::GUI apps. There has got to be a way to accomplish it. Any
suggestions? I thought of converting the whole thing to TK, but I really
don't want to have to go that route.
Thanks,
Tim


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-

RE: [perl-win32-gui-users] Display a jpeg and gif image

[Thomas, Timothy B]

I have about 6000 images, so considering the disk space that .bmp takes
compared to a .jpg, that's out of the question. BUT, if I could figure out a
way to convert the jpg to a bmp just to display it, that might work, anyone
know of a internal perl way to do image conversions? I have done it through
3rd party tools, but not perl directly. Still, I would prefer to display the
jpeg directly. Aldo - any ideas?

Tim


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-


-Original Message-
From: David Hiltz [mailto:[EMAIL PROTECTED]
Sent: Friday, March 02, 2001 11:02 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] Display a jpeg and gif image



   You can display a BMP file, so maybe you could convert the jpg/gif to a
   bmp then display it.

   -dave

> 
>  anyhow. .i'm also interrested in knowing..
> 
>  maybe we could use some VB dll's :)
>  
> Best regards,
>  Danny Zakmailto:[EMAIL PROTECTED]
>   co-ceo 
> 
> Euro-Pictures/belGOnet.com
> Princesse Elisabeth Square 9/11
> 1030 Brussels
> Belgium
> 
> Tel : +32-(0)2-215.67.65
> Fax : +32-(0)2-215.66.65
> 
> ---
> Friday, March 02, 2001, 5:22:40 PM, you wrote:
> 
> TTB> Aldo or anyone - 
> TTB> I really need to figure out a way to display jpeg and gif
images in
> TTB> one of my Win32::GUI apps. There has got to be a way to accomplish
it. Any
> TTB> suggestions? I thought of converting the whole thing to TK, but I
really
> TTB> don't want to have to go that route.
> TTB> Thanks,
> TTB> Tim
> 

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

RE: [perl-win32-gui-users] Accelerators

[Thomas, Timothy B]

What is an accelerator?
 


-

Tim Thomas

Unix Systems Administrator

Lockheed Martin EIS · Denver Data Center

303-430-2281

mailto:[EMAIL PROTECTED]  


-

-Original Message-
From: Jonathan Southwick [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 14, 2001 2:08 PM
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui-users] Accelerators


has anyone been successful in getting Accelerators to work?
 
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]  

RE: [perl-win32-gui-users] .plan - Win32::GUI::JPEG

[Thomas, Timothy B]

Aldo - 
Has anyone volunteered to help with the Win32::GUI::JPEG addition yet?

I would like to help, but my C/C++ experience isn't current, as my
familiarity with today's compilers. It's been over 5 years since I have done
any serious C programming. Let me know what your expectations are of someone
to help with this issue.

I am quite interested in seeing this part of Win32::GUI done as I REALLY
need it for a program I have been working on.

Let me know how I can help.
Tim


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-


-Original Message-
From: Aldo Calpini [mailto:[EMAIL PROTECTED]
Sent: Monday, March 19, 2001 10:12 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] .plan


hello perl-win32-gui-users,

this is my dot plan about Win32::GUI, what I'm doing and what
I plan to do. please note that everything here may change (without
further notice) depending on my other activities (namely job and
'real life' :-).

it would be kewl if you could 'prioritize' the list based on
what you find more useful (or funny :-), and above all (pardon
the caps): IF YOU CAN HELP ME WITH SOMETHING, PLEASE DO!

that said, this is the list:

 NEM (New Event Model)
I'm almost done with this, but there are still some flaws.
I will also define the API to manage events (eg. AddEvent
or BindEvent or ResetEvent or something like this...).
I'm also adding the possibility of 'shortcut' options a la
Javascript, like:
-onClick => \&DoSomething

 Event Queues
this is something I didn't really explored yet, but I would
like to process a list of events. should look somehow like
this:
-events => { Click => [ \&DoSomething, \&DoSomethingElse ] }
in other words, when a Click events occur first DoSomething
is executed, then DoSomethingElse. the main purpose for this
is to allow subpackages to define their own event handlers
which can be 'overriden' by the implementation in the program.
(if it doesn't sound clear, don't worry, is still mainly obscure
to me too :-)

 Win32::GUI::JPEG
allow *read* support for JPEG images, using libjpeg (see
ftp://ftp.uu.net/graphics/jpeg). JPEG files can be converted
to in-memory bitmaps and then used as regular Bitmap objects.
(NOTE: I'm *not going* to develop Win32::GUI::GIF. GIF is
absolutely deprecated, I'll look into PNG support eventually).

 Win32::GUI::Scintilla
(see http://www.scintilla.org); to revive pride.pl! :-)


these are the main points... for now, I will post a followup
if I forgot something :-)

cheers,
Aldo

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



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

[perl-win32-gui-users] Looping Question

[Thomas, Timothy B]

I have a Win32::GUI script that needs to loop. I tried using a timer for
each instance of the loop, but it doesn't always take the same amount of
time for each time through. I had this as a command line program and just
put the whole thing in a while (1==1). How can I do the same thing with
Win32::GUI? I have several sleeps in my loop and I want the rest of the gui
script to be accessible while this part is "asleep". Any suggestions?
Thanks,
Tim


-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]

-

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

[Thomas, Timothy B]

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

[perl-win32-gui-users] Shutdown, reboot, logoff and lock on NT and 2000 with perl?

[Thomas, Timothy B]

Are there any Win32::GUI options to to shutdown, reboot, logoff the current
user and/or lock the screen using perl on NT or 2000?

Thanks,
Tim Thomas

[perl-win32-gui-users] pathext issue with start, run vs command line

[Thomas, Timothy B]

This isn't strictly WIn32:GUI, but it's related. I have .pl and .gpl
associated with perl.exe and guiperl.exe respectively where guiperl is the
console-less executable. I also have the pathext environment variable set to
include .pl and .gpl. I also have all my useful scripts in one location and
that location is in the path. So this means I can run script.gpl by entering
just "script"  from anywhere on the system. This works great, the problem
is, I can't do the same by clicking on Start then Run. If I enter my script
with the extension it works just fine, but without it, it doesn't find it.
So it seems to be a PATHEXT issue. This seems to be the case for both
Windows NT and Windows 2000. Has anyone tracked this problem down any
further to determine why start, run doesn't work the same as the command
prompt? Any solutions out there to this issue?
Thanks,
Tim Thomas

FW: [perl-win32-gui-users] Sorting Listview

[Thomas, Timothy B]

I pulled the code below straight out of a program I wrote awhile back that
does this. This issue has been discussed several times, you might find
better examples in the archives. What most people have done is store their
data in a pre-defined hash, I actually pull the data directly from the table
and spit it back into the table Hope this helps, let me know if you need
any help understanding all this

Tim Thomas

sub ListView_ColumnClick {
my $column = shift;
$column=$column+1;

## i do this so that I can toggle between ascending and descending
sorts
## 0 = ascending (A-Z), 1 = decending (Z - A)
if ($lastcolumn == $column) # if you clicked the same column twice
in a row
{$sortorder = 1 - $sortorder;}  # toggle between 1 and 0
values
else
{$sortorder = 0;}
#Win32::MsgBox("You Clicked $column, last time it was $lastcolumn,
sortorder=$sortorder", 0, "DEBUG");
$lastcolumn = $column;

%data=();
$rows=$ListView->Count();
for $i(0..$rows-1)
{
$row="";
my %result=$ListView->GetItem($i,0);
$image=$result{-image};
for $j(0..$totalcols-1)
{
my %result=$ListView->GetItem($i,$j);
$text=$result{-text};
$row.=",$text";
}
$data{$i}="$image$row";
#Win32::MsgBox("data($i)=$image$row\n");
}

my %sortcol = NewList($column, %data);
SortListItem(\%data,\%sortcol,$column);
if ($sortorder)
{$Status->Text("Sorted descending by Column $column.");}
else
{$Status->Text("Sorted ascending by Column $column.");}
return;
}

sub SortListItem {
   my ($data,$sortcol,$column) = @_;
   my $check;
   my %data = %$data;
   my %sortcol = %$sortcol;

   $check = "$_" foreach (values %sortcol);

   $ListView->Clear();  ## clear the ListView window
   $index = 0;
   if ($sortorder == 0)
{  ## this is sorting in ascending order
if (($column == 2) or ($column == 3))
{
#Win32::MsgBox("sorting numerically\n");
  foreach (sort {
(substr($sortcol{$a},0,index($sortcol{$a}," "))) <=>
(substr($sortcol{$b},0,index($sortcol{$b}," "))) } keys %sortcol)
{
my @newdata = split/,/,$data{$_};
InsertListItem(@newdata);
}
}
else {
  foreach (sort { uc($sortcol{$a}) cmp uc($sortcol{$b})
} keys %sortcol)
{
my @newdata = split/,/,$data{$_};
InsertListItem(@newdata);
}
}
$ListView->Update();
}
   else
{   ## this is sorting in descending order
if (($column == 2) or ($column == 3))
{
#Win32::MsgBox("sorting numerically\n");
  foreach (sort {
(substr($sortcol{$b},0,index($sortcol{$b}," "))) <=>
(substr($sortcol{$a},0,index($sortcol{$a}," "))) } keys %sortcol)
{
my @newdata = split/,/,$data{$_};
InsertListItem(@newdata);
}
}
else {
  foreach (sort { uc($sortcol{$b}) cmp uc($sortcol{$a})
} keys %sortcol)
{
my @newdata = split/,/,$data{$_};
InsertListItem(@newdata);
}
$ListView->Update();
}
}
   return;
}

sub NewList  {
   ## This creates another hash to use only for sorting purposes.
   my ($column,%sortcol) = @_;
   my $sortthis;

   foreach (keys %sortcol) {
  my @info = split /,/, $sortcol{$_};
  $sortthis = $info[$column];
  $sortcol{$_} = "$sortthis";
   }
   return(%sortcol);
}

-Original Message-
From: Frazier, Joe Jr [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 05, 2001 11:18 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] Sorting Listview


Is there a way to sort the data in a Listview control?  I know there is
a ColumnClick event for each column and this is where you would do your
sort, but has anyone already created a function to do this?  I would
assume you would have to load each row in to a data structure and use a
Schwartzian Transform, then rebuild the list?  Does this sound like the
right way to go or has anyone already done this?


Joe Fr

RE: [perl-win32-gui-users] ListView loses selection

[Thomas, Timothy B]

There is an option for list view that does this for you:
-showselalways=>1

-Original Message-
From: Piske, Harald [mailto:[EMAIL PROTECTED]
Sent: Friday, October 26, 2001 9:30 AM
To: 'Peter Eisengrein'; perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] ListView loses selection


> Why then, I wonder, does it not show the selection if you do a
> $Window->ListBox->SetFocus() or even
> $Window->ListBox->SelectedItem->SetFocus() ? I tried both 
> with a sub of
> Window_GotFocus and Window_Restore.
Just a thought, I did not try: if you change the selection to what it
already is or even actually change it and then change it back, will it show?

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

RE: [perl-win32-gui-users] Animated windows

[Thomas, Timothy B]

Here's what I did to get it to work:

use Win32;
use Win32::GUI; #added
use Win32::API;

use constant AW_HOR_POSITIVE => 0x0001;
use constant AW_HOR_NEGATIVE => 0x0002;
use constant AW_VER_POSITIVE => 0x0004;
use constant AW_VER_NEGATIVE => 0x0008;
use constant AW_CENTER   => 0x0010;
use constant AW_HIDE => 0x0001;
use constant AW_ACTIVATE => 0x0002;
use constant AW_SLIDE=> 0x0004;
use constant AW_BLEND=> 0x0008;

# BOOL AnimateWindow(
# HWND hwnd,
# DWORD dwTime,
# DWORD dwFlags
# );
my $AnimateWindow = new Win32::API("user32", "AnimateWindow", [ 'N', 'N',
'N' ], 'N') or $reg{'UI'}{'Fading'} = 0;


# ... here create your window object ($winObj) as ususal...
my $winObj = new GUI::Window(-title=>"Test", -left=>10, -top=>10,
-width=>640, -height=>480, -name=>"Window",); #added


# set animation duration in ms (usually 200ms)
my $msec = 200;

# FADE IN
# use this command in place of $objWin->Show()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | AW_BLEND
);

# FADE OUT
# use this command in place of $objWin->Hide() for example in
winObj_Terminate()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_HIDE | AW_BLEND );


# Some alternatives follows...

# APPEAR from LEFT-TOP
# use this command in place of $objWin->Show()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | AW_SLIDE |
AW_HOR_POSITIVE | AW_VER_POSITIVE );

# DISAPPEAR from RIGHT-BOTTOM
# use this command in place of $objWin->Hide() for example in
winObj_Terminate()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_HIDE | AW_SLIDE |
AW_HOR_NEGATIVE | AW_VER_NEGATIVE );

# GROW from CENTER
# use this command in place of $objWin->Show()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | AW_CENTER );

# SHRINK to CENTER
# use this command in place of $objWin->Hide() for example in
winObj_Terminate()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_HIDE | AW_CENTER );

#-

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, October 08, 2002 9:05 AM
Cc: perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] Animated windows


>  
> # ... here create your window object ($winObj) as ususal...
>  

I know you have done a lot of work to show us how to use these effects, but 
for me, I've got no idea how to create this object properly.  My background 
is *NIX, and the Win32::GUI module for perl.  Hate to ask a dumb question 
as to how to create a $winObj, but I didn't find anything that made sense 
on google.  I would love to just play with this feature, and see how it 
looks, any help would be great.

Thanks

Chris G.



---
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] Win32-GUI on a new computer

[Thomas, Timothy B]

Just like everyone else, I occassionally get a new computer and have
problems getting everything setup the way it used to be. I have installed
ActivePerl build 633 and installed 0.0.665 from the ppm-tar file on
Surgeforce. I am getting the messages below (they seem to just be warnings)
on my old win32-gui scripts, any ideas? I saw some similar problems from
others in the archives but didn't see any solutions.
Thanks for any help.
Tim Thomas

H:\>Prototype mismatch: sub main::MB_ICONEXCLAMATION () vs none at
C:/Perl/lib/Exporter.pm line 57.
Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON
main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 17
eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 17
Prototype mismatch: sub main::MB_ICONWARNING () vs none at
C:/Perl/lib/Exporter.pm line 57.
Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON
main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 17
eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 17
Prototype mismatch: sub main::MB_ICONINFORMATION () vs none at
C:/Perl/lib/Exporter.pm line 57.
Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON
main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 17
eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 17
Prototype mismatch: sub main::MB_ICONASTERISK () vs none at
C:/Perl/lib/Exporter.pm line 57.
Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON
main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 17
eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 17
Prototype mismatch: sub main::MB_ICONQUESTION () vs none at
C:/Perl/lib/Exporter.pm line 57.
Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON
main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 17
eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 17
Prototype mismatch: sub main::MB_ICONSTOP () vs none at
C:/Perl/lib/Exporter.pm line 57.
Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON
main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 17
eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 17
Prototype mismatch: sub main::MB_ICONERROR () vs none at
C:/Perl/lib/Exporter.pm line 57.
Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON
main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 17
eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 17
Prototype mismatch: sub main::MB_ICONHAND () vs none at
C:/Perl/lib/Exporter.pm line 57.
Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON
main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 17
eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 17

RE: [perl-win32-gui-users] Perl and printing

[Thomas, Timothy B]

Peter, I wanted to let you know I really appreciated your post on this
issue. I have been looking for a good work-around to the printing problem,
and your first solution below is awesome, the only thing I had to add was
quotes around $file. Here's a sample script I wrote to test it out:
 
#!perl -w
 
use strict;
 
my $filename="$0.$$.html";
 
open(FH,">$filename");
print FH "testingThis is a test";
close(FH);
 
my $dll = "$ENV{'WINDIR'}/System32/mshtml.dll";
system("rundll32.exe $dll,PrintHTML \"$filename\"");
 
unlink $filename; #delete temp file;

 

-Original Message-
From: Peter Eisengrein [mailto:[EMAIL PROTECTED] 
Sent: Friday, April 25, 2003 6:02 AM
To: 'Cruickshanks, Darin'; Perl-Win32-Gui-Users
Subject: RE: [perl-win32-gui-users] Perl and printing


There may be a better way, but here are two possible ways:
 
### THIS WILL BRING UP THE SAME PRINT WINDOW AS USED BY WEB BROWSER
 
  $dll = "$ENV{'WINDIR'}/System32/mshtml.dll";
  system("rundll32.exe $dll,PrintHTML $file");
 
 
-OR-
 
 
### THIS MAY OR MAY NOT GIVE THE BEST RESULTS
 
  system("copy $file ServerName\\PrinterName");
 
 
Good luck.
 

-Original Message-
From: Cruickshanks, Darin [mailto:[EMAIL PROTECTED]
Sent: Thursday, April 24, 2003 11:12 AM
To: Perl-Win32-Gui-Users; [EMAIL PROTECTED]
Subject: [perl-win32-gui-users] Perl and printing


All,
 
 
I have a Perl application that uses Win32::GUI to provide a nice front end
for a database, what I would really like to do is provide a print feature
with the ability to print to a network printer through the gui.  Does anyone
know of any way to do this?
 
Cheers,

Darin



Darin Cruickshanks
Labs Manager, Computing Service
University of Essex
[EMAIL PROTECTED]  
01206 873585