[perl-win32-gui-users] Re: [perl-win32-gui] newbie query

2001-01-05 Thread Aldo Calpini
chris mccraw wrote:
> hey *,
>
> i'm extremely new to perl dev under win32 (i've done my share of
> it under unix in the past tho) so i'm sure this question has an
> answer somewhere obvious and if you could direct me towards the
> answer/resource from which the answer is available, i'd be
> extremely indebted.
>
> in the absence of an available PPM of the latest version of the
> Win32-GUI module i tried to install it myself...unfortunately i
> lack make, and using cpan to install it fails miserably for many
> reasons (i tried under cygwin since i have make/cc there but i
> should have realized that was not going to work from the start...).
> is there some easy "copy everything over to the Lib directory"
> type install for those of us lacking make (where can i find this
> nmake.exe many modules refer to?) and an MS dev environment?
> the 502 tarball seems to be lacking the dll anyway...
> (i've also never used xs stuff before if that wasn't obvious =))

well, the module needs compilation: you need not only make, but
also a compiler. Micro$oft VisualC++ is not free, it should be
possible to use cygwin's gcc but I haven't played with it
very much. if you want to test it, you're very welcome.
you need to download the Perl source and compile it under your
cygwin environment, then try to compile the module.

> also, what's up with the sourceforge lists?  the links to
> browse the archives point to nonexistent geocrawler pages (as
> of approx 10am CST today) and the subscribe/unsubscribe pages
> link to archives that are on sourceforge but nonexistent also.

the lists are scheduled to archive weekly, so I guess you have
to wait (at least) a week for the archives :-)
also note that past message (from the [EMAIL PROTECTED]
mailing list), unfortunately, will not be archived in the same
place.

> since i saw traffic in the httptech archive from this morning
> i guess this list is still semiactive...

yes, it is. but PLEASE PLEASE PLEASE use the new address
for posting instead:

perl-win32-gui-users@lists.sourceforge.net

everybody who was subscribed to the old list should have been
subscribed to the new one (thanks Joe! :-), you should have
received a message with the subject:

[perl-win32-gui-users] List moved

if you are subscribed to this list and didn't receive this
message, please contact either me or Joe ([EMAIL PROTECTED]).

otherwise, PLEASE PLEASE PLEASE once again, from now on
use ONLY the new address to post.


cheers,
Aldo

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





[perl-win32-gui-users] FW: [perl-win32-gui] BrowseForFolder?

2001-01-05 Thread Michael Solomon
I am also interested in 'Browse for Folder'

I tried the code

$folder = Win32::GUI::BrowseForFolder(
* root => "C:\\Program Files",
* includefiles => 1,
);

and was given the following error message

Your vendor has not defined Win32::GUI macro BrowseForFolder, used at
E:\scripts
\dev\gui1.pl line 11. at C:/Perl/site/lib/Win32/GUI.pm line 347.
22 returned


has anyone got any idea why I get this?

I downloaded Win32::GUI yesterday as a PPM from activestate

Am I using an old version ?

Thanks



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:   Yoda [mailto:[EMAIL PROTECTED] 
Sent:   04 January 2001 21:12
To: [EMAIL PROTECTED]
Subject:RE: [perl-win32-gui] BrowseForFolder?


BrowseForFolder( OPTIONS )
Displays the standard "Browse For Folder" dialog box. Returns the selected
item's name, or undef if no item was selected or an error occurred.
Note that BrowseForFolder must be called as a standalone function, not as a
method.
Example:
$folder = Win32::GUI::BrowseForFolder(
* root => "C:\\Program Files",
* includefiles => 1,
);

* Yoda
PlanetUnreal
-Original Message-
From:   [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Joel Oliveira
Sent:   Thursday, January 04, 2001 9:18 PM
To: [EMAIL PROTECTED]
Subject:[perl-win32-gui] BrowseForFolder?


Hello All,
Can I get something like BrowseForFolder in the Win32:GUI?
Thanks,

Joel Oliveira




[perl-win32-gui-users] menu

2001-01-05 Thread Koul Christian
Hi,

I am new in win32::GUI and i have problem using menu.
I have this but i can not see the menu. can somebody help me?

---
use Win32::GUI;

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

$Frame = new Win32::GUI::Window(
  -name => "aFrame",
  -top => 100,
  -left => 150,
  -width => 350,
  -height => 400,
  -title => "Test Win32::GUI",
  -menu => $Menu,
 );
$Frame->AddTextfield(
 -name => "aTextField",
  -top => 200,
  -left => 20,
  -height => 20,
  -width => 300,
 -prompt => "Type a text here : ",
);
  $Frame->AddButton(
  -name => "aButton",
  -text => "OK",
  -top => 260,
  -left => 150,
  -height => 25
  -width => 50,
 );

$Frame->AddStatusBar();
$Frame->Show();

Win32::GUI::Dialog();

sub aFrame_Terminate {
 -1;
}

---


--

Sincerely.
__

Christian Koul
Civil Engineer
Unité Statistique - Fucam





[perl-win32-gui-users] 0.0.502 on PPM

2001-01-05 Thread Aldo Calpini
hello perl-win32-gui-users,

Win32::GUI version 0.0.502 is ready on PPM.
goto http://dada.perl.it for info and instruction.


cheers,
Aldo

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





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

2001-01-05 Thread Jonathan Southwick
It works for me!  Are you saying you don't see the menu at all?

Jonathan Southwick
Technical & Network Services
Allegheny College
[EMAIL PROTECTED]

- Original Message -
From: "Koul Christian" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, January 05, 2001 6:44 AM
Subject: [perl-win32-gui-users] menu


> Hi,
>
> I am new in win32::GUI and i have problem using menu.
> I have this but i can not see the menu. can somebody help me?
>
> ---
> use Win32::GUI;
>
> $Menu = new Win32::GUI::Menu(
>   "&File"=> "File",
>   " > &Load" => "FileLoad",
>  );
>
> $Frame = new Win32::GUI::Window(
>   -name => "aFrame",
>   -top => 100,
>   -left => 150,
>   -width => 350,
>   -height => 400,
>   -title => "Test Win32::GUI",
>   -menu => $Menu,
>  );
> $Frame->AddTextfield(
>  -name => "aTextField",
>   -top => 200,
>   -left => 20,
>   -height => 20,
>   -width => 300,
>  -prompt => "Type a text here : ",
> );
>   $Frame->AddButton(
>   -name => "aButton",
>   -text => "OK",
>   -top => 260,
>   -left => 150,
>   -height => 25
>   -width => 50,
>  );
>
> $Frame->AddStatusBar();
> $Frame->Show();
>
> Win32::GUI::Dialog();
>
> sub aFrame_Terminate {
>  -1;
> }
>
> ---
>
>
> --
>
> Sincerely.
> __
>
> Christian Koul
> Civil Engineer
> Unité Statistique - Fucam
>
>
>
> ___
> 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] menu

2001-01-05 Thread Koul Christian
I still don't see the menu.
I have Win32-GUI 0.99 on Win95
and perl v5.6.0 built for MSWin32-x86-multi-thread (Binary build 620
provided by ActiveState).


Jonathan Southwick wrote:

> It works for me!  Are you saying you don't see the menu at all?
>
> Jonathan Southwick
> Technical & Network Services
> Allegheny College
> [EMAIL PROTECTED]
>
> - Original Message -
> From: "Koul Christian" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Friday, January 05, 2001 6:44 AM
> Subject: [perl-win32-gui-users] menu
>
> > Hi,
> >
> > I am new in win32::GUI and i have problem using menu.
> > I have this but i can not see the menu. can somebody help me?
> >
> > ---
> > use Win32::GUI;
> >
> > $Menu = new Win32::GUI::Menu(
> >   "&File"=> "File",
> >   " > &Load" => "FileLoad",
> >  );
> >
> > $Frame = new Win32::GUI::Window(
> >   -name => "aFrame",
> >   -top => 100,
> >   -left => 150,
> >   -width => 350,
> >   -height => 400,
> >   -title => "Test Win32::GUI",
> >   -menu => $Menu,
> >  );
> > $Frame->AddTextfield(
> >  -name => "aTextField",
> >   -top => 200,
> >   -left => 20,
> >   -height => 20,
> >   -width => 300,
> >  -prompt => "Type a text here : ",
> > );
> >   $Frame->AddButton(
> >   -name => "aButton",
> >   -text => "OK",
> >   -top => 260,
> >   -left => 150,
> >   -height => 25
> >   -width => 50,
> >  );
> >
> > $Frame->AddStatusBar();
> > $Frame->Show();
> >
> > Win32::GUI::Dialog();
> >
> > sub aFrame_Terminate {
> >  -1;
> > }
> >
> > ---
> >
> >
> > --
> >
> > Sincerely.
> > __
> >
> > Christian Koul
> > Civil Engineer
> > Unité Statistique - Fucam
> >
> >
> >
> > ___
> > 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

--

Sincerely.
__

Christian Koul
Civil Engineer
Unité Statistique - Fucam





RE: [perl-win32-gui-users] 0.0.502 on PPM

2001-01-05 Thread Kuo David
Hi Aldo,

Does it have updated online help also? Thanks.

David

-Original Message-
From: Aldo Calpini [mailto:[EMAIL PROTECTED]
Sent: Friday, January 05, 2001 7:25 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] 0.0.502 on PPM


hello perl-win32-gui-users,

Win32::GUI version 0.0.502 is ready on PPM.
goto http://dada.perl.it for info and instruction.


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


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

2001-01-05 Thread Aldo Calpini
Koul Christian wrote:
> I still don't see the menu.
> I have Win32-GUI 0.99 on Win95

please? I have never released version 0.99 ;-)
to find out your Win32::GUI version number, use this:

perl -MWin32::GUI -e "print Win32::GUI::Version;"


cheers,
Aldo

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





[perl-win32-gui-users] menu

2001-01-05 Thread Koul Christian
Hi,

it's work with this (copied from From: Vince
  Subject:
[perl-win32-gui] Code
  Date: Wed, 14
Oct 1998 16:54:06 -0700 (PDT) )

-
use Win32::GUI;

$menu = Win32::GUI::MakeMenu(
 "&File"=> "File",
 " > &Load" => "FileLoad",
);

   $Frame = new Win32::GUI::Window(
 -name => "aFrame",
 -top => 100,
 -left => 150,
 -width => 350,
 -height => 400,
 -title => "Test Win32::GUI",
 -menu => $menu,
);
   $Frame->AddTextfield(
-name => "aTextField",
 -top => 200,
 -left => 20,
 -height => 20,
 -width => 300,
-prompt => "Type a text here : ",
   );
 $Frame->AddButton(
 -name => "aButton",
 -text => "OK",
 -top => 260,
 -left => 150,
 -height => 25
 -width => 50,
);

   $Frame->AddStatusBar();
   $Frame->Show();

   Win32::GUI::Dialog();

   sub aFrame_Terminate {
-1;
   }


--

--

Sincerely.
__

Christian Koul
Civil Engineer
Unité Statistique - Fucam



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

2001-01-05 Thread Koul Christian
My previous version was http://www.ActiveState.com/PPMPackages/5.6
PPM> search
Packages available from http://www.ActiveState.com/PPMPackages/5.6:
Win32-API  [0.01 ] Implementation of arbitrary Win32
APIs.
Win32-AdminMisc[0.10 ] Performs various Win32 administrative
tasks
   that are not
addressed by Win32::NetAdmin.
Win32-DDE  [0.02 ] Perl extension for Win32 DDE.
Win32-GUI  [0.99 ] Win32 Graphical User Interface
Extension
Win32-Shell[0.03 ] A simple extension for
displaying Windows
   message boxes and
.


I made the update at dada.perl.it/PPM and now it is

C:\Perl\koul> perl -MWin32::GUI -e "print Win32::GUI::Version;
0.0.502


Aldo Calpini wrote:

> Koul Christian wrote:
> > I still don't see the menu.
> > I have Win32-GUI 0.99 on Win95
>
> please? I have never released version 0.99 ;-)
> to find out your Win32::GUI version number, use this:
>
> perl -MWin32::GUI -e "print Win32::GUI::Version;"
>
> 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

--

Sincerely.
__

Christian Koul
Civil Engineer
Unité Statistique - Fucam





Re: [perl-win32-gui-users] Re: [PLEASE UNSUBSCRIBE] .......

2001-01-05 Thread Robert Sherman
sending your request to the list address will not accomplish what you
want. go to this address to unsubscribe:

http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users





novacom wrote:
> 
> PLEASE UNSUBSCRIBE FROM YOUR MAILING LIST !
> 
> ..this is my umpteenth request !!~!!
> 
> thxs ...!!!
> 
>



Re: [perl-win32-gui-users] newbie query

2001-01-05 Thread chris mccraw
On Fri, Jan 05, 2001 at 10:15:41AM +0100, Aldo Calpini wrote:
 
> well, the module needs compilation: you need not only make, but
> also a compiler. Micro$oft VisualC++ is not free, it should be
> possible to use cygwin's gcc but I haven't played with it
> very much. if you want to test it, you're very welcome.
> you need to download the Perl source and compile it under your
> cygwin environment, then try to compile the module.
 
thanks to your ppm, this is not a big worry for now.  thank you very
much for your info, though...i was quite confused.

i think i misunderstood what the Win32::GUI module could do, though...i want
to manipulate preexisting windows (of an app i have no source code for)
instead of making my own--specifically i need

GetWindowRect($window_id);

instead of

$mywindow=new Win32::GUI::Window;
$mywindow->GetWindowRect;

does anyone know if such functionality exists in another module or anywhere?

thanks much in advance for your help =)



[perl-win32-gui-users] newbie - trying to get data from text box

2001-01-05 Thread Michael Solomon
I have just started looking at Win32 Gui

What I want to do is put up a text box and allow a user to enter data then
capture it

By looking at code posted here I have written the following:

use Win32::GUI; 
  
 $Frame = new Win32::GUI::Window( 
  -name => "aFrame", 
   -top => 100, 
-left => 150, 
 -width => 350, 
  -height => 200, 
   -title => "Test Win32::GUI", 
); 
$Frame->AddTextfield( 
-name => "aTextField", 
 -top => 50, 
  -left => 20, 
   -height => 20, 
-width => 300, 
-prompt => "Type a text here : ", 
   ); 
 $Frame->AddButton( 
  -name => "aButton", 
   -text => "OK", 
-top => 90, 
 -left => 150, 
  -height => 25 
   -width => 50, 
   ); 
   
 $Frame->Show(); 
   
  Win32::GUI::Dialog(); 

   sub aFrame_Terminate { 
   -1; 
  } 

sub aButton_Click {
print "test\n";
&aFrame_Terminate;
}


What I haven't worked out how to do is to access the text entered.

Also I want the cursor to start in the text box rather than having to click
on it.

Any help will be gratefully received.

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

=



Re: [perl-win32-gui-users] 0.0.502 on PPM

2001-01-05 Thread Soren Andersen
On 5 Jan 2001, an entity purporting to be Aldo Calpini wrote [regarding 
0.0.502 on PPM]  

> hello perl-win32-gui-users,
> 
> Win32::GUI version 0.0.502 is ready on PPM.
> goto http://dada.perl.it for info and instruction.

Congrats and hail, *dada*, it was *such* a smooth install. I have bumbled 
and stumbled around installing some of the modules authored by you in the 
past, even just getting PPM to run them was sometimes such a hassle. One 
thing: those new to PPM might easily forget a detail that I think they would 
be tripped up by, based on the current wording of the instructions 
(otherwise so clear and thorough) on your site:

--- pasted as quoted from http://dada.perl.it/#ppm -
> Win32::GUI 0.0.502

> Win32::API 0.20
 
> Win32::Clipboard 0.51

> they're precompiled for 5.005 MSWin32-x86-object (ActivePerl 5xx)
> and 5.6 MSWin32-x86-multi-thread (ActivePerl 6xx); to install from
> there simply type:

> ppm install --location=http://dada.perl.it/PPM modulename
--- end pasted ---

The point of concern is that where you give the sample commandline 
invocation above, the user will need to substitute the form `modulepart1-
modulepart2[-modulepartN]' for the `mod1::mod2[::modN]' format. Right? 
So perhaps your instructions could read:

 they're precompiled for 5.005 MSWin32-x86-object (ActivePerl 5xx)
 and 5.6 MSWin32-x86-multi-thread (ActivePerl 6xx); to install from
 there simply type (replace each doublecolon`::' with a hyphen `-'):

 ppm install --location=http://dada.perl.it/PPM modified-format-modulename

   Cheers!
  soren andersen


--

"Love is a snowmobile racing across the tundra and then suddenly it flips over, 
pinning
you underneath. At night, the ice weasels come."
   -Matt Groening 




RE: [perl-win32-gui-users] newbie - trying to get data from text box

2001-01-05 Thread Anthony C. George
To get the text in the box:
$myText=$Frame->aTextField->Text();
To set the text:
$Frame->aTextField->Text($myText);



>tony

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Michael Solomon
Sent: Friday, January 05, 2001 11:18 AM
To: Perl Gui (E-mail)
Subject: [perl-win32-gui-users] newbie - trying to get data from text box


I have just started looking at Win32 Gui
What I want to do is put up a text box and allow a user to enter data then
capture it
By looking at code posted here I have written the following:
use Win32::GUI;

 $Frame = new Win32::GUI::Window(
  -name => "aFrame",
   -top => 100,
-left => 150,
 -width => 350,
  -height => 200,
   -title => "Test Win32::GUI",
);
$Frame->AddTextfield(
-name => "aTextField",
 -top => 50,
  -left => 20,
   -height => 20,
-width => 300,
-prompt => "Type a text here : ",
   );
 $Frame->AddButton(
  -name => "aButton",
   -text => "OK",
-top => 90,
 -left => 150,
  -height => 25
   -width => 50,
   );

 $Frame->Show();

  Win32::GUI::Dialog();

   sub aFrame_Terminate {
   -1;
  }

sub aButton_Click {
print "test\n";
&aFrame_Terminate;
}


What I haven't worked out how to do is to access the text entered.
Also I want the cursor to start in the text box rather than having to click
on it.
Any help will be gratefully received.
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
=





Re: [perl-win32-gui-users] Re: [perl-win32-gui] newbie query

2001-01-05 Thread Reini Urban
Aldo Calpini wrote:
> it should be possible to use cygwin's gcc but I haven't played with it
> very much. if you want to test it, you're very welcome.
> you need to download the Perl source and compile it under your
> cygwin environment, then try to compile the module.

Aldo,
i'm still trying to fool around with cygwin and mingw,
but at first have to build a new mingw-perl 5.6.1, because with this 
it will be much easier. (it can use the msvc headers and libs, and 
not the cygwin/w32api)
but at first I have the solve the current cygwin perl-5.6.1-1 problem with
gdbm.

some notes:
ctl3d.h will not work.
I added a lot of PL_ prefixes so far, but it's still not ready.
gcc is MUCH stricter than cl, it barfs with a lot of errors so far.
and some constants are still not defined in the cygwin w32api.

sample:
GUI.xs: In function `void DrawSplitter(HWND__ *)':
GUI.xs:734: ANSI C++ forbids implicit conversion from `void *' in assignment
GUI.xs:735: ANSI C++ forbids implicit conversion from `void *' in assignment
GUI.xs: In function `LRESULT InteractiveGraphicMsgLoop(HWND__ *, unsigned int,
u
nsigned int, long int)':
GUI.xs:1710: warning: negative value `-1' passed as argument 3 of
`PostMessageA(
HWND__ *, unsigned int, unsigned int, long int)'
GUI.xs: In function `LRESULT WindowMsgLoop(HWND__ *, unsigned int, unsigned
int,
 long int)':
GUI.xs:1829: warning: NULL used in arithmetic
GUI.xs:1843: warning: NULL used in arithmetic
GUI.xs:2646: warning: NULL used in arithmetic
GUI.xs:2676: warning: negative value `-1' passed as argument 3 of
`PostMessageA(
HWND__ *, unsigned int, unsigned int, long int)'
GUI.xs: In function `LRESULT MsgLoop(HWND__ *, unsigned int, unsigned int,
long
int)':
GUI.xs:2724: warning: NULL used in arithmetic
GUI.xs:2794: warning: negative value `-1' passed as argument 3 of
`PostMessageA(
HWND__ *, unsigned int, unsigned int, long int)'
GUI.xs: In function `void ParseWindowOptions(SV **, SV **, long int, long int,
i
nt, tagPERLCREATESTRUCT *)':
GUI.xs:3100: `SS_PATHELLIPSIS' undeclared (first use this function)
GUI.xs:3101: `SS_ENDELLIPSIS' undeclared (first use this function)
...
-- 
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html



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

2001-01-05 Thread Peter Eisengrein
I tested your code and could see the menu. WHat versions of perl and
Win32-GUI are you using?

-Original Message-
From: Koul Christian [mailto:[EMAIL PROTECTED]
Sent: Friday, January 05, 2001 6:45 AM
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui-users] menu


Hi,

I am new in win32::GUI and i have problem using menu.
I have this but i can not see the menu. can somebody help me?

---
use Win32::GUI;

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

$Frame = new Win32::GUI::Window(
  -name => "aFrame",
  -top => 100,
  -left => 150,
  -width => 350,
  -height => 400,
  -title => "Test Win32::GUI",
  -menu => $Menu,
 );
$Frame->AddTextfield(
 -name => "aTextField",
  -top => 200,
  -left => 20,
  -height => 20,
  -width => 300,
 -prompt => "Type a text here : ",
);
  $Frame->AddButton(
  -name => "aButton",
  -text => "OK",
  -top => 260,
  -left => 150,
  -height => 25
  -width => 50,
 );

$Frame->AddStatusBar();
$Frame->Show();

Win32::GUI::Dialog();

sub aFrame_Terminate {
 -1;
}

---


--

Sincerely.
__

Christian Koul
Civil Engineer
Unité Statistique - Fucam



___
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] NT/98 incompatibilities?

2001-01-05 Thread Peter Eisengrein
I have a script that reads a file (puts the data into @update) and prints it
to a RichEdit window. This works well on NT but I am having problems with it
on Win98.

As it is being written to the Rich Edit field, the scroll bar starts out
large and scales smaller as more is added (as expected). However,
occassionally on 98 the scroll bar "bounces" back to large and begins
scaling again. When this happens, data is lost as if a buffer fills up and
then gets dumped FIFO. Again, this is not an issue on NT.

Anyone seen anything like this?

I am updating the RichEdit as follows:

push(@update,$line);
$Window->Editor->Text($Window->Editor->Text . join("", @update));

There is regex that determines when @update gets undef'd. I am doing it this
way because only some of this info gets written to a different window
("filter" window).

Any help would be greatly appreciated!!!
-Pete



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

2001-01-05 Thread Peter Eisengrein
True. But when I do this, I still don't get that option.

-Original Message-
From: MATA Tech [mailto:[EMAIL PROTECTED]
Sent: Thursday, January 04, 2001 12:13 PM
To: [EMAIL PROTECTED]
Subject: Re: [perl-win32-gui] Print


Peter:

As I understand it, you must highlight a selection to enable that 
radio button.  Otherwise, it is assumed that the user wants to print 
the entire portion.  

B Smith


On 26 Dec 00, at 17:19, Peter Eisengrein wrote:

> I saw a previous posting about using system("rundll32.exe
> $dll,PrintHTML $tmpfile"); to print a file and it works well for my
> app. However, I'd like to be able to "print selection" That radio
> button is currently disabled. Anyone know what variable to set to tell
> the system that you have selected some text in a AddRichEdit field?
> 
> Thanks,
> Pete
>