wxperl-users — For wxPerl users

[wxperl-users] Compiling in Win32 with MingW

[Graciliano M. P. \(V. Sites\) <gm...@vi...>]

I'm compiling a snapshot from CVS, but I have some problems.

All the objects are created and the Wx.dll too, but when extensions (./ext)
start to be made, they don't find the Wx.a!

The file Wx.a are note created, it isn't present in the dir of Wx.dll or any
other! How can I creat manualy the Wx.a?!

I'm using MingW, dmake, and my wont compilation of perl 5.6.1

Graciliano M. P.

Re: [wxperl-users] Launching via associated file extension

[Mattia B. <mb...@ds...>]

> Mattia wrote:
> 
> >> In short, the user needs to select "file.ext" and have it run.
> 
> >You could use wxMimeTypesManager, if it were wrapped. I may try to
> wrap it
> >for 0.11 ( since wxWindows 2.3.3 may be released later than mind-may,
> sigh... ),
> >but no promises. If I do it, I'll notify you.
> 
> Thanks, at least I know how it should work now.
> But, why doesn't just a Shell launch work?
I don't know, it sould; BTW I am not sure that is "start foo.jpg" fails,
wxMimeTypesManager will work.

> - Btw, I went through all the 0.11 demos, and "Threads" crashes. I
> guess it's not ready yet?
> Or one's Perl needs to be compiled differently?
> Isn't threading a limitation of Perl on Windows?
It requires Perl 5.7.3 or better; In the release it will be available only
if $] >= 5.007003

Regards
Mattia

[wxperl-users] Launching via associated file extension

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

Mattia wrote:

>> In short, the user needs to select "file.ext" and have it run.

>You could use wxMimeTypesManager, if it were wrapped. I may try to
wrap it
>for 0.11 ( since wxWindows 2.3.3 may be released later than mind-may,
sigh... ),
>but no promises. If I do it, I'll notify you.

Thanks, at least I know how it should work now.
But, why doesn't just a Shell launch work?

- Btw, I went through all the 0.11 demos, and "Threads" crashes. I
guess it's not ready yet?
Or one's Perl needs to be compiled differently?
Isn't threading a limitation of Perl on Windows?

Marcus

Re: [wxperl-users] Launching via associated file extension

[Mattia B. <mb...@ds...>]

> Which is the command to launch an application via the file extension?
> For example a file with a .jpg extension would start with the
> associated graphics viewer.
> 
> I've been using: Wx::ExecuteCommand("$cmd",0);
> 
> This is for applications, and works very well. Do I need a Wx::Shell...
> command? What is the syntax?
> 
> I have used the Windows "start" command via "system()", but that is not
> cross-platform.
> Secondly, the latter method is currently broken on my system, which
> means it could happen to other Windows installations, and is thus
> unreliable.
> 
> In short, the user needs to select "file.ext" and have it run.
You could use wxMimeTypesManager, if it were wrapped. I may try to wrap it
for 0.11 ( since wxWindows 2.3.3 may be released later than mind-may, sigh... ),
but no promises. If I do it, I'll notify you.

Regards
Mattia

Re: [wxperl-users] trapping events (was: custom painting)

[Mattia B. <mb...@ds...>]

On Sun, 28 Apr 2002, Dave Roe wrote:

>I agree, it's not the best way to go, but the question has come up again 
>for another reason now.
>
>if I have an object derived from Wx::Frame which contains a 
>Wx::SplitterWindow, the splitter is correctly sized inside the frame 
>upon window resize. however, if i trap the frame resize using 
>EVT_SIZE(), the default splitter resizing doesn't happen.
>
>how can I trap the event for notification purposes, yet call the default 
>behaviour first?
>
>sub OnSize {
>	my ($self,$event) = @_;
>	
>	# call default behaviour
>	$event->Handle();
>
>	# respond to resize
>	$self->DoOtherStuffWhenResized();

        $event->Skip();
>}

HTH
Mattia

Re: [wxperl-users] trapping events (was: custom painting)

[Dave R. <dav...@ma...>]

I agree, it's not the best way to go, but the question has come up again 
for another reason now.

if I have an object derived from Wx::Frame which contains a 
Wx::SplitterWindow, the splitter is correctly sized inside the frame 
upon window resize. however, if i trap the frame resize using 
EVT_SIZE(), the default splitter resizing doesn't happen.

how can I trap the event for notification purposes, yet call the default 
behaviour first?

sub OnSize {
	my ($self,$event) = @_;
	
	# call default behaviour
	$event->Handle();

	# respond to resize
	$self->DoOtherStuffWhenResized();
}

thanks,
/dave

On Wednesday, July 24, 2002, at 04:14 , Mattia Barbon wrote:

> On Wed, 24 Apr 2002, Dave Roe wrote:
>
>> I would like to perform some custom painting on a sub-classed window.
>> I've derived a class called MyNotebook, inheriting from Wx::Notebook. I
>> can define an OnPaint handler with EVT_PAINT(), but how do I "invoke"
>> the event, so that the notebook's paint handler is called, before I
>> start to draw on top of that?
> I don't think this is a good way to do what you want to do, whatever it
> is.
>
> If you want to drwa in the client area of the notebook, you should put
> a Wx::Panel inside the notebook, If you want to draw outside the client
> area (inside the tabs), drawing inside native controls like this is
> dangerous (i.e. may fail in strange ways in different platforms, even
> if it works on platform X). If you really want ot do the latter, you
> should probably not use EVT_PAINT, and do the drawing in idle time.
>
> HTH
> Mattia
>
>

-------------------------------- 8< --------------------------------
pls note - new contact details:

email: dav...@ma...
phone: (650) 906 3497

dav...@em... is still a valid email address

[wxperl-users] Launching via associated file extension

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

Which is the command to launch an application via the file extension?
For example a file with a .jpg extension would start with the
associated graphics viewer.

I've been using: Wx::ExecuteCommand("$cmd",0);

This is for applications, and works very well. Do I need a Wx::Shell...
command? What is the syntax?

I have used the Windows "start" command via "system()", but that is not
cross-platform.
Secondly, the latter method is currently broken on my system, which
means it could happen to other Windows installations, and is thus
unreliable.

In short, the user needs to select "file.ext" and have it run.

Thanks,

Marcus

Re: [wxperl-users] My experiences with building 0.10 on Linux

[Mattia B. <mb...@ds...>]

> Hi,
> 
> I thought it'd be nice to share my experiences on building wxPerl 0.10
> on Linux against wxWindows 2.3.2 (Gtk) (latest development) from source.

> 1. Trying to install the wxWindows 2.3.2 rpm does not install wx-config,
> so the installation of wxPerl fails on that
You need the -dev RPM to compile wxPerl; it contains the wx-config,
and most important the headers

> 2. Downloading the wxWindows sources and building them does not install
> the contrib/wx/xrc directory so you have to manually copy it to the
> include directory.
You can also disable XRC ( comment it out in Makefile.PL ); unless, of course,
you need XRC

> 3. Building wxPerl 0.10 gives an error on line 4792 in Controls.c
> saying:
>  Controls.c: In function `void XS_Wx__RadioBox_SetString (CV *)':
>  Controls.c:4792: no matching function for call to 
>  `wxRadioBox::SetString (int &, wxString &)'
>  make: *** [Controls.o] Error 1
> Changing that line to this:
>  #if WXPERL_W_VERSION_GE( 2, 3, 3 ) \
>      || ( WXPERL_W_VERSION_GE( 2, 3, 2 ) && !defined(__WXGTK__) ) \
>      || defined(__WXUNIVERSAL__) \
>      || defined( __WXPERL_FORCE__ )
>      THIS->SetString( n, label );
>  #else
>      THIS->SetLabel( n, label );
>  #endif
> makes that file compile without problems
I think it is corrected in CVS, will check

> 4. Now I'm running into problems compiling Frames.c, but I don't have
> any more time today. Monday will continue this quest....For people
> having done this before, this is my latest output:
I'm sorry for your wasted time. I'll test if CVS compiles with 2.3.2

> c++ -c -I/usr/local/lib/wx/include/gtk-2.3 -I/usr/local/include  -I.
> -fno-rtti -fno-exceptions  -O2 -march=i386 -mcpu=i686
> -DVERSION=\"0.10\" -DXS_VERSION=\"0.10\" -fPIC
> -I/usr/lib/perl5/5.6.1/i386-linux/CORE -DGTK_NO_CHECK_CASTS -D__WXGTK__
> -D_REENTRANT  Frames.c
> XS/FontDialog.xs: In function `void XS_Wx_GetFontFromUser (CV *)':
> XS/FontDialog.xs:111: `wxGetFontFromUser' undeclared (first use this 
> function)
> XS/FontDialog.xs:111: (Each undeclared identifier is reported only once 
> for each function it appears in.)
> Frames.c: In function `void XS_Wx__DirDialog_new (CV *)':
> Frames.c:4488: invalid use of undefined type `class Wx_DirDialog'
> cpp/typedef.h:148: forward declaration of `class Wx_DirDialog'
> Frames.c:4490: cannot convert `Wx_DirDialog *' to `wxObject *' for 
> argument `2' to `wxPli_object_2_sv (SV *, wxObject *)'
> Frames.c: In function `void XS_Wx__DirDialog_GetPath (CV *)':
> Frames.c:4507: invalid use of undefined type `class wxGenericDirDialog'
> cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
> Frames.c: In function `void XS_Wx__DirDialog_GetMessage (CV *)':
> Frames.c:4526: invalid use of undefined type `class wxGenericDirDialog'
> cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
> Frames.c: In function `void XS_Wx__DirDialog_GetStyle (CV *)':
> Frames.c:4546: invalid use of undefined type `class wxGenericDirDialog'
> cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
> Frames.c: In function `void XS_Wx__DirDialog_SetMessage (CV *)':
> Frames.c:4565: invalid use of undefined type `class wxGenericDirDialog'
> cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
> Frames.c: In function `void XS_Wx__DirDialog_SetPath (CV *)':
> Frames.c:4583: invalid use of undefined type `class wxGenericDirDialog'
> cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
> Frames.c: In function `void XS_Wx__DirDialog_SetStyle (CV *)':
> Frames.c:4599: invalid use of undefined type `class wxGenericDirDialog'
> cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
> Frames.c: In function `void XS_Wx__DirDialog_ShowModal (CV *)':
> Frames.c:4616: invalid use of undefined type `class wxGenericDirDialog'
> cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
> make: *** [Frames.o] Error 1

Regards
Mattia

Re: [wxperl-users] Saving a drawing to a file, splitter sample

[Mattia B. <mb...@ds...>]

> I'm trying to save a drawing to a file. The only Perl sample with
> drawing I found was splitter.pl. I then translated the C++ code from
> image.cpp which saves a bitmap. Below is the code. It outputs:

> "Undefined subroutine &Wx::Image::newBitmap called at
> J:/Perl/site/lib/Wx/Image.pm line 24."
> 
> ...then crashes with an exception error. I've tried placing "use
> Wx::Image" in several places.
Hmm, I probably should compile with WXWIN_COMPATIBILITY_2_2;
in 2.3 it is the other way around: $image = $bitmap->ConvertToImage();

> Note: I changed $dc to $xdc, and $dc became the new MemoryDC one.
> 
> sub OnDraw {
>   my( $this, $xdc ) = @_;
> 
> 	my ($bitmap) = Wx::Bitmap->new(100,100,-1);
> 
> 	my ($dc) = Wx::MemoryDC::new($xdc);
> 
> 	$dc->SelectObject( $bitmap );
> 
>   $dc->SetBackgroundMode( wxTRANSPARENT );
> 
>   $dc->DrawText( 'Testing', 50,50 );
> 
>   $dc->SetPen( wxBLACK_PEN );
> 
>   $dc->DrawLine(0,0,100,100);
> 
>  $dc->SetPen( wxNullPen );
>   $dc->SetBrush( wxNullBrush );
> 
>  $dc->SelectObject( wxNullBitmap );
> 
>  my ($image) = Wx::Image->new( $bitmap );
> 
>    $image->SaveFile("test.png", wxBITMAP_TYPE_PNG ) or
> Wx::LogError("Can't save file");
> 
>    $image->Destroy();
>   }
> 
> ----------------------------------

> I also tried using Blit(), but that was confusing. I couldn't figure
> out how you get the copied data and save it to a file.
From the bitmap selected in the second DC

> Btw, Is there a very simple example of how to create a canvas for
> drawing, without all the splitter code?
Well hidden in demo/DataObjects.pm; or demo/Print.pm

HTH
Mattia

[wxperl-users] My experiences with building 0.10 on Linux

[Jouke V. <jo...@pv...>]

Hi,

I thought it'd be nice to share my experiences on building wxPerl 0.10
on Linux against wxWindows 2.3.2 (Gtk) (latest development) from source.

1. Trying to install the wxWindows 2.3.2 rpm does not install wx-config,
so the installation of wxPerl fails on that
2. Downloading the wxWindows sources and building them does not install
the contrib/wx/xrc directory so you have to manually copy it to the
include directory.
3. Building wxPerl 0.10 gives an error on line 4792 in Controls.c
saying:
 Controls.c: In function `void XS_Wx__RadioBox_SetString (CV *)':
 Controls.c:4792: no matching function for call to 
 `wxRadioBox::SetString (int &, wxString &)'
 make: *** [Controls.o] Error 1
Changing that line to this:
 #if WXPERL_W_VERSION_GE( 2, 3, 3 ) \
     || ( WXPERL_W_VERSION_GE( 2, 3, 2 ) && !defined(__WXGTK__) ) \
     || defined(__WXUNIVERSAL__) \
     || defined( __WXPERL_FORCE__ )
     THIS->SetString( n, label );
 #else
     THIS->SetLabel( n, label );
 #endif
makes that file compile without problems
4. Now I'm running into problems compiling Frames.c, but I don't have
any more time today. Monday will continue this quest....For people
having done this before, this is my latest output:

c++ -c -I/usr/local/lib/wx/include/gtk-2.3 -I/usr/local/include  -I.
-fno-rtti -fno-exceptions  -O2 -march=i386 -mcpu=i686
-DVERSION=\"0.10\" -DXS_VERSION=\"0.10\" -fPIC
-I/usr/lib/perl5/5.6.1/i386-linux/CORE -DGTK_NO_CHECK_CASTS -D__WXGTK__
-D_REENTRANT  Frames.c
XS/FontDialog.xs: In function `void XS_Wx_GetFontFromUser (CV *)':
XS/FontDialog.xs:111: `wxGetFontFromUser' undeclared (first use this 
function)
XS/FontDialog.xs:111: (Each undeclared identifier is reported only once 
for each function it appears in.)
Frames.c: In function `void XS_Wx__DirDialog_new (CV *)':
Frames.c:4488: invalid use of undefined type `class Wx_DirDialog'
cpp/typedef.h:148: forward declaration of `class Wx_DirDialog'
Frames.c:4490: cannot convert `Wx_DirDialog *' to `wxObject *' for 
argument `2' to `wxPli_object_2_sv (SV *, wxObject *)'
Frames.c: In function `void XS_Wx__DirDialog_GetPath (CV *)':
Frames.c:4507: invalid use of undefined type `class wxGenericDirDialog'
cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
Frames.c: In function `void XS_Wx__DirDialog_GetMessage (CV *)':
Frames.c:4526: invalid use of undefined type `class wxGenericDirDialog'
cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
Frames.c: In function `void XS_Wx__DirDialog_GetStyle (CV *)':
Frames.c:4546: invalid use of undefined type `class wxGenericDirDialog'
cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
Frames.c: In function `void XS_Wx__DirDialog_SetMessage (CV *)':
Frames.c:4565: invalid use of undefined type `class wxGenericDirDialog'
cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
Frames.c: In function `void XS_Wx__DirDialog_SetPath (CV *)':
Frames.c:4583: invalid use of undefined type `class wxGenericDirDialog'
cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
Frames.c: In function `void XS_Wx__DirDialog_SetStyle (CV *)':
Frames.c:4599: invalid use of undefined type `class wxGenericDirDialog'
cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
Frames.c: In function `void XS_Wx__DirDialog_ShowModal (CV *)':
Frames.c:4616: invalid use of undefined type `class wxGenericDirDialog'
cpp/typedef.h:148: forward declaration of `class wxGenericDirDialog'
make: *** [Frames.o] Error 1


-- 
*-----------------------------------------------*
|Jouke Visser            |jo...@pv...      |
|Perl GUI Geek           |http://www.pvoice.org |
*-----------------------------------------------*
PS: Notice new mailaddress!!

[wxperl-users] Saving a drawing to a file, splitter sample

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

I'm trying to save a drawing to a file. The only Perl sample with
drawing I found was splitter.pl. I then translated the C++ code from
image.cpp which saves a bitmap. Below is the code. It outputs:

"Undefined subroutine &Wx::Image::newBitmap called at
J:/Perl/site/lib/Wx/Image.pm line 24."

...then crashes with an exception error. I've tried placing "use
Wx::Image" in several places.

Note: I changed $dc to $xdc, and $dc became the new MemoryDC one.

sub OnDraw {
  my( $this, $xdc ) = @_;

	my ($bitmap) = Wx::Bitmap->new(100,100,-1);

	my ($dc) = Wx::MemoryDC::new($xdc);

	$dc->SelectObject( $bitmap );

  $dc->SetBackgroundMode( wxTRANSPARENT );

  $dc->DrawText( 'Testing', 50,50 );

  $dc->SetPen( wxBLACK_PEN );

  $dc->DrawLine(0,0,100,100);

 $dc->SetPen( wxNullPen );
  $dc->SetBrush( wxNullBrush );

 $dc->SelectObject( wxNullBitmap );

 my ($image) = Wx::Image->new( $bitmap );

   $image->SaveFile("test.png", wxBITMAP_TYPE_PNG ) or
Wx::LogError("Can't save file");

   $image->Destroy();
  }

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

I also tried using Blit(), but that was confusing. I couldn't figure
out how you get the copied data and save it to a file.

Btw, Is there a very simple example of how to create a canvas for
drawing, without all the splitter code?

Thanks,

Marcus

Re: [wxperl-users] Wx::DropTarget -> OnDragOver

[Mattia B. <mb...@ds...>]

> hello
Hi,

> for wxDragResult the docs tell me that OnDragOver:
> Returns the desired operation or wxDragNone.
> -> Determined by SHIFT or CONTROL key states.

> because of this, i expect this return values:
> -> "wxDragCopy" if i press "Control"
> -> "wxDragMove" if i press no key or "Shift"
> -> "wxDragNone" never
                  ^^^^^
             well it is returned if you want to reject the operation

> can someone bring light into my darkness and explain me in which
> situation which value should be returned?
This is to give feedback to the user. This value will be returned
from DoDragDrop when the data is dropped.

> or why wxPerl/wxWindows always returns "wxDragNone"? i mean
> "wxDragResult" should follow the key states...
? where does it return wxDragNone?

> respectively, i just wish to differentiate between "wxDragCopy" and
> "wxDragMove" and wish to know if "Control" is pressed.
> How can i get this information?
use the fourth parameter to OnDragOver
----
Suggested value for return value. Determined by SHIFT or CONTROL key states.
----

HTH
Mattia

Re: [wxperl-users] Re: wxperl-users digest, Vol 1 #147 - 4 msgs

[Mattia B. <mb...@ds...>]

> Hi,
> 
> I am not a C/C++ programmer but a Perl programmer. Nothing against C/C++ of
> course I wish I had the time to learn it. I've read part of "GNU C++ for
> Linux" so I understand basically C/C++ syntax, prototypes, data structures,
> etc... however IMHO at least one example is sorely needed for each class
I know, I am waiting for someone to write them all ;-)

> *or* at least 80% of them. The reason being is that as a Perl programmer
> trying to make the leap to GUI programming (vs. CGI/HTML) I need to get
> started quickly!
> 
> I believe the examples that are included in wxPerl are not through enough.
> What I mean to say is that in addition to seeing the wxPerl an explanation
> of GUI programming in Perl terms would go along way to getting Perl
> programmers started quickly.
What about the ( excellent IMHO ) tutorials linked from the "other tutorials"
in wxperl.sf.net ( this is about the "explanation of GUI ... Perl terms",
not about "samples for all classes" )

> I'm under contract really wanted (and still do!) to write a GUI application
> that would run locally on the customers computer-- a content management
> system for their web site but I couldn't make the leap quickly enough so I
> am writing it in DHTML and Win32::OLE instead.  : (
> 
> Mattia, if you wouldn't mind answering a lot of questions so I could pick
> your brain. I would definitely consider creating these numerous examples and
> associated explanations. I love Perl and would enjoying championing the Wx
> library.
That'd be great! I don't mind answering a lot of questions ( I know I'll
regret having said that... ;-) )

Regards
Mattia 

Re: [wxperl-users] wxToolBar, longHelpString

[Mattia B. <mb...@ds...>]

> hello,
> 
> my application has a statusbar and a toolbar.
> if i move over an item of the toolbar the text of the statusbar is
> deleted because i have no longHelpString defined.
> 
> is there a way to disable the longHelpString functionality of the
> toolbar? because i need the statusbar for other information.
Not one I know, will ask ( looks like there is no way to do it in wxWindows );
for now you may create a status bar with 2 fields, and set the first to size 0

$this->CreateStatusBar( 2 );
$this->GetStatusBar()->SetStatusWidths( 0, -1 );

$this->SetStatusText( "mytext", 1 );

this is ugly to say the least, but ( almost ) works ( you can
see the first field, and this is ugly ).

Regards
Mattia

[wxperl-users] Wx::DropTarget -> OnDragOver

[Marco T. <wx...@so...>]

hello

for wxDragResult the docs tell me that OnDragOver:
Returns the desired operation or wxDragNone.
-> Determined by SHIFT or CONTROL key states.

because of this, i expect this return values:
-> "wxDragCopy" if i press "Control"
-> "wxDragMove" if i press no key or "Shift"
-> "wxDragNone" never

im really confused...
can someone bring light into my darkness and explain me in which
situation which value should be returned?
or why wxPerl/wxWindows always returns "wxDragNone"? i mean
"wxDragResult" should follow the key states...

respectively, i just wish to differentiate between "wxDragCopy" and
"wxDragMove" and wish to know if "Control" is pressed.
How can i get this information?

greeting
Marco

[wxperl-users] Re: What people find confusing in wxWindows docs

[Michael N. <MN...@Ja...>]

----- Original Message -----
From: "Michael Nino" <MN...@Ja...>
To: <wxp...@li...>
Sent: Tuesday, April 23, 2002 8:14 AM
Subject: Re: wxperl-users digest, Vol 1 #147 - 4 msgs


> Hi,
>
> I am not a C/C++ programmer but a Perl programmer. Nothing against C/C++
of
> course I wish I had the time to learn it. I've read part of "GNU C++ for
> Linux" so I understand basically C/C++ syntax, prototypes, data
structures,
> etc... however IMHO at least one example is sorely needed for each class
> *or* at least 80% of them. The reason being is that as a Perl programmer
> trying to make the leap to GUI programming (vs. CGI/HTML) I need to get
> started quickly!
>
> I believe the examples that are included in wxPerl are not through enough.
> What I mean to say is that in addition to seeing the wxPerl an explanation
> of GUI programming in Perl terms would go along way to getting Perl
> programmers started quickly.
>
> I'm under contract really wanted (and still do!) to write a GUI
application
> that would run locally on the customers computer-- a content management
> system for their web site but I couldn't make the leap quickly enough so I
> am writing it in DHTML and Win32::OLE instead.  : (
>
> Mattia, if you wouldn't mind answering a lot of questions so I could pick
> your brain. I would definitely consider creating these numerous examples
and
> associated explanations. I love Perl and would enjoying championing the Wx
> library.
>
> Michael
>
> ----- Original Message -----
> From: <wxp...@li...>
> To: <wxp...@li...>
> Sent: Monday, April 22, 2002 7:15 PM
> Subject: wxperl-users digest, Vol 1 #147 - 4 msgs
>
>
> > Send wxperl-users mailing list submissions to
> > wxp...@li...
> >
> > To subscribe or unsubscribe via the World Wide Web, visit
> > https://lists.sourceforge.net/lists/listinfo/wxperl-users
> > or, via email, send a message with subject or body 'help' to
> > wxp...@li...
> >
> > You can reach the person managing the list at
> > wxp...@li...
> >
> > When replying, please edit your Subject line so it is more specific
> > than "Re: Contents of wxperl-users digest..."
> >
> >
> > Today's Topics:
> >
> >    1. RFI: What people find confusing in wxWindows docs? (Mattia Barbon)
> >    2. Re: Associating data with listctrl items (Mattia Barbon)
> >    3. Re: Associating data with listctrl items (Nick Johnston)
> >    4. default window colour (Dave Roe)
> >
> > --__--__--
> >
> > Message: 1
> > From: "Mattia Barbon" <mb...@ds...>
> > To: wxp...@li...
> > Date: Sun, 21 Apr 2002 22:47:05 +0200
> > Reply-to: mb...@ds...
> > Subject: [wxperl-users] RFI: What people find confusing in wxWindows
docs?
> >
> > Given that Perl programmers find wxWindows documentation
> > ( written for C++ ) confusing, I'd like to know what exactly
> > people think is confusing. Knowing that I may think some way
> > of improving the documentation ( no promises, though ).
> >
> > Thanks
> > Mattia
> >
> >
> >
> > --__--__--
> >
> > Message: 2
> > From: "Mattia Barbon" <mb...@ds...>
> > To: Nick Johnston <sk...@er...>
> > Date: Sun, 21 Apr 2002 22:47:05 +0200
> > Subject: Re: [wxperl-users] Associating data with listctrl items
> > Reply-to: mb...@ds...
> > CC: wxp...@li...
> >
> > You forgot platform & wxPerl version, so I won't give you the solution
;-p
> >
> > > I have got a wxPerl application that contains a Wx::TreeCtrl and a
> > > Wx::ListCtrl. Whenever a Wx::TreeCtrl item is activated, new items
> > > are inserted in the list control. The "items" are stored as
> > > data in the tree control.
> > >
> > > I am attempting to supply a hashref as data for each item in the
> > > list control. So, in my EVT_TREE_SEL_CHANGED callback function
> > > I have the following code:
> >
> > <snip>
> >
> > > Adding the actual *items* works fine (they display properly in the
> list).
> > > The only problem is that setting the item data simply *does not work*.
> > > Bizarrely, whenever I print out $id in the above function, it is
> > > *always* zero.
> > >
> > > Anyway in my EVT_LIST_ITEM_ACTIVATED callback function I have:
> > >
> > > my $file_details = $object->{list}->GetItemData($event->GetItem());
> > >
> > > but this causes a message box to appear saying:
> > >
> > > "Cannot retrieve information for list control item XXXXXXXX" (i.e. it
> > > includes the item number).
> > I see; this: the problem is that GetItemData takes the index of the item
> > $list->GetItemData( $ebent->GetIndex() ), or $event->GetData() works
fine
> >
> > > I think the problem is that there is no SetPlData etc. for listctrl
like
> > > there is for treectrl. The C++ documentation seems to show that
> > > a listctrl item can only have a 'long' associated with it.
> > Yes, you can use the long as an index in an array ( or in an hash )
> containing
> > the hashrefs, though.
> >
> > > How can I associate a hashref with each item in a listctrl and how I
> > > can access this hashref when the item is "activated"?
> > See above
> >
> > HTH
> > Mattia
> >
> >
> >
> > --__--__--
> >
> > Message: 3
> > Date: Mon, 22 Apr 2002 05:53:01 -0700 (PDT)
> > From: Nick Johnston <sk...@er...>
> > To: Mattia Barbon <mb...@ds...>
> > cc: <wxp...@li...>
> > Subject: Re: [wxperl-users] Associating data with listctrl items
> >
> > On Sun, 21 Apr 2002, Mattia Barbon wrote:
> >
> > > You forgot platform & wxPerl version, so I won't give you the solution
> ;-p
> > >
> >
> > Win32, ActivePerl 5.6.1 build 628, wxPerl 0.09 -- sorry for not
including
> > before.
> >
> > > I see; this: the problem is that GetItemData takes the index of the
item
> > > $list->GetItemData( $ebent->GetIndex() ), or $event->GetData() works
> fine
> > >
> > > Yes, you can use the long as an index in an array ( or in an hash )
> containing
> > > the hashrefs, though.
> > >
> >
> > Ok, so I should have a hash keyed on the long and then have the value
for
> > that key be a hashref?
> >
> > Could you provide some sample code, please? I would really appreciate
it.
> > I'm confused that the $id in my original code is always 0. I would
really
> > appreciate some sample code here.
> >
> > > > How can I associate a hashref with each item in a listctrl and how I
> > > > can access this hashref when the item is "activated"?
> > > See above
> > >
> >
> > I would appreciate it if you could produce a simple snippet of code to
> > illustrate this (inserting an item, storing its data in a global hash
> > keyed on the long and then retrieving).
> >
> > I'm still pretty new to Wx and finding it pretty difficult.
> >
> > - Nick
> >
> >
> >
> > --__--__--
> >
> > Message: 4
> > Date: Mon, 22 Apr 2002 11:17:28 -0700
> > From: Dave Roe <dav...@ma...>
> > To: wxPerl Users <wxp...@li...>
> > Subject: [wxperl-users] default window colour
> >
> > Win2K
> > Perl 5.6.1
> > wxWindows 2.2.9
> > wxPerl 0.10
> >
> > how do you determine the default window colour? the wxWindows docs point
> > at wxSystemSettings::GetSystemColour(wxSYS_COLOUR_WINDOW) but
> > wxSystemSettings does not seem to be supported by wxPerl (although
> > wxSYS_COLOUR_WINDOW does have an entry in _Exp.pm)
> >
> > thanks,
> > /dave
> >
> >
> >
> >
> > --__--__--
> >
> > _______________________________________________
> > wxperl-users mailing list
> > wxp...@li...
> > https://lists.sourceforge.net/lists/listinfo/wxperl-users
> >
> >
> > End of wxperl-users Digest
> >
>

[wxperl-users] wxToolBar, longHelpString

[Marco T. <wx...@so...>]

hello,

my application has a statusbar and a toolbar.
if i move over an item of the toolbar the text of the statusbar is
deleted because i have no longHelpString defined.

is there a way to disable the longHelpString functionality of the
toolbar? because i need the statusbar for other information.

greeting
Marco

Re: [wxperl-users] custom painting

[Mattia B. <mb...@ds...>]

On Wed, 24 Apr 2002, Dave Roe wrote:

>I would like to perform some custom painting on a sub-classed window. 
>I've derived a class called MyNotebook, inheriting from Wx::Notebook. I 
>can define an OnPaint handler with EVT_PAINT(), but how do I "invoke" 
>the event, so that the notebook's paint handler is called, before I 
>start to draw on top of that?
I don't think this is a good way to do what you want to do, whatever it 
is.

If you want to drwa in the client area of the notebook, you should put
a Wx::Panel inside the notebook, If you want to draw outside the client 
area (inside the tabs), drawing inside native controls like this is
dangerous (i.e. may fail in strange ways in different platforms, even
if it works on platform X). If you really want ot do the latter, you
should probably not use EVT_PAINT, and do the drawing in idle time.

HTH
Mattia

[wxperl-users] custom painting

[Dave R. <dav...@ma...>]

I would like to perform some custom painting on a sub-classed window. 
I've derived a class called MyNotebook, inheriting from Wx::Notebook. I 
can define an OnPaint handler with EVT_PAINT(), but how do I "invoke" 
the event, so that the notebook's paint handler is called, before I 
start to draw on top of that?

thanks,
/dave

Re: [wxperl-users] DND, visual feedback

[Mattia B. <mb...@ds...>]

> hello
> 
> i wish to drag items from a listctrl to a treeITEM.
> i set the treectrl as TextDropTarge,t but this is not usuable for me.
> 
> i wish that dragging data over a treeitem selects this
> and only this is allowd (wxDragNone if in treectrl window /
> not over an treeItem)
> 
> i have really no idea of how to do this or if this
> is possible at all.
> 
> hints/help apprechiated.

Code below, I hope it is clear; it accepts a bitmap,
you just need to supply a different data object

HTH
Mattia 

package TreeDropTarget;

use base qw(Wx::DropTarget);

sub new {
  my $class = shift;
  my $tree = shift;
  my $canvas = shift;
  my $this = $class->SUPER::new;

  my $data = Wx::BitmapDataObject->new;
  $this->SetDataObject( $data );
  $this->{TREE} = $tree;
  $this->{DATA} = $data;
  $this->{CANVAS} = $canvas;

  return $this;
}

sub data { $_[0]->{DATA} }
sub canvas { $_[0]->{CANVAS} }

use Wx qw(:treectrl wxDragNone wxDragCopy);

sub OnDragOver {
  my( $this, $x, $y ) = @_;
  my $tree = $this->{TREE};

  my( $item, $flags ) = $tree->HitTest( [$x, $y] );
  if( $flags & wxTREE_HITTEST_ONITEMLABEL ) {
    $tree->SelectItem( $item );
    return wxDragCopy;
  } else {
    $tree->Unselect();
    return wxDragNone;
  }
}

sub OnData {
  my( $this, $x, $y, $def ) = @_;

  $this->GetData;
  $this->canvas->SetBitmap( $this->data->GetBitmap );

  return $def;
}

[wxperl-users] DND, visual feedback

[Marco T. <wx...@so...>]

hello

i wish to drag items from a listctrl to a treeITEM.
i set the treectrl as TextDropTarge,t but this is not usuable for me.

i wish that dragging data over a treeitem selects this
and only this is allowd (wxDragNone if in treectrl window /
not over an treeItem)

i have really no idea of how to do this or if this
is possible at all.

hints/help apprechiated.

greetings
Marco

[wxperl-users] Re: wxperl-users digest, Vol 1 #147 - 4 msgs

[Michael N. <MN...@Ja...>]

Hi,

I am not a C/C++ programmer but a Perl programmer. Nothing against C/C++ of
course I wish I had the time to learn it. I've read part of "GNU C++ for
Linux" so I understand basically C/C++ syntax, prototypes, data structures,
etc... however IMHO at least one example is sorely needed for each class
*or* at least 80% of them. The reason being is that as a Perl programmer
trying to make the leap to GUI programming (vs. CGI/HTML) I need to get
started quickly!

I believe the examples that are included in wxPerl are not through enough.
What I mean to say is that in addition to seeing the wxPerl an explanation
of GUI programming in Perl terms would go along way to getting Perl
programmers started quickly.

I'm under contract really wanted (and still do!) to write a GUI application
that would run locally on the customers computer-- a content management
system for their web site but I couldn't make the leap quickly enough so I
am writing it in DHTML and Win32::OLE instead.  : (

Mattia, if you wouldn't mind answering a lot of questions so I could pick
your brain. I would definitely consider creating these numerous examples and
associated explanations. I love Perl and would enjoying championing the Wx
library.

Michael

----- Original Message -----
From: <wxp...@li...>
To: <wxp...@li...>
Sent: Monday, April 22, 2002 7:15 PM
Subject: wxperl-users digest, Vol 1 #147 - 4 msgs


> Send wxperl-users mailing list submissions to
> wxp...@li...
>
> To subscribe or unsubscribe via the World Wide Web, visit
> https://lists.sourceforge.net/lists/listinfo/wxperl-users
> or, via email, send a message with subject or body 'help' to
> wxp...@li...
>
> You can reach the person managing the list at
> wxp...@li...
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of wxperl-users digest..."
>
>
> Today's Topics:
>
>    1. RFI: What people find confusing in wxWindows docs? (Mattia Barbon)
>    2. Re: Associating data with listctrl items (Mattia Barbon)
>    3. Re: Associating data with listctrl items (Nick Johnston)
>    4. default window colour (Dave Roe)
>
> --__--__--
>
> Message: 1
> From: "Mattia Barbon" <mb...@ds...>
> To: wxp...@li...
> Date: Sun, 21 Apr 2002 22:47:05 +0200
> Reply-to: mb...@ds...
> Subject: [wxperl-users] RFI: What people find confusing in wxWindows docs?
>
> Given that Perl programmers find wxWindows documentation
> ( written for C++ ) confusing, I'd like to know what exactly
> people think is confusing. Knowing that I may think some way
> of improving the documentation ( no promises, though ).
>
> Thanks
> Mattia
>
>
>
> --__--__--
>
> Message: 2
> From: "Mattia Barbon" <mb...@ds...>
> To: Nick Johnston <sk...@er...>
> Date: Sun, 21 Apr 2002 22:47:05 +0200
> Subject: Re: [wxperl-users] Associating data with listctrl items
> Reply-to: mb...@ds...
> CC: wxp...@li...
>
> You forgot platform & wxPerl version, so I won't give you the solution ;-p
>
> > I have got a wxPerl application that contains a Wx::TreeCtrl and a
> > Wx::ListCtrl. Whenever a Wx::TreeCtrl item is activated, new items
> > are inserted in the list control. The "items" are stored as
> > data in the tree control.
> >
> > I am attempting to supply a hashref as data for each item in the
> > list control. So, in my EVT_TREE_SEL_CHANGED callback function
> > I have the following code:
>
> <snip>
>
> > Adding the actual *items* works fine (they display properly in the
list).
> > The only problem is that setting the item data simply *does not work*.
> > Bizarrely, whenever I print out $id in the above function, it is
> > *always* zero.
> >
> > Anyway in my EVT_LIST_ITEM_ACTIVATED callback function I have:
> >
> > my $file_details = $object->{list}->GetItemData($event->GetItem());
> >
> > but this causes a message box to appear saying:
> >
> > "Cannot retrieve information for list control item XXXXXXXX" (i.e. it
> > includes the item number).
> I see; this: the problem is that GetItemData takes the index of the item
> $list->GetItemData( $ebent->GetIndex() ), or $event->GetData() works fine
>
> > I think the problem is that there is no SetPlData etc. for listctrl like
> > there is for treectrl. The C++ documentation seems to show that
> > a listctrl item can only have a 'long' associated with it.
> Yes, you can use the long as an index in an array ( or in an hash )
containing
> the hashrefs, though.
>
> > How can I associate a hashref with each item in a listctrl and how I
> > can access this hashref when the item is "activated"?
> See above
>
> HTH
> Mattia
>
>
>
> --__--__--
>
> Message: 3
> Date: Mon, 22 Apr 2002 05:53:01 -0700 (PDT)
> From: Nick Johnston <sk...@er...>
> To: Mattia Barbon <mb...@ds...>
> cc: <wxp...@li...>
> Subject: Re: [wxperl-users] Associating data with listctrl items
>
> On Sun, 21 Apr 2002, Mattia Barbon wrote:
>
> > You forgot platform & wxPerl version, so I won't give you the solution
;-p
> >
>
> Win32, ActivePerl 5.6.1 build 628, wxPerl 0.09 -- sorry for not including
> before.
>
> > I see; this: the problem is that GetItemData takes the index of the item
> > $list->GetItemData( $ebent->GetIndex() ), or $event->GetData() works
fine
> >
> > Yes, you can use the long as an index in an array ( or in an hash )
containing
> > the hashrefs, though.
> >
>
> Ok, so I should have a hash keyed on the long and then have the value for
> that key be a hashref?
>
> Could you provide some sample code, please? I would really appreciate it.
> I'm confused that the $id in my original code is always 0. I would really
> appreciate some sample code here.
>
> > > How can I associate a hashref with each item in a listctrl and how I
> > > can access this hashref when the item is "activated"?
> > See above
> >
>
> I would appreciate it if you could produce a simple snippet of code to
> illustrate this (inserting an item, storing its data in a global hash
> keyed on the long and then retrieving).
>
> I'm still pretty new to Wx and finding it pretty difficult.
>
> - Nick
>
>
>
> --__--__--
>
> Message: 4
> Date: Mon, 22 Apr 2002 11:17:28 -0700
> From: Dave Roe <dav...@ma...>
> To: wxPerl Users <wxp...@li...>
> Subject: [wxperl-users] default window colour
>
> Win2K
> Perl 5.6.1
> wxWindows 2.2.9
> wxPerl 0.10
>
> how do you determine the default window colour? the wxWindows docs point
> at wxSystemSettings::GetSystemColour(wxSYS_COLOUR_WINDOW) but
> wxSystemSettings does not seem to be supported by wxPerl (although
> wxSYS_COLOUR_WINDOW does have an entry in _Exp.pm)
>
> thanks,
> /dave
>
>
>
>
> --__--__--
>
> _______________________________________________
> wxperl-users mailing list
> wxp...@li...
> https://lists.sourceforge.net/lists/listinfo/wxperl-users
>
>
> End of wxperl-users Digest
>

Re: [wxperl-users] How to see the type of the style flags of a frame?!

[Mattia B. <mb...@ds...>]

> I use this to get the style flasg and set it to on_top:
> 
> ---------------------------------
>   my $style_def = $frame->GetWindowStyleFlag() ;
>   my $style_top = $style_def|wxSTAY_ON_TOP ;
>   
>   $frame->SetWindowStyleFlag( $style_top );
> ---------------------------------
> 
> But I need to know what style are in the $style_def to make more
> usefull changes, like see if the window are on_top and cutout
> the on_top manteining the other styles! How I do this if $style_def
> has only a number reference for XS?

$on_top & ~wxSTAY_ON_TOP

Regards
Mattia

Re: [wxperl-users] Compiling on Win32 with MingW wx2.3.2 and snapshot wxperl 0.11

[Mattia B. <mb...@ds...>]

[ please set word wrap so ~75 columns, also don't send HTML, just plain text
  thanks! ]

> I'm trying to compile wxperl 0.11 with MingW and wxWindows 2.3.2
> 
> All the compilation of objects are fine, but when the link are made
> A lot of functions doesn't have references!!!

> - wx2.3.3 are needed?!
> - the library libwxmsw232.a are libwx.a?
> - why make looks for libwxmsw232.a using the base dir -> /lib/libwxmsw232.a ?
I didn't notice the build instructions were incomplete, sorry

build wxWindow as a dll:
cd z:\path\to\wxdir\src\msw
make -f makefile.g95 clean 
make -f makefile.g95 WXMAKINGDLL=1

cd w:\path\to\wxPerl
set WXDIR=z:/path/to/wxdir
set WXWIN=z:/path/to/wxdir
perl Makefile.PL 
make

should work; if not feel free to contact me off list

Regards
Mattia

Re: [wxperl-users] Associating data with listctrl items

[Mattia B. <mb...@ds...>]

> On Sun, 21 Apr 2002, Mattia Barbon wrote:
> 
> > You forgot platform & wxPerl version, so I won't give you the solution ;-p
> >
> 
> Win32, ActivePerl 5.6.1 build 628, wxPerl 0.09 -- sorry for not including
> before.
My guess was almost right :-)

> > I see; this: the problem is that GetItemData takes the index of the item
> > $list->GetItemData( $ebent->GetIndex() ), or $event->GetData() works fine
> >
> > Yes, you can use the long as an index in an array ( or in an hash ) containing
> > the hashrefs, though.
> >
> 
> Ok, so I should have a hash keyed on the long and then have the value for
> that key be a hashref?
Yes, exactly

> Could you provide some sample code, please? I would really appreciate it.
> I'm confused that the $id in my original code is always 0. I would really
> appreciate some sample code here.
note that I didn't test it, but it should work ( or at leats give the idea )

# this should be in $object, but this is just an example...
my @entries;

# Add items to list
foreach (@{$object->{tree}->GetPlData($event->GetItem())}) {
  my $id = $object->{list}->InsertStringItem(0, $_->{name});

  my %fileDetails = (
    name => $_->{name},
    abspath => $_->{abspath},
    volume => $_->{volume}
  );

  # remember to update @entries when you add/remove items
  # from the list
  push @entries, \%fileDetails;
  my $index = scalar(@entries) - 1;

  $object->{list}->SetItemData($id, $index);

  $object->{list}->SetItem($id, 1, $_->{duration});
  $object->{list}->SetItem($id, 2, $_->{title});
  $object->{list}->SetItem($id, 3, $_->{artist});
  $object->{list}->SetItem($id, 4, $_->{album});
  $object->{list}->SetItem($id, 5, $_->{bitrate});
  $object->{list}->SetItem($id, 6, (sprintf "%.2f",
    ($_->{size} / 1000000)) . ' MB');
}

sub OnActivate {
  my($this, $event) = @_;
  my $index = $event->GetData(); # or $list->GetItemData($event->GetIndex());
  my $data = $entries[$index];

  #...
}

HTH
Mattia