#121 crash with Copy or Cut, TE?

[Axel Rose]

I experience a Bus Error after just pressing Cmd-C and
a PowerPC access exception using Cmd-X while running
the following sample program

(taken from a post to the mailing list by Alan Fry - I
do not fully understand the internals and found this just
by playing with MacPerl)

#!perl -w
use strict;

use Mac::Events;
use Mac::QuickDraw;
use Mac::TextEdit;
use Mac::Windows;

my $win =
MacWindow->new( Rect->new( 50, 50, 550, 290 ), "Text Console", 1,
floatProc, 1 );
SetPort $win->window;
$win->sethook( 'redraw', \&do_draw );

my $viewRect = $win->window->portRect;
my $destRect = OffsetRect( $viewRect, 10, 10 );

my $hTE = TENew( $destRect, $viewRect );
TESetText( "sample text", $hTE );

WaitNextEvent while $win->window;
dispose $win;
TEDispose($hTE);

sub do_draw {
my ($win) = @_;
TEActivate($hTE);
TEGetText($hTE);
TEUpdate( $viewRect, $hTE );
}

[Chris Nandor]

Logged In: YES
user_id=3660

This is apparently a bug in 5.2.0r4 as well. I am not
inclined to fix it now, but will try to get to it when I find
some tuits. Thanks.

[Chris Nandor]

Logged In: YES
user_id=3660

This should be handled, I think, more nicely by MacPerl.