wxperl-users — For wxPerl users

Re: [wxperl-users] Feature requests

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

Hi Simon,

Yeah sure, that's surely possible. In fact, I've already written my own 
FSHandler, although you have to inherit from Wx::PlFileSystemHandler 
instead of Wx::FileSystemHandler, but that's a minor detail.

I just don't want to re-invent the wheel that's already present in 
wxWindows itself...

Jouke

Simon Flack wrote:

>Hi Jouke
>
>I think you can impliment your own FileSystemHandler in Perl.
>
>It's as simple as writing a class that inherits from
>Wx::FileSystemHandler, and then doing: Wx::FileSystem->AddHandler( new
>MyFSHandler). It would be relatively easy to add a custom handler that
>mimics wxMemoryFSHandler.
>
>I'm not saying you *should* do it that way, only that I think it's
>possible.
>
>Simon
>
>
>>-----Original Message-----
>>From: Jouke Visser [mailto:jo...@pv...]
>>Sent: 25 October 2002 11:28
>>To: wxp...@li...
>>Subject: [wxperl-users] Feature requests
>>
>>
>>Hi,
>>
>>Mattia, I have a few requests for wxWindows classes to wrap in wxPerl:
>>
>>1. Could you wrap Wx::Wave in wxPerl? It would provide a nice 
>>multi-platform .wav player. There is no Perl module on CPAN that can 
>>play .wav files on Windows *and* linux using the same interface yet.
>>
>>2. I was playing with Wx::EvtHandler and the Disconnect method only 
>>allowed me to use the second form, using the 'lastid' 
>>parameter. I have 
>>no clue what I should fill in there, and using the default -1 didn't 
>>work. I think the first form of Disconnect ($handler->Disconnect(id, 
>>eventtype)) would be much easier to use. Could you allow this?
>>
>>3. Is there a possibility to wrap Wx::AutomationObject in the windows 
>>version of wxPerl? That would allow me to discard Win32::OLE 
>>as an extra 
>>module to use in my programs.
>>
>>4. The same goes for Wx::DllLoader, which would prevent me from using 
>>Win32::API
>>
>>5. One very important feature request for me personally would 
>>be to wrap 
>>Wx::MemoryFSHandler. In the wxPerl 0.12 documentation you state that 
>>this class is not implemented, however from the demo.pl and 
>>from my own 
>>experience I know that Wx::ZipFSHandler and 
>>Wx::InternetFSHanderl *are* 
>>implemented. I presume the documentation is right and that the 
>>MemoryFSHandler is *not* currently implemented, which is something I 
>>can't see why.
>>
>>-- 
>>
>> -------------------------------------------------------------------- 
>>| Jouke Visser           | http://jouke.pvoice.org  (personal)       |
>>|                        | http://www.pvoice.org    (pVoice & pStory)|
>>| Perl GUI Geek          | http://wxperl.pvoice.org (wxPerl)         |
>> -------------------------------------------------------------------- 
>>
>>
>>
>>
>>
>>-------------------------------------------------------
>>This sf.net email is sponsored by: Influence the future 
>>of Java(TM) technology. Join the Java Community 
>>Process(SM) (JCP(SM)) program now. 
>>http://ads.sourceforge.net/cgi-bin/redirect.pl?sunm0004en
>>_______________________________________________
>>wxperl-users mailing list
>>wxp...@li...
>>https://lists.sourceforge.net/lists/listinfo/wxperl-users
>>
>
>
>BBCi at http://www.bbc.co.uk/
>
>This e-mail (and any attachments) is confidential and may contain 
>personal views which are not the views of the BBC unless specifically 
>stated.
>If you have received it in error, please delete it from your system, do 
>not use, copy or disclose the information in any way nor act in 
>reliance on it and notify the sender immediately. Please note that the 
>BBC monitors e-mails sent or received. Further communication will 
>signify your consent to this.
>

-- 

 -------------------------------------------------------------------- 
| Jouke Visser           | http://jouke.pvoice.org  (personal)       |
|                        | http://www.pvoice.org    (pVoice & pStory)|
| Perl GUI Geek          | http://wxperl.pvoice.org (wxPerl)         |
 -------------------------------------------------------------------- 

RE: [wxperl-users] Feature requests

[Simon F. <sim...@bb...>]

Hi Jouke

I think you can impliment your own FileSystemHandler in Perl.

It's as simple as writing a class that inherits from
Wx::FileSystemHandler, and then doing: Wx::FileSystem->AddHandler( new
MyFSHandler). It would be relatively easy to add a custom handler that
mimics wxMemoryFSHandler.

I'm not saying you *should* do it that way, only that I think it's
possible.

Simon


> -----Original Message-----
> From: Jouke Visser [mailto:jo...@pv...]
> Sent: 25 October 2002 11:28
> To: wxp...@li...
> Subject: [wxperl-users] Feature requests
>=20
>=20
> Hi,
>=20
> Mattia, I have a few requests for wxWindows classes to wrap in wxPerl:
>=20
> 1. Could you wrap Wx::Wave in wxPerl? It would provide a nice=20
> multi-platform .wav player. There is no Perl module on CPAN that can=20
> play .wav files on Windows *and* linux using the same interface yet.
>=20
> 2. I was playing with Wx::EvtHandler and the Disconnect method only=20
> allowed me to use the second form, using the 'lastid'=20
> parameter. I have=20
> no clue what I should fill in there, and using the default -1 didn't=20
> work. I think the first form of Disconnect ($handler->Disconnect(id,=20
> eventtype)) would be much easier to use. Could you allow this?
>=20
> 3. Is there a possibility to wrap Wx::AutomationObject in the windows=20
> version of wxPerl? That would allow me to discard Win32::OLE=20
> as an extra=20
> module to use in my programs.
>=20
> 4. The same goes for Wx::DllLoader, which would prevent me from using=20
> Win32::API
>=20
> 5. One very important feature request for me personally would=20
> be to wrap=20
> Wx::MemoryFSHandler. In the wxPerl 0.12 documentation you state that=20
> this class is not implemented, however from the demo.pl and=20
> from my own=20
> experience I know that Wx::ZipFSHandler and=20
> Wx::InternetFSHanderl *are*=20
> implemented. I presume the documentation is right and that the=20
> MemoryFSHandler is *not* currently implemented, which is something I=20
> can't see why.
>=20
> --=20
>=20
>  --------------------------------------------------------------------=20
> | Jouke Visser           | http://jouke.pvoice.org  (personal)       |
> |                        | http://www.pvoice.org    (pVoice & pStory)|
> | Perl GUI Geek          | http://wxperl.pvoice.org (wxPerl)         |
>  --------------------------------------------------------------------=20
>=20
>=20
>=20
>=20
>=20
> -------------------------------------------------------
> This sf.net email is sponsored by: Influence the future=20
> of Java(TM) technology. Join the Java Community=20
> Process(SM) (JCP(SM)) program now.=20
> http://ads.sourceforge.net/cgi-bin/redirect.pl?sunm0004en
> _______________________________________________
> wxperl-users mailing list
> wxp...@li...
> https://lists.sourceforge.net/lists/listinfo/wxperl-users
>=20


BBCi at http://www.bbc.co.uk/

This e-mail (and any attachments) is confidential and may contain=20
personal views which are not the views of the BBC unless specifically=20
stated.
If you have received it in error, please delete it from your system, do=20
not use, copy or disclose the information in any way nor act in=20
reliance on it and notify the sender immediately. Please note that the=20
BBC monitors e-mails sent or received. Further communication will=20
signify your consent to this.

[wxperl-users] Feature requests

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

Hi,

Mattia, I have a few requests for wxWindows classes to wrap in wxPerl:

1. Could you wrap Wx::Wave in wxPerl? It would provide a nice 
multi-platform .wav player. There is no Perl module on CPAN that can 
play .wav files on Windows *and* linux using the same interface yet.

2. I was playing with Wx::EvtHandler and the Disconnect method only 
allowed me to use the second form, using the 'lastid' parameter. I have 
no clue what I should fill in there, and using the default -1 didn't 
work. I think the first form of Disconnect ($handler->Disconnect(id, 
eventtype)) would be much easier to use. Could you allow this?

3. Is there a possibility to wrap Wx::AutomationObject in the windows 
version of wxPerl? That would allow me to discard Win32::OLE as an extra 
module to use in my programs.

4. The same goes for Wx::DllLoader, which would prevent me from using 
Win32::API

5. One very important feature request for me personally would be to wrap 
Wx::MemoryFSHandler. In the wxPerl 0.12 documentation you state that 
this class is not implemented, however from the demo.pl and from my own 
experience I know that Wx::ZipFSHandler and Wx::InternetFSHanderl *are* 
implemented. I presume the documentation is right and that the 
MemoryFSHandler is *not* currently implemented, which is something I 
can't see why.

-- 

 -------------------------------------------------------------------- 
| Jouke Visser           | http://jouke.pvoice.org  (personal)       |
|                        | http://www.pvoice.org    (pVoice & pStory)|
| Perl GUI Geek          | http://wxperl.pvoice.org (wxPerl)         |
 -------------------------------------------------------------------- 

Re: [wxperl-users] Unicode support

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

>
>
>   Now let's talk about wxPerl; wxPerl compiles in Unicode-mode (modulo
>a couple small errors in 0.12; 0.11 should be fine (if you disable stc & xrc));
>and when in Unicode mode it should fully support passing Unicode strings to
>wxPerl[wxWindows] methods.
>
That leaves me with only one question: I'm using wxPerl 0.12 (by means 
of the pre-compiled ppm you supply on the wxperl.sf.net download page). 
Is that compiled in Unicode mode? Or should I revert to 0.11?

Regards,

-- 

 -------------------------------------------------------------------- 
| Jouke Visser           | http://jouke.pvoice.org  (personal)       |
|                        | http://www.pvoice.org    (pVoice & pStory)|
| Perl GUI Geek          | http://wxperl.pvoice.org (wxPerl)         |
 -------------------------------------------------------------------- 

Re: [wxperl-users] Unicode support

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

> >
> >
> >I can't really comment on the Unicode support. If you're using a Perl module
> >like Locale::Maketext::Lexicon, it might depend on your version of perl. But
> >did you know that you can use your gettext .po/.mo files with Wx::Locale?
> >There's a Wx::Locale demo in wxperl/demo/demo.pl.
> >
> Thanks Simon,
> 
> Hmm...that's very nice :) I'm inclined to think that since wxWindows 
> supports Unicode, poEdit (the translation tool built using wxWindows) 
> uses and supports Unicode, Wx::Locale uses the .po files directly and 
> Wx::Locale probably handles everything internally in wxWindows-native 
> stuff, Unicode should work that way...
> 
> It would be nice tho' to hear from someone actually using Unicode in 
> wxPerl...
  I would like to know, too...
...however, if you don't mind, you can get some advice from a non-user :-)

  wxWindows can be compiled in "Unicode" and "non-Unicode" mode.
Unicode-mode is currently supported only under Windows NT/2K/XP[1]; 2.4.0
will hopefully support Unicode-mode with GTK 2, too.
In Unicode-mode wxWindows manipulates Unicode strings internally
(UCS-2 under Win32, whatever the system supports under *NIX), and uses
Unicode-aware system calls where appropriate.

  In non-Unicode mode strings are stored internally in whatever the system
encoding is.

  Now let's talk about wxPerl; wxPerl compiles in Unicode-mode (modulo
a couple small errors in 0.12; 0.11 should be fine (if you disable stc & xrc));
and when in Unicode mode it should fully support passing Unicode strings to
wxPerl[wxWindows] methods.

  In non-Unicode mode, you probably need to use Encode.pm to encode Unicode
string in system encoding. But since I do not have (easy) access to anything
but Italian Windows 2000, I can't know for sure.

HTH, at least a bit
Mattia

[1] there is a thing from MS, called "Microsoft Layer for Unicode"
    (unicows.dll), that emulates Unicode system calls under Win95/98/ME,
    and calls "true" Unicode calls under NT/2K/XP; poEdit is compiled that
    way; I don't know if wxPerl compiles against unicows.dll; this can be used
    to provide a single binary that works in Unicode-mode in NT/2K/XP,
    and pseudo-Unicode under 95/98/ME.

Re: [wxperl-users] Unicode support

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

>
>
>I can't really comment on the Unicode support. If you're using a Perl module
>like Locale::Maketext::Lexicon, it might depend on your version of perl. But
>did you know that you can use your gettext .po/.mo files with Wx::Locale?
>There's a Wx::Locale demo in wxperl/demo/demo.pl.
>
Thanks Simon,

Hmm...that's very nice :) I'm inclined to think that since wxWindows 
supports Unicode, poEdit (the translation tool built using wxWindows) 
uses and supports Unicode, Wx::Locale uses the .po files directly and 
Wx::Locale probably handles everything internally in wxWindows-native 
stuff, Unicode should work that way...

It would be nice tho' to hear from someone actually using Unicode in 
wxPerl...

-- 

 -------------------------------------------------------------------- 
| Jouke Visser           | http://jouke.pvoice.org  (personal)       |
|                        | http://www.pvoice.org    (pVoice & pStory)|
| Perl GUI Geek          | http://wxperl.pvoice.org (wxPerl)         |
 -------------------------------------------------------------------- 

RE: [wxperl-users] Unicode support

[Simon F. <sim...@bb...>]

> -----Original Message-----
> From: Jouke Visser [mailto:jo...@pv...]
> Subject: [wxperl-users] Unicode support
> 
> I wondered in what sense wxPerl supports Unicode. I have written a 
> program I want to make as multi-lingual as possible, and to do so I'm 
> using Locale::Maketext::Lexicon to translate all text my 
> program uses, 
> for menus, dialog boxes etc.

I can't really comment on the Unicode support. If you're using a Perl module
like Locale::Maketext::Lexicon, it might depend on your version of perl. But
did you know that you can use your gettext .po/.mo files with Wx::Locale?
There's a Wx::Locale demo in wxperl/demo/demo.pl.
 
SF





BBCi at http://www.bbc.co.uk/

This e-mail (and any attachments) is confidential and may contain 
personal views which are not the views of the BBC unless specifically 
stated.
If you have received it in error, please delete it from your system, do 
not use, copy or disclose the information in any way nor act in 
reliance on it and notify the sender immediately. Please note that the 
BBC monitors e-mails sent or received. Further communication will 
signify your consent to this.

[wxperl-users] Unicode support

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

I wondered in what sense wxPerl supports Unicode. I have written a 
program I want to make as multi-lingual as possible, and to do so I'm 
using Locale::Maketext::Lexicon to translate all text my program uses, 
for menus, dialog boxes etc.

I wondered when someone supplied me with for example a Japanese 
translationfile, wxPerl (or wxWindows for that matter) would correctly 
show the characters in the menus and dialogs...

Anyone tried this before?

-- 

 -------------------------------------------------------------------- 
| Jouke Visser           | http://jouke.pvoice.org  (personal)       |
|                        | http://www.pvoice.org    (pVoice & pStory)|
| Perl GUI Geek          | http://wxperl.pvoice.org (wxPerl)         |
 -------------------------------------------------------------------- 

Re: [wxperl-users] how define the same OnChar event for several textctrls ?

[boo r. <boo...@at...>]

Michal Jurosz wrote:
 > How define the same OnChar event for several textctrls ?
 >
 > I can do this with
 >
 >   EVT_CHAR( $self->FindWindow($main::ID_CHILD1), \&OnChar );
 >   EVT_CHAR( $self->FindWindow($main::ID_CHILD2), \&OnChar );
 >   ....
 >   EVT_CHAR( $self->FindWindow($main::ID_CHILD25), \&OnChar );
 >
 > but it is so long ... can I do the same thing easier ?

You may want to consider subclassing the text control and setting up the
EVT_CHAR in the constructor. This would probably be easier in the long 
run, but if that doesn't appeal to you, you could try something like the 
following snippet. Lines 43-46 show how to add items and event handlers 
for things stored in a hash (although you'll have to make sure they get 
ordered correctly on your own) and then lines 51-54 demonstrate how by 
storing the created text controls in an array, and then using foreach to 
create the handlers in one go.


#!/usr/bin/perl -w
use Wx;

package MyApp;

     use strict;
     use vars qw(@ISA);
     @ISA=qw(Wx::App);
     use Wx qw(wxDefaultSize wxDefaultPosition);

     sub OnInit {
       my( $this ) = @_;
       my( $dialog ) = aDialog->new( "text controls",wxDefaultPosition);
       $this->SetTopWindow( $dialog );
       $dialog->Show(1);
       1;
     }

package aDialog;

     use strict;
     use vars qw(@ISA);
     @ISA=qw(Wx::Dialog);
     use File::Find;
     use File::Copy;
     use File::Path;
     use Wx::Event qw(EVT_TEXT EVT_CLOSE);
     use Wx qw(wxDefaultSize wxDefaultValidator wxALIGN_RIGHT  wxID_CANCEL);
     use Win32::DriveInfo;

     sub new {
         my( $class ) = shift;
         my( $this ) = $class->SUPER::new( undef, -1, $_[0], $_[1], 
[510, 510] );
         my @textitems;
         my $ypos = 1;
         my %misc = (
             "User ID" => "",
             "First Name" => "John",
             "Last Name" => "Doe"
         );
         # populate the items in hash
         # add event handlers right away
         foreach (keys %misc) {
             my $tempTextCtrl = $this->{$_} = Wx::TextCtrl->new( $this, 
-1, $misc{$_}, [20, $ypos++ * 20], [340, -1] );
             EVT_TEXT ($this, $tempTextCtrl, \&onUpdateText);
         }


         # now populate some more items
         # add event handlers after items are added to the main dialog
         push @textitems, $this->{text1} =Wx::TextCtrl->new( $this, -1, 
"foo", [20, $ypos++ * 20], [340, -1] );
         push @textitems, $this->{text2} =Wx::TextCtrl->new( $this, -1, 
"bar", [20, $ypos++ * 20], [340, -1] );
         push @textitems, $this->{text3} =Wx::TextCtrl->new( $this, -1, 
"baz", [20, $ypos++ * 20], [340, -1] );
         EVT_TEXT ($this, $_, \&onUpdateText) foreach @textitems;
         EVT_CLOSE( $this, \&OnClose );
         $this;
     }

     sub onUpdateText {
         my ($this, $event) = @_;
         print "hello!"
     }


     sub OnClose {
         my( $this, $event ) = @_;
         $this->Destroy();
     }

package main;
     my($app) = MyApp->new();
     $app->MainLoop();

[wxperl-users] how define the same OnChar event for several textctrls ?

[Michal J. <ju...@kn...>]

How define the same OnChar event for several textctrls ?

I can do this with

   EVT_CHAR( $self->FindWindow($main::ID_CHILD1), \&OnChar );
   EVT_CHAR( $self->FindWindow($main::ID_CHILD2), \&OnChar );
   ....
   EVT_CHAR( $self->FindWindow($main::ID_CHILD25), \&OnChar );

but it is so long ... can I do the same thing easier ?


PS. Sorry for my bad english and stupid questions.
-- 
------------------------------
   S pozdravem Michal Jurosz
ro...@se... ICQ#:93348414
     http://mjhome.zde.cz
------------------------------

RE: [wxperl-users] wxALIGN_CENTER

[Everett, T. <TEv...@AL...>]

Just so everything's covered:

		-----Original Message-----
		From:	Everett, Toby [mailto:TEv...@AL...]
		Sent:	Tuesday, September 03, 2002 4:33 PM
		To:	'wxp...@li...'
		Subject:	[wxperl-users] Everyone's going to think I'm
just a whiner (or I say center, you say centre:)

		While continuing my exploration, I managed to figure out how
to use sizers
		in conjunction with a panel.  Along the way, I discovered
that the following
		constants are importable:

		wxALIGN_CENTRE
		wxALIGN_CENTER_VERTICAL
		wxALIGN_CENTER_HORIZONTAL
		wxCENTRE
		wxCENTER
		wxCentreX
		wxCentreY
		wxSPLASH_CENTRE_ON_PARENT
		wxSPLASH_CENTRE_ON_SCREEN
		wxSPLASH_NO_CENTRE
		wxLIST_FORMAT_CENTRE

		It's interesting that most of the exports are available only
in the British
		spelling, a few only in the American spelling, and one in
both.  My gut
		instinct would be to recommend that everything be exported
in both
		spellings.

		--Toby Everett

RE: [wxperl-users] Document/View framework

[Simon F. <ma...@si...>]

> FROM: Marcus
> DATE: 10/18/2002=A016:16:18
> SUBJECT:  [wxperl-users] Document/View framework
>
>
> What is the Document/View framework, and what can you do with it?
> I know it was in the last beta, but I didn't discover any info.

Hi Marcus,

I'll try and explain the purpose of Document/View, but you should also=20
look at the Document/View overview and the following classes in the=20
wxWindows docs:

wxDocManager, wxDocument, wxView, wxDocTemplate.

There is also wxDocParentFrame, wxDocChildFrame, wxDocMDIParentFrame,=20
wxDocMDIChildFrame and wxFileHistory. And there are a couple of docview=20
samples in wxwindows/samples: docview and docvwmdi.

BTW, I have a sample wxperl docview app, which I'll post on Jouke's=20
wxperl wiki, it's probably not suitable for the wxperl dist. If I have=20
some time, I'll put something together for the dist with Mattia's=20
approval/guidelines.

Basically the Document/View framework is a set of objects that facilitate=
=20
writing applications that behave like document editors. Something like an=
=20
HTML editor or a Perl IDE or even a graphics app, are ideal candidates.

Consider what you need (or ought) to impliment when writing such an=20
application: you need a way of tracking which files are open, what their=20
filenames are, have they been modified since the last save, etc. You need=
=20
to install event handlers for toolbars and menus, etc. You need to know=20
which document is the current document. You might write some code to=20
impliment a file history. The list goes on. These are common tasks for=20
all these applications. So why write them each time you write such a=20
piece of software? Well, you don't need to if you use document/view.

Here is a list again of the important classes (in Perl this time):

Wx::DocManager :
     The "Master" class. maintains lists of documents, handles events
     such as OnFileNew, OnFileOpen, OnFileSave, etc. It calls methods
     in the other classes
Wx::DocTemplate
     This expresses a relationship between a Wx::Document and a
     Wx::View (You can have multiple views for a document)
Wx::Document
     You subclass this for your particular document type. How you
     load and save the file, is it modified, etc. Also has
     OnSaveDoc.. and other events
Wx::View
     This class defines how you want the document to be viewed/edited
     on the screen, are you using a Wx::TextCtrl, Wx::Canvas or a
     Wx::StyledTextControl?

If you're writing a document/view app, you'll need to use/subclass all of=
=20
them, and also use a wxDocParentFrame or wxDocMDIParentFrame if you are=20
allowing multiple documents.

Really it would be best to see an example. I will post my sample on=20
Monday. But in the meantime if it still sounds interesting, check out the=
=20
samples that come with wxWindows.

The wxwindows docview overview is also available here:
http://makeashorterlink.com/?X12921E22

Simon

[wxperl-users] Document/View framework

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

What is the Document/View framework, and what can you do with it?
I know it was in the last beta, but I didn't discover any info.

Marcus

Re: [wxperl-users] wxALIGN_CENTER

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

> Am I mistaking, or is wxALIGN_CENTER not defined?
It is not (my mistake). The easiest way to know:
perl -MWx=wxALIGN_CENTER -e 42

> wxALIGN_CENTRE is, but according to the wxWindows docs
> there should be an alias of that in wxALIGN_CENTER.
I prefer to spell it that way...
Will add to CVS.

Regards
Mattia

[wxperl-users] wxALIGN_CENTER

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

Am I mistaking, or is wxALIGN_CENTER not defined? wxALIGN_CENTRE is, but according to the wxWindows docs there should be an alias of that in wxALIGN_CENTER. I prefer to spell it that way...
-- 
 ---------------------------------------------------------------------- 
| Jouke Visser            | http://jouke.pvoice.org  (personal)        |
|                         | http://www.pvoice.org    (pVoice & pStory) |
| Perl GUI Geek           | http://wxperl.pvoice.org (wxPerl)          |
 ---------------------------------------------------------------------- 

[wxperl-users] [ANNOUNCE] wxPerl 0.12 beta 3

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

...has been released.
This is (hopefully) the last beta before 0.12,
hence you are encouraged to try it.
Changes since 0.11:

	- new DEPRECATIONS section in README.txt, please read it
	- it is now possibile to get the native handle of a Wx::Window
	- implemented wxWizard and related classes
	- Document/View framework (thanks to Simon Flack)
	- Mostly completed wxStyledTextCtrl interface
          (thanks to Graciliano M. P. and Simon Flack)
	- implemented wxFontEnumerator and wxFontMapper
	- implemented wxLogChain and wxLogPassThrough (2.3)
	- Wx::PlLog, Wx::PlLogPassThrough, for custom logging

Regards
Mattia

P.S.: for those who have troubles with PPM, this might work
      (untested):
    * unpack the .zip
    * unpack the .tar.gz in the zip (this will create a "blib"
      dirrectory)
    * perl -MExtUtils::Install -e install_default Wx

Re: [wxperl-users] Popup-Menu

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

On Thu, 17 Oct 2002 Geo...@im... wrote:

>Hi,
>
>I have been trying to add a PopUp-Menu to my wxPerl-Application, but it
>doesnt work.
>
>Adding the following EventHandler in the constructor of my Frame
>
>    EVT_RIGHT_DOWN( $this , sub{
>                     my( $this, $event ) = @_;
>                     my $menu = Wx::Menu->new( "Test Menu" );
>                     $menu->Append( 5, "Click on me!" );
>                     $menu->AppendSeparator();
>                     $menu->Append(6, "Quit Test" );
>                     $this->PopupMenu( $menu , $event->GetX,
>$event->GetY);});
>
>leads to a crash with the Error:
>
>unable to resolve overloaded method for Wx::Window::PopupMenu at c:
>\httpd\gimmix\StorableGui\test.pl line 35
Fixed now in my local version; will be in the next release; as a
workaround, you can call PopupMenuXY or PopupMenuPoint directly.

HTH
Mattia

[wxperl-users] Popup-Menu

[<Geo...@im...>]

Hi,

I have been trying to add a PopUp-Menu to my wxPerl-Application, but it
doesnt work.

Adding the following EventHandler in the constructor of my Frame

    EVT_RIGHT_DOWN( $this , sub{
                     my( $this, $event ) = @_;
                     my $menu = Wx::Menu->new( "Test Menu" );
                     $menu->Append( 5, "Click on me!" );
                     $menu->AppendSeparator();
                     $menu->Append(6, "Quit Test" );
                     $this->PopupMenu( $menu , $event->GetX,
$event->GetY);});

leads to a crash with the Error:

unable to resolve overloaded method for Wx::Window::PopupMenu at c:
\httpd\gimmix\StorableGui\test.pl line 35

when i right-click into the Window.

Any help appreciated....
TIA
Georg Mavridis

PS: I am using Wx-0.11-wxmsw2.2.9-win32 installed on  ActivePerl Build 626

Re: [wxperl-users] how do something after tab pressed in textctrl?

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

> i know:
>     EVT_TEXT and EVT_TEXT_ENTER
> and
>     wxTE_PROCESS_TAB|wxTE_PROCESS_ENTER are set
> 
> which event i can use to do something after tab pressed in textctrl?
EVT_CHAR, as documented in wxTextCtrl documentation.

HTH
Mattia 

[wxperl-users] how do something after tab pressed in textctrl?

[Michal J. <ju...@kn...>]

i know:
    EVT_TEXT and EVT_TEXT_ENTER
and
    wxTE_PROCESS_TAB|wxTE_PROCESS_ENTER are set

which event i can use to do something after tab pressed in textctrl?

-- 
------------------------------
   S pozdravem Michal Jurosz
ro...@se... ICQ#:93348414
     http://mjhome.zde.cz
------------------------------

Re: [wxperl-users] sorting a list

[boo r. <boo...@at...>]

Mattia Barbon wrote:

 >>Overall, Wx::ListCtrl is a very unpleasant and difficult to use control.
 >>For instance:
 >
 > FWIW, I agree, and a lot of people agree. OTOH I think there are enough
 > methods in wxListCtrl so that a, say, Wx::EasyListCtrl can be implemented
 > and released to CPAN. It is a simple matter of programming.
 >
>>Overall I like wxPerl and I recognise that most of the problems are 
>>caused by wxWindows, not the Perl interface... but I do not understand 
>>why Wx::ListCtrl is so awkward to use, and why it does not have a 
>>SetPlData() method.
> 
> Because wxWindows provides no means to implement it (apart from
> using an array internally).

This is actually what I would up doing (in response to my first 
question). If a version of Wx::EasyListCtrl were to materialize, what 
features would help make it more useful and perly? I've already got a 
few down, but  I think its worth asking everyone, just in case I missed 
something :)

(yes, this *is* me volunteering)

Re: [wxperl-users] sorting a list

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

> while I'm being dense, If I read the documentation for 
> wxListCtrl::SortItems correctly, I can only sort on the data for the 
> list items? So how would I make a listview that's sorted on the 3rd 
> column's data, besides using SetItemData to make sure the data's equal 
> to the 3rd column?
use SetItemData to associate each item with some external data that you use
for sorting.

HTH
Mattia

Re: [wxperl-users] sorting a list

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

> boo...@at... wrote:
> 
> > while I'm being dense, If I read the documentation for 
> > wxListCtrl::SortItems correctly, I can only sort on the data for the 
> > list items? So how would I make a listview that's sorted on the 3rd 
> > column's data, besides using SetItemData to make sure the data's equal 
> > to the 3rd column?
> 
> 
> Boo Radley, I think you are correct: you can only sort on an item's 
> data. I think the only way of sorting is as you describe.
> 
> <rant>
> Overall, Wx::ListCtrl is a very unpleasant and difficult to use control. 
> For instance:
FWIW, I agree, and a lot of people agree. OTOH I think there are enough
methods in wxListCtrl so that a, say, Wx::EasyListCtrl can be implemented
and released to CPAN. It is a simple matter of programming.

> - Completely bizarre handling of selections. I would think it would make 
> sense to have a method called GetSelection() or GetSelections() that 
You can use GetNextItem to implement GetSelection[s]

> returns the index of a selected element. Apparently not. You need to set 
> up an event and store the index of the selected item in a global 
> variable. Lovely (!). Even more bizarre is handling of *multiple* 
> selections. If a user selects N items, the event handler for selection 
> is called N items. So you need to store the indices of selected items as 
> keys in hash. Then you need to set up a event handler for items be 
> unselected and delete the index out of the hash.
...no need to do this. There is a post somewhere in the archives
about how to use GetNextItem.

> - No documentation for Perl implementation of wxListItem, so I don't 
> know how to iterate over the list control and use wxListItems to find 
> out if any item is selected.
You could always ask ;-) Anyway it is documented in 2.3 docs:
go to wxPerl site -> wxWindows docs -> alphaetical class reference -> wxListItem

> - When items are inserted into the list, the item inserted first appears 
> at the bottom of the list. This seems to contradict logic IMHO.
Mmh, if you think this is a bug, and you provide wxPerl/wxWindows version,
OS, a small snippet of code demonstrating the behaviour, we can decide
it it is a bug or not.

> - There is no SetPlData() function (as there is for the tree control), 
> the only data that can be associated with an item is a long int. That 
> means if you want to associate any Perl data you need to set up an array 
> and store the index as an item's data.
> 
> What makes this even more bizarre is that Wx::ListBox does actually 
> provide a GetSelections() method and in general seems more sane. But it 
> doesn't have a report view (which you wouldn't expect from a list *box*, 
> so that's OK).....
The trouble is that the ListCtrl interface closely mimicks the Win32
control interface. 

> Overall I like wxPerl and I recognise that most of the problems are 
> caused by wxWindows, not the Perl interface... but I do not understand 
> why Wx::ListCtrl is so awkward to use, and why it does not have a 
> SetPlData() method.
Because wxWindows provides no means to implement it (apart from
using an array internally).

Regards
Mattia

Re: [wxperl-users] sorting a list

[boo r. <boo...@at...>]

Nick Johnston wrote:
> boo...@at... wrote:
> 
>> while I'm being dense, If I read the documentation for 
>> wxListCtrl::SortItems correctly, I can only sort on the data for the 
>> list items? So how would I make a listview that's sorted on the 3rd 
>> column's data, besides using SetItemData to make sure the data's equal 
>> to the 3rd column?
> 
> 
> 
> Boo Radley, I think you are correct: you can only sort on an item's 
> data. I think the only way of sorting is as you describe.
> 
> <rant>
> Overall, Wx::ListCtrl is a very unpleasant and difficult to use control. 
> For instance:
> - Completely bizarre handling of selections. I would think it would make 
> sense to have a method called GetSelection() or GetSelections() that 
> returns the index of a selected element. Apparently not. You need to set 
> up an event and store the index of the selected item in a global 
> variable. Lovely (!). Even more bizarre is handling of *multiple* 
> selections. If a user selects N items, the event handler for selection 
> is called N items. So you need to store the indices of selected items as 
> keys in hash. Then you need to set up a event handler for items be 
> unselected and delete the index out of the hash.
> - No documentation for Perl implementation of wxListItem, so I don't 
> know how to iterate over the list control and use wxListItems to find 
> out if any item is selected.
> - When items are inserted into the list, the item inserted first appears 
> at the bottom of the list. This seems to contradict logic IMHO.
> - There is no SetPlData() function (as there is for the tree control), 
> the only data that can be associated with an item is a long int. That 
> means if you want to associate any Perl data you need to set up an array 
> and store the index as an item's data.
> 
> What makes this even more bizarre is that Wx::ListBox does actually 
> provide a GetSelections() method and in general seems more sane. But it 
> doesn't have a report view (which you wouldn't expect from a list *box*, 
> so that's OK).....
> </rant>
> 
> Overall I like wxPerl and I recognise that most of the problems are 
> caused by wxWindows, not the Perl interface... but I do not understand 
> why Wx::ListCtrl is so awkward to use, and why it does not have a 
> SetPlData() method.
> 
> - Nick
> 
> 
> 
> 

Re: [wxperl-users] perl2exe

[DH <cra...@ya...>]

:D.

I'm afraid that is not TRUE ANYMORE.
Whilst working on PerlBin (an open source replacement for perl2exe)
I've come accross

   exetype.pl

Which will change the startup-mode of your program
from 4 available modes (CONSOLE and WINDOW being 2 of them)


Here it is ;)(Enjoy)

#!perl -w
use strict;

# All the IMAGE_* structures are defined in the WINNT.H file
# of the Microsoft Platform SDK.

my %subsys = (NATIVE    => 1,
              WINDOWS   => 2,
              CONSOLE   => 3,
              POSIX     => 7,
              WINDOWSCE => 9);

unless (0 < @ARGV && @ARGV < 3) {
    printf "Usage: $0 exefile [%s]\n", join '|', sort keys %subsys;
    exit;
}

$ARGV[1] = uc $ARGV[1] if $ARGV[1];
unless (@ARGV == 1 || defined $subsys{$ARGV[1]}) {
    (my $subsys = join(', ', sort keys %subsys)) =~ s/, (\w+)$/ or $1/;
    print "Invalid subsystem $ARGV[1], please use $subsys\n";
    exit;
}

my ($record,$magic,$signature,$offset,$size);
open EXE, "+< $ARGV[0]" or die "Cannot open $ARGV[0]: $!\n";
binmode EXE;

# read IMAGE_DOS_HEADER structure
read EXE, $record, 64;
($magic,$offset) = unpack "Sx58L", $record;

die "$ARGV[0] is not an MSDOS executable file.\n"
    unless $magic == 0x5a4d; # "MZ"

# read signature, IMAGE_FILE_HEADER and first WORD of IMAGE_OPTIONAL_HEADER
seek EXE, $offset, 0;
read EXE, $record, 4+20+2;
($signature,$size,$magic) = unpack "Lx16Sx2S", $record;

die "PE header not found" unless $signature == 0x4550; # "PE\0\0"

die "Optional header is neither in NT32 nor in NT64 format"
    unless ($size == 224 && $magic == 0x10b) || # IMAGE_NT_OPTIONAL_HDR32_MAGIC
           ($size == 240 && $magic == 0x20b);   # IMAGE_NT_OPTIONAL_HDR64_MAGIC

# Offset 68 in the IMAGE_OPTIONAL_HEADER(32|64) is the 16 bit subsystem code
seek EXE, $offset+4+20+68, 0;
if (@ARGV == 1) {
    read EXE, $record, 2;
    my ($subsys) = unpack "S", $record;
    $subsys = {reverse %subsys}->{$subsys} || "UNKNOWN($subsys)";
    print "$ARGV[0] uses the $subsys subsystem.\n";
}
else {
    print EXE pack "S", $subsys{$ARGV[1]};
}
close EXE;
__END__

=head1 NAME

exetype - Change executable subsystem type between "Console" and "Windows"

=head1 SYNOPSIS

	C:\perl\bin> copy perl.exe guiperl.exe
	C:\perl\bin> exetype guiperl.exe windows

=head1 DESCRIPTION

This program edits an executable file to indicate which subsystem the
operating system must invoke for execution.

You can specify any of the following subsystems:

=over

=item CONSOLE

The CONSOLE subsystem handles a Win32 character-mode application that
use a console supplied by the operating system.

=item WINDOWS

The WINDOWS subsystem handles an application that does not require a
console and creates its own windows, if required.

=item NATIVE

The NATIVE subsystem handles a Windows NT device driver.

=item WINDOWSCE

The WINDOWSCE subsystem handles Windows CE consumer electronics
applications.

=item POSIX

The POSIX subsystem handles a POSIX application in Windows NT.

=back

=head1 AUTHOR

Jan Dubois <ja...@ac...> aka Win32::OLE dude

=cut



--- Marcus <li...@wo...> wrote:
> > Which version of perl2exe do you need to buy to work with
> > WxPerl?
> 
> You only need the light version for MSW ($50?). Downside is
> that your program will be non-GUI, i.e. a DOS box opens. You
> can minimize or hide the window with a little code from
> Win32::GUI though. You do that inside BEGIN {}.
> 
> The Pro version makes a real GUI version, and has a few other
> functions.
> 
> Marcus
> 
> 
> 
> 
> 
> -------------------------------------------------------
> 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


__________________________________________________
Do you Yahoo!?
Faith Hill - Exclusive Performances, Videos & More
http://faith.yahoo.com