wxperl-users — For wxPerl users

Re: [wxperl-users] Activestate and WxPerl

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

I don't think so.
ActivePerl's PPM has on occasion had the brilliance to not know WTF it is
comparing when checking operating systems etc...

I've had this happen, so just extract the ppm package
and then run (while cd'ing to the directory with the blib directory in it)

#!/usr/bin/perl -w
use Cwd;
use strict;
use Config;
use ExtUtils::Install;

use ActivePerl::DocTools;
my %current_package;
##########################################################################################
$current_package{'NAME'} = 'Wx';
##########################################################################################
    my $inst_archlib = $Config{installsitearch};
    my $inst_root = $Config{prefix};
    my $packlist = MM->catfile("$Config{installsitearch}/auto",
        split(/-/, $current_package{'NAME'}), ".packlist");

    # copied from ExtUtils::Install
    my $INST_LIB = MM->catdir(MM->curdir,"blib","lib");
    my $INST_ARCHLIB = MM->catdir(MM->curdir,"blib","arch");
    my $INST_BIN = MM->catdir(MM->curdir,'blib','bin');
    my $INST_SCRIPT = MM->catdir(MM->curdir,'blib','script');
    my $INST_MAN1DIR = MM->catdir(MM->curdir,'blib','man1');
    my $INST_MAN3DIR = MM->catdir(MM->curdir,'blib','man3');
    my $INST_HTMLDIR = MM->catdir(MM->curdir,'blib','html');
    my $INST_HTMLHELPDIR = MM->catdir(MM->curdir,'blib','htmlhelp');

    my $inst_script = $Config{installscript};
    my $inst_man1dir = $Config{installman1dir};
    my $inst_man3dir = $Config{installman3dir};
    my $inst_bin = $Config{installbin};
    my $inst_htmldir = $Config{installhtmldir};
    my $inst_htmlhelpdir = $Config{installhtmlhelpdir};
    my $inst_lib = $Config{installsitelib};

    while (1) {
        my $cwd = getcwd();
        $cwd .= "/" if $cwd =~ /[a-z]:$/i;
        eval {
            ExtUtils::Install::install({
            "read" => $packlist, "write" => $packlist,
            $INST_LIB => $inst_lib, $INST_ARCHLIB => $inst_archlib,
            $INST_BIN => $inst_bin, $INST_SCRIPT => $inst_script,
            $INST_MAN1DIR => $inst_man1dir, $INST_MAN3DIR => $inst_man3dir,
            $INST_HTMLDIR => $inst_htmldir,
            $INST_HTMLHELPDIR => $inst_htmlhelpdir},0,0,0);
        };
        # install might have croaked in another directory
        chdir($cwd);
        # Can't remove some DLLs, but we can rename them and try again.
        if ($@ && $@ =~ /Cannot forceunlink (\S+)/) {
            my $oldname = $1;
            $oldname =~ s/:$//;
            my $newname = $oldname . "." . time();
            unless (rename($oldname, $newname)) {
                return 0;
            }
        }
        # Some other error
        elsif($@) {
            return 0;
        }
        else { last; }
    }


If you want the latest binary version of perl, try
my PPM package repository

http://crazyinsomniac.perlmonk.org/perl/ppm

It has perl 5.7.3.  BTW - I also take requests
( but not for Wx, cause Mattia is kind enough to provide those already )


--- Jay Strauss <me...@he...> wrote:
> Hi,
> 
> <I've read through the archives first, before posting>
> 
> I just installed Activestate (v5.6.1, below is the output of perl -V).  Then
> following the readme (I untarred/unzipped to d:\data\download\wxperl). I
> tried to install and I'm getting:
> 
> D:\Data\Download\WXPerl>ppm install --location=. Wx
> Installing package 'Wx'...
> Error installing package 'Wx': Read a PPD for 'Wx', but it is not intended
> for this build of Perl (MSWin32-x86-multi-thread)
> 
> 2 questions:
> 1) suggestion on fixing the above?
> 2) Do I need to install WxWindows in addition to WxPerl (I think so)?  any
> howtos or pointer you could give me?
> 
> Thanks
> Jay
> 
> 
> 
> 
> C:\>perl -V
> Summary of my perl5 (revision 5 version 6 subversion 1) configuration:
>   Platform:
>     osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
>     uname=''
>     config_args='undef'
>     hint=recommended, useposix=true, d_sigaction=undef
>     usethreads=undef use5005threads=undef useithreads=define
> usemultiplicity=def
> ine
>     useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
>     use64bitint=undef use64bitall=undef uselongdouble=undef
>   Compiler:
>     cc='cl', ccflags
> ='-nologo -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -
> DHAVE_DES_FCRYPT  -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_
> READ
> FIX',
>     optimize='-O1 -MD -DNDEBUG',
>     cppflags='-DWIN32'
>     ccversion='', gccversion='', gccosandvers=''
>     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
>     d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
>     ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
> lseeksize
> =4
>     alignbytes=8, usemymalloc=n, prototype=define
>   Linker and Libraries:
>     ld='link', ldflags
> '-nologo -nodefaultlib -release  -libpath:"C:\Perl\lib\C
> ORE"  -machine:x86'
>     libpth="C:\Perl\lib\CORE"
>     libs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
> comdlg32
> .lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib uuid.lib
> wsoc
> k32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib msvcrt.lib
>     perllibs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
> comd
> lg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib
> uuid.lib
> wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib
> msvcrt.lib
>     libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl56.lib
>   Dynamic Linking:
>     dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
>     cccdlflags=' ',
> ddlflags='-dll -nologo -nodefaultlib -release  -libpath:"C:
> \Perl\lib\CORE"  -machine:x86'
> 
> 
> Characteristics of this binary (from libperl):
>   Compile-time options: MULTIPLICITY USE_ITHREADS PERL_IMPLICIT_CONTEXT
> PERL_IMP
> LICIT_SYS
>   Locally applied patches:
>         ActivePerl Build 631
>   Built under MSWin32
>   Compiled at Jan  2 2002 17:16:22
>   @INC:
>     C:/Perl/lib
>     C:/Perl/site/lib
>     .
> 
> 
> _______________________________________________________________
> 
> 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


__________________________________________________
Do You Yahoo!?
LAUNCH - Your Yahoo! Music Experience
http://launch.yahoo.com

[wxperl-users] Activestate and WxPerl

[Jay S. <me...@he...>]

Hi,

<I've read through the archives first, before posting>

I just installed Activestate (v5.6.1, below is the output of perl -V).  Then
following the readme (I untarred/unzipped to d:\data\download\wxperl). I
tried to install and I'm getting:

D:\Data\Download\WXPerl>ppm install --location=. Wx
Installing package 'Wx'...
Error installing package 'Wx': Read a PPD for 'Wx', but it is not intended
for this build of Perl (MSWin32-x86-multi-thread)

2 questions:
1) suggestion on fixing the above?
2) Do I need to install WxWindows in addition to WxPerl (I think so)?  any
howtos or pointer you could give me?

Thanks
Jay




C:\>perl -V
Summary of my perl5 (revision 5 version 6 subversion 1) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
    uname=''
    config_args='undef'
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef use5005threads=undef useithreads=define
usemultiplicity=def
ine
    useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    cc='cl', ccflags
='-nologo -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -
DHAVE_DES_FCRYPT  -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_
READ
FIX',
    optimize='-O1 -MD -DNDEBUG',
    cppflags='-DWIN32'
    ccversion='', gccversion='', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize
=4
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='link', ldflags
'-nologo -nodefaultlib -release  -libpath:"C:\Perl\lib\C
ORE"  -machine:x86'
    libpth="C:\Perl\lib\CORE"
    libs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32
.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib uuid.lib
wsoc
k32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib msvcrt.lib
    perllibs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comd
lg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib
uuid.lib
wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib
msvcrt.lib
    libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl56.lib
  Dynamic Linking:
    dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ',
ddlflags='-dll -nologo -nodefaultlib -release  -libpath:"C:
\Perl\lib\CORE"  -machine:x86'


Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY USE_ITHREADS PERL_IMPLICIT_CONTEXT
PERL_IMP
LICIT_SYS
  Locally applied patches:
        ActivePerl Build 631
  Built under MSWin32
  Compiled at Jan  2 2002 17:16:22
  @INC:
    C:/Perl/lib
    C:/Perl/site/lib
    .

Re: [wxperl-users] compiling wxPerl under Mac OS X

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

ok, I've read the mailing list and have compiled Python.app as 
described. I saw the tail of the output, and planned to make such 
modifications to the Perl compilation, but right now I'm having problems 
getting Perl to compile at all under OS X. it's late, so I'll have 
another go tomorrow, but I'm concerned that this may prove problematic. 
the fact is, OS X comes with Perl 5.6.0, so few people perhaps will have 
bothered to re-compile Perl. we'll see...

/dave

On Wednesday, May 15, 2002, at 12:03 , Mattia Barbon wrote:

> On Tue, 14 May 2002, Dave Roe wrote:
>
>> I'm trying my hand at this using the latest CVS versions of wxMAC and
>> wxPerl.
>>
>> 6) Wx_Bitmap::SetMask()
>> XS/Bitmap.xs: In function `void XS_Wx__Bitmap_SetMask(CV *)':
>> /usr/local/include/wx/mac/bitmap.h:35: `wxMask::wxMask(const wxMask &)'
>> is private
>> XS/Bitmap.xs:328: within this context
> Will ( try to ) correct.
>
>> having "worked around" those, I got everything to compile without other
>> errors. unsurprisingly, perl minimal.pl still compiles but fails to
>> display a window.
>>
>> I would very much like to see wxPerl running under OS X and am 
>> available
>> to any extent to help with compiling, test, debugging. I hope the above
>> is helpful - please let me know what other steps I can take to help.
> I think ( not having a Mac, anc knowing almost nothing about Mac )
> that you need to compile Perl as a Mac App. wxPython folks did that
> ( compiling the Python interpreter as a Mac App ) and it worked.
> Details are in the wxpython-mac archives 
> ( http://lists.wxwindows.org/ ).
>
> The idea is:
> 1) follow the instructions to build Python as a Mac App
>    ./configure --with-frameworks # or something like this
>    cd Mac/OSX
>    make -n |less
>
>    and look at the output of the last command
> 2) try to do that to perl
>    ./Configure  # answer a lot of questions
>    make
>    # look at the step when it links the perl executable
>    # and try to modify it to do what Python does
>
> 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] compiling wxPerl under Mac OS X

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

On Tue, 14 May 2002, Dave Roe wrote:

>I'm trying my hand at this using the latest CVS versions of wxMAC and
>wxPerl.
>
>6) Wx_Bitmap::SetMask()
>XS/Bitmap.xs: In function `void XS_Wx__Bitmap_SetMask(CV *)':
>/usr/local/include/wx/mac/bitmap.h:35: `wxMask::wxMask(const wxMask &)'
>is private
>XS/Bitmap.xs:328: within this context
Will ( try to ) correct.

>having "worked around" those, I got everything to compile without other
>errors. unsurprisingly, perl minimal.pl still compiles but fails to
>display a window.
>
>I would very much like to see wxPerl running under OS X and am available
>to any extent to help with compiling, test, debugging. I hope the above
>is helpful - please let me know what other steps I can take to help.
I think ( not having a Mac, anc knowing almost nothing about Mac )
that you need to compile Perl as a Mac App. wxPython folks did that
( compiling the Python interpreter as a Mac App ) and it worked.
Details are in the wxpython-mac archives ( http://lists.wxwindows.org/ ).

The idea is:
1) follow the instructions to build Python as a Mac App
   ./configure --with-frameworks # or something like this
   cd Mac/OSX
   make -n |less

   and look at the output of the last command
2) try to do that to perl
   ./Configure  # answer a lot of questions
   make
   # look at the step when it links the perl executable
   # and try to modify it to do what Python does

Regards
Mattia

[wxperl-users] compiling wxPerl under Mac OS X

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

I'm trying my hand at this using the latest CVS versions of wxMAC and 
wxPerl.

a couple of months ago...

my previous attempt at installing wxMAC was unsuccessful. everything 
appeared to compile and install, and running the minimal sample brought 
up a window, yet I was unable to interact with it.

my previous attempt at installing wxPerl (0.10, along with the previous 
attempt at wxMAC) appeared to compile and install. I've never been able 
to run the wxPerl minimal sample, although perl -c minimal.pl would 
compile.

and now...

my latest attempt at installing wxMAC appears to have been successful. 
the above problems are no longer apparent and all the samples I have run 
appear to work as expected.

my latest attempts at installing wxPerl (0.10 and 0.11) are not going 
well, but giving different results. I gave up trying to install 0.10 as 
it appears MenuItems work differently. as my previous attempt compiled 
(yet didn't run), I assumed that wxMAC had changed and that I would need 
wxPerl 0.11 to continue.

when trying to get 0.11 to compile, I found the following:

1) /distrib/mac/shared-ld-sh
the Makefiles that Makefile.PL outputs contains this reference. under 
0.10, the output used to be "c++ -shared".

2) wxRegion::Offset
Wx.c: In function `void XS_Wx__Region_Offset(CV *)':
Wx.c:7100: no matching function for call to `wxRegion::Offset 
(wxCoord &, wxCoord &)'

3) ColourDialog
Frames.c: In function `void XS_Wx__ColourDialog_new(CV *)':
Frames.c:5330: invalid use of undefined type `class Wx_ColourDialog'
cpp/typedef.h:140: forward declaration of `class Wx_ColourDialog'
Frames.c:5332: type `wxObject' is not a base type for type 
`Wx_ColourDialog'
XS/ColourDialog.xs: In function `void 
XS_Wx__ColourDialog_GetColourData(CV *)':
XS/ColourDialog.xs:25: invalid use of undefined type `class 
wxGenericColourDialog'
cpp/typedef.h:140: forward declaration of `class wxGenericColourDialog'
Frames.c: In function `void XS_Wx__ColourDialog_ShowModal(CV *)':
Frames.c:5370: invalid use of undefined type `class 
wxGenericColourDialog'
cpp/typedef.h:140: forward declaration of `class wxGenericColourDialog'

4) Wx_Cursor *newImage()
XS/Cursor.xs: In function `void XS_Wx__Cursor_newImage(CV *)':
XS/Cursor.xs:46: no matching function for call to `wxCursor::wxCursor 
(wxImage &)'

5) Wx_Icon::LoadFile()
XS/Icon.xs: In function `void XS_Wx__Icon_LoadFile(CV *)':
XS/Icon.xs:99: no matching function for call to `wxIcon::LoadFile 
(wxString &, long int &)'

6) Wx_Bitmap::SetMask()
XS/Bitmap.xs: In function `void XS_Wx__Bitmap_SetMask(CV *)':
/usr/local/include/wx/mac/bitmap.h:35: `wxMask::wxMask(const wxMask &)' 
is private
XS/Bitmap.xs:328: within this context

having "worked around" those, I got everything to compile without other 
errors. unsurprisingly, perl minimal.pl still compiles but fails to 
display a window.

I would very much like to see wxPerl running under OS X and am available 
to any extent to help with compiling, test, debugging. I hope the above 
is helpful - please let me know what other steps I can take to help.

regards,
/dave

Re: [wxperl-users] Wx::Frame flicker versus Wx::Panel resize

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

> The GUI i am writing is included below.
> To see the two behaviours just try if(0) or if(1)
> over after 
> #### THE SWITCH ###################################
> line in the code.
> 
> I got a screenshot of the two versions at
> http://crazyinsomniac.perlmonk.org/images/dillema.jpeg
> 
> The Frame version looks AWFUL.
> There is horrible flickering, and it looks checkered.
> But, the Frame version exibits one behaviour which I like,
> when you attempt to resize the app, the frame version does not allow
> the user to resize it beyond the minimum size, that is, the frame
> version can never become a tiny little box.
> 
> The Panel version looks EXCELLENT
> (still flicker on resize, but at least its painted *clean*)
> buuuut sadly this version can be resized into a tiny little box.
> I don't like that.
> 
> Does anyone know how I can get the nice Panel-ized lood,
> with the Frame resize behaviour?
Just call SetSizeHints on the frame ( notice that GUI() calls
SetSH on wht it is passed to it, so with if(1) calls it on the frame,
with if(0) on the panel, but you need to call it on the frame.

Add this after the call to GUI($p)
> ###################################################
> #### THE SWITCH ###################################
> ###################################################
>     if(1) {
>         use vars qw/ $COLOR /;
> #        $COLOR = Wx::Colour->new(212,208,200);
> #        $this->SetBackgroundColour($COLOR); # doesn't stop flicker++
>        GUI($this);
> #        use Wx::Event qw/ EVT_SIZE /;
> #        EVT_SIZE($this,\&OnSize);
>     } else {
> ## Panels make everything pretty (no repainting issues)
>         my $p =  Wx::Panel->new(
>                     $this,
>                     -1,
>                     [50,50],
>                     [350,350],
>                 );
>         GUI($p);

        my $sz = Wx::BoxSizer->new( Wx::wxHORIZONTAL );
        $sz->Add( $p, 1, wxGROW );
        $this->SetSizer( $sz );
        $this->SetAutoLayout( 1 );
        $this->Layout();
        $sz->Fit( $this );
        $sz->SetSizeHints( $this );

> #        use Wx::Event qw/ EVT_SIZE /;
> #        EVT_SIZE($this,\&OnSize);
>     }
> 
>     return $this;
> }

sub GUI {
<snip>

> 
>     $parent->SetAutoLayout( 1 );
>     $parent->SetSizer( $RootSizer );
> 
>     $RootSizer->Fit( $parent );
>     $RootSizer->SetSizeHints( $parent );
You don't need to do this on the panel, just on the frame
( yes, I know the routine is meant to be called on both )

HTH
Mattia

Re: [wxperl-users] Wx::HtmlWindow and AppendToPage

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

> It appears that currently, AppendToPage is not available.
> Are there plans to add it?
It is available only in wxWindows 2.3.2 or later. Will be
in the next release, when wxWIn 2.3.3 is released.

Regards
Mattia

[wxperl-users] Wx::HtmlWindow and AppendToPage

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

It appears that currently, AppendToPage is not available.
Are there plans to add it?

__________________________________________________
Do You Yahoo!?
Yahoo! Shopping - Mother's Day is May 12th!
http://shopping.yahoo.com

[wxperl-users] Wx::Frame flicker versus Wx::Panel resize

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

The GUI i am writing is included below.
To see the two behaviours just try if(0) or if(1)
over after 
#### THE SWITCH ###################################
line in the code.

I got a screenshot of the two versions at
http://crazyinsomniac.perlmonk.org/images/dillema.jpeg

The Frame version looks AWFUL.
There is horrible flickering, and it looks checkered.
But, the Frame version exibits one behaviour which I like,
when you attempt to resize the app, the frame version does not allow
the user to resize it beyond the minimum size, that is, the frame
version can never become a tiny little box.

The Panel version looks EXCELLENT
(still flicker on resize, but at least its painted *clean*)
buuuut sadly this version can be resized into a tiny little box.
I don't like that.

Does anyone know how I can get the nice Panel-ized lood,
with the Frame resize behaviour?

oh yeah, heeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeelp!;D




### newgui.pl
package RegexLab;
use strict;
use Wx qw/ :everything /; 

use base 'Wx::Frame';
sub new {
    my( $class ) = shift;
    my( $this ) = $class->SUPER::new(
                    undef, -1,
                    "Regex Lab - you know what it is ;)",
                    [0,0],
                    [350,350],
                    wxDEFAULT_FRAME_STYLE
#                    | wxCLIP_CHILDREN, # for easy commenting out
                 );

    $this->SetIcon( Wx::GetWxPerlIcon() );
###################################################
#### THE SWITCH ###################################
###################################################
    if(1) {
        use vars qw/ $COLOR /;
#        $COLOR = Wx::Colour->new(212,208,200);
#        $this->SetBackgroundColour($COLOR); # doesn't stop flicker++
       GUI($this);
#        use Wx::Event qw/ EVT_SIZE /;
#        EVT_SIZE($this,\&OnSize);
    } else {
## Panels make everything pretty (no repainting issues)
        my $p =  Wx::Panel->new(
                    $this,
                    -1,
                    [50,50],
                    [350,350],
                );
        GUI($p);
#        use Wx::Event qw/ EVT_SIZE /;
#        EVT_SIZE($this,\&OnSize);
    }

    return $this;
}

sub OnSize {
    my( $this, $event ) = @_;
    my( $x, $y ) = $this->GetClientSizeXY();
    my( $size ) = $event->GetSize();
    my( $skip ) = 1;
    if( $x < 350 ) {
        $size->SetWidth(350);
        $skip = 0;
    }

    if( $y < 350 ) {
        $size->SetHeight(350);
        $skip = 0;
    }

    $event->Skip if $skip;

#    use Data::Dumper;
#    warn Dumper \@_;
#    warn "x $x y $y";
#    warn "ex $eX ey $eY";
}

sub BOXS {
    my( $parent, $str, $orient ) = @_;
    return Wx::StaticBoxSizer->new(
            Wx::StaticBox->new(
                    $parent,
                    -1,
                    $str,
                ,),
            $orient,
       ,);
}

sub ID {
    use vars qw/ %ID_ $I/; # mess with at you own risk

    my( $key ) = @_;

    $I ||=6660; # $I is the perpetual ID incrementor

    if(exists $ID_{$key} ) {
        return $ID_{$key};
    } else {
        return $ID_{$key} = ++$I;
    }
}

sub MahCheck {
    my( $parent, $IdKey, $str ) = @_;

    return Wx::CheckBox->new(
            $parent,
            ID($IdKey), # works with %ID_
            $str,
            wxDefaultPosition,
            wxDefaultSize, 5,
    , );
}

sub TEXS {
    my( $parent, $id, $init, $poss, $size ) = @_;
    $poss ||= wxDefaultPosition;
    $size ||=[300,40];
    return Wx::TextCtrl->new(
            $parent,
            ID($id),
            $init,
            $poss,
            $size,
            wxTE_MULTILINE,
        ,);
}

sub GUI {
    my( $parent ) = @_;
    my( $RootSizer ) = Wx::BoxSizer->new( wxVERTICAL );

    my( $RegexSizer ) = BOXS($parent, "Regex String", wxHORIZONTAL);
    
    my( $RegexString ) = TEXS(
            $parent,
            REGEXSTRING => "\\b([b-df-hj-np-tv-z])(\\w+)",
       ,);
    $RegexString->SetToolTip("insert regular expression pattern here");
    $RegexSizer->AddWindow( $RegexString, 1, wxGROW|wxALIGN_CENTRE, 5,);

    $RootSizer->Add( $RegexSizer, 0, wxGROW|wxTOP|wxALIGN_CENTRE, 5 );
## ROOT

    my( $RepCheckbox ) = MahCheck(
            $parent,
            REPLACEMENTCHECKBOX =>  "Make mine a replacement!",
        ,);
  $RepCheckbox->SetToolTip("don't just match (m//), substitute (s///)
instead");
    $RootSizer->AddWindow( $RepCheckbox, 0, wxGROW|wxTOP|wxALIGN_LEFT, 5 );
## even though left is default, being explicit is good (it's documentation)

    my( $RepSizer ) = BOXS($parent, "Replacement String:", wxHORIZONTAL);
    
    my( $Rep ) = TEXS( $parent, REPSTRING =>  '$2-$1ay' );
    Wx::ToolTip::Enable(1);
    Wx::ToolTip::SetDelay(50); #  ms

    $Rep->SetToolTip( 's{pattern}{stuff you enter here goes here}' );
## tool tips seem to suck for lables and text controls

    $Rep->Enable( 0 );
    $RepSizer->Add( $Rep, 1, wxGROW|wxALIGN_CENTER_VERTICAL, 5 );

    my( $TestSizer ) = BOXS($parent, "Test String (aka input):", wxHORIZONTAL);
    
    my( $TestInput ) = TEXS( $parent, TEXTCTRL =>  "hello world!" );
    $TestInput->SetToolTip("string to operate on goes here");
    $TestSizer->AddWindow( $TestInput, 1, wxALIGN_CENTRE, 5 );


    my( $FlagSizer2 ) = BOXS($parent, "Flags (aka modifiers):", wxHORIZONTAL);
    

    my( $FlagSizer1 ) = Wx::BoxSizer->new( wxHORIZONTAL );

    my( $gMOD ) = MahCheck( $parent, GFLAGCHECKBOX =>  "g", );
    $gMOD->SetToolTip("g - match globally");
    $FlagSizer1->AddWindow( $gMOD, 0, wxALIGN_CENTRE|wxALL, 5,);

    my $iMOD = MahCheck( $parent, IFLAGCHECKBOX =>  "i", );
    $iMOD->SetToolTip("i - Do case-insensitive pattern matching."
    ."\nIf use locale is in effect, the case map is taken from the".
    "current locale. See the perllocale manpage.");
    $FlagSizer1->AddWindow( $iMOD, 0, wxALIGN_CENTRE|wxALL, 5,);

    my( $mMOD ) = MahCheck( $parent, MFLAGCHECKBOX =>  "m", );
    $mMOD->SetToolTip("m - Treat string as multiple lines.\n\nThat is, change"
    ."``^'' and ``$'' from matching the start or end of the string to"
    ."matching the start or end of any line anywhere within the string. ");
    $FlagSizer1->AddWindow( $mMOD, 0, wxALIGN_CENTRE|wxALL, 5,);
#rohnettes opened for the stones
    my( $sMOD ) = MahCheck( $parent, SFLAGCHECKBOX =>  "s", );
    $sMOD->SetToolTip("Treat string as single line. \n\nThat is, change"
    ."``.'' to match any character whatsoever, even a newline, which"
    ."normally it would not match.");
    $FlagSizer1->AddWindow($sMOD , 0, wxALIGN_CENTRE|wxALL, 5,);

    my( $xMOD ) = MahCheck( $parent, XFLAGCHECKBOX =>  "x", );
    $xMOD->SetToolTip("x - Extend your pattern's legibility by permitting"
    ."whitespace and comments. ");
    $FlagSizer1->AddWindow( $xMOD, 0, wxALIGN_CENTRE|wxALL, 5, );



    my $eMOD = MahCheck( $parent, EFLAGCHECKBOX =>  "e", );
    $eMOD->Enable(0);
    $eMOD->SetToolTip("e - Evaluate the right side as an expression.");
    $FlagSizer1->AddWindow( $eMOD, 0, wxALIGN_CENTRE|wxALL, 5, );

    my( $TestButtonSizer ) = Wx::BoxSizer->new( wxVERTICAL );
    
    my( $TestButton ) = Wx::Button->new(
            $parent,
            ID('TESTBUTTON'),
            "Test regex",
            wxDefaultPosition,
            wxDefaultSize,
            wxNO_BORDER
    );

    $TestButton->SetToolTip("eval that code\ntest your *hypothesis* ;)");
    $TestButton->SetDefault();
    $TestButtonSizer->AddWindow( $TestButton,
                        1, wxALIGN_RIGHT|wxALIGN_CENTER_VERTICAL, 5 );

    $FlagSizer2->Add( $FlagSizer1, 1, wxGROW|wxALIGN_CENTRE, 0 );
    $FlagSizer2->Add( $TestButtonSizer, 1, wxGROW|wxALIGN_RIGHT, 0 );
   
    use Wx::Html;
    my( $HtmlOUT ) = Wx::HtmlWindow->new( $parent, -1 );

## a 1 make it resize with sizer/window according to type (horiz/vert)
    $RootSizer->Add( $RepSizer, 0, wxGROW|wxTOP|wxALIGN_CENTRE, 5 );

    $RootSizer->Add( $TestSizer, 0, wxGROW|wxTOP|wxALIGN_CENTRE, 5 );

    $RootSizer->Add( $FlagSizer2, 0, wxGROW|wxTOP|wxALIGN_CENTRE, 5 );

### PADDING Add( width,  height,  option,  flag,  border )
##    $RootSizer->Add( 0, 5, 0, 0, 0);
## no need since I figured out BORDERS (wxSIDE or wxALL)

    $RootSizer->Add( $HtmlOUT, 1, wxGROW|wxTOP|wxALIGN_CENTRE, 5 );


    $parent->SetAutoLayout( 1 );
    $parent->SetSizer( $RootSizer );

    $RootSizer->Fit( $parent );
    $RootSizer->SetSizeHints( $parent );

    return $RootSizer;
}


package RegexLab::App;

use strict;
use Wx;
use base qw(Wx::App);

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

    my( $frame ) = new RegexLab();
    $frame->Show(1);
    $frame->Refresh();
    1;
}



package main;

unless( caller() ) {
    RegexLab::App->new()->MainLoop();
}


__END__

=head1 NAME

RegexLab - a Wx Dialog/App for testing Regular Expressions

=head1 SYNOPSIS

    perl -MRegexLab -e RegexLab::App->new()->MainLoop()

    # or
    use RegexLab; # or should it be Wx::RegexLab
    . . .
    # your Wx::App subclass, ie your Wx::App application
    # where $this refers to an instance of it
    # usually called from a menu item
    RegexLab::GUI($this);
        # or
    RegexLab::GUI( new Wx::Frame( $this, -1) );
        # or
    RegexLab::GUI( new Wx::Panel( $this, -1) );
        # or even
    RegexLab::App->new()->MainLoop();


=head1 DESCRIPTION

=head1 AUTHOR

Originally written by boo_radley of PerlMonks.org fame.
Transformed into its this form by crazyinsomniac (same fame),
for easy inclusion in other Wx applications, or for standalone use.

=cut

__________________________________________________
Do You Yahoo!?
Yahoo! Shopping - Mother's Day is May 12th!
http://shopping.yahoo.com

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

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

> yes, i'm using win98 and the wxPerl beta 4.
> looks like one of them has a bug.
I'd say Win98 ( works for me on Win2k ); but this is strange
at the very least

> right now i've no way to test it on another platform
> (win2000 or linux)
> 
> if win98 has a bug, i've to programm this feature myself, so, how can 
> i get if the CONTROL key is pressed?
I don't think there is any way ( in wxWindows, at least )

> then i can set the $desired myself.

Regards
Mattia

RE: Re: [wxperl-users] listctrl, unexplainably event

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

> >deselect -> select -> idle
> 
> in multiple select mode?
Yes

> i could get: select -> select -> select -> select
> 
> is this definitively a windows bug? i mean this would be a heavy one
> and should be known.
Well, you get a different behaviour than me, and I don't know where
this does come from.

> i searched for it on google and microsoft.com but found nothing
> (should mention that i've no idea about the official c name of a
> treectrl)
  ^^^^^^^^
list view ( I suppose you meant ListCtrl here... ), under common controls

> has someone tested this on win2000? or on another win98 box?
I tested it on Win2k, and got the behaviour I described
> what happened?

Regards
Mattia

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

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

yes, i'm using win98 and the wxPerl beta 4.
looks like one of them has a bug.

right now i've no way to test it on another platform
(win2000 or linux)

if win98 has a bug, i've to programm this feature myself, so, how can 
i get if the CONTROL key is pressed?

then i can set the $desired myself.

greeting
Marco

>> sorry for the delay, had to do other stuff.
>> hope you still remember.
>Yes
>
>> i worked so long on my explanation, but looks like it was still not
>> clear enough. well, here with a code example:
>Well, it was clear enough ( for me ), I just can't reproduce that:
>
>  my( $this, $x, $y, $desired ) = @_;
>  my $tree = $this->{TREE};
>
>  print $desired,"\n";
>
>prints 3 when no key is pressed, and 2 when CTRL is pressed
>( BTW, wxDragNone == 1 )
>
>> sub OnDragOver
>> {
>> 	my ($this, $x, $y, $ret) = @_;
>>
>> 	if($ret == wxDragNone)    { print "wxDragNone\n"; }
>> 	elsif($ret == wxDragCopy) { print "wxDragCopy\n"; }
>> 	elsif($ret == wxDragMove) { print "wxDragMove\n"; }
>> 	else                      { print "strainge!!\n"; }
>> }
>>
>> i always get wxDragNone.
>> doesn't matter wich state the SHIFT or CONTROL keys have.
>Does not happen for me...
>
>> i expect different returns.
>> but don't know what i should get at which key states. (????)
>>
>> so i asked for an explanation why i always get wxDragNone (mistake
>> from my side?)  and how i can get if the CONTROL key is pressed
>> (because i only have to differentiate between copy and move...)
>>
>> greetings&hope this time it's clearer
>I hope this time *my* answer is clearer...
>
>You are using the wxPerl beta in Win2k ( or was it 98? ), right?
>
>Regards
>Mattia

RE: Re: [wxperl-users] listctrl, unexplainably event

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

>deselect -> select -> idle

in multiple select mode?
i could get: select -> select -> select -> select

is this definitively a windows bug? i mean this would be a heavy one
and should be known.

i searched for it on google and microsoft.com but found nothing
(should mention that i've no idea about the official c name of a
treectrl)

has someone tested this on win2000? or on another win98 box?
what happened?

greeting
Marco

>> hello,
>> i get an unexplainably "EVT_LIST_ITEM_DESELECTED"...
>It looks like this is the native Win32 ListViev
>behaviour, and it is consistent with wxGTK, so I think it is correct.
>
>> you can reproduce it with the listctrl sample:
>> - remove "wxLC_EDIT_LABELS|" on line 97
>> - add something like "print "here\n";" after line 512
>>    (to better see the event)
>> - start the sample
>> - set the list to multiple selection (menu -> List -> last one)
>> - click on an item
>> - click on the SAME item again -> "EVT_LIST_ITEM_DESELECTED"
>>    you get an "here" on the console (or whatever's in your print line)
>>
>> i mean no item is deselected. this shouldn't occur?!?!?
>> has anyone an explanation / workaround?
>Blame Microsoft ;-p ? Seriously, you may set a flag in the event handler
>and do whatever you want to do in idle time
>( you should receive events in this order:
>deselect -> select -> idle, so you may catch this special case )
>
>> Wx 0.11 beta 4
>> Active Perl 631
>
>Regards
>Mattia

[wxperl-users] Re: Running app via extension

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

Correction: I got the command wrong, it's Wx::ExecuteCommand.

This works on Windows:

$file = "image.jpg";
$cmd = qq{launch.bat $file};
Wx::ExecuteCommand("$cmd",0);

The launch.bat file just contains "%1". Is that the same on Linux
(bash) too?

Another snippet for the Cookbook :-)

Marcus

[wxperl-users] Running apps via extension

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

Okay, I found a way which might be kind of cross platform. You can run
a batch file with:

$cmd = "batch\.bat $file";

Wx::CommandExecute("$cmd",0) which contains this:

1%

Might need to get the platform, but it should work for registered
types.

Marcus

Re: [wxperl-users] ListCtrl/ListItem

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

> yes, I saw this. it makes perfect sense in a C++ world, but not 
> completely for wxPerl.
I agree... I'll add a note.

> for example, how do you select an item in a Wx::ListCtrl? I'd assume you 
You don't need wxListItem :-)

my $index = $event->GetIndex(); # or whatever
# select
                             #  value                 mask
$list->SetItemState( $index, wxLIST_STATE_SELECTED, wxLIST_STATE_SELECTED );
# deselect
$list->SetItemState( $index, 0, wxLIST_STATE_SELECTED );
# set the focus, clear selection
$list->SetItemState( $index, wxLIST_STATE_FOCUSED,
                     wxLIST_STATE_SELECTED|wxLIST_STATE_FOCUSED );

> would mess with ITEM_STATE somehow. the wxWindows examples speak of 
> setting an id prior to calling SetInfo() (the id specifies which list 
> entry) - how do you do this? in fact, if anyone has 10 or so lines of 
> Perl code which shows from start to finish how to select an item, I'd 
> really appreciate it.

HTH
Mattia

P.S.: there is a ( perhaps clearer ) explanation about
      SetItemState somewhere in the archives

Re: [wxperl-users] ListCtrl/ListItem

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

> 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

Re: [wxperl-users] ListCtrl/ListItem

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

yes, I saw this. it makes perfect sense in a C++ world, but not 
completely for wxPerl.

for example, how do you select an item in a Wx::ListCtrl? I'd assume you 
would mess with ITEM_STATE somehow. the wxWindows examples speak of 
setting an id prior to calling SetInfo() (the id specifies which list 
entry) - how do you do this? in fact, if anyone has 10 or so lines of 
Perl code which shows from start to finish how to select an item, I'd 
really appreciate it.

thanks,
/dave

On Sunday, May 5, 2002, at 12:13 , Mattia Barbon wrote:

>> point without a reference page for wxListItem. I've tried
> wxListCtrl::SetItem ( not the most obvious place... )
>
> 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] ListCtrl/ListItem

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

ok, sounds good.

how would you handle it if multiple items are selected?

/dave

On Sunday, May 5, 2002, at 12:13 , Mattia Barbon wrote:

>> $event->GetItem() returns a Wx::ListItem, not the numeric index of the
>> item, so $listctrl->GetItem($listitem,1) always fails.
> $listctrl->GetItem( $event->GetIndex(), 1 ); will work
>
>> $listctrl->GetItem(1,1) will give me the second column of the second
>> item.
>>
>> do I have to manually get the selected items from the ListCtrl rather
>> than from the event?
>
> HTH
> 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] ListCtrl/ListItem

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

> $event->GetItem() returns a Wx::ListItem, not the numeric index of the 
> item, so $listctrl->GetItem($listitem,1) always fails.
$listctrl->GetItem( $event->GetIndex(), 1 ); will work

> $listctrl->GetItem(1,1) will give me the second column of the second 
> item.
> 
> do I have to manually get the selected items from the ListCtrl rather 
> than from the event?

HTH
Mattia

Re: [wxperl-users] ListCtrl/ListItem

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

> point without a reference page for wxListItem. I've tried 
wxListCtrl::SetItem ( not the most obvious place... )

Regards
Mattia

Re: [wxperl-users] wxTheClipboard lifetime issue

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

> The information for wxTheClipboard->SetData say
> 	"After this function has been called, the clipboard owns 	
> 	 the data, so do not delete the data explicitly."
> 
> And sure enough, as long as the program is running, the clipboard data
> is accessible, but I had expected the wxTheClipboard to function like 
> the system clipboard -- to hold a chunk of data without caring about 
> that data's originator at all. If I manipulate the clipboard and close 
> out a wx program, the clipboard empties itself! This is unexpected 
> behavior, to say the least.
It looks like Flush() is what you want, except that it was undocumented until now
(just committed), so I missed it while wrapping wxClipboard... will be in the
next wxPerl version.

> Below is a script which illustrates this behavior. Are my expectations 
> out of line?
No, of course :-)

Thanks for the test, anyway
Mattia
> 
> use strict;
> use Wx::DND;

RE: Re: [wxperl-users] ListCtrl/ListItem

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

i'm sorry.
i was tired while reading your mail. here a better explanation:

that's probably what you're searching for:
my $tmp = $event->GetIndex;

after that:
$listctrl->GetItem($tmp, $column)->GetText;

$column is the column you wish to have.

greeting
Marco

>$event->GetItem() returns a Wx::ListItem, not the numeric index of the
>item, so $listctrl->GetItem($listitem,1) always fails.
>
>$listctrl->GetItem(1,1) will give me the second column of the second
>item.
>
>do I have to manually get the selected items from the ListCtrl rather
>than from the event?
>
>thanks,
>/dave
>
>On Saturday, May 4, 2002, at 03:32 , Marco Trudel wrote:
>
>> $listctrl->GetItem($item, 1)->GetText;
>>
>> hope it helps.
>>
>> greeting
>> Marco
>>
>>> I have a Wx::ListCtrl displaying rows of information in report view. I
>>> populate this control with InsertStringItem() and SetItem() to set the
>>> column information. How do I get the data out?!
>>>
>>> for example, I intercept a EVT_LIST_BEGIN_DRAG and get an event
>>> parameter. from this, I can do my $listitem = $event->GetItem() which
>>> returns a wxListItem. the wxWindows documentation seems to stop at this
>>> point without a reference page for wxListItem. I've tried
>>> $listitem->GetText() which returns nothing, and $listitem->GetText(0)
>>> which dies.
>>>
>>> environment:
>>> wxPerl 0.10
>>> wxWindows 2.2.9
>>> Win2K Prof
>>>
>>> regards,
>>> /dave

Re: [wxperl-users] ListCtrl/ListItem

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

$event->GetItem() returns a Wx::ListItem, not the numeric index of the 
item, so $listctrl->GetItem($listitem,1) always fails.

$listctrl->GetItem(1,1) will give me the second column of the second 
item.

do I have to manually get the selected items from the ListCtrl rather 
than from the event?

thanks,
/dave

On Saturday, May 4, 2002, at 03:32 , Marco Trudel wrote:

> $listctrl->GetItem($item, 1)->GetText;
>
> hope it helps.
>
> greeting
> Marco
>
>> I have a Wx::ListCtrl displaying rows of information in report view. I
>> populate this control with InsertStringItem() and SetItem() to set the
>> column information. How do I get the data out?!
>>
>> for example, I intercept a EVT_LIST_BEGIN_DRAG and get an event
>> parameter. from this, I can do my $listitem = $event->GetItem() which
>> returns a wxListItem. the wxWindows documentation seems to stop at this
>> point without a reference page for wxListItem. I've tried
>> $listitem->GetText() which returns nothing, and $listitem->GetText(0)
>> which dies.
>>
>> environment:
>> wxPerl 0.10
>> wxWindows 2.2.9
>> Win2K Prof
>>
>> regards,
>> /dave
>
>

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

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

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

[wxperl-users] wxTheClipboard lifetime issue

[Boo R. <boo...@wo...>]

The information for wxTheClipboard->SetData say
	"After this function has been called, the clipboard owns 	
	 the data, so do not delete the data explicitly."

And sure enough, as long as the program is running, the clipboard data
is accessible, but I had expected the wxTheClipboard to function like 
the system clipboard -- to hold a chunk of data without caring about 
that data's originator at all. If I manipulate the clipboard and close 
out a wx program, the clipboard empties itself! This is unexpected 
behavior, to say the least.

Below is a script which illustrates this behavior. Are my expectations 
out of line?


use strict;
use Wx::DND;
use Wx qw(wxTheClipboard);
use Wx qw( :dnd);

my $data = Wx::TextDataObject->new( "ahoyhoy" ) || print "no create data";
my $out = Wx::TextDataObject->new;

if (  wxTheClipboard->Open){
     wxTheClipboard->SetData( $data ) || die "no set";
     wxTheClipboard->GetData ($out);
     print $out->GetText();
     wxTheClipboard->Close;
} else {
     print "Can't own clipboard";
}

__END__