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

Re: [perl-win32-gui-users] Getting Perl.exe - application error

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

On Tue, 26 Jun 2001 08:23:16 -0400, Louis Bohm said:

> I am getting perl.exe - Application Error  when trying to run the
>  following 
>  code:
>	use Win32::GUI;
>	$main = Win32::GUI::Window->new(
>		 -name	 => 'Main',
>		 -width  => 100,
>		 -height => 100,
>	 );
>	$main->AddLabel(-text => "Hello, world");
>	$main->Show();
>	Win32::GUI::Dialog();
>  
>	sub Main_Terminate {
>	 -1;
>	}

Try giving your label a name.

regards,

erick

[perl-win32-gui-users] Getting Perl.exe - application error

[Louis B. <lb...@li...>]

I am getting perl.exe - Application Error  when trying to run the following=
=20
code:
     use Win32::GUI;
     $main =3D Win32::GUI::Window->new(
                 -name   =3D> 'Main',
                 -width  =3D> 100,
                 -height =3D> 100,
         );
     $main->AddLabel(-text =3D> "Hello, world");
     $main->Show();
     Win32::GUI::Dialog();

     sub Main_Terminate {
         -1;
     }

I am sure the error is not in perl or your win-gui module but I do not know=
=20
what it is or how to go about finding out what is causing it.  I have=20
shutdown everything I am running to see if something else is effecting it=20
but I am not getting any where.

If anyone has any suggestions that would be great?
OS: Win2K Pro
Perl: ActivePerl 5.6.0 build 623

Thanks,
Louis

--
=A4=A4=BA=B0`=B0=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=
=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=BA=A4
=A4=B0`=B0Lightbridge, Inc
=A4=B0`=B067 South Bedford St.
=A4=B0`=B0Burlington MA 01832
=A4=B0`=B0781.359.4795 mailto:lb...@li...
=A4=B0`=B0http://www.lightbridge.com
=A4=A4=BA=B0`=B0=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=
=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=BA=A4

[perl-win32-gui-users] Getting Perl.exe - application error

[Louis B. <lb...@li...>]

I am getting perl.exe - Application Error  when trying to run the following=
=20
code:
     use Win32::GUI;
     $main =3D Win32::GUI::Window->new(
                 -name   =3D> 'Main',
                 -width  =3D> 100,
                 -height =3D> 100,
         );
     $main->AddLabel(-text =3D> "Hello, world");
     $main->Show();
     Win32::GUI::Dialog();

     sub Main_Terminate {
         -1;
     }

I am sure the error is not in perl or your win-gui module but I do not know=
=20
what it is or how to go about finding out what is causing it.  I have=20
shutdown everything I am running to see if something else is effecting it=20
but I am not getting any where.

If anyone has any suggestions that would be great?
OS: Win2K Pro
Perl: ActivePerl 5.6.0 build 623

Thanks,
Louis

--
=A4=A4=BA=B0`=B0=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=
=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=BA=A4
=A4=B0`=B0Lightbridge, Inc
=A4=B0`=B067 South Bedford St.
=A4=B0`=B0Burlington MA 01832
=A4=B0`=B0781.359.4795 mailto:lb...@li...
=A4=B0`=B0http://www.lightbridge.com
=A4=A4=BA=B0`=B0=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=
=BA=A4=F8,=B8=B8,=F8=A4=BA=B0`=B0=BA=A4=F8=F8=A4=BA=B0`=B0=BA=A4

[perl-win32-gui-users] C code to perl GUI or API(whatever works!)

[Anthony G. <ag...@em...>]

I'm trying to take a segment of C++ code and port it to perl to work
into an existing script.  The C code does nothing more than sends a
message to a running program(Streets on a Disk) using WM_COPYDATA, and
returns data from the same...  Below is the Perl code I've tried,
followed by the C code.  I would appreciate ANY help on this, as I'm not
very proficient in C(yet!) and have not yet grasped pack()/unpack() nor
Win32::API.
FWIW: I'm on Win2k Pro - AS 623

use Win32::GUI;
use constant NULL=>0;
use constant WM_COPYDATA => 74;

my $myCommand="\@CUSTOM_MENU_OK   text\n";
my $wparm = pack("I", NULL);
my $dwData=pack("L",$myCommand);
my $lpCopydatastruct=pack("pLp",$dwData,0,NULL);

$st32H=Win32::GUI::FindWindow("StreetsOnADisk","");  ## this seems to
give me "The handle is invalid"
Win32::GUI::SendMessage($st32H,WM_COPYDATA,$lpCopydatastruct,0);

I've also tried API:

use Win32::API;
use constant NULL=>0;
use constant WM_COPYDATA => 74;

my $myCommand='@CUSTOM_MENU_OK   text'."\n";
my $wparm = pack("I", NULL);
my $dwData=pack("L",$myCommand);
my $lpCopydatastruct=pack("pLp",$dwData,0,NULL);
my $FindWindowEx=new Win32::API('User32','FindWindowEx',[qw(N N P P)],'N');
## this gives me "The specified procedure could not be found"
my $SendMessage=new Win32::API("User32","SendMessage",[qw(N N N N)],'N');
my $hwnd=$FindWindowEx->Call($parent_hwnd,undef,'StreetsOnADisk',undef);
my $lresult=$SendMessage->Call($st32H,WM_COPYDATA,$wparm,$lpCopydatastruct);

And then the C++ code which works just fine for me:

void CAPITestDlg::OnButton1() 
{
	CWnd *pWnd = CWnd::FindWindow("StreetsOnADisk", NULL);

	if (pWnd)
	{
	char commands[100];
	strcpy(commands,"@CUSTOM_MENU_OK   text\n");

	COPYDATASTRUCT cds;
	cds.dwData = 0; //reserved for later use
	cds.cbData = strlen(commands)+1; /* enter the length of the
	command string in the buffer+1 */
	cds.lpData = (void*) commands; /* point to command buffer */
		Sleep(1000);
	LRESULT result = pWnd->SendMessage(WM_COPYDATA,
					(WPARAM)AfxGetApp()->m_pMainWnd->GetSafeHwnd(),
					(LPARAM)&cds);
	if(result==FALSE)  AfxMessageBox("Streets is busy...",MB_OK | MB_ICONSTOP);
	}
	else /* on error: */
	{
	AfxMessageBox("Streets On A Disk is not running...",MB_OK | MB_ICONSTOP);
	}	
}
BOOL CAPITestDlg::OnCopyData(CWnd* pWnd, COPYDATASTRUCT* pcds)
    {
    if(pcds->dwData == 0)
      {
      /* indicates an error processing the commands */
      /* show error log: */
      AfxMessageBox((char *) pcds->lpData,MB_OK | MB_ICONINFORMATION );
      }
    else  /* results were found without errors: */
      {
      /* show results: */
      AfxMessageBox((char *) pcds->lpData,MB_OK | MB_ICONINFORMATION  );
      }

    return CDialog::OnCopyData(pWnd, pcds);
    }

<sig>  Anthony George <ag...@em...> Systems Engineer.
Do your technical services need medical attention?  We can help.  EMSTS, LLC.
800-304-8269   231-720-1600   http://www.emsts.com  </sig>

[perl-win32-gui-users] GDB (gui debugger)

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

I just uploaded the gui debugger I've been working on since April to 
Erick's Perl Code Exchange (http://www.jeb.ca/cgi-
bin/exchange/display.cgi).  Download, unzip (three files), and run 
gdb.pl.  It's far from finished (you'll notice all the disabled 
buttons), but it's finally has enough functionality to be used.  I'll 
give it a full version number when I've finshed all the currently 
disabled features, for now it's just 0.1.  After I get it all 
working, I'd eventually like to add some bells and whistles (like 
menus, right-click menus, hot-keys, etc.), and of course I am eagerly 
awaiting the NEM (which will hopefully allow me to get all my stuff 
out of main and into DB where it belongs) and Scintilla (which will 
be better than RichEdit for this sort of app).

Let me know what you think.  If there's enough interest, I'll set up 
a mailing list for it.  Please try to get it from the Perl Code 
Exchange before asking me to send it to you because
1) it's easier for me this way.
2) PCE is a really good idea.

I'm trying to finish it quickly, but I don't really have a lot of 
spare time, so be patient.

[perl-win32-gui-users] The GUI Loft: 2001-06-23 release

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

Hi!

I just wanted you to know of the latest release of The GUI Loft.

http://www.bahnhof.se/~johanl/perl/Loft/

The first public release revealed a few problems with module dependencies 
etc. I hope and think that is fixed with this release which contains two 
PPM packages: AdHoc and Loft. Installing them should make it possible to 
run the Demo code and incorporate the windows in your own programs without 
too much hassle.

(If you decide to run The GUI Loft from the source, you still have to 
install a few modules with nmake/by hand. Using the binary is a 
double-click away.)

Note: I have no access to a "clean" Perl installation right now to try 
things on. These are the first PPM packages I've done so although I don't 
think so, there might still be a few details to sort out. Please report any 
problems so I can fix them. If you think this is sloppy; Hey, I can only 
agree. So sue me :)


I just wrote the outline of the Programmer's Reference. It's on the site 
and it's also available from the Help menu. If you miss anyting or find 
anything utterly confusing about that, I'd like to know.


<subscription fishing>
This is a cross-post between The GUI Loft mailing list and the Win32::GUI 
mailing list. In the future I won't post to the Win32::GUI list unless it's 
a major release, so If you still want the latest improvements right away, 
please subscribe to The GUI Loft mailing list here:

http://www.bahnhof.se/~johanl/perl/Loft/

The archives are always publicly available here:

http://groups.yahoo.com/group/theguiloft

</subscription fishing>


/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] ANNOUNCE: The GUI Loft (beta 010620)

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

I wrote:
>I think you can subscribe from this link:
>http://groups.yahoo.com/group/theguiloft/join?referer=1
>
>You may have to create a Yahoo account (&%&!#, didn't think of that!) but 
>you can change your subscription to your real e-mail address later.

Hmmm... Maybe the easiest way is to use this link (copy, paste in browser, 
replace YOUR_EMAIL with, well, your e-mail address):

http://groups.yahoo.com/subscribe/theguiloft?user=YOUR_EMAIL

And maybe you don't have to sign up with Yahoo after all...


/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] ANNOUNCE: The GUI Loft (beta 010620)

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

I just created a discussion forum for The GUI Loft at Yahoo.

http://groups.yahoo.com/group/theguiloft

I know, "yet another list to subscribe to", but I think it will be pretty 
low volume after a while, and probably very useful to you if you think that 
you might actually use The GUI Loft.

I have already got a few very good questions, and I think the future Q&A 
will help everyone involved a lot.

I think you can subscribe from this link:
http://groups.yahoo.com/group/theguiloft/join?referer=1

You may have to create a Yahoo account (&%&!#, didn't think of that!) but 
you can change your subscription to your real e-mail address later.


Even if you don't sign up, there is this poll you can participate in:

"Which control would you most like to see supported next?"
http://groups.yahoo.com/group/theguiloft/surveys?id=10091213


/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] ANNOUNCE: The GUI Loft (beta 010620)

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

Henning wrote:
>You could replace the 0/1 values with "no"/"yes" or
>"false"/"true" in the properties editor. Even if it doesn't
>correspond the resulting code exactly, it makes more sense in
>a visual environment IMO.

This is a maybe.

I'm not sure how far from Perl code I like the tool to go. Like I say in 
the User manual, you'll end up coding Win32::GUI Perl anyway, so perhaps 
it's best with a natural and transparent mapping between The GUI Loft and 
Win32::GUI code.

But it's definetely something I'll think more about.


>Also I keep forgetting to press return after changing a string
>value, hence losing my edits when I select a different property

This is also a maybe, although for more technical UI reasons :/

But it's on the list :)


>Tooltips would be nice, especially in the toolbox window.

Very much so, the ToolTip control is a _great_ (and I mean __great__) UI 
feature, but I don't think it is 100% implemented in Win32::GUI. Aldo, is 
that correct?

A working piece of code would help a lot if anyone has done it. And as soon 
as I can get it to work, support in The GUI Loft is the next thing.


>I just had an incident where the icons in the toolbox disappeared
>when I clicked on them. I cannot reproduce it, but it happened
>while clicking the buttons when I had my window in "test mode".

I _think_ this is a Win32::GUI thing, but I'm not sure. Anyone else who has 
used bitmap Buttons with any experience (good or bad) of this?


>A point for resizing the control in only one direction at a time
>would come in handy, and one point that would scale the control
>in all directions would, too. (i.e. center of the control's edges
>and in the middle of the control)

Check. But I'm not too fond of cluttering up the Design window with more dots.

Idea: Ctrl-drag a dot to "center" the fixed point.

Idea: Shift-drag a dot to force either horizontal or verical movement, 
whichever is done first.


>Oh yeah, "send to front"/"back"/"push one layer back"/"select
>control" type of  right click menu in the forms editor window
>would be nice, instead of having to move the mouse over to the
>main window and click the control I want to edit there.

That particular feature isn't implemented yet actually, the menu items are 
just placeholders/teasers :)

But a right-click menu with the edit commands, as well as individual 
select/deselect for controls below the mouse pointer is on the way.

In the source distro, in the Notes directory, there are a few files with 
future plans/ideas and stuff if you are interested.


>That's all I could think of for now!

Thanks! All comments are greatly appreciated!


/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] ANNOUNCE: The GUI Loft (beta 010620)

[Tolpinrud, H. <Hen...@sa...>]

Johan:

> I'm very interested in "first impresstions". What is the 
> first thing that 
> bugs you? At which time do you first think "why can't I do 
> that?". What is 
> problematic or unclear when it comes to using the windows and 
> dialogs in 
> your own programs?

My initial reaction was "wow, just what I needed." :-) I'm used
to doing my GUIs in Borland's editors, so I've found that
designing the GUIs with code takes me a long, long time.

Haven't really had time to play much with it, but here are some
suggestions:

You could replace the 0/1 values with "no"/"yes" or
"false"/"true" in the properties editor. Even if it doesn't 
correspond the resulting code exactly, it makes more sense in
a visual environment IMO.

Also I keep forgetting to press return after changing a string
value, hence losing my edits when I select a different property

Tooltips would be nice, especially in the toolbox window.

I just had an incident where the icons in the toolbox disappeared
when I clicked on them. I cannot reproduce it, but it happened
while clicking the buttons when I had my window in "test mode".

A point for resizing the control in only one direction at a time
would come in handy, and one point that would scale the control
in all directions would, too. (i.e. center of the control's edges
and in the middle of the control)

Oh yeah, "send to front"/"back"/"push one layer back"/"select 
control" type of  right click menu in the forms editor window
would be nice, instead of having to move the mouse over to the
main window and click the control I want to edit there.

That's all I could think of for now!

!Henning

**********************************************************************
The following text is in Norwegian: Avsender er å anse som personlig
ansvarlig for innholdet og Hærens Forsyningskommando fraskriver seg
ethvert ansvar for innholdet i meldingen og eventuelle vedlegg.

[perl-win32-gui-users] ANNOUNCE: The GUI Loft (beta 010620)

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

Hi!

I just released the first beta of The GUI Loft.

 From the User manual:
"The GUI Loft is a powerful and easy-to-use WYSIWYG editor
for designing Win32::GUI windows, dialog boxes and
toolwindows. It is also a set of classes used to create the
window for you at runtime."

I think and hope you'll like it :)

Reactions so far range from "Huh?" (my mother), "looks simply great!" 
(Aldo), to "That represents everyhing I don't stand for" (colleague Perl 
programmer). In his defence, that last statement was uttered before he 
actually started the program :)


Download source and/or binaries here:
http://www.bahnhof.se/~johanl/perl/Loft/

The Perl Artistic License applies.


I'm very interested in "first impresstions". What is the first thing that 
bugs you? At which time do you first think "why can't I do that?". What is 
problematic or unclear when it comes to using the windows and dialogs in 
your own programs?

There is an extensive User Manual in the Help menu, please read it. But try 
the program first, you are programmers and power-users after all, right? :)


Currently supported controls are:
Window, DialogBox, ToolbarWindow, Button, Label, TextField, RadioButton, 
CheckBox, GroupBox, Listbox, RichEdit, ListView, ComboBox, TreeView, 
TabStrip, Timer, ImageList


Cool features include:
- Pretty extensive WYSIWYG support + 100% accurate preview
- Pretty complete support for Win32::GUI control options--and then some
- It's actually easy to use (IMHO :)
- Docs and demo code
- No-code runtime TabStrip management


Future plans include:
- All controls supported by Win32::GUI
- Integrated Resizer support (at least for the simple case)
- Simple Event handlers with Actions, so you don't have to code trivial things.
- Possibly integration with external editors (don't want to either reinvent 
that wheel, nor abandon UltraEdit)


Have fun!

/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] Directory Browser/Selector

[M. F. H. <ho...@ip...>]

Hei,

Is there a way to invoke Windows directory browser/selector from Perl/Tk?

Thanks

[perl-win32-gui-users] Menus

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

Hi,

Is there a difference between Win 9x and NT for putting a menu on a
window using Win32::GUI?

I added a bunch of menus to my application, and they show up fine on NT,
but they don't appear at all on Win 98.  In fact, at first they caused
perl to crash on Win 98... but upgrading to build 626 seems to have
cured the bad memory reference, but the menus don't appear.

Curiously, the floating menu that I added to my NotifyIcon does appear
on Win98.

Here's my menu definition, in case there is something obviously wrong
with it....

  my $mmenu = new Win32::GUI::Menu (
    "&File" => "FileMenu",
    ">New &Location" => "NewLoc",
    ">New &ISP" => "NewISP",
    ">New &Phone Number" => "NewNum",
    ">-" => 0,
    ">E&xit" => "ExitNow",
    "&Edit" => "EditMenu",
    ">Edit Selected &Location" => "EditLoc",
    ">Edit Selected &ISP" => "EditISP",
    ">Edit Selected &Phone Number" => "EditNum",
    "&Options" => "OptMenu",
    "&Dialing" => "DialMenu",
    ">&Dial" => "DialNow",
    ">&Hangup" => "HangupNow",
    ">&Launch Email" => "LaunchNow",
    "&Help" => "HelpMenu",
    ">&Help Text" => "HelpNow",
    ">&About" => "AboutNow",
    ">-" => 0,
    ">Show &Debug Window" => "DebugNow",
    );

  $smenu = new Win32::GUI::Menu (
    "&Dialing" => "sDialMenu",
    ">&Dial" => "sDialNow",
    ">&Hangup" => "sHangupNow",
    ">&Launch Email" => "sLaunchNow",
    ">-" => 0,
    ">&Bring to Front" => "sForeground",
    );

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

Re: [perl-win32-gui-users] Scrolling contents in a TextField / RichEdit

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

Henning wrote:
>In my program I am feeding live data into several multiline TextField
>and RichEdit controls. Is there a way to scroll the contents down so
>that the newest data always is shown?

Yes. It's in the archives.

The search doesn't work that well, but browse for anything "Richedit" in 
general and "Appending to RichEdit?" in particular.

<http://www.geocrawler.com/lists/3/SourceForge/8381/0/>


/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] Scrolling contents in a TextField / RichEdit

[Tolpinrud, H. <Hen...@sa...>]

In my program I am feeding live data into several multiline TextField
and RichEdit controls. Is there a way to scroll the contents down so 
that the newest data always is shown?

!Henning
**********************************************************************
The following text is in Norwegian: Avsender er å anse som personlig
ansvarlig for innholdet og Hærens Forsyningskommando fraskriver seg
ethvert ansvar for innholdet i meldingen og eventuelle vedlegg.

Re: [perl-win32-gui-users] Selecting multiple lines in ListBox

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

Henning wrote:
>Could you please provide clues on how to use this code snippet? Does it need
>additional modules (like Win32::API) ? How do I call the sub, what
>parameters?

A condensed version, using Win32::GUI I guess,  would look like this:

$lbYourListBox->SendMessage(0x0185, $isSelected, $index);    #LB_SETSEL

$lbYourListBox -- well... your ListBox control :)
$isSelected -- 0|1, the selected status
$index -- which line in the ListBox to select/deselect

This only works if you have created the ListBox with -multisel set to 1 or 2.


/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] Selecting multiple lines in ListBox

[Tolpinrud, H. <Hen...@sa...>]

Johan, 

Could you please provide clues on how to use this code snippet? Does it need
additional modules (like Win32::API) ? How do I call the sub, what
parameters?

> -----Original Message-----
> From: Johan Lindstrom [mailto:jo...@ba...]

> Working piece of code:

[...]

> It appears that selecting a single line vs. multiple lines are two 
> different things. Look at the SendMessage call. Note: The 
> index is 0-based, 
> I just manage the first item in my list separate from the others.
> 
> Ideally, this should go into a single sub and eventually into 
> Win32::GUI. 
> Spreading custom messages and constants in your program is 
> both unreadable 
> and bad for maintenance in the long run.

!Henning
**********************************************************************
The following text is in Norwegian: Avsender er å anse som personlig
ansvarlig for innholdet og Hærens Forsyningskommando fraskriver seg
ethvert ansvar for innholdet i meldingen og eventuelle vedlegg.

[perl-win32-gui-users] Perl Code Exchange

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

Hi all,

I have finally finished the Perl Code Exchange application I was building. You
can now either cut and paste a code snippet or upload a script (or a binary). You
may find it at www.jeb.ca/cgi-bin/exchange/display.cgi or the upload page may be
found at www.jeb.ca/cgi-bin/exchange/upload.cgi

If there are any questions or comments, please email me. I hope this will help
some people :)

regards,

erick bourgeois
never stop questionning
www.jeb.ca

[perl-win32-gui-users] (no subject)

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

Hi all,

I have finally finished the Perl Code Exchange application I was building. You
can now either cut and paste a code snippet or upload a script (or a binary). You
may find it at www.jeb.ca/cgi-bin/exchange/display.cgi or the upload page may be
found at www.jeb.ca/cgi-bin/exchange/upload.cgi

If there are any questions or comments, please email me. I hope this will help
some people :)

regards,

erick bourgeois
never stop questionning
www.jeb.ca

Re: [perl-win32-gui-users] TabStrip with images - does it work?

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

Aldo wrote:
>not quite. the sample (tabstrip.pl in the samples directory from the
>source distribution) actually uses indexes from the ImageList.

Ah, mea culpa! Sloppy research on my part, sorry about the troll post :)

To my excuse I'd like to mention that during the creation of <HYPE>The GUI 
Loft</HYPE> I have come in contact with details of a lot of controls, and 
there _are_ a few things that doesn't seem to work quite like they should. 
So my default reaction to weird things right now is that it's not 
necessarily 100% my fault ;)  But, I'll try things out more thouroughly 
before I complain in the future :)

I'm compiling a list of other possibly broken things that I might have 
misunderstood, and "undocumented" options so that we can incorporate them 
into the docs.


/J - Win32::GUI spelunker

------ ---- --- -- -- -- -  -   -    -        -
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] TabStrip with images - does it work?

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

Johan Lindstrom wrote:
> A weird thing:
>
> According to the docs, you can attach an -imagelist to a TabStrip, and then 
> specify the image index when you add a Tab.
>
> But the sample app for TabStrip attaches an ImageList and specifies 
> _Bitmap_ objects.

not quite. the sample (tabstrip.pl in the samples directory from the
source distribution) actually uses indexes from the ImageList.

    my $IL = new GUI::ImageList(16, 16, 8, 3, 10);
    my $IMG_ONE   = $IL->Add("one.bmp");

the ImageList::Add function returns the index of the added image.

    $W->Tab->InsertItem(
        -text => "First",
        -image => $IMG_ONE,
    );

and here we use that index for the TabStrip.
    
> According to the XS code (just a brief look), it should work like the docs 
> say, and according to the API, the ImageList index is the only way to go.
>
> When I try to do the "right" thing (with image indexes), it doesn't work.

the problem is probably somewhere else... :-)


cheers,
Aldo

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

[perl-win32-gui-users] TabStrip with images - does it work?

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

A weird thing:

According to the docs, you can attach an -imagelist to a TabStrip, and then 
specify the image index when you add a Tab.

But the sample app for TabStrip attaches an ImageList and specifies 
_Bitmap_ objects.

According to the XS code (just a brief look), it should work like the docs 
say, and according to the API, the ImageList index is the only way to go.

When I try to do the "right" thing (with image indexes), it doesn't work.

So... Any working piece of code I could take a glance at?


/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] Make textfield selection visible

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

Sean wrote:
>How do you force a textfield selection to be visible within the
>textfield?  I've been reading through the posts on autoscrolling a
>RichEdit, but that makes it scroll down a given number of lines.  I
>want the textfield to scroll only if the selection is not visible,
>and then only enough to make the selection visible.  (I could change
>to a RichEdit if this is not possible with a textfield.)

Don't know about a Textfield, but if you chose to go with a RichEdit, you 
can use the sub Win32::GUI::AdHoc::richEditScroll, available at:

http://www.bahnhof.se/~johanl/perl/Win32GUI/

I guess you still have to keep track of the selection and at what line it 
is located somehow.


Just looked up the Textfield thing BTW:

An application sends an EM_LINESCROLL message to scroll the text vertically 
or horizontally in a multiline edit control.

EM_LINESCROLL
wParam = (WPARAM) cxScroll; // characters to scroll horizontally
lParam = (LPARAM) cyScroll; // lines to scroll vertically


/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] Make textfield selection visible

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

How do you force a textfield selection to be visible within the 
textfield?  I've been reading through the posts on autoscrolling a 
RichEdit, but that makes it scroll down a given number of lines.  I 
want the textfield to scroll only if the selection is not visible, 
and then only enough to make the selection visible.  (I could change 
to a RichEdit if this is not possible with a textfield.)

Re: [perl-win32-gui-users] Giving focus to a control

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

Never mind, I found it right after I sent this.  In case you're 
interested, it's the logically named 'SetFocus', and it works on all 
controls.  (I thought it only worked on actual windows, but decided 
to give it a whirl while I waited for an answer, and lo and behold, 
it works on controls as well.)

> I looked for this on both archives (old one at http-tech and new one
> at SourceForge) and found nothing.  How can I give the focus back to a
> control?  I want focus to return to a textfield after pressing a
> button.   Specifically, the subroutine called by clicking the button
> should select some text, but even if I call $TextFieldName->Select as
> the last thing in the subroutine, the focus remains on the button.  If
> I click in the textfield, I lose the selection because the cursor
> jumps to wherever I clicked.
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>