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

[perl-win32-gui-users] MDI Applications

[Manuel E. E. M. <em...@ho...>]

Hi. I wondered if there is a way to make an MDI application using the
Win32::GUI Module, because I searched the documentation and there is nothing
told about it, and sometimes one seem to be able to change some parameters
in the functions and this is still in TBD status.

Thank you.

Manuel Emmelhainz

RE: [perl-win32-gui-users] Event handler stops working when style is added

[Howard, S. (US - Tulsa) <sth...@de...>]

Thanks Harald. That did the trick, and it makes sense.
 
 
Steve H.

-----Original Message-----
From: Piske, Harald [mailto:Har...@bo...]
Sent: Sunday, December 09, 2001 5:48 PM
To: Howard, Steven (US - Tulsa); Perl-Win32-Gui-Users (E-mail)
Subject: RE: [perl-win32-gui-users] Event handler stops working when style
is added


I don't know for sure if that's the reason, but I remember Aldo warning
about using the style option, because you inadvertently remove, or leave
out, styles that may be important. Try using -addstyle to add styles and
-remstyle to remove styles. That will leave all the standard style flags
untouched. With a little luck, this also solves your problem.
 
have fun,
Harald

-----Original Message-----
From: Howard, Steven (US - Tulsa) [mailto:sth...@de...]
Sent: Sunday, December 09, 2001 15:13
To: Perl-Win32-Gui-Users (E-mail)
Subject: [perl-win32-gui-users] Event handler stops working when style is
added



I'm having a little problem with listboxes and the Click event handler when
I add a -style option to the listbox. Hopefully someone here can spot what
is going wrong and help me out.

My list box is defined like this: 

        my $lb  = $disp->AddListbox ( 
           -name                        =>                   'Paygroups', 
           -pos                 =>                       [20, 40], 
           -height                      =>
$disp->ScaleHeight - 50, 
           -width                       =>                       100, 
         -style                 =>                       WS_VSCROLL |
WS_VISIBLE | WS_CHILD, 
           ); 

# A second listbox is relevant to this example because items are added and
removed in the event handler: 

        my $locations = $disp->AddListbox ( 
           -name                        =>
'Locationbox', 
           -pos                 =>                       [140,40], 
           -height                      =>
$disp->ScaleHeight - 50, 
           -width                       =>
$disp->ScaleWidth - 160, 
        #   -style                      =>                       WS_VSCROLL
| WS_VISIBLE | WS_CHILD, 
           ); 

#The first listbox is populated like this: 

        my $select = qq{SELECT DISTINCT PAYGROUP, REPORTING_LOCATION FROM
PS_JOB ORDER BY PAYGROUP, REPORTING_LOCATION};

        my $sth = $dbh->prepare($select) || die "Can't
prepare\n$select\n$DBI::errstr\n"; 
        $sth->execute() || die "Can't execute\n$DBI::errstr\n"; 
        while ($row = $sth->fetchrow_arrayref) { 
                  push (@{$payloc{$$row[0]}}, $$row[1]); 
                  } 
        foreach (sort keys %payloc) { 
                        $lb->AddString("$_"); 
                        } 


# The Click event handler is this: 

                sub Paygroups_Click { 
                        $locations->Clear(); 
                        my $item = $lb->SelectedItem(); 
                        my $key; 
                        if ($item != -1){ 
                           $key = $lb->GetString($item); 
                           foreach (sort(@{$payloc{$key}})) { 
                                           $locations->AddString("$_"); 
                                           } 
                           } 
                        print "Selected: $key\n"; 
                        } 

The problem is that if I comment out the -style option in the listbox $lb,
everything works in the event handler subroutine exactly as I wanted it to,
the only problem being that there are quite a large number of paygroups and
no vertical scroll bar. That will be a large annoyance to others. When I
un-remark the -style option on the $lb, the listbox is populated like I
need, but the Click event handler no longer function. No print statements
placed in the sub work, the second listbox is no longer populated with the
locations listed in the @{$payloc{$item}} array - nothing. 

Can anyone tell me what is going wrong? 

Thanks in advance, 

Steve Howard 
Sr. DBA DTO Tulsa. 
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

RE: [perl-win32-gui-users] Event handler stops working when style is added

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

I don't know for sure if that's the reason, but I remember Aldo warning
about using the style option, because you inadvertently remove, or leave
out, styles that may be important. Try using -addstyle to add styles and
-remstyle to remove styles. That will leave all the standard style flags
untouched. With a little luck, this also solves your problem.
 
have fun,
Harald

-----Original Message-----
From: Howard, Steven (US - Tulsa) [mailto:sth...@de...]
Sent: Sunday, December 09, 2001 15:13
To: Perl-Win32-Gui-Users (E-mail)
Subject: [perl-win32-gui-users] Event handler stops working when style is
added



I'm having a little problem with listboxes and the Click event handler when
I add a -style option to the listbox. Hopefully someone here can spot what
is going wrong and help me out.

My list box is defined like this: 

        my $lb  = $disp->AddListbox ( 
           -name                        =>                   'Paygroups', 
           -pos                 =>                       [20, 40], 
           -height                      =>
$disp->ScaleHeight - 50, 
           -width                       =>                       100, 
         -style                 =>                       WS_VSCROLL |
WS_VISIBLE | WS_CHILD, 
           ); 

# A second listbox is relevant to this example because items are added and
removed in the event handler: 

        my $locations = $disp->AddListbox ( 
           -name                        =>
'Locationbox', 
           -pos                 =>                       [140,40], 
           -height                      =>
$disp->ScaleHeight - 50, 
           -width                       =>
$disp->ScaleWidth - 160, 
        #   -style                      =>                       WS_VSCROLL
| WS_VISIBLE | WS_CHILD, 
           ); 

#The first listbox is populated like this: 

        my $select = qq{SELECT DISTINCT PAYGROUP, REPORTING_LOCATION FROM
PS_JOB ORDER BY PAYGROUP, REPORTING_LOCATION};

        my $sth = $dbh->prepare($select) || die "Can't
prepare\n$select\n$DBI::errstr\n"; 
        $sth->execute() || die "Can't execute\n$DBI::errstr\n"; 
        while ($row = $sth->fetchrow_arrayref) { 
                  push (@{$payloc{$$row[0]}}, $$row[1]); 
                  } 
        foreach (sort keys %payloc) { 
                        $lb->AddString("$_"); 
                        } 


# The Click event handler is this: 

                sub Paygroups_Click { 
                        $locations->Clear(); 
                        my $item = $lb->SelectedItem(); 
                        my $key; 
                        if ($item != -1){ 
                           $key = $lb->GetString($item); 
                           foreach (sort(@{$payloc{$key}})) { 
                                           $locations->AddString("$_"); 
                                           } 
                           } 
                        print "Selected: $key\n"; 
                        } 

The problem is that if I comment out the -style option in the listbox $lb,
everything works in the event handler subroutine exactly as I wanted it to,
the only problem being that there are quite a large number of paygroups and
no vertical scroll bar. That will be a large annoyance to others. When I
un-remark the -style option on the $lb, the listbox is populated like I
need, but the Click event handler no longer function. No print statements
placed in the sub work, the second listbox is no longer populated with the
locations listed in the @{$payloc{$item}} array - nothing. 

Can anyone tell me what is going wrong? 

Thanks in advance, 

Steve Howard 
Sr. DBA DTO Tulsa. 
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

[perl-win32-gui-users] Event handler stops working when style is added

[Howard, S. (US - Tulsa) <sth...@de...>]

I'm having a little problem with listboxes and the Click event handler when
I add a -style option to the listbox. Hopefully someone here can spot what
is going wrong and help me out.

My list box is defined like this:

	my $lb	= $disp->AddListbox (
	   -name  			=>		     'Paygroups',
	   -pos			=>			 [20, 40],
	   -height			=>
$disp->ScaleHeight - 50,
	   -width			=>			 100,
         -style			=>			 WS_VSCROLL |
WS_VISIBLE | WS_CHILD,
	   );

# A second listbox is relevant to this example because items are added and
removed in the event handler:

	my $locations = $disp->AddListbox (
	   -name	        	=>
'Locationbox',
	   -pos			=>			 [140,40],
	   -height			=>
$disp->ScaleHeight - 50,
	   -width			=>
$disp->ScaleWidth - 160,
	#   -style			=>			 WS_VSCROLL
| WS_VISIBLE | WS_CHILD,
	   );

#The first listbox is populated like this:

	my $select = qq{SELECT DISTINCT PAYGROUP, REPORTING_LOCATION FROM
PS_JOB ORDER BY PAYGROUP, REPORTING_LOCATION};
	my $sth = $dbh->prepare($select) || die "Can't
prepare\n$select\n$DBI::errstr\n";
	$sth->execute() || die "Can't execute\n$DBI::errstr\n";
	while ($row = $sth->fetchrow_arrayref) {
		  push (@{$payloc{$$row[0]}}, $$row[1]);
		  }
	foreach (sort keys %payloc) {
			$lb->AddString("$_");
			}


# The Click event handler is this:

		sub Paygroups_Click {
			$locations->Clear();
			my $item = $lb->SelectedItem();
			my $key;
			if ($item != -1){
			   $key = $lb->GetString($item); 
			   foreach (sort(@{$payloc{$key}})) {
			   		   $locations->AddString("$_");
					   }
			   }
			print "Selected: $key\n";
			}

The problem is that if I comment out the -style option in the listbox $lb,
everything works in the event handler subroutine exactly as I wanted it to,
the only problem being that there are quite a large number of paygroups and
no vertical scroll bar. That will be a large annoyance to others. When I
un-remark the -style option on the $lb, the listbox is populated like I
need, but the Click event handler no longer function. No print statements
placed in the sub work, the second listbox is no longer populated with the
locations listed in the @{$payloc{$item}} array - nothing. 

Can anyone tell me what is going wrong?

Thanks in advance,

Steve Howard
Sr. DBA DTO Tulsa.
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

RE: [perl-win32-gui-users] Problem with updating the color of a t extfield

[Rogers, J. <rog...@oc...>]

 
AFAIK,
You can use -foreground[r,g,b] and -background[r,g,b] when you create the
textfield. (r,g,b is colour values 0 to 255)
but they cant be changed.
 
One work around idea would be to make two textfields, then hide and show
each to change, you would have to keep the text in sync.
 
JohnR

-----Original Message-----
From: Dick Vlaanderen [mailto:di...@mu...]
Sent: Wednesday, 5 December 2001 11:19
To: Perl-Win32-Gui-Users (E-mail)
Subject: [perl-win32-gui-users] Problem with updating the color of a
textfield


I want to change the foreground color of a textfield. 
 
I ran the colors.gpl script from the PerlWin32Samples suite. This script
does not change the foreground color of the textfield after selecting a
different color.
 
Can anybody help me with this one?
 
Dick

[perl-win32-gui-users] Problem with updating the color of a textfield

[Dick V. <di...@mu...>]

I want to change the foreground color of a textfield.

I ran the colors.gpl script from the PerlWin32Samples suite. This script
does not change the foreground color of the textfield after selecting a
different color.

Can anybody help me with this one?

Dick

[perl-win32-gui-users] Listview Checkboxes

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

How do you check a checkbox in a ListView?

I can get the state like so:

$checked = $list->ItemCheck($i);

I have a list of items the user can select with a checkbox, and I need
to check the boxes after loading the settings file for these items. In
short it's a favourites list.

Thanks,

Marcus

RE: [perl-win32-gui-users] Right-Click, Tooltips

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

On 30.11.01 at 12:01 Piske, Harald wrote:
>c) (OK, I meant three things, not two :-))
>if the class-thingy does not work for the window itself, just create a
>blank label as your first control, the size of the window - or even
larger,
>like the size of the desktop, in case somebody resizes your window.
Use
>that label to intercept mouse clicks on the window.

Hmm, I tried that once before, and it didn't work. Either the label
worked and then all widgets below it did not react, or the label was
below the other widgets and then the label and its associated event no
longer worked.

Do you have a small working example?

I was using the GUILoft, and its "bring to front/back" options.

Thanks,

Marcus

[perl-win32-gui-users] Tutorial 1

[Steve M. <pag...@ho...>]

The first tutorial under the documentation site on the sourceforge site 
doesn't seem to work, the other two do, but I was looking for something that 
introduced making a basic window(well I've got the basic plain window made) 
with some basic menu's etc.

Can this be fixed(or is it just my box/browser), or does anyone have a copy 
they could send me.

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

RE: [perl-win32-gui-users] Right-Click, Tooltips

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

OK, let me re-post another of my postings that I have re-posted before ...
not your fault, as I said, you could not have found that in the archive.

Two things: 
a) if you use classes, you get some mouse-related events (see below).
NOT Right_Click, that only comes with some controls. But you can use
RButtonDown or ~Up (or only Up when there was a Down on the same control,
to make sure it wasn't a RightButtonDrag kind of thing)

b) for some events not otherwise decoded, you might get an anonymous
event, e.g.

sub MyButton_Anonymous { print "surprise! $_[0]\n"; }

with the first parameter being the message ID (you know all those by heart,
right?) and additional parameters depending on the weather forecast.

c) (OK, I meant three things, not two :-))
if the class-thingy does not work for the window itself, just create a
blank label as your first control, the size of the window - or even larger,
like the size of the desktop, in case somebody resizes your window. Use
that label to intercept mouse clicks on the window.

... quote ...

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',	# only gives you MouseMove
	-widget => 'RichEdit',	# gives you all five a.m. events
	-extends => 'Button',	# which control type you're gonna use
);
$Main->AddButton		# could be most anything
(
	-name => 'Belly',
	-text => 'Clickme',
	-class => '_Button',
);
sub Belly_MouseMove		# now we're talking
{
	print join (', ', @_), "\n";	# you even get the position
}

> -----Original Message-----
> From: Marcus [mailto:li...@wo...]
> Sent: Friday, November 30, 2001 11:08
> To: per...@li...
> Subject: RE: [perl-win32-gui-users] Right-Click, Tooltips
> 
> 
> On 30.11.01 at 09:51 Piske, Harald wrote:
> >Methinks, tooltips is a functionality inherent in GUI ... somewhere
> ...
> maybe here ... or under there ...
> 
> It's mentioned, but afaik not implemented yet.
> 
> ># get right-click in listview
> >sub DataView_RightClick {
> >   my($X, $Y) = Win32::GUI::GetCursorPos();
> 
> How do you get the _RightClick event for the whole window?
> That is the crux of the biscuit (or the apostrophe :-) ).
> 
> It is not actually documented, even for ListView. I don't use a
> ListView at all. What we need is a general RightClick event for
> windows, and for some widgets. For example, if you made an editor,
> you'd want one for the editing/typing area, i.e. the RichEdit widget.
> How else do you create the standard (and expected) 
> Cut/Copy/Paste menu?
> 
> Marcus
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

RE: [perl-win32-gui-users] Right-Click, Tooltips

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

On 30.11.01 at 09:51 Piske, Harald wrote:
>Methinks, tooltips is a functionality inherent in GUI ... somewhere
...
maybe here ... or under there ...

It's mentioned, but afaik not implemented yet.

># get right-click in listview
>sub DataView_RightClick {
>   my($X, $Y) = Win32::GUI::GetCursorPos();

How do you get the _RightClick event for the whole window?
That is the crux of the biscuit (or the apostrophe :-) ).

It is not actually documented, even for ListView. I don't use a
ListView at all. What we need is a general RightClick event for
windows, and for some widgets. For example, if you made an editor,
you'd want one for the editing/typing area, i.e. the RichEdit widget.
How else do you create the standard (and expected) Cut/Copy/Paste menu?

Marcus

Re: [perl-win32-gui-users] Right-Click, Tooltips

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

On 30.11.01 at 12:46 Erick Bourgeois wrote:
>Aldo already made a HyperLink module...

Oops, misunderstanding. I meant to create it as a separate module like
Hyperlink.pm, rather than inside GUI.pm.

Marcus

RE: [perl-win32-gui-users] Right-Click, Tooltips

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

Methinks, tooltips is a functionality inherent in GUI ... somewhere ...
maybe here ... or under there ...

As for the right-clix, knowing that the archive search function does not
find anything at all, I searched my own, private mailbox folder and am happy
to re-post my own posting:

-----Original Message-----
Sent: Thursday, June 07, 2001 20:08

About the popup menu, see trail "Re; Popup menu", posting by Jonathan
Southwick on April 2nd, 2001. Apparently, Ludvig af Klinteberg subsequently
managed to use the code for a tray icon.
Quote:

# define popup menu for listview
my $PopupMenu = new Win32::GUI::Menu(
    "Item Properties" => "ItemProp",
    ">&Properties" => "ItemProperties",
);
 
# get right-click in listview
sub DataView_RightClick {
   my($X, $Y) = Win32::GUI::GetCursorPos();
 
   $MainWindow->TrackPopupMenu($PopupMenu->{ItemProp},$X, $Y);
}
 
# clicked on particular menu item in popup menu
sub ItemProperties_Click {
   ## code you want to process;
}

Thanks, Jonathan
Have fun
Harald

> -----Original Message-----
> From: Marcus [mailto:li...@wo...]
> Sent: Friday, November 30, 2001 09:22
> To: per...@li...
> Subject: [perl-win32-gui-users] Right-Click, Tooltips
> 
> 
> Okay, is in anyone else interested in trying to get Tooltips and
> Window_RightClick (for context menus) working?
> 
> I don't know anything about Win32 internals, but if some people in the
> know could supply help, then I'll try. I was thinking of creating
> separate modules like Hyperlink.pm for now. Is that possible, or would
> event tracking have to be bound into Win32::GUI. As I said, I've no
> idea how it works, but I'll try given some help.
> 
> Any ideas on how to go about this?
> I saw that the Win32::Console module supports mouse events and thought
> we might get some help from that.
> 
> Marcus
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Right-Click, Tooltips

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

Okay, is in anyone else interested in trying to get Tooltips and
Window_RightClick (for context menus) working?

I don't know anything about Win32 internals, but if some people in the
know could supply help, then I'll try. I was thinking of creating
separate modules like Hyperlink.pm for now. Is that possible, or would
event tracking have to be bound into Win32::GUI. As I said, I've no
idea how it works, but I'll try given some help.

Any ideas on how to go about this?
I saw that the Win32::Console module supports mouse events and thought
we might get some help from that.

Marcus

RE: [perl-win32-gui-users] cosmetic items

[Howard, S. (US - Tulsa) <sth...@DE...>]

Ok, now that I have an example like that to look at, it does. my mistake was
in defining the size as the size of the check box by itself, and then
thinking the text would be at the left instead of on the right of the box.
That works well.

Thanks,

Steve H.

-----Original Message-----
From: Jeremy Blonde [mailto:sco...@ya...]
Sent: Thursday, November 29, 2001 10:32 AM
To: per...@li...
Subject: Re: [perl-win32-gui-users] cosmetic items


Perhaps I'm missing something here, but doesn't the -text parameter produce
the text for the checkbox?  Or am I just misunderstanding the question?

$Window->AddCheckbox(
    -name => "CB1",
    -text => "Groups",
    -pos  => [ 25, 125 ],
    -size => [ 110, 18 ],
    -tabstop => 1,
);

Also, just to demonstrate another method to applying the icon, here's how
I've done it.

$ICON = Win32::GUI::Icon->new("icon.ico");

$Window->SetIcon($ICON);

Jeremy Blonde

----- Original Message -----
From: <Kev...@al...>
To: <per...@li...>;
<per...@li...>
Sent: Thursday, November 29, 2001 1:46 AM
Subject: Re: [perl-win32-gui-users] cosmetic items


>
> Howard,
>
> It sounds like you want to have a label next to your check box.  Something
> like
>
>
>      $Window->AddLabel(
>             -text    => "Click here to enable a great feature",
>             -name    => "Viewby",
>             -left    => 500,
>             -top     => 32,
>             -width   => 45,
>             -height  => 16,
>      );
>
>      $Window->AddCheckbox(
>             -text    => "",
>             -name    => "IconVW",
>             -left    => 700,
>             -top     => 32,
>             -width   => 15,
>             -height  => 14,
>      );
>
>
> (I have not checked the distances so the text might be short of the
> checkbox or even over run it).
>
> For a different icon, something like
>
>      my $w_icon = new Win32::GUI::Icon("my.ico");
>
>      my $w_class = new Win32::GUI::Class(
>             -name => "MyUniqueWindowsGuiClass",
>             -icon => $w_icon,
>      );
>
>      $Window = new GUI::Window(
>          -name   => "Window",
>          -text   => "My App",
>          -width  => 500,
>          -height => 600,
>          -left   => $scr_width-650,
>          -top    => $scr_height-550,
>          -style  => WS_NORESIZE | WS_SYSMENU | WS_MINIMIZEBOX,
>          -class  => $w_class,
>      );
>
>
> The best references I've found for Win32::GUI are the examples that come
> bundled in and this list (although last time I looked, the search facility
> had stopped working on this list, which is a great shame).
>
> Kev.
>
>
>
>
>
>                     "Howard, Steven (US - Tulsa)"
>                     <sth...@de...>                       To:
per...@li...
>                     Sent by:                                      cc:
>                     per...@li...urc        Subject:
[perl-win32-gui-users] cosmetic items
>                     eforge.net
>
>
>                     28/11/2001 20:47
>
>
>
>
>
>
> I'm familiar with Perl, but I'm working on the first app I've built using
> Win32::GUI. For the most part, I have everything functional, but a few
> items I am having trouble finding, and would like a few pointers (and a
few
> pointers to some more good examples and references on GUI) on how to get
> this accomplished:
>
> 1.      Can I add a caption, or prompt to a check box? Presently, I am
> using a read-only text field. That's OK, but it just doesn't look like I
> wanted it to look.
>
> 2.      Can I replace that camel in the upper LH corner with my company's
> logo? I've looked for an example, but have not found it addressed (at
least
> not in a way I recognize).
>
> Any help would be appreciated - and a pointer to a good online reference
> would be REALLY appreciated.
>
> Thanks,
>
> Steve Howard
> Sr. DBA DTO
> - This message (including any attachments) contains confidential
> information intended for a specific individual and purpose, and is
> protected by law.  - If you are not the intended recipient, you should
> delete this message and are hereby notified that any disclosure, copying,
> or distribution of this message, or the taking of any action based on it,
> is strictly prohibited
>
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com


_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

Re: [perl-win32-gui-users] cosmetic items

[Jeremy B. <sco...@ya...>]

Perhaps I'm missing something here, but doesn't the -text parameter produce
the text for the checkbox?  Or am I just misunderstanding the question?

$Window->AddCheckbox(
    -name => "CB1",
    -text => "Groups",
    -pos  => [ 25, 125 ],
    -size => [ 110, 18 ],
    -tabstop => 1,
);

Also, just to demonstrate another method to applying the icon, here's how
I've done it.

$ICON = Win32::GUI::Icon->new("icon.ico");

$Window->SetIcon($ICON);

Jeremy Blonde

----- Original Message -----
From: <Kev...@al...>
To: <per...@li...>;
<per...@li...>
Sent: Thursday, November 29, 2001 1:46 AM
Subject: Re: [perl-win32-gui-users] cosmetic items


>
> Howard,
>
> It sounds like you want to have a label next to your check box.  Something
> like
>
>
>      $Window->AddLabel(
>             -text    => "Click here to enable a great feature",
>             -name    => "Viewby",
>             -left    => 500,
>             -top     => 32,
>             -width   => 45,
>             -height  => 16,
>      );
>
>      $Window->AddCheckbox(
>             -text    => "",
>             -name    => "IconVW",
>             -left    => 700,
>             -top     => 32,
>             -width   => 15,
>             -height  => 14,
>      );
>
>
> (I have not checked the distances so the text might be short of the
> checkbox or even over run it).
>
> For a different icon, something like
>
>      my $w_icon = new Win32::GUI::Icon("my.ico");
>
>      my $w_class = new Win32::GUI::Class(
>             -name => "MyUniqueWindowsGuiClass",
>             -icon => $w_icon,
>      );
>
>      $Window = new GUI::Window(
>          -name   => "Window",
>          -text   => "My App",
>          -width  => 500,
>          -height => 600,
>          -left   => $scr_width-650,
>          -top    => $scr_height-550,
>          -style  => WS_NORESIZE | WS_SYSMENU | WS_MINIMIZEBOX,
>          -class  => $w_class,
>      );
>
>
> The best references I've found for Win32::GUI are the examples that come
> bundled in and this list (although last time I looked, the search facility
> had stopped working on this list, which is a great shame).
>
> Kev.
>
>
>
>
>
>                     "Howard, Steven (US - Tulsa)"
>                     <sth...@de...>                       To:
per...@li...
>                     Sent by:                                      cc:
>                     per...@li...urc        Subject:
[perl-win32-gui-users] cosmetic items
>                     eforge.net
>
>
>                     28/11/2001 20:47
>
>
>
>
>
>
> I'm familiar with Perl, but I'm working on the first app I've built using
> Win32::GUI. For the most part, I have everything functional, but a few
> items I am having trouble finding, and would like a few pointers (and a
few
> pointers to some more good examples and references on GUI) on how to get
> this accomplished:
>
> 1.      Can I add a caption, or prompt to a check box? Presently, I am
> using a read-only text field. That's OK, but it just doesn't look like I
> wanted it to look.
>
> 2.      Can I replace that camel in the upper LH corner with my company's
> logo? I've looked for an example, but have not found it addressed (at
least
> not in a way I recognize).
>
> Any help would be appreciated - and a pointer to a good online reference
> would be REALLY appreciated.
>
> Thanks,
>
> Steve Howard
> Sr. DBA DTO
> - This message (including any attachments) contains confidential
> information intended for a specific individual and purpose, and is
> protected by law.  - If you are not the intended recipient, you should
> delete this message and are hereby notified that any disclosure, copying,
> or distribution of this message, or the taking of any action based on it,
> is strictly prohibited
>
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

RE: [perl-win32-gui-users] cosmetic items

[Howard, S. (US - Tulsa) <sth...@de...>]

Kevin,

Thank you very much. It worked perfectly.

Steve H.

-----Original Message-----
From: Kev...@al... [mailto:Kev...@al...]
Sent: Thursday, November 29, 2001 3:46 AM
To: per...@li...;
per...@li...
Subject: Re: [perl-win32-gui-users] cosmetic items



Howard,

It sounds like you want to have a label next to your check box.  Something
like


     $Window->AddLabel(
            -text    => "Click here to enable a great feature",
            -name    => "Viewby",
            -left    => 500,
            -top     => 32,
            -width   => 45,
            -height  => 16,
     );

     $Window->AddCheckbox(
            -text    => "",
            -name    => "IconVW",
            -left    => 700,
            -top     => 32,
            -width   => 15,
            -height  => 14,
     );


(I have not checked the distances so the text might be short of the
checkbox or even over run it).

For a different icon, something like

     my $w_icon = new Win32::GUI::Icon("my.ico");

     my $w_class = new Win32::GUI::Class(
            -name => "MyUniqueWindowsGuiClass",
            -icon => $w_icon,
     );

     $Window = new GUI::Window(
         -name   => "Window",
         -text   => "My App",
         -width  => 500,
         -height => 600,
         -left   => $scr_width-650,
         -top    => $scr_height-550,
         -style  => WS_NORESIZE | WS_SYSMENU | WS_MINIMIZEBOX,
         -class  => $w_class,
     );


The best references I've found for Win32::GUI are the examples that come
bundled in and this list (although last time I looked, the search facility
had stopped working on this list, which is a great shame).

Kev.




 

                    "Howard, Steven (US - Tulsa)"

                    <sth...@de...>                       To:
per...@li...                        
                    Sent by:                                      cc:

                    per...@li...urc        Subject:
[perl-win32-gui-users] cosmetic items                        
                    eforge.net

 

 

                    28/11/2001 20:47

 

 





I'm familiar with Perl, but I'm working on the first app I've built using
Win32::GUI. For the most part, I have everything functional, but a few
items I am having trouble finding, and would like a few pointers (and a few
pointers to some more good examples and references on GUI) on how to get
this accomplished:

1.      Can I add a caption, or prompt to a check box? Presently, I am
using a read-only text field. That's OK, but it just doesn't look like I
wanted it to look.

2.      Can I replace that camel in the upper LH corner with my company's
logo? I've looked for an example, but have not found it addressed (at least
not in a way I recognize).

Any help would be appreciated - and a pointer to a good online reference
would be REALLY appreciated.

Thanks,

Steve Howard
Sr. DBA DTO
- This message (including any attachments) contains confidential
information intended for a specific individual and purpose, and is
protected by law.  - If you are not the intended recipient, you should
delete this message and are hereby notified that any disclosure, copying,
or distribution of this message, or the taking of any action based on it,
is strictly prohibited




_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

Re: [perl-win32-gui-users] cosmetic items

[<Kev...@al...>]

Howard,

It sounds like you want to have a label next to your check box.  Something
like


     $Window->AddLabel(
            -text    => "Click here to enable a great feature",
            -name    => "Viewby",
            -left    => 500,
            -top     => 32,
            -width   => 45,
            -height  => 16,
     );

     $Window->AddCheckbox(
            -text    => "",
            -name    => "IconVW",
            -left    => 700,
            -top     => 32,
            -width   => 15,
            -height  => 14,
     );


(I have not checked the distances so the text might be short of the
checkbox or even over run it).

For a different icon, something like

     my $w_icon = new Win32::GUI::Icon("my.ico");

     my $w_class = new Win32::GUI::Class(
            -name => "MyUniqueWindowsGuiClass",
            -icon => $w_icon,
     );

     $Window = new GUI::Window(
         -name   => "Window",
         -text   => "My App",
         -width  => 500,
         -height => 600,
         -left   => $scr_width-650,
         -top    => $scr_height-550,
         -style  => WS_NORESIZE | WS_SYSMENU | WS_MINIMIZEBOX,
         -class  => $w_class,
     );


The best references I've found for Win32::GUI are the examples that come
bundled in and this list (although last time I looked, the search facility
had stopped working on this list, which is a great shame).

Kev.




                                                                                                                                            
                    "Howard, Steven (US - Tulsa)"                                                                                           
                    <sth...@de...>                       To:     per...@li...                        
                    Sent by:                                      cc:                                                                       
                    per...@li...urc        Subject:     [perl-win32-gui-users] cosmetic items                        
                    eforge.net                                                                                                              
                                                                                                                                            
                                                                                                                                            
                    28/11/2001 20:47                                                                                                        
                                                                                                                                            
                                                                                                                                            




I'm familiar with Perl, but I'm working on the first app I've built using
Win32::GUI. For the most part, I have everything functional, but a few
items I am having trouble finding, and would like a few pointers (and a few
pointers to some more good examples and references on GUI) on how to get
this accomplished:

1.      Can I add a caption, or prompt to a check box? Presently, I am
using a read-only text field. That's OK, but it just doesn't look like I
wanted it to look.

2.      Can I replace that camel in the upper LH corner with my company's
logo? I've looked for an example, but have not found it addressed (at least
not in a way I recognize).

Any help would be appreciated - and a pointer to a good online reference
would be REALLY appreciated.

Thanks,

Steve Howard
Sr. DBA DTO
- This message (including any attachments) contains confidential
information intended for a specific individual and purpose, and is
protected by law.  - If you are not the intended recipient, you should
delete this message and are hereby notified that any disclosure, copying,
or distribution of this message, or the taking of any action based on it,
is strictly prohibited

[perl-win32-gui-users] cosmetic items

[Howard, S. (US - Tulsa) <sth...@de...>]

I'm familiar with Perl, but I'm working on the first app I've built using
Win32::GUI. For the most part, I have everything functional, but a few items
I am having trouble finding, and would like a few pointers (and a few
pointers to some more good examples and references on GUI) on how to get
this accomplished:

1.	Can I add a caption, or prompt to a check box? Presently, I am using
a read-only text field. That's OK, but it just doesn't look like I wanted it
to look.

2.	Can I replace that camel in the upper LH corner with my company's
logo? I've looked for an example, but have not found it addressed (at least
not in a way I recognize).

Any help would be appreciated - and a pointer to a good online reference
would be REALLY appreciated.

Thanks,

Steve Howard
Sr. DBA DTO
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

Re: [perl-win32-gui-users] File selector supporting long filenames

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

At 20:46 2001-11-28 +0100, Marcus wrote:
>Is there a file selector which fully supports long filenames other than
>the "open" dialog?
>
>I've been using this, which is a good selector (reminiscent of win
>3.1), but spaces will cause short file names:

(find "long file name" in the page)
<http://www.microsoft.com/msj/defaultframe.asp?page=/msj/0997/win320997.htm&nav=/msj/0997/newnav.htm>

Add Win32::API and you're done. Build a module and you're a hero.


/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] File selector supporting long filenames

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

Is there a file selector which fully supports long filenames other than
the "open" dialog?

I've been using this, which is a good selector (reminiscent of win
3.1), but spaces will cause short file names:

use Win32::FileOp;

my @filenames = Win32::FileOp::OpenDialog(
	title => 'Test',
   filters => [ 'All' => '*.*'],
      defaultfilter => 1,
      dir => 'c:\\',
      filename => ' ',
      handle  => 0,
      options => OFN_ALLOWMULTISELECT  # does multiselect and does
explorer type interface
);

Thanks,

Marcus

RE: [perl-win32-gui-users] Re: Installing win32-gui from behind a firewall / proxy

[Jason B. <jas...@gb...>]

What works for me... Running win2k located behind a firewall / proxy.....

Download Win32::GUI ppm distribution from sourceforge 
(http://prdownloads.sourceforge.net/perl-win32-gui/Win32-GUI-0.0.558-PPM-5.6
.zip)
Download to temporary location and expand the zip.
Open up a cmd.exe prompt and locate yourself in the expanded directory.
use ppm to install the package specifying the file location

D:\Temp\Win32-GUI-0.0.558-PPM-5.6>ppm install --location=. Win32-GUI
Installing package 'Win32-GUI'...
Installing D:\Perl\site\lib\auto\Win32\GUI\GUI.bs
Installing D:\Perl\site\lib\auto\Win32\GUI\GUI.dll
Installing D:\Perl\site\lib\auto\Win32\GUI\GUI.exp
Installing D:\Perl\site\lib\auto\Win32\GUI\GUI.lib
Installing D:\Perl\site\lib\Win32\GUI.pm
Installing D:\Perl\site\lib\Win32\GUI\BitmapInline.pm
Installing D:\Perl\site\lib\Win32\GUI\GridLayout.pm
Writing D:\Perl\site\lib\auto\Win32\GUI\.packlist

While you are at sourceforge you might want to get the samples as well these
are part of the main source distribution (not in the ppm distribution)
http://prdownloads.sourceforge.net/perl-win32-gui/Win32-GUI-0.0.558.tar.gz

NB Links may be different with version changes, should really go through the
main sourceforge link.. (http://sourceforge.net/projects/perl-win32-gui/)

JB


-----Original Message-----
As you say, I have a proxy server and for some reason it doesn't 
allow accesses by ppm.  At this point it is probably customary to 
hit the offending sysadmin on the head with the Camel book, 
unfortunately I can't since he's the local perl expert.

Thanks to everyone for their help.

On 26 Nov 2001, at 15:19, Gross, Stephan wrote:

> Do you have a proxy server?  Have you ever been able to install anything
> else?
> 
> _______________________________________________________
> Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...
> 

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

[Robert T. <rob...@an...>]

As you say, I have a proxy server and for some reason it doesn't 
allow accesses by ppm.  At this point it is probably customary to 
hit the offending sysadmin on the head with the Camel book, 
unfortunately I can't since he's the local perl expert.

Thanks to everyone for their help.

On 26 Nov 2001, at 15:19, Gross, Stephan wrote:

> Do you have a proxy server?  Have you ever been able to install anything
> else?
> 
> _______________________________________________________
> Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...
> 
> 
>  
> 


The information in this e-mail is for use by the addressee(s) only. If you 
are not the intended recipient, please notify us immediately and delete the 
message from your computer. No liability or responsibility is accepted for 
viruses and it is your responsibility to scan attachments (if any). 
Opinions and views expressed in this email are those of the sender and 
do not reflect the opinions and views of antenova Ltd.

[perl-win32-gui-users] Samples and Examples

[Brad S. <ma...@ma...>]

I can't seem to find the tarball that contains the sample files.  Can 
anyone send me the URL where I can download the samples?

Thanks in advance.

Brad Smith

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

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

Guys,

seems nobody remembers how we did it about a year ago, so this is the way:
download the ppm file with a regular browser to your hard drive. I don't
remember where I got it (that's why I did not post this before), it was some
unpublished path on either dada.it or sorceforge, but I still have it so I
uploaded it to my perl site - you can get the still current 558 at
www.fairymails.com/perl/ (click where it says Win32::GUI)

Unzip the stuff somewhere. Open a dos window and go to this somewhere. Type

ppm install Win32-GUI.ppd

Note the .ppd - this directs the ppm script to look for a local file instead
of a repository.

I remember a few issues with a mysterious version 0.1, available for some
time at AP. If you installed that, it would refuse to be updated with the
numerically smaller version number of 0.0.558. Just to make sure, you can do
a ppm query after installation. If the version is not 0.0.558, do ppm remove
Win32-GUI and then ppm install Win32-GUI.ppd again.

Hope this ends this thread :-)
Harald