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

[perl-win32-gui-users] Problems with List Boxes

[SSGT S. S. <st...@tx...>]

 
I am trying to use this module to make a GUI for a command-line
application.

I am using at the moment two list boxes and a Progress Bar. For some
reason the interpreter can't find the second list box when I try to call
its Add function. I also can't seem to get slide bars to appear on the
listboxes either.

Basically I am trying to remove a string from List box A and move it to
List Box B via selection and a click on a button.

I have included the code I am messing with below. If anyone can tell me
anything here I'd appreciate it.

use Win32::GUI;

$Menu = new Win32::GUI::Menu(
File => "&File",
Text =>"",
);

$Window = new Win32::GUI::Window(
-name => "Window",
-title => "Steve's Window",
-left => 100, 
-top => 100,
-width => 500, 
-height => 400, 
-menu => $Menu,
);

$Window ->AddProgressBar(
-name => "Progbar",
-width=>250,
-height=>20,
-top =>100,
-left=>125,
-smooth =>0,
-vertical =>0
);

$Window->Progbar->SetPos (0);
$Window->Progbar->SetRange(0,10);
$Window->Progbar->SetStep (1);

$Window->AddLabel(
-name =>"ProgLabel",
-align => "center",
-text =>"Overall Progress",
-width => 100,
-height =>50,
-top => 150,
-left=>150 
);

$Window->AddListbox (

name => "Done",
-align => "center",
-width => 100,
-height => 500,
-left =>400,
-multisel => 1,
-ScrollV =>1,
-sort =>1
);

$Window->AddListbox (
-name => "Agenda",
-align => "center",
-width => 100,
-height => 500,
-multisel => 1,
-ScrollV =>1,
-sort =>1
);

$Window->AddButton(
-name => "Remove",
-align => "center",
-text => "Remove",
-left => 200,
-top => 200
-width => 100,
-height => 50,
);



$Window->Show();

@Stuff = ("First","Second","Third", "Fourth");

foreach $item (@Stuff)
{ 

$Window->Agenda->Add($item);
}


$screen = $Window->GetDC();
$i=1;
while(1)
{
$i++; 
Win32::GUI::DoEvents(); 
$Window->Progbar->StepIt();
sleep (1);
$screen->TextOut(200,250,"Overall Progress : $i");
}




sub Remove_Click
{
# which one is selected ?
$todo = $Window->Agenda->SelectedItem();
if ($todo == -1)
{
$todo = $Window->Done->SelectedItem();
if ($todo == -1)
{
exit;
}

$item = $Window->Done->GetString($todo);
$Window->Done->RemoveItem($todo);
$Window->Agenda->AddString($item);
$todo = -1;
}
else
{
$item = $Window->Agenda->GetString($todo);
$Window->Agenda->RemoveItem($todo);
$Window->Done->Add($item);
$todo = -1;
}

}


sub Window_Terminate
{

return -1;
} 

Re: [perl-win32-gui-users] Does Win32::GUI::PeekMessage work?

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

Mark wrote:
>I have a window full of colourful cirles that get
>blanked out whenever another window goes on top. I

The Win32::Graphic control has a Paint event. Maybe if you paint on that 
one instead. Note that you have to redraw the entire control each time.

Trivia: This is how The GUI Loft design window works, by drawing what looks 
like controls in the window.


/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 

[perl-win32-gui-users] Does Win32::GUI::PeekMessage work?

[<mri...@ya...>]

I have a window full of colourful cirles that get
blanked out whenever another window goes on top. I
have tried to intercept the redraw message with
PeekMessage but got nothing out of it. GetMessage
works but hangs the application as it waits on the
call. Anybody got any bright ideas?

Thanks
Mark

____________________________________________________________
Nokia Game is on again. 
Go to http://uk.yahoo.com/nokiagame/ and join the new
all media adventure before November 3rd.

Re: [perl-win32-gui-users] Save file window

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

>>I tried loading the FileOp module to my machine and got an error that it
couldn't find the Lazy.pm module.  I did a search on cpan for lazy.pm and I
couldn't find it.<<

It's located Jenda Krynicky's site, along with tons of other useful modules.  
The PPM distro is:
http://jenda.krynicky.cz/perl/Lazy-0.5-PPM.tar.gz

RE: [perl-win32-gui-users] Save file window

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

I tried loading the FileOp module to my machine and got an error that it
couldn't find the Lazy.pm module.  I did a search on cpan for lazy.pm and I
couldn't find it.  What is Lazy.pm, do I need it, how do I get FileOp?

Thanks,

Joe





"Frazier, Joe Jr" <Joe...@Pe...> on 10/22/2001 01:03:21 PM

To:   <Jos...@DM...>
cc:   <per...@li...>
Subject:  RE: [perl-win32-gui-users] Save file window

I don't know.  To my knowledge, it returns a string only.  You CAN use
Win32::FileOP:

use Win32::FileOp;
my $filters = [ 'Text' => '*.txt', 'Word' => '*.doc', 'Perl' => '*.pl'];
my $ret = Win32::FileOp::SaveAsDialog({filters =>$filters ,handle =>
0,});

if($ret) {
    print "GetSaveFileName returned: '$ret'\n";
} else {
    if(GUI::CommDlgExtendedError()) {
        print "ERROR. CommDlgExtendedError is:
",GUI::CommDlgExtendedError(), "\n";
    } else {
        print "You cancelled.\n";
    }
}
This will return the filename with the selected ext filter added.  Take
care NOT to include more then one ext, cause it will always add the
first to the filename( kind of a no brainer).


> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: Monday, October 22, 2001 11:05 AM
> To: Frazier, Joe Jr
> Cc: per...@li...
> Subject: RE: [perl-win32-gui-users] Save file window
>
>
>
>
> How do you get it to return the filename with the extension.
> In sfn.pl it
> added the filters *.txt and *.pl.  Is there a way to get that
> filter so
> that if I type the name of the file and select the .txt
> filter I'll have
> "filename.txt"?  It would be nice to think that users will type the
> extension, but they don't.
>
> Thanks,
>
> Joe
>
>
>
>
>
> "Frazier, Joe Jr"
> <Joe...@Pe...>@lists.sourceforge.net on
> 10/19/2001 02:25:13 PM
>
> Sent by:  per...@li...
>
>
> To:   <per...@li...>
> cc:    (bcc: Joseph Vieira/DMR/CA)
> Subject:  RE: [perl-win32-gui-users] Save file window
>
> From GUI.xs, here is the definition:
>
> # (@)METHOD:GetSaveFileName(%OPTIONS)
>     # Allowed %OPTIONS are:
>     #  -owner => WINDOW
>     #      [TBD]
>     #  -title => STRING
>     #      the title for the dialog
>     #  -directory => STRING
>     #      specifies the initial directory
>     #  -file => STRING
>     #      specifies a name that will appear on the dialog's
> edit field
>     #  -filter => ARRAY REFERENCE
>     #      [TBD]
>
> Here is an example from sfn.pl ( included example in the source
> distribution)
>
> Add "-directory => something" to the sub arg to start in a particular
> folder
> I have never used the -owner flag, so I have no idea what it does.
>
> <CODE>
> use Win32::GUI;
>
> $file = "\0" . " " x 256;
>
> $ret = GUI::GetSaveFileName(
>     -title  => "Win32::GUI::GetSaveFileName test",
>     -file   => "\0" . " " x 256,
>     -filter => [
>         "Text documents (*.txt)" => "*.txt",
>         "Perl stuff (*.pl, *.pm)" => "*.pl;*.pm",
>         "All files", "*.*",
>     ],
> );
>
> if($ret) {
>     print "GetSaveFileName returned: '$ret'\n";
> } else {
>     if(GUI::CommDlgExtendedError()) {
>         print "ERROR. CommDlgExtendedError is: ",
> GUI::CommDlgExtendedError(), "\n";
>     } else {
>         print "You cancelled.\n";
>     }
> }
>
> </CODE>
>
> Basically, if $ret is defined, it is the full path to the
> file you want
> to save. You can then perfom open, pipe, pass to constructors
> which take
> a filename, etc.  Also, for the Openfile, you may want to
> play with the
> Win32::GUI::BrowseForFolder function AND look back on the list several
> weeks for Win32::FileOp reference.  It includes a better Openfilename
> function in that you can specify a flag to open multiple file names
> amoung other options not available(currently) in the
> Win32::GUI::GetOpenFileName function.
>
>
>
> > -----Original Message-----
> > From: Jos...@DM... [mailto:Jos...@DM...]
> > Sent: Friday, October 19, 2001 1:53 PM
> > To: per...@li...
> > Subject: [perl-win32-gui-users] Save file window
> >
> >
> >
> > Hello,
> >
> > I was looking at the sample perl scripts and came accross
> > ofn.pl, it uses
> > Win32::GUI::GetOpenFileName.  Which opens up an open file
> > window.  Created
> > and ready to use with all the buttons.  Cool.  I couldn't find it
> > documented any where and now I am wondering if there is a
> > save file window
> > (I really hope so).  I'd rather not have to create one if
> > it's already been
> > done.  Does anyone know?
> >
> > 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
>
>
>
>
>
>

[perl-win32-gui-users] Error compiling with Mingw

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

I've managed to build Perl 5.6.1 with Mingw, but I'm getting the
following errors while trying to build Win32::GUI. Can anybody help, or
tell me where I can post my question?

-----------------------------------------------------
E:\TEMP\Win32-GUI-0.0.558>perl Makefile.PL
Note (probably harmless): No library found for 'comctl32.lib'
Note (probably harmless): No library found for '-lmsvcrt'
Note (probably harmless): No library found for '-lmoldname'
Note (probably harmless): No library found for '-lkernel32'
Note (probably harmless): No library found for '-luser32'
Note (probably harmless): No library found for '-lgdi32'
Note (probably harmless): No library found for '-lwinspool'
Note (probably harmless): No library found for '-lcomdlg32'
Note (probably harmless): No library found for '-ladvapi32'
Note (probably harmless): No library found for '-lshell32'
Note (probably harmless): No library found for '-lole32'
Note (probably harmless): No library found for '-loleaut32'
Note (probably harmless): No library found for '-lnetapi32'
Note (probably harmless): No library found for '-luuid'
Note (probably harmless): No library found for '-lwsock32'
Note (probably harmless): No library found for '-lmpr'
Note (probably harmless): No library found for '-lwinmm'
Note (probably harmless): No library found for '-lversion'
Note (probably harmless): No library found for '-lodbc32'
Writing Makefile for Win32::GUI

E:\TEMP\Win32-GUI-0.0.558>dmake
dmake.exe:  makefile:  line 304:  Warning -- Empty recipe for special
target .xs.cpp
dmake.exe:  makefile:  line 803:  Error -- Unmatched quote in token

-----------------------------------------------

Note: Mingw uses dmake.exe, and I have built another module
(Date::Calc) which uses C-code extensions successfully.

Any help is appreciated,

Marcus

RE: [perl-win32-gui-users] Save file window

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

I don't know.  To my knowledge, it returns a string only.  You CAN use
Win32::FileOP:

use Win32::FileOp;
my $filters =3D [ 'Text' =3D> '*.txt', 'Word' =3D> '*.doc', 'Perl' =3D> =
'*.pl'];
my $ret =3D Win32::FileOp::SaveAsDialog({filters =3D>$filters ,handle =
=3D>
0,});

if($ret) {
    print "GetSaveFileName returned: '$ret'\n";
} else {
    if(GUI::CommDlgExtendedError()) {
        print "ERROR. CommDlgExtendedError is:
",GUI::CommDlgExtendedError(), "\n";
    } else {
        print "You cancelled.\n";
    }
}
This will return the filename with the selected ext filter added.  Take
care NOT to include more then one ext, cause it will always add the
first to the filename( kind of a no brainer).


> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: Monday, October 22, 2001 11:05 AM
> To: Frazier, Joe Jr
> Cc: per...@li...
> Subject: RE: [perl-win32-gui-users] Save file window
>=20
>=20
>=20
>=20
> How do you get it to return the filename with the extension. =20
> In sfn.pl it
> added the filters *.txt and *.pl.  Is there a way to get that=20
> filter so
> that if I type the name of the file and select the .txt=20
> filter I'll have
> "filename.txt"?  It would be nice to think that users will type the
> extension, but they don't.
>=20
> Thanks,
>=20
> Joe
>=20
>=20
>=20
>=20
>=20
> "Frazier, Joe Jr"=20
> <Joe...@Pe...>@lists.sourceforge.net on
> 10/19/2001 02:25:13 PM
>=20
> Sent by:  per...@li...
>=20
>=20
> To:   <per...@li...>
> cc:    (bcc: Joseph Vieira/DMR/CA)
> Subject:  RE: [perl-win32-gui-users] Save file window
>=20
> From GUI.xs, here is the definition:
>=20
> # (@)METHOD:GetSaveFileName(%OPTIONS)
>     # Allowed %OPTIONS are:
>     #  -owner =3D> WINDOW
>     #      [TBD]
>     #  -title =3D> STRING
>     #      the title for the dialog
>     #  -directory =3D> STRING
>     #      specifies the initial directory
>     #  -file =3D> STRING
>     #      specifies a name that will appear on the dialog's=20
> edit field
>     #  -filter =3D> ARRAY REFERENCE
>     #      [TBD]
>=20
> Here is an example from sfn.pl ( included example in the source
> distribution)
>=20
> Add "-directory =3D> something" to the sub arg to start in a =
particular
> folder
> I have never used the -owner flag, so I have no idea what it does.
>=20
> <CODE>
> use Win32::GUI;
>=20
> $file =3D "\0" . " " x 256;
>=20
> $ret =3D GUI::GetSaveFileName(
>     -title  =3D> "Win32::GUI::GetSaveFileName test",
>     -file   =3D> "\0" . " " x 256,
>     -filter =3D> [
>         "Text documents (*.txt)" =3D> "*.txt",
>         "Perl stuff (*.pl, *.pm)" =3D> "*.pl;*.pm",
>         "All files", "*.*",
>     ],
> );
>=20
> if($ret) {
>     print "GetSaveFileName returned: '$ret'\n";
> } else {
>     if(GUI::CommDlgExtendedError()) {
>         print "ERROR. CommDlgExtendedError is: ",
> GUI::CommDlgExtendedError(), "\n";
>     } else {
>         print "You cancelled.\n";
>     }
> }
>=20
> </CODE>
>=20
> Basically, if $ret is defined, it is the full path to the=20
> file you want
> to save. You can then perfom open, pipe, pass to constructors=20
> which take
> a filename, etc.  Also, for the Openfile, you may want to=20
> play with the
> Win32::GUI::BrowseForFolder function AND look back on the list several
> weeks for Win32::FileOp reference.  It includes a better Openfilename
> function in that you can specify a flag to open multiple file names
> amoung other options not available(currently) in the
> Win32::GUI::GetOpenFileName function.
>=20
>=20
>=20
> > -----Original Message-----
> > From: Jos...@DM... [mailto:Jos...@DM...]
> > Sent: Friday, October 19, 2001 1:53 PM
> > To: per...@li...
> > Subject: [perl-win32-gui-users] Save file window
> >
> >
> >
> > Hello,
> >
> > I was looking at the sample perl scripts and came accross
> > ofn.pl, it uses
> > Win32::GUI::GetOpenFileName.  Which opens up an open file
> > window.  Created
> > and ready to use with all the buttons.  Cool.  I couldn't find it
> > documented any where and now I am wondering if there is a
> > save file window
> > (I really hope so).  I'd rather not have to create one if
> > it's already been
> > done.  Does anyone know?
> >
> > Thanks,
> >
> > Joe
> >
> >
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20
>=20
>=20
>=20
>=20
>=20

[perl-win32-gui-users] Win32 constants

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

I just posted this to the perl-win32-user list, but I figure it belongs 
here too.

Constant values for the Win32 API:
<http://www.mvps.org/vbnet/index.html?http://www.mvps.org/vbnet/api/_consts/constso.htm>


/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 

[perl-win32-gui-users] Destroying Controls?...

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

In a Win32::GUI program, can I destroy a specific control (in this case, a 
textfield) when it's no longer needed, and free up the memory it was 
occupying?  And if so, how?

RE: [perl-win32-gui-users] Save file window

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

How do you get it to return the filename with the extension.  In sfn.pl it
added the filters *.txt and *.pl.  Is there a way to get that filter so
that if I type the name of the file and select the .txt filter I'll have
"filename.txt"?  It would be nice to think that users will type the
extension, but they don't.

Thanks,

Joe





"Frazier, Joe Jr" <Joe...@Pe...>@lists.sourceforge.net on
10/19/2001 02:25:13 PM

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


To:   <per...@li...>
cc:    (bcc: Joseph Vieira/DMR/CA)
Subject:  RE: [perl-win32-gui-users] Save file window

From GUI.xs, here is the definition:

# (@)METHOD:GetSaveFileName(%OPTIONS)
    # Allowed %OPTIONS are:
    #  -owner => WINDOW
    #      [TBD]
    #  -title => STRING
    #      the title for the dialog
    #  -directory => STRING
    #      specifies the initial directory
    #  -file => STRING
    #      specifies a name that will appear on the dialog's edit field
    #  -filter => ARRAY REFERENCE
    #      [TBD]

Here is an example from sfn.pl ( included example in the source
distribution)

Add "-directory => something" to the sub arg to start in a particular
folder
I have never used the -owner flag, so I have no idea what it does.

<CODE>
use Win32::GUI;

$file = "\0" . " " x 256;

$ret = GUI::GetSaveFileName(
    -title  => "Win32::GUI::GetSaveFileName test",
    -file   => "\0" . " " x 256,
    -filter => [
        "Text documents (*.txt)" => "*.txt",
        "Perl stuff (*.pl, *.pm)" => "*.pl;*.pm",
        "All files", "*.*",
    ],
);

if($ret) {
    print "GetSaveFileName returned: '$ret'\n";
} else {
    if(GUI::CommDlgExtendedError()) {
        print "ERROR. CommDlgExtendedError is: ",
GUI::CommDlgExtendedError(), "\n";
    } else {
        print "You cancelled.\n";
    }
}

</CODE>

Basically, if $ret is defined, it is the full path to the file you want
to save. You can then perfom open, pipe, pass to constructors which take
a filename, etc.  Also, for the Openfile, you may want to play with the
Win32::GUI::BrowseForFolder function AND look back on the list several
weeks for Win32::FileOp reference.  It includes a better Openfilename
function in that you can specify a flag to open multiple file names
amoung other options not available(currently) in the
Win32::GUI::GetOpenFileName function.



> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: Friday, October 19, 2001 1:53 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] Save file window
>
>
>
> Hello,
>
> I was looking at the sample perl scripts and came accross
> ofn.pl, it uses
> Win32::GUI::GetOpenFileName.  Which opens up an open file
> window.  Created
> and ready to use with all the buttons.  Cool.  I couldn't find it
> documented any where and now I am wondering if there is a
> save file window
> (I really hope so).  I'd rather not have to create one if
> it's already been
> done.  Does anyone know?
>
> 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] Save file window

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

> I have never used the -owner flag, so I have no idea what it does.

We've had that. Since searching the archives doesn't really produce any
hits, I searched my local mail folder instead :)

-----Original Message-----
From: Piske, Harald [mailto:Har...@bo...]
Sent: Friday, March 16, 2001 08:36
To: 'per...@li...'
Subject: RE: [perl-win32-gui-users] SaveFile/OpenFile Dialogs


| how can I set the position of a GetSaveFile or GetOpenFile 
| Dialog? -top and
| -left don't seem to work.
| the dialog always shows up in the left upper corner of 
| desktop. using win32:gui
| 0.0.558.

It comes top left when it doesn't have an owner. Use

	-owner => $mainwindow->{-handle}

and it will show somewhat centered over the owner. provided you have a
window to own the dialog ... for a "stray" GetOpenFileName I don't have a
solution at hand.

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

RE: [perl-win32-gui-users] Save file window

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

From GUI.xs, here is the definition:=20

# (@)METHOD:GetSaveFileName(%OPTIONS)
    # Allowed %OPTIONS are:
    #  -owner =3D> WINDOW
    #      [TBD]
    #  -title =3D> STRING
    #      the title for the dialog
    #  -directory =3D> STRING
    #      specifies the initial directory
    #  -file =3D> STRING
    #      specifies a name that will appear on the dialog's edit field
    #  -filter =3D> ARRAY REFERENCE
    #      [TBD]

Here is an example from sfn.pl ( included example in the source
distribution)

Add "-directory =3D> something" to the sub arg to start in a particular
folder
I have never used the -owner flag, so I have no idea what it does.

<CODE>
use Win32::GUI;

$file =3D "\0" . " " x 256;

$ret =3D GUI::GetSaveFileName(
    -title  =3D> "Win32::GUI::GetSaveFileName test",
    -file   =3D> "\0" . " " x 256,
    -filter =3D> [
        "Text documents (*.txt)" =3D> "*.txt",=20
        "Perl stuff (*.pl, *.pm)" =3D> "*.pl;*.pm",=20
        "All files", "*.*",
    ],
);

if($ret) {
    print "GetSaveFileName returned: '$ret'\n";
} else {
    if(GUI::CommDlgExtendedError()) {
        print "ERROR. CommDlgExtendedError is: ",
GUI::CommDlgExtendedError(), "\n";   =20
    } else {
        print "You cancelled.\n";
    }
}

</CODE>

Basically, if $ret is defined, it is the full path to the file you want
to save. You can then perfom open, pipe, pass to constructors which take
a filename, etc.  Also, for the Openfile, you may want to play with the
Win32::GUI::BrowseForFolder function AND look back on the list several
weeks for Win32::FileOp reference.  It includes a better Openfilename
function in that you can specify a flag to open multiple file names
amoung other options not available(currently) in the
Win32::GUI::GetOpenFileName function.



> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: Friday, October 19, 2001 1:53 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] Save file window
>=20
>=20
>=20
> Hello,
>=20
> I was looking at the sample perl scripts and came accross=20
> ofn.pl, it uses
> Win32::GUI::GetOpenFileName.  Which opens up an open file=20
> window.  Created
> and ready to use with all the buttons.  Cool.  I couldn't find it
> documented any where and now I am wondering if there is a=20
> save file window
> (I really hope so).  I'd rather not have to create one if=20
> it's already been
> done.  Does anyone know?
>=20
> Thanks,
>=20
> Joe
>=20
>=20
>=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

[perl-win32-gui-users] Compiling Win32::GUI with mingw

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

I'm going to attempt compiling Perl with mingw, but since I need
Win32::GUI, I'm wondering whether anyone has successfully compiled it
with mingw, or whether Win32::GUI can only be built with the
ActiveState sources and MSVC?

Thanks,

Marcus

RE: [perl-win32-gui-users] getting data from listview and putting it in a MS Excel sheet

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

Or you could use Win32::OLE and open an instance of Excel directly and
add the values.  Also, you could use the CPAN module:
Spreadsheet::WriteExcel to write the data to an excel spreadsheet. =20

As for reading the listview, you use the ItemInfo method on each "cell"
to get the data and then write that to the target xls file.

> -----Original Message-----
> From: Piske, Harald [mailto:Har...@bo...]
> Sent: Wednesday, October 17, 2001 1:25 PM
> To: 'Jos...@DM...';=20
> per...@li...
> Subject: RE: [perl-win32-gui-users] getting data from listview and
> putting it in a MS Excel sheet
>=20
>=20
> > I don't know if this is a win32:gui or a general perl=20
> > question but here it
> If you don't know how to read the stuff out of the listview,=20
> it's a GUI
> question, but I don't think you will be shot for asking about=20
> the other part
> ;-)
>=20
> What you want is Win32::ODBC, which can be used to access=20
> Excel files. Since
> it is not very funny to make a data source for each xls file,=20
> have a look at
> www.fairymails.com/perl/, there is "dbspy" which shows how to=20
> make temporary
> DSNs from within perl. There's no inline documentation -=20
> sorry. But it's
> just a couple of lines after /\.xls$/
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

RE: [perl-win32-gui-users] getting data from listview and putting it in a MS Excel sheet

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

> I don't know if this is a win32:gui or a general perl 
> question but here it
If you don't know how to read the stuff out of the listview, it's a GUI
question, but I don't think you will be shot for asking about the other part
;-)

What you want is Win32::ODBC, which can be used to access Excel files. Since
it is not very funny to make a data source for each xls file, have a look at
www.fairymails.com/perl/, there is "dbspy" which shows how to make temporary
DSNs from within perl. There's no inline documentation - sorry. But it's
just a couple of lines after /\.xls$/

RE: [perl-win32-gui-users] Richedit Questions...

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

 I don't know the number, but I can tell you from experience that NT4 =
can
hold a lot more than Win98. 98 loses it FIFO.


-----Original Message-----
From: Eva...@ao...
To: per...@li...
Sent: 15/10/01 17:05
Subject: [perl-win32-gui-users] Richedit Questions...

Does anyone know exactly how much data a richedit control can hold? =
=A0I
know a textfield holds 64k...=20

Also, is there a way to change the color of the select highlighting in =
a
richedit control? =A0And if so, can I do so after creating the control?

RE: [perl-win32-gui-users] Getting TAB in a Window

[Ami Bar-Y. <am...@uf...>]

ALL RIGHT!  That works!


Thanks,
--
Ami Bar-Yadin (am...@uf...)


> -----Original Message-----
> From: Jonathan Southwick [mailto:jso...@al...]
> Sent: Monday, October 15, 2001 7:40 AM
> To: Ami Bar-Yadin
> Subject: RE: [perl-win32-gui-users] Getting TAB in a Window
> 
> 
> 
> At 10/12/2001 11:00 PM, you wrote:
> >I assume $WInMain is the window I just created...?
> >
> >I tried it with samples\textfield.pl:
> 
> <stuff deleted>
> 
> 
> >$Window->{dialogui} = 1;
> >$Window->Show();
> >...
> 
> That should be $Window->{-dialogui} = 1;
> 
> At least I *THINK* that will take care of your problem.
> 
> 
> Jonathan Southwick
> jso...@al...
> Technical & Network Services
> Allegheny College, Meadville, PA 16335
> (814) 332-2755
> 

[perl-win32-gui-users] Richedit Questions...

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

Does anyone know exactly how much data a richedit control can hold?  I know a 
textfield holds 64k...

Also, is there a way to change the color of the select highlighting in a 
richedit control?  And if so, can I do so after creating the control?

[perl-win32-gui-users] NotifyIcon

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

I have a program with NotifyIcon in a program that does a fork().  When the 
child process exits, it calls the destructor for NotifyIcon and the parent 
process hangs.

I get a warning about 'use of unitialized value' at GUI.pm line 2400:

    Win32::GUI::NotifyIcon::Delete(
        $self->{-parent},
        -id => $self->{-id},
    );

By process of elimination, I discovered that $self->{-parent} is the 
unitialized value it's complaining about here.  But this doesn't occur if I 
exit the parent without fork()ing the child, and if I exit the parent 
process first, the error occurs upon exiting the child process.  I checked, 
and $self->{-parent} is still defined after my system() call.  I call exit() 
right after system(), so something is happening during global destruction 
that destroys the Window object before calling NotifyIcon::Delete - but only 
with a child process, not with the parent process.  And it apparently 
destroys it for the parent process as well, although I thought fork()ing was 
supposed to give the child process a copy of the memory, not access to the 
parent's memory.

I tried fixing it by adding
    return unless (defined ($self->{-parent}));
right before the code above, but the parent process still hangs even though 
I don't get the error message.

I used to have this program in a small window, and it worked fine.  Once I 
added a NotifyIcon, though, I started getting this error.

Has anyone else run into this error?

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

RE: [perl-win32-gui-users] Getting TAB in a Window

[Ami Bar-Y. <am...@uf...>]

> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...]On Behalf Of
> Johan Lindstrom
> Sent: Friday, October 12, 2001 3:13 AM
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Getting TAB in a Window
>
>
> Ami wrote:
> >I don't know why TAB works in a Dialog but not in a Window.
>
> #Create window, then
> $winMain->{dialogui} =3D 1;

I assume $WInMain is the window I just created...?

I tried it with samples\textfield.pl:

---textfield.pl---
#use blib;
use Win32::GUI;

my $Window =3D new Win32::GUI::Window(
    -title  =3D> "Win32::GUI::Textfield test",
    -left   =3D> 100,
    -top    =3D> 100,
    -width  =3D> 300,
    -height =3D> 500,
    -name   =3D> "Window",
#       -style  =3D> WS_MINIMIZEBOX | WS_CAPTION | WS_SYSMENU,
);

$Window->{dialogui} =3D 1;
$Window->Show();
...
-----cut-----

I commented out the "use blib" line (??) at the top and added the dialogu=
i
at the bottom.
I run the program, click on one of the check boxes, and press TAB.  Nothi=
ng
happens, the focus does not move.
Am I doing what you meant, or am I doing something wrong?


Thanks,
--
Ami Bar-Yadin (am...@uf...)


>
>
> /J
>
> ------ ---- --- -- -- -- -  -   -    -        -
> Johan Lindstr=F6m                    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
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] msk.pl

[Ami Bar-Y. <am...@uf...>]

> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...]On Behalf Of
> Mark Wilkinson
> Sent: Friday, October 12, 2001 8:09 AM
> To: Ami Bar-Yadin
> Cc: 'List-Perl-Win32gui-users (E-mail)'
> Subject: Re: [perl-win32-gui-users] msk.pl
> 
> 
> Ami Bar-Yadin wrote:
> 
> > I think 10 people having their hand in the oven is enough 
> > for a project this size, but that's just my opinion.
...
> But I still think it is sad that there are, as you point out, 10
> developers, but there has been no CVS activity in 7 months!  


That's not good.  That's down right sad.

Well, then we need a change.

Aldo, why did you put this project on Source Forge?


Thanks,
--
Ami Bar-Yadin (am...@uf...)

RE: [perl-win32-gui-users] Getting TAB in a Window

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

> Is there any plans to support more event types?  E.g. 
> keyboard events.  Then
> we might handle the TAB in our callbacks for a Window.  Not an ideal
> solution.  I'd rather use events for more creative stuff.

a) there are plans to come up with a whole new, extensible event model.
We're all eagerly awaiting the release :-)

b) for quite a number of new events, you have to use classes (see below).
Exactly what events which class gives you should be documented somewhere ...
maybe around here ... or was it there ... erm ... I'm sure I had it l8ly ...
:-/

Okay, if you dwell into gui.xs, around line 4100 you can see which classes
there are:
Button, Listbox, TabStrip, RichEdit, Graphic, InteractiveGraphic, Splitter
and SplitterH.
I don't know too much about it, but I vaguely remember that if you use
Graphic or InteractiveGraphic, you have to provide a paint method, which is
probably more than you want to do. The Splitter classes also might not be
too useful. If you search the xs file for "msgloop" and look at the other
classes, you will find that "button" and "listbox" give you MouseMove,
whereas RichEdit gives you MouseMove, LButtonDown, LButtonUp, RButtonDown
and RButtonUp. There's no restriction to not using a richedit class with
buttons, I tried that and it works just fine.

Here's how:


new Win32::GUI::Class
(
	-name => '_Button',
	-widget => 'Button',	# use RichEdit if you want more than
MouseMove
	-extends => 'Button',	# which control type you're gonna use
);
$Main->AddButton
(
	-name => 'Belly',
	-text => 'Clickme',
	-class => '_Button',
);
sub Belly_MouseMove		# now we're talking
{
	print join (', ', @_), "\n";
}

[perl-win32-gui-users] Re: Documentation (unpleasentries)

[Mark W. <ma...@il...>]

> If you would like to write a section for the HOW-TO for menus, that would be
> great!

It seems to me that it is more sensible to put documentation where it belongs - in
the documentation - rather than dispersing the fundamental knowledge around
various tutorials.  The existing HTML documentation, which purport to be created
from what used to be POD documentation,  is full of "TBA" references to objects,
methods, etc.  Yet it is clear that the objects and methods are now fairly well
defined, so... why??

( ... and don't get me started on the issue of moving POD documentation out of the
code itself - which is just begging for trouble in my opinion ;-)  )

I was unable to find your 'how-to' in any of the documentation I have (what is the
filename?).  Is it part of the CVS repository?  I'd like to have a look at it...

I guess my "complaint" (and it seems to be coming across as much more unpleasant
than I actually intended it to) is that there is documentation up the ying-yang!
Enough to sink a battleship!  But the *main* documentation, which IMO should be in
POD form (and better yet, in the code itself) is still not up to date relative to
all of the other available support materials.  So in order to learn how to use
some of the modules you have to search through pages and pages of tutorials and
other tangental documents, sometimes even source code, to achieve the inherently
simple goal of making a widget appear on the screen.

Again, I want to stress that this is **NOT** a criticism of anyone!  Like many of
you, I am a professional Perl coder, and I know how busy I get and how hard it is
to find time to work on my favorite projects... but that is, supposedly, why
Win32::GUI is on SourceForge - because the authors realized how valuable the code
was going to be, and very kindly decided to release it to the O.S. community so
that it would never become deprecated, even if they got too busy to support it
themselves.  But what has happened is that we now have an enormous amount of
"support" in the community, without the original project files themselves ever
being completed (at least w.r.t. documentation).

Feel free to flame me if I am getting on anyones nerves.  I don't mean to - I am
only offering a pair of hands and some free time to help, having just experienced
over the past couple of months what it is like to be a newcomer to the Win32::GUI
community...  I hope my comments are taken in the right light!

Best wishes!

M

[perl-win32-gui-users] Improving the documentation (Was: [perl-win32-gui-users] msk.pl)

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

Mark wrote:
>If any of the developers are on the list - I am offering to help :-)  :-)
>(at least w.r.t. improving the documentation...)

I know for a fact that Aldo would appreciate that a lot. Send him an email.


/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] msk.pl

[Mark W. <ma...@il...>]

Ami Bar-Yadin wrote:

> I think 10 people having their hand in the oven is enough for a project this
> size, but that's just my opinion.

well...  the evidence suggests otherwise.  If that were the case, then the
documentation would already be up-to-date.  However, since I have been on this
list I have seen two discussions go through about (my pet peeve) Menu widgets.
Several members of the list have posted their ideas, and working code...
(twice)... and yet the documentation in the CVS repository remains blank on the
subject.... which only means that the next person to install Win32::GUI is going
to wonder how to use the Menu widget and will post yet again to the group asking
us.

I guess I have been pampered by being a part of the BioPerl developers
community, which is extremely active and there is no "territoriality" beyond
good manners.  But I still think it is sad that there are, as you point out, 10
developers, but there has been no CVS activity in 7 months!  If the developers
are not active then it doesn't matter how many there are - the project has
stagnated :-(

If any of the developers are on the list - I am offering to help :-)  :-)
(at least w.r.t. improving the documentation...)

Mark