I'm a horrific Mac GUI newbie when it comes to Perl. Using the PTF book,
I've gotten about this far (yeah, laugh, go ahead, sheesh):
#!/usr/bin/perl
use strict;
use Mac::Windows;
use Mac::QuickDraw;
use Mac::Events;
my $title = 'AmphetaDesk v.SOMETHING';
my $sizeloc = Rect->new(50, 50, 725, 250);
my $win = new MacWindow $sizeloc, $title, 1, zoomDocProc, 1;
$win->sethook('redraw' => \&draw_it);
while ( $win->window() ) { WaitNextEvent(); }
END { $win->dispose() if ( defined($win) ); }
sub draw_it { }
Yeah, you got it. Not much further than the examples in the PTF book.
This is what I hope to accomplish. Can someone help me out?
a) Redirect STDOUT to the window. Newlines need apply, and
autoscrolling would be helpful. I *do not* want to use
a Console window - I've already seen the trick of opening
a pipe to Dev:Console. Font doesn't matter.
b) Clear the whole menu bar, and just have the apple menu,
a file menu with w/q, and maybe a view menu.
My big problem right now is getting STDOUT to there. I've experimented with
DrawString, but didn't find a magical way for it to read newlines and so
forth.
Help?
--
Morbus Iff
_____
| (@ \
__| <\/> |____. Here we have Head-Wound Morbus who discovers
| |------| | that flesh objects in motion tend to stay
|_ |______|_ __| in motion until they hit metal and bleed.
(_) (_)
-05--- <\/> ---- <http://www.disobey.com/> --- Bad Ascii, Short Notice ----
