wxperl-users — For wxPerl users

Re: [wxperl-users] missing method in Wx::ToolBar

[Mattia B. <mat...@li...>]

On Sun, 14 May 2006 13:46:03 +0200
herbert breunung <dei...@we...> wrote:

> an error message in wxperl 0.26 said
> "Can't locate object method "UpdateWindowUI" via package "Wx::ToolBar" 
> at ..."
> but documentation sais it should be there.

  Added to wxPerl 0.52 or 0.53.

Regards
Mattia

Re: [wxperl-users] wxValidator problems

[Mattia B. <mat...@li...>]

On Wed, 28 Jun 2006 16:26:26 +0200
herbert breunung <dei...@we...> wrote:

> when i call $window->GetValidator() i get no object, when i try to assign
> one i fail, there is nothing in the demos about that
> i just wanted to plug an Wx::Validator->SetBellOnError(0) and BTW the 
> artprov.pl
> onto an combobox to stop making noises.

  This will not work. Unless you assign a validator to a window,
the window is not created with a validator, so it is not a validator
making the noises you are hearing.

> in examples seems broken something with imagehandler.
> all best

  Works for me. care to post an error message?

Regards
Mattia

Re: [wxperl-users] Segmentation Fault with perl-wx

[Patrick M. <pma...@fr...>]

Patrick MARION <pmarion20 <at> free.fr> writes:

> 
> I have just downloaded perl-wx on a Mandriva 2006.
> perl-Wx-0.22-1mdk and libwxgtk2.4-2.4.2-8mdk
> 
> perl -e 'use Wx' gives 'Segmentation Fault' 
> 
> Is there anybody who can help me
> 
> -------------------------------------------------------------------------
> Using Tomcat but need to do more? Need to support web services, security?
> Get stuff done quickly with pre-integrated technology to make your job easier
> Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
> 

echo $DISPLAY  gives ':0.0'


I'have tried to compile the latest version from cpan.
I have first install 'Alien' and after 
I have error messages during compile Wx.

Re: [wxperl-users] 0.52 OSX Compile error

[Mattia B. <mat...@li...>]

On Sun, 09 Jul 2006 16:47:12 -0600
Mike Schroeder <Mik...@Do...> wrote:

> Mattia Barbon wrote:
> >   I just found and fixed the bug; I will commit the fix
> > and release 0.53 in an hour or so.
> >
> >   
> Thanks Mattia -- one other thing I found in the generated Makefile -- it 
> fails to create some needed directories at the end for the wxPerl 
> generation for OSX.
> 
> macbook:~/src/Wx-0.53 mike$ diff Makefile.org Makefile
> 1077a1078,1080
>  >       mkdir -p cpp/wxPerl.osx/build/wxPerl.app
>  >       mkdir -p cpp/wxPerl.osx/build/wxPerl.app/Contents
>  >       mkdir -p cpp/wxPerl.osx/build/wxPerl.app/Contents/MacOS

  ? These directories should be created by xcodebuild.
Which directories are created instead?

Thanks!
Mattia

Re: [wxperl-users] Segmentation Fault with perl-wx

[Mattia B. <mat...@li...>]

On Sat, 15 Jul 2006 07:36:18 +0000 (UTC)
Patrick MARION <pma...@fr...> wrote:

  Hello,

> I have just downloaded perl-wx on a Mandriva 2006.
> perl-Wx-0.22-1mdk and libwxgtk2.4-2.4.2-8mdk
> 
> perl -e 'use Wx' gives 'Segmentation Fault' 

  Both wxPerl 0.22 and wxWidgets 2.4.2 are ancient...
I strongly advise you upgrade to more recent
wxPerl/wxWidgets.

  Having said that, is DISPLAY set?

Regards
Mattia

Re: [wxperl-users] displaying currently open files in the Window menu

[Mattia B. <mat...@li...>]

On Fri, 14 Jul 2006 13:56:23 +0100
Andrew <sob...@gm...> wrote:

  Hello,

> we have an app using wxPerl that uses a Wx::DocMDIParentFrame and
> Wx::DocMDIChildFrames.  Since upgrading from wxPerl 0.24 to 0.26, the
> window menu no longer displays a list of open files.

  I think this is due to the last doc/view patch by Simon Flack.
You should contact him because I know next to nothing about DocView.

> It used to do this under wxPerl 0.24.  I notice that the demo
> application (Miscellanous->MDI) for wxPerl 0.26 also does not display
> currently open child frames in the Window menu.

  I doubt it ever did. Please note the demo is about Wx::MDIParent/ChildFrame,
not Wx::DocMDIParent/ChildFrame

> Is this a bug in wxPerl 0.26 or is there something special that needs
> to be done to display currently open files in the Window menu?

  I think the latter, but please ask Simon Flack (and please report his
answer on list).

Thanks!
Mattia

  

[wxperl-users] Segmentation Fault with perl-wx

[Patrick M. <pma...@fr...>]

I have just downloaded perl-wx on a Mandriva 2006.
perl-Wx-0.22-1mdk and libwxgtk2.4-2.4.2-8mdk



perl -e 'use Wx' gives 'Segmentation Fault' 

Is there anybody who can help me

Re: [wxperl-users] Error using wxBUFFER_CLIENT_AREA

[Mattia B. <mat...@li...>]

On Wed, 12 Jul 2006 15:43:57 +0200
"Mark Wardell" <ma...@ne...> wrote:

  Hello,

> I am trying to used the $dc->BufferedPaintDC( $window, wxBUFFER_CLIENT_AREA
> )  but I get the runtime error 
>  
> Error while autoloading "Wx::wxBUFFER_CLIENT_AREA" even though i use Wx qw(
> wxBUFFER_CLIENT_AREA )

  The flags were incorrectly conditioned to be available
under wxWidgets 2.7.x only. Fixed in CVS.

  You can use as a workaround

wxBUFFER_VIRTUAL_AREA       0x01
wxBUFFER_CLIENT_AREA        0x02

Regards
Mattia

[wxperl-users] displaying currently open files in the Window menu

[Andrew <sob...@gm...>]

Hi,
we have an app using wxPerl that uses a Wx::DocMDIParentFrame and
Wx::DocMDIChildFrames.  Since upgrading from wxPerl 0.24 to 0.26, the
window menu no longer displays a list of open files.
It used to do this under wxPerl 0.24.  I notice that the demo
application (Miscellanous->MDI) for wxPerl 0.26 also does not display
currently open child frames in the Window menu.
Is this a bug in wxPerl 0.26 or is there something special that needs
to be done to display currently open files in the Window menu?
cheers,
Andrew

Re: [wxperl-users] Missing stuff regarding Wx::MediaCtrl

[Mattia B. <mat...@li...>]

On Thu, 13 Jul 2006 08:53:17 +0200
Jouke Visser <jo...@pv...> wrote:

  Hello,

> I've finally come around installing the latest Alien::wxWidgets (0.18) 
> and the latest cvs snapshot of wxPerl (this morning), and when I try to 
> use the EVT_MEDIA_LOADED, I get

  Fixed.

Regards
Mattia

Re: [wxperl-users] panel refrash ?

[Manfred H. <m.h...@ki...>]

Hello,

i have solve my problem.

in the "new" subroutine, i create a new panel object.
$this->{panel} = Wx::Panel->new( $this, -1);

after that in the ps and ps1 subroutine, i destroy the panel
and create a new one.

The old StaticText from ps or ps1 will be delete.

Manfred

Am Dienstag, den 11.07.2006, 22:03 +0200 schrieb Manfred Hansen:
> Hello,
> 
> i have little bit extend the minimal.pl example with two panel's in the
> subroutine Ps and Ps1.
> 
> When i switch from Ps to Ps1 in the MenUBar, the StaticText isn't show
> correctly.
> I believe i must rehash the panel or write the panel new?
> 
> Have someone an idea what i doing wrong here?
> 
> Manfred
> 
> #!/usr/bin/perl
> 
> use Wx;
> 
> package MyApp;
> 
> use strict;
> use vars qw(@ISA);
> 
> @ISA=qw(Wx::App);
> 
> sub OnInit {
>   my( $this ) = @_;
> 
>   # create new MyFrame
>   my( $frame ) = MyFrame->new( "Minimal wxPerl app",
> 			       Wx::Point->new( 50, 50 ),
> 			       Wx::Size->new( 450, 350 )
>                              );
> 
>   $this->SetTopWindow( $frame );
>   # show the frame
>   $frame->Show( 1 );
> 
>   1;
> }
> 
> package MyFrame;
> 
> use strict;
> use vars qw(@ISA);
> 
> @ISA=qw(Wx::Frame);
> 
> use Wx::Event qw(EVT_MENU);
> use Wx qw(wxBITMAP_TYPE_ICO wxMENU_TEAROFF);
> 
> # Parameters: title, position, size
> sub new {
>   my( $class ) = shift;
>   my( $this ) = $class->SUPER::new( undef, -1, $_[0], $_[1], $_[2] );
> 
>   # load an icon and set it as frame icon
>   $this->SetIcon( Wx::GetWxPerlIcon() );
> 
>   # create the menus
>   my( $mfile ) = Wx::Menu->new( undef, wxMENU_TEAROFF );
>   my( $mhelp ) = Wx::Menu->new();
> 
>   my( $ID_ABOUT, $ID_EXIT, $ID_PS, $ID_PS1 ) = ( 1, 2, 3, 4 );
>   $mhelp->Append( $ID_ABOUT, "&About...\tCtrl-A", "Show about dialog" );
>   $mhelp->Append( $ID_PS, "&PS...\tCtrl-P", "PS" );
>   $mhelp->Append( $ID_PS1, "&PS1...\tCtrl-P", "PS1" );
>   $mfile->Append( $ID_EXIT, "E&xit\tAlt-X", "Quit this program" );
> 
>   my( $mbar ) = Wx::MenuBar->new();
> 
>   $mbar->Append( $mfile, "&File" );
>   $mbar->Append( $mhelp, "&Help" );
> 
>   $this->SetMenuBar( $mbar );
> 
>   # declare that events coming from menu items with the given
>   # id will be handled by these routines
>   EVT_MENU( $this, $ID_EXIT, \&OnQuit );
>   EVT_MENU( $this, $ID_ABOUT, \&OnAbout );
>   EVT_MENU( $this, $ID_PS, \&Ps );
>   EVT_MENU( $this, $ID_PS1, \&Ps1 );
> 
>   # create a status bar (note that the status bar that gets created
>   # has three panes, see the OnCreateStatusBar callback below
>   $this->CreateStatusBar( 1 );
>   # and show a message
>   $this->SetStatusText( "Welcome to wxPerl!", 1 );
> 
>   #my( $panel ) = Wx::Panel->new( $this, -1 );
> 
>   $this;
> }
> 
> # this is an addition to demonstrate virtual callbacks...
> # it ignores all parameters and creates a status bar with three fields
> sub OnCreateStatusBar {
>   my( $this ) = shift;
>   my( $status ) = Wx::StatusBar->new( $this, -1 );
> 
>   $status->SetFieldsCount( 2 );
> 
>   $status;
> }
> 
> # called when the user selects the 'Exit' menu item
> sub OnQuit {
>   my( $this, $event ) = @_;
> 
>   # closes the frame
>   $this->Close( 1 );
> }
> 
> use Wx qw(wxOK wxICON_INFORMATION wxVERSION_STRING wxVERTICAL wxLEFT);
> 
> # called when the user selects the 'About' menu item
> sub OnAbout {
>   my( $this, $event ) = @_;
> 
>   # display a simple about box
>   Wx::MessageBox( "This is the about dialog of minimal sample.\n" .
> 		  "Welcome to wxPerl " . $Wx::VERSION . "\n" .
> 		  wxVERSION_STRING,
> 		  "About minimal", wxOK | wxICON_INFORMATION,
> 		  $this );
> }
> 
> sub Ps {
> 	my( $this, $event ) = @_;
> 	print"Hallo Ps \n";	
> 	my $panel = Wx::Panel->new( $this, -1);
> 	my $label = new Wx::StaticText( $panel, -1, "Bitte Ps !",[ 20, 20 ],
> [ 250, 15 ] );
> 
> 	my $r0_sizer = Wx::BoxSizer->new(wxVERTICAL);
> 	$r0_sizer->Add($label,0, wxLEFT, 5);
> 	$panel->SetSizer($r0_sizer);
> 	$panel->SetAutoLayout(1);
> }
> 
> sub Ps1 {
> 	my( $this, $event ) = @_;
> 	print"Hallo Ps1 \n";	
> 	my $panel = Wx::Panel->new( $this, -1);
> 	my $label = new Wx::StaticText( $panel, -1, "Bitte Ps1!",[ 20, 20 ],
> [ 250, 15 ] );
> 	my $r0_sizer = Wx::BoxSizer->new(wxVERTICAL);
> 	$r0_sizer->Add($label,0, wxLEFT, 5);
> 	$panel->SetSizer($r0_sizer);
> 	$panel->SetAutoLayout(1);
> }	
> 
> package main;
> 
> # create an instance of the Wx::App-derived class
> my( $app ) = MyApp->new();
> # start processing events
> $app->MainLoop();
> 
> 
> 
> 
> 
> 
> 
> -------------------------------------------------------------------------
> Using Tomcat but need to do more? Need to support web services, security?
> Get stuff done quickly with pre-integrated technology to make your job easier
> Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
> _______________________________________________
> wxperl-users mailing list
> wxp...@li...
> https://lists.sourceforge.net/lists/listinfo/wxperl-users

Re: [wxperl-users] Missing stuff regarding Wx::MediaCtrl

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

Hi Mattia,

I've finally come around installing the latest Alien::wxWidgets (0.18) 
and the latest cvs snapshot of wxPerl (this morning), and when I try to 
use the EVT_MEDIA_LOADED, I get

Error while autoloading 'Wx::wxEVT_MEDIA_LOADED' at 
C:/Perl/site/lib/Wx/Media.pm line 43

So something is still wrong I think...

Regards,

Jouke
Mattia Barbon wrote:
> On Fri, 30 Jun 2006 09:10:44 +0200
> Jouke Visser <jo...@pv...> wrote:
> 
>   Hello,
> 
>> If I do
>>
>> use Wx qw(:allclasses)
>>
>> it doesn't include Wx::Media, so I have to explicitly use that. I think 
>> that shouldn't be necessary.
> 
>   Agreed and done.
>  
>> Besides that, I couldn't discover where (if at all) the following 
>> constants are defined:
> 
>> wxMEDIASTATE_STOPPED
>> wxMEDIASTATE_PAUSED
>> wxMEDIASTATE_PLAYING
>> wxMEDIACTRLPLAYERCONTROLS_NONE
>> wxMEDIACTRLPLAYERCONTROLS_DEFAULT
> 
>   ext/media/cpp/me_constants.h, but there were a couple of
> errors that meant the definitions weren't used
> 
>> wxMEDIABACKEND_DIRECTSHOW
>> wxMEDIABACKEND_QUICKTIME
>> wxMEDIABACKEND_MCI
>> wxMEDIABACKEND_GSTREAMER
> 
>   Missing and added.
> 
>> I've tried using Wx with :everything, explicitly importing these 
>> constants, and doing the same for Wx::Media, but it seems they haven't 
>> been defined (yet).
>>
>> Could you include these before the 0.51 release?
> 
>   Done. Now let's hope I can fix the MSVC8 build problems...
> 
> Thanks!
> Mattia
> 
> Using Tomcat but need to do more? Need to support web services, security?
> Get stuff done quickly with pre-integrated technology to make your job easier
> Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
> _______________________________________________
> wxperl-users mailing list
> wxp...@li...
> https://lists.sourceforge.net/lists/listinfo/wxperl-users

[wxperl-users] Error using wxBUFFER_CLIENT_AREA

[Mark W. <ma...@ne...>]

Hi All,
 
I am trying to used the $dc->BufferedPaintDC( $window, wxBUFFER_CLIENT_AREA
)  but I get the runtime error 
 
Error while autoloading "Wx::wxBUFFER_CLIENT_AREA" even though i use Wx qw(
wxBUFFER_CLIENT_AREA )
 
Has anyone else used the BufferedPaintDC successfully.
 
I am using wxPerl 0.50 on WinXP SP2, wxWidgets 2.6.3
 
Many thanks
Mark

Re: [wxperl-users] wxPerl on wxX11 ?

[Mattia B. \<mattia\.barbon\@libero\.it\> <mat...@li...>]

> --- John Ralls <jr...@ce...> wrote:
> 
> > 
> > On Jul 11, 2006, at 5:31 PM, Sergei Steshenko wrote:
> > 
> > > Hello All,
> > >
> > > is it possible to compile wxPerl on wxX11 rather than on wxGTK ?
> > >
> > > If yes, will it be functional ?
> > >
> > > Thanks,
> > >   Sergei.
> > 
> > If wxX11 works (which is to say, if you can build it and run some of =
 
> > the samples), then wxPerl will work fine with it. wxPerl doesn't care=
  
> > about what build of wx it is linked against as long as the build work=
s.
> > 
> > I'm curious why would you prefer to run wxX11 instead of wxGTK? Do  
> > you really like the Motif look and feel?

  wxX11 can _emulate_ Win32 and GTK look&feel.

> Well, my machine is not too fast (AthlonXP 1900+), and the GUI I'm goin=
g to build is
> intended for a very heavy real time audio application, so I want the li=
ghtest
> possible GUI implementation.

  wxGTK is (IMHO) much lighter than wxX11 in terms of CPU; it depends on =
more libraries, but this usually isn't a problem. Most important for me:
wxGTK is much more stable.
 
> I did build wxX11, though Motiff was not specified:
> 
> "
> Configured wxWidgets 2.6.3 for `i686-pc-linux-gnu'
> 
>   Which GUI toolkit should wxWidgets use?                 x11
>   Should wxWidgets be compiled into single library?       no
>   Should wxWidgets be compiled in debug mode?             no
>   Should wxWidgets be linked as a shared library?         yes
>   Should wxWidgets be compiled in Unicode mode?           no
>   What level of wxWidgets compatibility should be enabled?
>                                        wxWidgets 2.2      no
>                                        wxWidgets 2.4      yes
>   Which libraries should wxWidgets use?
>                                        jpeg               sys
>                                        png                sys
>                                        regex              sys
>                                        tiff               sys
>                                        xpm                yes
>                                        zlib               sys
>                                        odbc               no
>                                        expat              sys
>                                        libmspack          no
>                                        sdl                no
>                                        gnomeprint         no
>                                        hildon             no
> ".
> 
> I haven't tried a demo of it yet. Can't even find any binary under
> demos - just sources.

  You need to 'make' demos and samples separately.
(cd demos && make; cd samples && make).

> Does absence of Motiff matter from the point of view compatibility
> with Perl ?

  No.

Regards
Mattia

Re: [wxperl-users] compiling wxPerl 0.53 without 'Alien'

[Mattia B. \<mattia\.barbon\@libero\.it\> <mat...@li...>]

  Hi,

> is there a way to compile wxPerl 0.53 without 'Alien' ?

  No.

Regards
Mattia

Re: [wxperl-users] wxPerl on wxX11 ?

[Mattia B. \<mattia\.barbon\@libero\.it\> <mat...@li...>]

  Hello,

> is it possible to compile wxPerl on wxX11 rather than on wxGTK ?

  It should be possible.

> If yes, will it be functional ?

  As functional as wxX11 itself, I guess.

Regards
Mattia

[wxperl-users] Fwd: Re: wxPerl on wxX11 ?

[Sergei S. <ser...@ya...>]

Note: forwarded message attached.


Applications From Scratch: http://appsfromscratch.berlios.de/

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

[wxperl-users] wxPerl on wxX11 ?

[Sergei S. <ser...@ya...>]

Hello All,

is it possible to compile wxPerl on wxX11 rather than on wxGTK ?

If yes, will it be functional ?

Thanks,
  Sergei.

Applications From Scratch: http://appsfromscratch.berlios.de/

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

[wxperl-users] compiling wxPerl 0.53 without 'Alien'

[Sergei S. <ser...@ya...>]

Hello All,

is there a way to compile wxPerl 0.53 without 'Alien' ?

I mean, in the same manner wxPerl 0.26 used to be compiled ?

Thanks,
  Sergei.



Applications From Scratch: http://appsfromscratch.berlios.de/

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

Re: [wxperl-users] 0.51 compile error

[Mattia B. <mat...@li...>]

On Mon, 10 Jul 2006 00:11:19 +0200
herbert breunung <dei...@we...> wrote:

> it was  2.6.1.2

  2.6.1 works for me with wxPerl 0.53, it's likely to be already fixed.

Regards
Mattia
 
> Mattia Barbon wrote:
> > On Sat, 08 Jul 2006 12:24:59 +0200
> > herbert breunung <dei...@we...> wrote:
> >
> >   Hello,
> >
> >   
> >> maybe i help you, when i pointing you to some problems one of our board members had to compile wxperl. shure its german but may the errormsg is helpful to you.
> >>
> >> http://board.perl-community.de/cgi-bin/ikonboard/ikonboard.cgi?s=60d7df9b51ef5e4a660626f7e5310cf1;act=ST;f=4;t=207;st=0;r=1;&#entry6
> >>     
> >
> >   I understand the poster is using Linux, but in this
> > case the important part is: which wxWidgets version?
> >
> >   Could you ask them for me? (I do not know German...)
> >
> > Thanks,
> > Mattia
> >
> >   
> 
> 
> 
> -------------------------------------------------------------------------
> Using Tomcat but need to do more? Need to support web services, security?
> Get stuff done quickly with pre-integrated technology to make your job easier
> Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
> _______________________________________________
> wxperl-users mailing list
> wxp...@li...
> https://lists.sourceforge.net/lists/listinfo/wxperl-users

[wxperl-users] panel refrash ?

[Manfred H. <m.h...@ki...>]

Hello,

i have little bit extend the minimal.pl example with two panel's in the
subroutine Ps and Ps1.

When i switch from Ps to Ps1 in the MenUBar, the StaticText isn't show
correctly.
I believe i must rehash the panel or write the panel new?

Have someone an idea what i doing wrong here?

Manfred

#!/usr/bin/perl

use Wx;

package MyApp;

use strict;
use vars qw(@ISA);

@ISA=qw(Wx::App);

sub OnInit {
  my( $this ) = @_;

  # create new MyFrame
  my( $frame ) = MyFrame->new( "Minimal wxPerl app",
			       Wx::Point->new( 50, 50 ),
			       Wx::Size->new( 450, 350 )
                             );

  $this->SetTopWindow( $frame );
  # show the frame
  $frame->Show( 1 );

  1;
}

package MyFrame;

use strict;
use vars qw(@ISA);

@ISA=qw(Wx::Frame);

use Wx::Event qw(EVT_MENU);
use Wx qw(wxBITMAP_TYPE_ICO wxMENU_TEAROFF);

# Parameters: title, position, size
sub new {
  my( $class ) = shift;
  my( $this ) = $class->SUPER::new( undef, -1, $_[0], $_[1], $_[2] );

  # load an icon and set it as frame icon
  $this->SetIcon( Wx::GetWxPerlIcon() );

  # create the menus
  my( $mfile ) = Wx::Menu->new( undef, wxMENU_TEAROFF );
  my( $mhelp ) = Wx::Menu->new();

  my( $ID_ABOUT, $ID_EXIT, $ID_PS, $ID_PS1 ) = ( 1, 2, 3, 4 );
  $mhelp->Append( $ID_ABOUT, "&About...\tCtrl-A", "Show about dialog" );
  $mhelp->Append( $ID_PS, "&PS...\tCtrl-P", "PS" );
  $mhelp->Append( $ID_PS1, "&PS1...\tCtrl-P", "PS1" );
  $mfile->Append( $ID_EXIT, "E&xit\tAlt-X", "Quit this program" );

  my( $mbar ) = Wx::MenuBar->new();

  $mbar->Append( $mfile, "&File" );
  $mbar->Append( $mhelp, "&Help" );

  $this->SetMenuBar( $mbar );

  # declare that events coming from menu items with the given
  # id will be handled by these routines
  EVT_MENU( $this, $ID_EXIT, \&OnQuit );
  EVT_MENU( $this, $ID_ABOUT, \&OnAbout );
  EVT_MENU( $this, $ID_PS, \&Ps );
  EVT_MENU( $this, $ID_PS1, \&Ps1 );

  # create a status bar (note that the status bar that gets created
  # has three panes, see the OnCreateStatusBar callback below
  $this->CreateStatusBar( 1 );
  # and show a message
  $this->SetStatusText( "Welcome to wxPerl!", 1 );

  #my( $panel ) = Wx::Panel->new( $this, -1 );

  $this;
}

# this is an addition to demonstrate virtual callbacks...
# it ignores all parameters and creates a status bar with three fields
sub OnCreateStatusBar {
  my( $this ) = shift;
  my( $status ) = Wx::StatusBar->new( $this, -1 );

  $status->SetFieldsCount( 2 );

  $status;
}

# called when the user selects the 'Exit' menu item
sub OnQuit {
  my( $this, $event ) = @_;

  # closes the frame
  $this->Close( 1 );
}

use Wx qw(wxOK wxICON_INFORMATION wxVERSION_STRING wxVERTICAL wxLEFT);

# called when the user selects the 'About' menu item
sub OnAbout {
  my( $this, $event ) = @_;

  # display a simple about box
  Wx::MessageBox( "This is the about dialog of minimal sample.\n" .
		  "Welcome to wxPerl " . $Wx::VERSION . "\n" .
		  wxVERSION_STRING,
		  "About minimal", wxOK | wxICON_INFORMATION,
		  $this );
}

sub Ps {
	my( $this, $event ) = @_;
	print"Hallo Ps \n";	
	my $panel = Wx::Panel->new( $this, -1);
	my $label = new Wx::StaticText( $panel, -1, "Bitte Ps !",[ 20, 20 ],
[ 250, 15 ] );

	my $r0_sizer = Wx::BoxSizer->new(wxVERTICAL);
	$r0_sizer->Add($label,0, wxLEFT, 5);
	$panel->SetSizer($r0_sizer);
	$panel->SetAutoLayout(1);
}

sub Ps1 {
	my( $this, $event ) = @_;
	print"Hallo Ps1 \n";	
	my $panel = Wx::Panel->new( $this, -1);
	my $label = new Wx::StaticText( $panel, -1, "Bitte Ps1!",[ 20, 20 ],
[ 250, 15 ] );
	my $r0_sizer = Wx::BoxSizer->new(wxVERTICAL);
	$r0_sizer->Add($label,0, wxLEFT, 5);
	$panel->SetSizer($r0_sizer);
	$panel->SetAutoLayout(1);
}	

package main;

# create an instance of the Wx::App-derived class
my( $app ) = MyApp->new();
# start processing events
$app->MainLoop();

Re: [wxperl-users] TextCrtl select all text when control is entered

[Grumm, C. <car...@ch...>]

>  CallAfter is just a nice wrapper for calling a function once
> in idle time (must implement it in wxPerl, too). Just set a flag
> in EVT_FOCUS, and in EVT_IDLE call SetSelection iff the flag is set.
>=20
> HTH
> Mattia
=20
That's it!! :-)

Thank you for your help.

Carsten

[wxperl-users] welcome to AppsFromScratch

[Sergei S. <ser...@ya...>]

 
 

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

Re: [wxperl-users] TextCrtl select all text when control is entered

[Mattia B. <mat...@li...>]

On Mon, 10 Jul 2006 19:41:58 +0200
"Grumm, Carsten" <car...@ch...> wrote:

  Hi,

> I'm trying to have all text selected when a user enters the textcontrol.
> I've tried using EVT_SET_FOCUS like this:
> 
> sub OnSetFocus {
> 	my ($this, $event) = @_;
> 	$this->SetSelection(-1, -1);
> }
> 
> ... but that doesn't work.
> 
> I've found some Pythoncode
> (http://aspn.activestate.com/ASPN/Mail/Message/wxPython-users/2086900) 
> where Wx::CallAfter is used, but I don't know how to do this in wxPerl?

  CallAfter is just a nice wrapper for calling a function once
in idle time (must implement it in wxPerl, too). Just set a flag
in EVT_FOCUS, and in EVT_IDLE call SetSelection iff the flag is set.

HTH
Mattia

[wxperl-users] TextCrtl select all text when control is entered

[Grumm, C. <car...@ch...>]

Hello,

I'm trying to have all text selected when a user enters the textcontrol.
I've tried using EVT_SET_FOCUS like this:

sub OnSetFocus {
	my ($this, $event) =3D @_;
	$this->SetSelection(-1, -1);
}

... but that doesn't work.

I've found some Pythoncode
(http://aspn.activestate.com/ASPN/Mail/Message/wxPython-users/2086900)=20
where Wx::CallAfter is used, but I don't know how to do this in wxPerl?

Thanks in adv.

Carsten