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

Re: [perl-win32-gui-users] Win32::GUI version 0.0.558

[Laurent R. <ro...@cl...>]

Aldo,

>
> gimme time! this is not an automagical process ;-)
> BTW, I'm not sure yet that 0.0.558 is stable enough for a
> PPM distribution. I would like to get some feedback from
> 'people with a C compiler' that can build the module and
> test it, before giving it out to everybody.
>

I  have compile version 0.0.558 under win98, with VC++ and ActivePerl 522.
No problem during compilation. (message :  *** Using the 5.005 Perl Object
CPerlObj class)

But when i start any win32gui script, i have a runtime exception.

For example, with hello.pl and strong debug output.

perl Hello.pl

!XS(ParseWindowOptions): from_i=2
!XS(ParseWindowOptions): items=16
!XS(ParseWindowOptions): got option '-title'
!XS(ParseWindowOptions): got option '-left'
!XS(ParseWindowOptions): got option '-top'
!XS(ParseWindowOptions): got option '-width'
!XS(ParseWindowOptions): got option '-height'
!XS(ParseWindowOptions): got option '-name'
!XS(ParseWindowOptions): got option '-visible'
XS(Create): using class 'PerlWin32GUI_STD'
XS(Create): Done parsing parameters...
XS(Create): dwExStyle = 0x0
XS(Create): szClassname = PerlWin32GUI_STD
XS(Create): szName = hello.pl
XS(Create): dwStyle = 0x10cf0000
XS(Create): nX = 100
XS(Create): nY = 100
XS(Create): nWidth = 150
XS(Create): nHeight = 100
XS(Create): hParent = 0
XS(Create): hMenu = 0
XS(Create): hInstance = 0
XS(Create): initializing pPointer...
XS(Create): storing -type/-name...
XS(Create): calling CreateWindowEx...
!XS(WindowMsgLoop) got (3428, 0x24, 0, 6551720)
Error: Runtime exception

It's probably the GetWindowLong call before a SetWindowLong.
The first message is a WM_GETMINMAXINFO and not a WM_CREATE.

Laurent.

RE: [perl-win32-gui-users] Interacting with DOS Shell

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

I looked into both these solutions.  I couldn't get Expect to work (I'll 
guess I'll have to wait for a Win32 version), and the problem with this 
other one is that DOS won't relinquish control back to the script until it 
has finished running - and since it's waiting for input, it never finishes.  
I discovered that I cam make it work if I use the console - DOS will wait 
for user input from the console, so you can enter it there.

I checked on the MSDN Library, and it seems that Windows starts an instance 
of a 'Virtual Machine' for each DOS prompt.  (This is to fool DOS into 
thinking it's the only thing running.)  What I need is some way to pipe info 
into and out of a VM - but I haven't found a way yet.  I've looked into 
pipes and threads and interprocess communication on the MSDN Library, but 
I've found nothing that works yet.

I've shelved this project for a while - I just applied for a job I'm very 
likely to get, so I won't have as much free time on my hands - and I'll get 
to write Perl!  (My last job laid me off - in fact, about 80% of their 
developers - a couple of months ago, but they had me writing PHP anyway.)  
Wish me luck!

>a more windows-ish way might be to open a new window that instructs the 
>user
>to input "something" with a textbox for their input and an OK button to
>accept, read in their input, and close the input window.

>Look into the Expect module.  (note: I'm not positive it is implemented in
>the Win32 environment - so forgive me if it is not..)

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

RE: [perl-win32-gui-users] Interacting with DOS Shell

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

a more windows-ish way might be to open a new window that instructs the user
to input "something" with a textbox for their input and an OK button to
accept, read in their input, and close the input window.

-----Original Message-----
From: Chr...@ti... [mailto:Chr...@ti...]
Sent: Monday, January 22, 2001 10:21 AM
To: per...@li...
Subject: RE: [perl-win32-gui-users] Interacting with DOS Shell


Look into the Expect module.  (note: I'm not positive it is implemented in
the Win32 environment - so forgive me if it is not..)

tcl...@we...

-----Original Message-----
From: Sean Healy [mailto:jal...@ho...]
Sent: Friday, January 19, 2001 7:22 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Interacting with DOS Shell


I'm trying to make a gui interface to a command-line program I have.  The 
problem is that at certain points, the program wants user input.  I tried 
backticks, but my script hangs at the point where the program wants input.  
Is there a way to interface with DOS so that when a DOS program wants input,

the control switches back to the Perl script, which can ask for input and 
then pipe that input into DOS?

Backticks, exec(), and system() all fail to allow for user input after the 
initial command.  Is there a module or something I can use for this?
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com


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

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

[perl-win32-gui-users] Richedit Copy

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

I have some text in a Richedit object.  I'd like to be able to copy any =
text that I select but it doesn't work.  Is there sojmething special I =
have to do?

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

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

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

>has anyone been successfull in getting tooltips to work?

I've played with them, but I always get the message that I'm trying to do 
something to an undefined value.  I tracked the problem down in GUI.pm, and 
I found these two lines:

my $parent = $_[0];
my $new = Win32::GUI->_new(Win32::GUI::constant("WIN32__GUI__TOOLTIP", 0), 
@_);

The first should have $_[1], as it is currently assigning 
"Win32::GUI::Tooltip" to $parent, rather than the actual name of the parent 
object.  I tried fixing it, but my object still wouldn't initialize.  (That 
bad assignment is not actually causing any problems right now, but it 
presumably will when the real problem is fixed.)

The real problem is that Win32::GUI->_new is returning undef, which is why I 
get that error message.  I looked in Win32::GUI->_new, and found that it is 
returning undef due to the following line:

my $handle = Win32::GUI::Create($self, $type, @input);

It returns undef because nothing gets assigned to $handle. Unfortunately, 
that line is calling something from either GUI.dll or GUI.lib, which I can't 
do anything about (unless I learn C++ and get a compiler).
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

[perl-win32-gui-users] Tooltips

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

has anyone been successfull in getting tooltips to work?

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

[perl-win32-gui-users] Win32::GUI::HyperLink 0.02

[Aldo C. <da...@pe...>]

hello perl-win32-gui-users,

I've added cursor and icon support to BitmapInline.pm,
along with a new version of HyperLink.pm that will use
the inlined cursor (harrow.cur) if the default handcursor
is not found (the default handcursor should be available
only in Win2k). enjoy :-)


cheers,
Aldo

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

Re: [perl-win32-gui-users] Win32::GUI version 0.0.558

[Reini U. <ru...@sb...>]

thanks, 
my firewall doesn't let the cvs port go through, but
simple http browsing for the xs via cvsweb is okay for me.

(BTW: 
http://cvs.sourceforge.net/cgi-bin/cvsweb.cgi/~checkout~/perl-win32-gui/Win32-GUI/GUI.xs
for the latest revision)

Aldo Calpini wrote:
> BTW, if you wanna go really wild, I have set up
> the CVS server, so you can grab the latest development
> release directly from there ;-)
-- 
Reini Urban

Re: [perl-win32-gui-users] MessageBox - a list of the corresponding icon, button, and modality values

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

Erick,

I think these will work, I haven't tried them all.

Settings
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
0 - display only the OK button
1 - display OK and Cancel buttons
2 - display Abort, Retry, and Ignore buttons
3 - display Yes, No, and Cancel buttons
4 - display Yes and No buttons
5 - display Retry and Cancel buttons

16 - display Critical Message icon
32 - display Warning Query icon
48 - display Warning Message icon
64 - display Information Message icon

0 - set first button as default
256 - set second button as default
512 - set third button as default
768 - set fourth button as default


Return Values
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
1 - OK
2 - Cancel
3 - Abort
4 - Retry
5 - Ignore
6 - Yes
7 - No

Like I said, I think these are right.


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

  ----- Original Message -----=20
  From: Erick J. Bourgeois=20
  To: per...@li...=20
  Sent: Tuesday, January 23, 2001 6:22 PM
  Subject: [perl-win32-gui-users] MessageBox


  I see. Do you have a list of the corresponding icon, button, and =
modality values?
  =20
  erick
  never stop questioning
  www.jeb.ca
    ----- Original Message -----=20
    From: Thomas, Timothy B=20
    To: 'per...@li...'=20
    Sent: Tuesday, January 23, 2001 11:09 PM
    Subject: RE: [perl-win32-gui-users] MessageBox


    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 =B7 Denver Data Center

    303-430-2281

    mailto:tim...@lm...

    =
-------------------------------------------------------------------------=
------------------------

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

[Aldo C. <da...@pe...>]

Thomas, Timothy B wrote:
> 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.

sorry, I forgot to mention that you need Win32::API version
0.20.
if you don't want to upgrade Win32::API, you can change the
following lines in HyperLink.pm

13: my $LoadCursor = new Win32::API("user32", "LoadCursor", "NN", "N");
 -> my $LoadCursor = new Win32::API("user32", "LoadCursor", [N,N],
    "N");
14: my $ShellExecute = new Win32::API("shell32", "ShellExecute", "NPPPPI", "N");
 -> my $ShellExecute = new Win32::API("shell32", "ShellExecute",
    [N,P,P,P,P,I], "N");


    
cheers,
Aldo

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

Re: [perl-win32-gui-users] Win32::GUI version 0.0.558

[Aldo C. <da...@pe...>]

Reini Urban wrote:
> in which perl was 'SvPV_nolen' introduced?
> the prev GUI.xs had 
>                 pszName = SvPV(*pHv, PL_na);
> instead of the new
>                 pszName = SvPV_nolen(*pHv);

yes, sorry, SvPV_nolen was introduced in 5.6.0.
you need to add these lines:

#ifndef SvPV_nolen
#    define  SvPV_nolen(x)   SvPV(x, PL_na)
#endif

BTW, if you wanna go really wild, I have set up
the CVS server, so you can grab the latest development
release directly from there ;-)

cheers,
Aldo

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

[perl-win32-gui-users] MessageBox

[Erick J. B. <er...@e-...>]

I see. Do you have a list of the corresponding icon, button, and =
modality values?

erick
never stop questioning
www.jeb.ca
  ----- Original Message -----=20
  From: Thomas, Timothy B=20
  To: 'per...@li...'=20
  Sent: Tuesday, January 23, 2001 11:09 PM
  Subject: RE: [perl-win32-gui-users] MessageBox


  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 =B7 Denver Data Center

  303-430-2281

  mailto:tim...@lm...

  =
-------------------------------------------------------------------------=
------------------------

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

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

Couldnt you just pass the mailto: link on to the web browser just like a 
normal link?

-
______________________________
"Old programmers never die...they just get a fatal error."

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

[Thomas, T. B <tim...@lm...>]

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
=20

------------------------------------------------------------------------=
----
---------------------

Tim Thomas

Unix Systems Administrator

Lockheed Martin EIS =B7 Denver Data Center

303-430-2281

mailto:tim...@lm... <mailto:tim...@lm...>=20

------------------------------------------------------------------------=
----
---------------------

-----Original Message-----
From: Erick J. Bourgeois [mailto:er...@e-...]
Sent: Tuesday, January 23, 2001 2:50 PM
To: per...@li...
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:
=20
Win32::GUI::MessageBox(
    0,
    "Do you want to do this?",
    "Title",
    MB_ICONINFORMATION | MB_YESNO,
);
=20
well at least this works for me. One question, what does the zero do? =
Make
it modal?
=20
erick
never stop questioning
www.jeb.ca <http://www.jeb.ca>=20

[perl-win32-gui-users] MessageBox

[Erick J. B. <er...@e-...>]

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] MessageBox?

[Thomas, T. B <tim...@lm...>]

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

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

if ($result=3D=3D6) #yes is clicked

{

#do this stuff

}

------------------------------------------------------------------------=
----
---------------------

Tim Thomas

Unix Systems Administrator

Lockheed Martin EIS =B7 Denver Data Center

303-430-2281

mailto:tim...@lm... <mailto:tim...@lm...>=20

------------------------------------------------------------------------=
----
---------------------

-----Original Message-----
From: Erick J. Bourgeois [mailto:er...@e-...]
Sent: Tuesday, January 23, 2001 2:01 PM
To: per...@li...
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.
=20
erick
never stop questioning
www.jeb.ca <http://www.jeb.ca>=20

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

[Erick J. B. <er...@e-...>]

Sorry, I just found out how to do it.

  ----- Original Message -----=20
  From: Erick J. Bourgeois=20
  To: per...@li...=20
  Sent: Tuesday, January 23, 2001 10:01 PM
  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

[perl-win32-gui-users] MessageBox?

[Erick J. B. <er...@e-...>]

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] Final Code: Click on URL in About Wind ow

[Sam <sa...@se...>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

I didn't say anything before (about the html thing) because it really 
didn't matter, but in this case it does.
You don't really want to find file extensions in the registry, you 
want to find service providers. It's an academic point with html, but 
with mail it's critical for correct operation between mail clients.

look at HKCR/http and HKCR/mailto for the two offending keys 
(they should have shell command open thingees if your clients are 
good).

same applies for HKCR/ftp, and gopher wais etc etc etc

> Just to tell you Thomas, emails in Outlook have the ending
> .eml
> 
> > 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"
> >
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 



-----BEGIN PGP SIGNATURE-----
Version: N/A

iQA/AwUBOm1IP5sRND2Z+TaWEQLoxgCeOmCRBRcoYC01SRwr4J5EsFmPas0An1ru
hizFZbFtSrQSEh3RUaEkqngP
=WO0q
-----END PGP SIGNATURE-----

Sam Jacobson
R & D Manager / Software Engineer
Selective Communications
Ph +64 9 302 1142
www.selective.co.nz

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

[Erick J. B. <er...@e-...>]

It worked Jonathan, thanks. I put the Select method before I inserted =
the items :)

erick
never stop questioning
www.jeb.ca

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

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

Erick,

No, actually I meant what I thyped:

$HostName ->Select(0);


It works for me.

Make sure you place that before your Win32::GUI::Dialog() call or =
somewhere where it will get called from a specific sub.

Try this short code and see if it works:
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
use Win32::GUI;

my $screen_width =3D Win32::GUI::GetSystemMetrics(0);
my $screen_height =3D Win32::GUI::GetSystemMetrics(1);
my $minwidth =3D 620;
my $minheight =3D 255;

my $MainWindow =3D new Win32::GUI::Window(
 -name   =3D> "MainWindow",
 -top    =3D> ($screen_height - $minheight)/2,
 -left   =3D> ($screen_width - $minwidth)/2,
 -width  =3D> $minwidth,
 -height =3D> $minheight,
 -minsize=3D> [$minwidth,$minheight],
 -title  =3D> "Sample Window",
);

$HostName =3D $MainWindow->AddCombobox(
    -name     =3D> "HostName",
    -tabstop  =3D> 1,
    -style    =3D> WS_VISIBLE | 2 | WS_NOTIFY,
    -left     =3D> 205,
    -top      =3D> 10,
    -width    =3D> 110,
    -height   =3D> 160,
);
$HostName->InsertItem ("ftp.server1.com");
$HostName->InsertItem ("ftp.server2.com");


$MainWindow->Show();
$HostName->Select(0);


Win32::GUI::Dialog();
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Let me know if it still doesn't work for you.


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


  ----- Original Message -----=20
  From: Erick J. Bourgeois=20
  To: per...@li...=20
  Sent: Tuesday, January 23, 2001 2:22 PM
  Subject: [perl-win32-gui-users] Combobox


  Johnathan,

  Do you mean $HostName ->Select[0];
  I tried both ways, both don't work.

  erick
  never stop questioning
  www.jeb.ca

Re: [perl-win32-gui-users] Win32::GUI version 0.0.558

[Reini U. <ru...@sb...>]

Aldo Calpini schrieb:
> BTW, I'm not sure yet that 0.0.558 is stable enough for a
> PPM distribution. I would like to get some feedback from
> 'people with a C compiler' that can build the module and
> test it, before giving it out to everybody.

Ah, you mean me :)
okay: 
using my selfbuilt MSVC - GSAR perl 5.005_02 built for MSWin32-x86-thread

>mperl502 Makefile.pl
>nmake
...
cp GUI.pm blib\lib\Win32/GUI.pm
cp BitmapInline.pm blib\lib\Win32/GUI/BitmapInline.pm
cp GridLayout.pm blib\lib\Win32/GUI/GridLayout.pm
Can't open getbuild.bat: No such file or directory

then cl blabla...

GUI.cpp

*** Using a non-Object Core Perl. (which is okay :)

GUI.xs(445) : error C2065: 'SvPV_nolen' : nichtdeklarierter Bezeichner

in which perl was 'SvPV_nolen' introduced?
the prev GUI.xs had 
                pszName = SvPV(*pHv, PL_na);
instead of the new
                pszName = SvPV_nolen(*pHv);

GUI.xs(445) : error C2440: '=' : 'int' kann nicht in 'char *' konvertiert
werden

        Die Konvertierung eines ganzzahligen Typs in einen Zeigertyp erfordert
e
in reinterpret_cast-Operator oder eine Typumwandlung im C- oder
Funktionsformat
GUI.xs(448) : error C2440: '=' : 'int' kann nicht in 'char *' konvertiert
werden

        Die Konvertierung eines ganzzahligen Typs in einen Zeigertyp erfordert
e
in reinterpret_cast-Operator oder eine Typumwandlung im C- oder
Funktionsformat
GUI.xs(835) : error C2065: 'thr' : nichtdeklarierter Bezeichner
...

and so on of course
-- 
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html

[perl-win32-gui-users] Combobox

[Erick J. B. <er...@e-...>]

Johnathan,

Do you mean $HostName ->Select[0];
I tried both ways, both don't work.

erick
never stop questioning
www.jeb.ca

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

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

Sorry,  I meant Erick!  ;]

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


----- Original Message ----- 
From: "Erick J. Bourgeois" <er...@e-...>
To: <per...@li...>
Sent: Tuesday, January 23, 2001 1:44 PM
Subject: [perl-win32-gui-users] Combobox


> Why is it that in the following Combobox:
> 
> $HostName = $MainWin->AddCombobox(
>     -name     => "HostName",
>     -tabstop  => 1,
>     -style    => WS_VISIBLE | 2 | WS_NOTIFY,
>     -left     => 205,
>     -top      => 10,
>     -width    => 110,
>     -height   => 160,
> );
> $HostName->InsertItem ("ftp.server1.com");
> $HostName->InsertItem ("ftp.server2.com");
> 
> The first item is not showing right away, I have to drop the
> combobox first. I also tried -text=>"ftp.server1.com"
> 
> erick
> 
> never stop questioning
> www.jeb.ca
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

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

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

Eric,

Add the following to your code:

$HostName ->Select(0);

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


----- Original Message ----- 
From: "Erick J. Bourgeois" <er...@e-...>
To: <per...@li...>
Sent: Tuesday, January 23, 2001 1:44 PM
Subject: [perl-win32-gui-users] Combobox


> Why is it that in the following Combobox:
> 
> $HostName = $MainWin->AddCombobox(
>     -name     => "HostName",
>     -tabstop  => 1,
>     -style    => WS_VISIBLE | 2 | WS_NOTIFY,
>     -left     => 205,
>     -top      => 10,
>     -width    => 110,
>     -height   => 160,
> );
> $HostName->InsertItem ("ftp.server1.com");
> $HostName->InsertItem ("ftp.server2.com");
> 
> The first item is not showing right away, I have to drop the
> combobox first. I also tried -text=>"ftp.server1.com"
> 
> erick
> 
> never stop questioning
> www.jeb.ca
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>