wxperl-users — For wxPerl users

[wxperl-users] Size does matter

[<xav...@fr...>]

Hi,

I'm new to wxperl and I find it very hard to find documentation on it
(except for the wxWindows documentation).
If you know some good places on the web where to get simple examples, never
mind sending me the URLs.

By the way, can any of you tell me how to create a non-resizable window
(considering I still didn't quite catch how to use the 'sizer' I'd quite
like to fix the window's size, unless any of you can explain me how this
works).

Regards,

	Xavier Poulain

[wxperl-users] [ wxperl-Bugs-588884 ] wxperl will not compile

[<no...@so...>]

Bugs item #588884, was opened at 2002-07-30 17:13
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=115655&aid=588884&group_id=15655

Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Dan Stahlke (danstahlke)
Assigned to: Nobody/Anonymous (nobody)
Summary: wxperl will not compile

Initial Comment:
I cannot get the wxPerl module to compile.  It breaks
with this message:

c++ -c -I/usr/local/lib/wx/include/gtk-2.3
-I/usr/local/include  -I. -fno-rtti -fno-exceptions 
-O2   -DVERSION=\0.10\ -DXS_VERSION=\0.10\ -fpic
-I/usr/lib/perl5/i386-linux/CORE -DGTK_NO_CHECK_CASTS
-D__WXGTK__ -D_REENTRANT  Controls.c

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

I am using Perl 5.6.1 under Linux 2.4.18, GTK 1.2.10,
wxWindows 2.3.2, gcc 2.95.3, wxPerl 0.10.


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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=115655&aid=588884&group_id=15655

Re: [wxperl-users] Changing menus, EVT_MENU_RANGE

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

> >This works for me (added to minimal sample).
> 
> >... EVT_MENU( $this, 124, sub {
>               #$mhelp->Destroy(($mhelp->GetMenuItems)[-1]); # this one works too
>               $mhelp->Destroy( 1 );
>             } );
> 
> 
> Ah, using it inside the create menubar sub works, otherwise it doesn't because
> you lose the handle on the menu. So, the answer was to copy the handle and make
> it accessable from other subs.
By "handle to the menu" do you mean $mhelp?
You should be able to get it using $frame->GetMenuBar()->GetMenu(1); # or 0 or 2, etc
It is just that I am lazy and didn't want to write that; it should work, though.

> (Mattia) Can you explain why the handle (scalar) for the menu changes, but not
> the handle for the menu bar?
> using this code:
> 
> my ($mbar) = &main::MyMenuBarFunc();
> print "mbar:$mbar\n";
> my ($mfile) = $mbar->GetMenu(0);
> print "mfile:$mfile\n";
> 
> The latter changes later on, although mbar is the same.
I think that the fact that $mbar stays the same is just the fact that the
internally the same memory got reused. Basically:
1) &main::MyMenuBarFunc() allocates a scalar and returns it
2) the sacalar is freed
3) &main::MyMenuBarFunc() allocates a scalar and returns it,
   "casually" the scalar has the same address as the first one
   ("casually" means that with some changes to the code this might
    not be true anymore)
I am not sure of that; just guessing.

Regards
Mattia

Re: [wxperl-users] Changing menus, EVT_MENU_RANGE

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

>This works for me (added to minimal sample).

>... EVT_MENU( $this, 124, sub {
              #$mhelp->Destroy(($mhelp->GetMenuItems)[-1]); # this one works too
              $mhelp->Destroy( 1 );
            } );


Ah, using it inside the create menubar sub works, otherwise it doesn't because you lose the handle on the menu. So, the answer was to copy the handle and make it accessable from other subs.

(Mattia) Can you explain why the handle (scalar) for the menu changes, but not the handle for the menu bar?
using this code:

my ($mbar) = &main::MyMenuBarFunc();
print "mbar:$mbar\n";
my ($mfile) = $mbar->GetMenu(0);
print "mfile:$mfile\n";

The latter changes later on, although mbar is the same.


2)
>Oops, in Wx/Event.pm, replace wxEVT_COMMAND_MENU_RANGE
>with wxEVT_COMMAND_MENU_SELECTED

Thanks, that works now :-)

Marcus

Re: [wxperl-users] Changing menus, EVT_MENU_RANGE

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

> I'm having a few difficulties with menus. I'm trying to implement a
> file history. How do you change a menu?
> I thought you would delete it and then append it, or use SetLabel.
> 
> Anyway, neither $mfile->Delete(id), Destroy, Remove or SetLabel have
> any effect. Does anybody have a sample?
> wxPerl does not complain, but nothing happens. I tried UpdateUI(), but
> that changes nothing. The C++ menu sample uses Destroy().
This works for me (added to minimal sample).

  $mfile->Append( 123, "Append" );
  $mfile->Append( 124, "Remove" );
  EVT_MENU( $this, 123, sub {
              $mhelp->Append( 1, "Dummy" );
            } );
  EVT_MENU( $this, 124, sub {
              #$mhelp->Destroy(($mhelp->GetMenuItems)[-1]); # this one works too
              $mhelp->Destroy( 1 );
            } );


> 2) Is Menu Range implemented?
> I tried:
> EVT_MENU_RANGE($this,$main::ID_FILEHISTORY1, $main::ID_FILEHISTORY5,
> \&OnFileHistory);
> 
> and get:
> Error while autoloading 'Wx::wxEVT_COMMAND_MENU_RANGE' at
> J:/Perl/site/lib/Wx/Event.pm line 54
Oops, in Wx/Event.pm, replace wxEVT_COMMAND_MENU_RANGE
with wxEVT_COMMAND_MENU_SELECTED.

Regards
Mattia

[wxperl-users] Changing menus, EVT_MENU_RANGE

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

I'm having a few difficulties with menus. I'm trying to implement a
file history. How do you change a menu?
I thought you would delete it and then append it, or use SetLabel.

Anyway, neither $mfile->Delete(id), Destroy, Remove or SetLabel have
any effect. Does anybody have a sample?
wxPerl does not complain, but nothing happens. I tried UpdateUI(), but
that changes nothing. The C++ menu sample uses Destroy().

Append has no effect after initial menu creation either, so maybe I'm
just not updating something?

GetLabel() seems to work.

2) Is Menu Range implemented?
I tried:
EVT_MENU_RANGE($this,$main::ID_FILEHISTORY1, $main::ID_FILEHISTORY5,
\&OnFileHistory);

and get:
Error while autoloading 'Wx::wxEVT_COMMAND_MENU_RANGE' at
J:/Perl/site/lib/Wx/Event.pm line 54

Thanks,

Marcus

NT4, wxPerl compiled from CVS May 25th.

[wxperl-users] wxPerl 0.11 "soon"

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

Mattia wrote:
>Of course if someone (hi, Marcus), has some work he can't finish
>before the weekend, I can delay the release (it may be delayed anyway,
>since I have a lot of platforms/perl versions to test).

Thanks for letting me know. I don't have anything new since what I sent you, so you can go ahead and incorpate those additions.
I first need to switch the regular TextCtrl in my app with STC before I can continue. We should benefit from a real life app and the user feedback it will hopefully generate.

Marcus

Re: [wxperl-users] Re: wxPerl 0.11 "soon"

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

> Cool! The peoples was waiting for this!
> 
> If possible, release for Perl 5.8 too, since it was release on 18/07.
Sure, that's one of the reason I'm releasing it.

> If need some help for tests, just send me a msg.

Regards
Mattia

[wxperl-users] Re: wxPerl 0.11 "soon"

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

Cool! The peoples was waiting for this!

If possible, release for Perl 5.8 too, since it was release on 18/07.

If need some help for tests, just send me a msg.

Graciliano M. P.

[wxperl-users] wxPerl 0.11 "soon"

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

Since waiting for wxWindows 2.3.3 seems to have done more harm than good,
I will release wxPerl 0.11 "soon" (hopefully this weekend).
There will be binaries against wxWindows 2.2 and against CVS snapshots
of 2.3.3.

Of course if someone (hi, Marcus), has some work he can't finish
before the weekend, I can delay the release (it may be delayed anyway,
since I have a lot of platforms/perl versions to test).

Regards
Mattia

Re: [wxperl-users] Loading Icons?

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

[sorry for the late answer, I was away]

> 	If anyone could give me some advice on this, I'd really appreciate it.  I'm
> trying to load a windows system icon so that I can later draw it with
> *DC::DrawIcon.
Wich wxPerl version? I gather OS is Win32. You should always mention
OS & wxPerl version. Thanks!
 
> This code:
> 	 $this->{icon} = Wx::Icon->new(wxICON_QUESTION,
> wxBITMAP_TYPE_ICO_RESOURCE);
> 
> Dies with an error to saying that wxPerl cannot find the overloaded function
> (I've tried several other variations on this as well, from the wxWindows
> online docs).
Were did you find that example? To load a system icon you should use
$myapp->GetStadIcon( wxICON_XXX );

> 	However, if I just do:
> 
> 	$this->{icon} = Wx::Icon->new();
> 	$this->{icon}->LoadFile(wxICON_QUESTION, wxBITMAP_TYPE_ICO_RESOURCE);
> 
> It doesn't die.
But if you call $this->{icon}->Ok it will probably fail.

> 	But then when I go to draw it:
> 
> sub OnPaint {
>   my ($this, $event) = @_;
>   my $dc = Wx::PaintDC->new($this);
>   $dc->DrawIcon($this->{icon});
> }
> 
> It crashes when it gets to DrawIcon.
It should also print an error that you should use
$dc->DrawIcon( $icon, $x, $y ), though. Doesn't it?

HTH
Mattia

[wxperl-users] Re: Perl 5.8 (Marc)

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

> > Don't use UNIVERSAL::isa, its use is discouraged
> 
> Not arguing with you, but that's a new one on me.  What's your source?
IIRC perl5-porters

> I checked some in the Perl 5.8 doc and I did notice that:
> 
> 	use	UNIVERSAL qw(isa);
They surely talked about that. I probably remembered incorrectly that
using UNIVERSAL::isa was discouraged.

> (which I use a lot and have recommended, oops) is discouraged in favor of:
Me too...

> 	*isa = \&UNIVERSAL::isa;
This has a minor problem.
The problem is that some module may decide to override ->isa to make objects
appear to be in some class they are not blessed into. Using UNIVERSAL::isa
breaks that. Of course few modules actually do that so this is a minor problem.

Sorry for the confusion
Mattia

RE: [wxperl-users] RE: RE: RE: Perl 5.8 (Marc)

[Marc M. A. <mm...@Do...>]

> Don't use UNIVERSAL::isa, its use is discouraged

Not arguing with you, but that's a new one on me.  What's your source?

I checked some in the Perl 5.8 doc and I did notice that:

	use	UNIVERSAL qw(isa);

(which I use a lot and have recommended, oops) is discouraged in favor of:

	*isa = \&UNIVERSAL::isa;

Of course, in true Perl style, the same manual page actually uses the
discouraged form in an example!

mma

Re: [wxperl-users] wxWindows & sleep bug

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

> Mattia,
> 
>   Maybe I found a bug with wxWindows and sleep. see if you can duplicate it.
If you can post some small change to the minimal (or other) sample showing
the problem that would be really useful.

Regards
Mattia

Re: [wxperl-users] RE: RE: RE: Perl 5.8 (Marc)

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

> Marc,
> 
>   Using the UNIVERSAL::isa it works! I get 1 or undef for the type. Thanks
> for the help!
Don't use UNIVERSAL::isa, its use is discouraged; use $obj->isa( 'Wx::Foo' );

Regards
Mattia

Re: [wxperl-users] Wx::FileHistory

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

> Wx::FileHistory isn't implemented is it?
Not yet.

> I know it's a convenience class, but it looks useful. A recent files
> list is something users ask for straight away.

Regards
Mattia

[wxperl-users] Wx::FileHistory

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

Wx::FileHistory isn't implemented is it?
I know it's a convenience class, but it looks useful. A recent files
list is something users ask for straight away.

Marcus

[wxperl-users] RE: RE: RE: Perl 5.8 (Marc)

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

Marc,

  Using the UNIVERSAL::isa it works! I get 1 or undef for the type. Thanks
for the help!

Graciliano M. P.

>I was thinking that the wxPerl types would map to the wxWindow types for
the
>most part.  In your example:
>    bool tmp = obj->IsKindOf(CLASSINFO(wxFrame));
>
>you are testing for a kind of wxFrame.  In perl I would normally write that
>using something like:
>
>    my $tmp = UNIVERSAL::isa($obj, 'Wx::Frame');
>
>What do you actually get when you ref() the object in question?  What
>exactly are you trying to test for?
>
>mma

RE: [wxperl-users] RE: RE: Perl 5.8 (Marc)

[Marc M. A. <mm...@Do...>]

I was thinking that the wxPerl types would map to the wxWindow types for the
most part.  In your example:
    bool tmp = obj->IsKindOf(CLASSINFO(wxFrame));

you are testing for a kind of wxFrame.  In perl I would normally write that
using something like:

    my $tmp = UNIVERSAL::isa($obj, 'Wx::Frame');

What do you actually get when you ref() the object in question?  What
exactly are you trying to test for?

mma
  Marc,

    The ref() don't work because it only return the name of the package with
the class of the object, not the type! In my case I can't know the name of
the package to make the association, I need to check the real Wx type of the
object before paste to a frame to not crash the app, and if it's not of the
desired type set to undef.

[wxperl-users] RE: RE: Perl 5.8 (Marc)

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

Marc,

  The ref() don't work because it only return the name of the package =
with the class of the object, not the type! In my case I can't know the =
name of the package to make the association, I need to check the real Wx =
type of the object before paste to a frame to not crash the app, and if =
it's not of the desired type set to undef.

  But thanks for the reply.

Graciliano M. P.

> mma wrote...
>
> You might try ref() or in other contexts UNIVERSAL::isa().  These work =
with
> the Perl types, not the wxWindow types, but should be sufficient for =
most
> uses.
>
> mma

[wxperl-users] wxWindows & sleep bug

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

Mattia,

  Maybe I found a bug with wxWindows and sleep. see if you can duplicate it.

  If you make a Show(1) to a frame, the first sleep() after the show are
ignored by perl!

  I was looking about sleep in the pod and I saw that if perl receive a
SIGALRM it go out of a sleep. Maybe wxWindows create a SIGALRM and this make
confusions. You can't use sleep() with alarm() too, because in some OS (like
Win32) sleep() was internally implemented with alarm().

  I don't know if this erro exist in other functions, like Show(). To fix
this in my App I put this code after the Show:

       for(0...3) {sleep(0)} # Sometimes need more than one to fix.

  I only saw the bug in Perl 5.8 Win32. I haven't Perl 5.6.1 for Win32 any
more to test...

Graciliano M. P.

RE: [wxperl-users] Perl 5.8

[Marc M. A. <mm...@Do...>]

You might try ref() or in other contexts UNIVERSAL::isa().  These work with
the Perl types, not the wxWindow types, but should be sufficient for most
uses.

mma

> -----Original Message-----
> From: wxp...@li...
> [mailto:wxp...@li...]On Behalf Of Graciliano
> M. P. (Virtua Sites)
> Sent: Friday, July 19, 2002 4:34 PM
> To: wxp...@li...; Mattia Barbon
> Subject: [wxperl-users] Perl 5.8
>
>
> Mattia,
>
>    I have compiled wxPerl with Perl v5.8 and every thing are OK.
>
>   One quetion, how can I get the type of a $object. For example,
> to create a
> frame we can past a parent of type Wx::Window. How I can chek if
> the object
> of the parent are Wx::Window before send to the frame?! In wxWindows I can
> do something like this:
>
> bool tmp = obj->IsKindOf(CLASSINFO(wxFrame));
>
> ... but the function IsKindOf wasn't found in wxPerl.
>
> Graciliano M. P.
>
>
>
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by:ThinkGeek
> Welcome to geek heaven.
> http://thinkgeek.com/sf
> _______________________________________________
> wxperl-users mailing list
> wxp...@li...
> https://lists.sourceforge.net/lists/listinfo/wxperl-users
>

[wxperl-users] Perl 5.8

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

Mattia,

   I have compiled wxPerl with Perl v5.8 and every thing are OK.

  One quetion, how can I get the type of a $object. For example, to create a
frame we can past a parent of type Wx::Window. How I can chek if the object
of the parent are Wx::Window before send to the frame?! In wxWindows I can
do something like this:

bool tmp = obj->IsKindOf(CLASSINFO(wxFrame));

... but the function IsKindOf wasn't found in wxPerl.

Graciliano M. P.

[wxperl-users] Loading Icons?

[Chris I. <ch...@sp...>]

	If anyone could give me some advice on this, I'd really appreciate it.  I'm
trying to load a windows system icon so that I can later draw it with
*DC::DrawIcon.

This code:
	 $this->{icon} = Wx::Icon->new(wxICON_QUESTION,
wxBITMAP_TYPE_ICO_RESOURCE);

Dies with an error to saying that wxPerl cannot find the overloaded function
(I've tried several other variations on this as well, from the wxWindows
online docs).

	However, if I just do:

	$this->{icon} = Wx::Icon->new();
	$this->{icon}->LoadFile(wxICON_QUESTION, wxBITMAP_TYPE_ICO_RESOURCE);

It doesn't die.

	But then when I go to draw it:

sub OnPaint {
  my ($this, $event) = @_;
  my $dc = Wx::PaintDC->new($this);
  $dc->DrawIcon($this->{icon});
}

It crashes when it gets to DrawIcon.

I've tried sticking the OnPaint both inside of my dialog directly, and
inside of a Wx::Panel.

Anyone have any ideas?

Thanks in advance,

Chris

Re: [wxperl-users] ListCrtl Events

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

> I get an undefined subroutine when using
> "Wx::Event::EVT_LIST_ITEM_RIGHT_CLICK". Is it implemented?
No, I forgot it; as a workaround, use
sub EVT_LIST_ITEM_RIGHT_CLICK($$$) { $_[0]->Connect( $_[1], -1,
     &Wx::wxEVT_COMMAND_LIST_ITEM_RIGHT_CLICK, $_[2] ); }

HTH
Mattia