wxperl-users — For wxPerl users

[wxperl-users] Splashscreen [MSW]

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

I've tried the splashscreen in a larger app. It works nicely if placed
inside MyFrame (appears earlier than in OnInit).

I only need some help on how to place it in BEGIN { }. Otherwise, Perl
reads the whole file and modules first, making the splash only partly
useful, due of the time lapse.

First problem is that Wx::SplashScreen crashes if no parent is given.
In the docs they use NULL in C++, but undef does not work in WxPerl.

So I tried creating a new Frame, but just a grey splash appears and
then Perl crashes.

BEGIN{
use Wx qw( wxDefaultPosition wxDefaultSize);

use SplashScreenDemo;

my( $frame ) = Wx::Frame->new( undef, -1, "Splash", [20,20], [200,250]
);

SplashScreenDemo::window($frame);
}


Here's SplashScreenDemo:

sub window {
  shift;
  my $parent = shift;

my $panel = Wx::Panel->new( $parent, -1 );
my $bitmap = Wx::Bitmap->new( './logo.jpg',
                                                wxBITMAP_TYPE_JPEG );

Wx::SplashScreen->new( $bitmap,
wxSPLASH_CENTRE_ON_SCREEN|wxSPLASH_TIMEOUT, 2000, $panel,
-1,wxDefaultPosition, wxDefaultSize, wxSIMPLE_BORDER|wxSTAY_ON_TOP);
}


I'm not sure why the demo uses a panel, but I also tried placing the
splash directly on the window/frame, but that didn't make any
difference.

Marcus

[wxperl-users] [MSW] Listbox: Number

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

>>Wx::Listbox::Number seems to be unknown.

>AFAIR it is deprecated. Try looking for GetCount or GetItemCount.

Thanks, GetCount() works. However in the current wx 2.3.2 docs there is
no mention of Number() being deprecated. GetCount() is not listed
either. Is it a 2.3.3 change?

Marcus

Re: [wxperl-users] [MSW] Listbox: Number, Delete

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

Mattia wrote:
>>     my (@selections) = GetListbox($this)->GetSelections();
>>...

>Well, I'd like to have someone to blame for this, but it looks like
>it is my fault ( oh, didn't you guess it? )

>Will be fixed in the next snapshot

Thanks. You can also just send me the patch if that's less work, since
I'm playing with STC and compiling anyway.

It's actually GetSelections() which is broken it seems. I had said
Delete().
Btw, is Number(), not implemented, or not responding?

Marcus

Re: [wxperl-users] [MSW] Listbox: Number, Delete

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

> 
> I'm having trouble with two listbox methods.
> 
> The listbox is set to multiple (or extended), and I'm trying to use
> Delete(). The index numbers returned seem unpredictable. With 3 items
> it may return 0,6, 225464... 
> 
> Also, if I select multiple items, they all have the same id.
> 
> Here's the code:
> 
>     my (@selections) = GetListbox($this)->GetSelections();
> 
>     my $item;
> 
>         foreach $item (@selections)
>         {
>         print "item to delete:$item\n";
>         GetListbox($this)->Delete($item);
>         }
Well, I'd like to have someone to blame for this, but it looks like
it is my fault ( oh, didn't you guess it? )

Will be fixed in the next snapshot

Regards
Mattia

Re: [wxperl-users] [MSW] Listbox: Number, Delete

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

On Thu, 30 May 2002, Marcus wrote:

>
>I'm having trouble with two listbox methods.
>
I'll reply separately to the first problems.

>2) Wx::Listbox::Number seems to be unknown. I tried declaring use
AFAIR it is deprecated. Try looking for GetCount or GetItemCount.
( warning, I am recalling from memory, I don't have the docs here ).

Regards
Mattia

[wxperl-users] [MSW] Listbox: Number, Delete

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

I'm having trouble with two listbox methods.

The listbox is set to multiple (or extended), and I'm trying to use
Delete(). The index numbers returned seem unpredictable. With 3 items
it may return 0,6, 225464... 

Also, if I select multiple items, they all have the same id.

Here's the code:

    my (@selections) = GetListbox($this)->GetSelections();

    my $item;

        foreach $item (@selections)
        {
        print "item to delete:$item\n";
        GetListbox($this)->Delete($item);
        }



2) Wx::Listbox::Number seems to be unknown. I tried declaring use
Wx::Listbox specifically (although it didn't make sense). It doesn't
know the method though. I tried:

my $number_items = GetListbox($this)->Number();

Is syntax not correct?

Other methods such as GetString() work fine.

Thanks,

Marcus

Re: [wxperl-users] [Update] Scintilla and development...

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

> Mattia wrote:
> 
> >There is a _minimal_ wrapping in the current CVS snapshot; you ( or
> >whoever wants to contribute ) should complete
> ext/stc/XS/StyledTextControl.xs and >ext/stc/cpp/st_constants.cpp ( the
> C++ class is in wxWIndows/contrib/include/wx/stc/stc.h )
> 
> I need wx compiled with Mingw and my Perl also built with Mingw. Is
> that correct?
This will work; you may also use ActivePerl, MinGW and the thing
at http://wxperl.sf.net/ap_mingw/ ( just use perl -MConfig_m Makefile.PL
instead of perl Makefile.PL )

> Then it's learn how to use XS?
>
> What do you suggest as a learning example?
> I guess something that exists or something smallish.
> How about wxShellExecute?
Most of wxSTC interface is "simple", i.e. it takes int/long/wxString;
you should be able to implement most of it using the 5 functions
I already implemented as a template.
Feel free to ask if you need more details.

> >I'll update build instructions ASAP ( they are not up to date
> for 2.3.3 ).
> 
> That would be good.
Done; now in the snapshot

Regards
Mattia

[wxperl-users] [Update] Scintilla and development...

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

Mattia wrote:

>There is a _minimal_ wrapping in the current CVS snapshot; you ( or
>whoever wants to contribute ) should complete
ext/stc/XS/StyledTextControl.xs and >ext/stc/cpp/st_constants.cpp ( the
C++ class is in wxWIndows/contrib/include/wx/stc/stc.h )

I need wx compiled with Mingw and my Perl also built with Mingw. Is
that correct?

Then it's learn how to use XS?

What do you suggest as a learning example?
I guess something that exists or something smallish.
How about wxShellExecute?


>I'll update build instructions ASAP ( they are not up to date
for 2.3.3 ).

That would be good.

Marcus

[wxperl-users] New binary snapshot

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

http://wwwstud.dsi.unive.it/~mbarbon/wx/

Regards
Mattia

[wxperl-users] [Update] Scintilla and development...

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

[Replying to myself]

> > Mattia wrote:
> > >>I can't find StyledText in the manual. Is it a contrib somewhere?
> > 
> > >It is in contrib, and not wrapped (yet); no plans to wrap it soon,
> > >neither. Any volunteers?
> > 
> > Well, I would and I'd glady help wxPerl development in general. The
> > small problem is that I don't know C++, just some basic C. I can
> > usually figure out how to translate the wx C++ examples to Perl though.
> > 
> > If you have the time to give me an example with something simple I'll
> > have a go (I'm guessing Scintilla is a bigger job?).
> Well, my exams seem to have eaten all my time... but I'll try
> to do something. Scintilla is a big job, yes.

There is a _minimal_ wrapping in the current CVS snapshot; you ( or
whoever wants to contribute ) should complete
ext/stc/XS/StyledTextControl.xs and
ext/stc/cpp/st_constants.cpp
( the C++ class is in wxWIndows/contrib/include/wx/stc/stc.h )

I'll update build instructions ASAP ( they are not up to date
for 2.3.3 ). It is a good idea to use wxWindows CVS
( http://www.wxwindows.org/ -> community -> Daily snapshots of CVS 
  if you don't want to use CVS ).

Regards
Mattia

Re: [wxperl-users] Scintilla and development...

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

> Mattia wrote:
> >>I can't find StyledText in the manual. Is it a contrib somewhere?
> 
> >It is in contrib, and not wrapped (yet); no plans to wrap it soon,
> >neither. Any volunteers?
> 
> Well, I would and I'd glady help wxPerl development in general. The
> small problem is that I don't know C++, just some basic C. I can
> usually figure out how to translate the wx C++ examples to Perl though.
> 
> If you have the time to give me an example with something simple I'll
> have a go (I'm guessing Scintilla is a bigger job?).
Well, my exams seem to have eaten all my time... but I'll try
to do something. Scintilla is a big job, yes.

> What tools do you need?
> I don't have MSVC*, but wxPerl uses Mingw (which I have installed),
> right?
wxPerl works with both MSVC and MinGW.

> In the mean time I'll look at doing something about that wxPerl
> Cookbook I suggested.
BTW, that looks like a great idea!

Regards
Mattia

Re: [wxperl-users] drag 'n' drop

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

> AIUI, my DropTarget object will receive a call to it's OnData method 
> when data is dropped on it - this is understood and works correctly. 
> however, the docs refer to EVT_TREE_END_DRAG(), although there is no 
> corresponding EVT_LIST_END_DRAG for a list control. what is the 
> significance of the (additional?) tree event?
Well, I don't know. You should ask this at wx-...@li... .

Regards
Mattia

Re: [wxperl-users] ListCtrl/ListItem

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

> what about if you are not responding to an event, so you do not have 
> $event->GetIndex() to use?

> how would you
> (a) get the index of the currently selected item?
my $item = $this->{LISTCTRL}->GetNextItem(-1, wxLIST_NEXT_ALL,
                   wxLIST_STATE_SELECTED);
> and
> (b) the same for a multi-selection listctrl?
repeat the above replacing the "-1" with the $item you just obtained.

HTH
Mattia

[wxperl-users] wxPerl Documentation - New Release

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

I finished the wxPerl Documentation:   ;-P

http://wxperl.virtuasites.com.br/docs/index.hpl

Classes link and search are working fine.

The docs was generated by a script using the wxWindows documentation and
testing if the functions exist in wxPerl too.

Please, send your feedback about the docs in the wxPerl Mailing.

Graciliano M. P.

Re: Re: [wxperl-users] EVT_SIZE Problem!

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

> >Sample:
> >...
> >
> >  use Wx::Event qw(EVT_SIZE) ;
> >
> >  EVT_SIZE(
> >  $obj ,
> >  sub { &My_obj_config($obj, $pos , $size) }
> >  ) ;
> >
> >...
> ? I don't understand. You say that it does not work for "more than one",
> but here I see just one EVT_SIZE; also, where do $pos and $size in the
> event handler come from?
>

The codes of the sample show only the idea, and the codes are inside a loop
in my program.

I found the error! If you have for example 2 textctrl inside a frame (the
textctrl have the same parent), when you resize the frame the EVT_SIZE was
past for the both textctrl in the same time and perl don't make the
EVT_SIZE! To fix this I link the perl function in the Frame object, not in
the textctrl, and do the &My_obj_config($obj, $pos , $size) for each object
inside the frame (the 2 textctrl).

Graciliano M. P.

Re: [wxperl-users] bugreport - wxlistctrl

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

[ Sorry for the delay ]
> hello,

<big snip>

> this is really strainge and i hope i described it usuable.
Yes; thank you, really!
 
> any ideas?
> please not again a win98 bug! no, can't be -> works in the nonbeta!
> horrai!
No, this time it is not :-) it is a wxWindows bug, and it
has already been fixed in CVS; I'll put up another snapshot ASAP

Regards
Mattia

[wxperl-users] Wx::ListBox::GetSelections()

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

is there a known problem with GetSelections() and a wxLB_EXTENDED or 
wxLB_MULTIPLE? I tried:

my @selections = $listbox->GetSelections();

and, although I received the correct number of selections as elements of 
the array, the values were meaningless (sometimes 6 digits, sometimes 
more, on a 3-item listbox). am I using it incorrectly?

rgds,
/dave

[wxperl-users] drag 'n' drop

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

AIUI, my DropTarget object will receive a call to it's OnData method 
when data is dropped on it - this is understood and works correctly. 
however, the docs refer to EVT_TREE_END_DRAG(), although there is no 
corresponding EVT_LIST_END_DRAG for a list control. what is the 
significance of the (additional?) tree event?

rgds,
/dave

Re: [wxperl-users] ListCtrl/ListItem

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

what about if you are not responding to an event, so you do not have 
$event->GetIndex() to use?

how would you
(a) get the index of the currently selected item?
and
(b) the same for a multi-selection listctrl?

rgds,
/dave

On Monday, May 6, 2002, at 10:38 , Mattia Barbon wrote:

>> ok, sounds good.
>>
>> how would you handle it if multiple items are selected?
> You'll get one event for each selected item, so what proposed will
> still work.
>
> Regards
> Mattia
>
> _______________________________________________________________
>
> Have big pipes? SourceForge.net is looking for download mirrors. We 
> supply
> the hardware. You get the recognition. Email Us: 
> ban...@so...
> _______________________________________________
> wxperl-users mailing list
> wxp...@li...
> https://lists.sourceforge.net/lists/listinfo/wxperl-users
>
>

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

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

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

Re: [wxperl-users] playing with events

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

> I have been playing with creating GUIs on the fly with wxPerl and 
> installing events with dynamic Perl code. for example, I might take the 
> scalar '{ print "hello world\n" }', eval it into an anonymous subroutine 
> and install it as an event handler for a button using EVT_BUTTON().
> 
> however, what I have found is that if you destroy that window, re-create 
> another window (with the same ID) and install a different anonymous 
> subroutine, say '{ print "hello again\n" }', the event still triggers 
> "hello world" to be printed.
> 
> any thoughts on why this might be happening and/or a work-around?
This is bizarre ( given how events are implemented in wxWindows ).
I'll try to reproduce the behaviour, but as usual a samll modification
to the minimal ( or another ) sample is welcome.

Regards
Mattia

Re: [wxperl-users] playing with events

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

the (obvious) solution is to use a different ID, which I am able to do 
without a problem.

/dave

On Tuesday, May 21, 2002, at 12:56 , Dave Roe wrote:

> I have been playing with creating GUIs on the fly with wxPerl and 
> installing events with dynamic Perl code. for example, I might take the 
> scalar '{ print "hello world\n" }', eval it into an anonymous 
> subroutine and install it as an event handler for a button using 
> EVT_BUTTON().
>
> however, what I have found is that if you destroy that window, 
> re-create another window (with the same ID) and install a different 
> anonymous subroutine, say '{ print "hello again\n" }', the event still 
> triggers "hello world" to be printed.
>
> any thoughts on why this might be happening and/or a work-around?
>
> rgds,
> /dave
>
>
> _______________________________________________________________
>
> Don't miss the 2002 Sprint PCS Application Developer's Conference
> August 25-28 in Las Vegas -- http://devcon.sprintpcs.com/adp/index.cfm
>
> _______________________________________________
> wxperl-users mailing list
> wxp...@li...
> https://lists.sourceforge.net/lists/listinfo/wxperl-users
>
>

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

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

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

[wxperl-users] playing with events

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

I have been playing with creating GUIs on the fly with wxPerl and 
installing events with dynamic Perl code. for example, I might take the 
scalar '{ print "hello world\n" }', eval it into an anonymous subroutine 
and install it as an event handler for a button using EVT_BUTTON().

however, what I have found is that if you destroy that window, re-create 
another window (with the same ID) and install a different anonymous 
subroutine, say '{ print "hello again\n" }', the event still triggers 
"hello world" to be printed.

any thoughts on why this might be happening and/or a work-around?

rgds,
/dave

[wxperl-users] ANNOUNCE: wxPerl Cookbook recipe collection site

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

Hi Folks,

I set up a web script to collect recipes for the wxPerl cookbook. These
are stored individually in plain text files with HTML formatting, so we
can just plug them into a more comprehensive web book as we go along.

Here's the first snippet:

http://scripts.wordit.com/cgi-bin/wxperl/logbook.pl?file=2

If anybody is more adept at HTML page design, please go ahead. I'll
plug in the template tags. It uses HTML::Template.

Let me know what you think. I just wanted to get it started.

Marcus

[wxperl-users] Scintilla and development...

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

Mattia wrote:
>>I can't find StyledText in the manual. Is it a contrib somewhere?

>It is in contrib, and not wrapped (yet); no plans to wrap it soon,
>neither. Any volunteers?

Well, I would and I'd glady help wxPerl development in general. The
small problem is that I don't know C++, just some basic C. I can
usually figure out how to translate the wx C++ examples to Perl though.

If you have the time to give me an example with something simple I'll
have a go (I'm guessing Scintilla is a bigger job?).

What tools do you need?
I don't have MSVC*, but wxPerl uses Mingw (which I have installed),
right?

In the mean time I'll look at doing something about that wxPerl
Cookbook I suggested.

Marcus

Re: [wxperl-users] EVT_SIZE Problem!

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

On Tue, 21 May 2002, Graciliano M. P. (Virtua Sites) wrote:

>I'm using a event size to organize my objects in the frame. But the EVT_SIZE
>only work if I define it for one object. If I try more then 1 it doesn't
>work! :/
>
>Sample:
>...
>
>  use Wx::Event qw(EVT_SIZE) ;
>
>  EVT_SIZE(
>  $obj ,
>  sub { &My_obj_config($obj, $pos , $size) }
>  ) ;
>
>...
? I don't understand. You say that it does not work for "more than one",
but here I see just one EVT_SIZE; also, where do $pos and $size in the
event handler come from?

Regards
Mattia