> >Or, you could use this code I happen to have: > > > >use constant WINV => 16; > >use vars qw($MonWin $MonPort $MonWid); > >... > > This doesn't compile. You never use'd any external modules? That is: I > don't see any other "use" lines, than the above?
Oops, trimmed them off. use Mac::Windows qw(SizeWindow GrowWindow floatGrowProc TrackGoAway); use Mac::QuickDraw qw(SetPort MoveTo DrawString EraseRect TextSize); use Mac::Events qw(WaitNextEvent); As with any GUI MacPerl application, you must call WaitNextEvent() periodically. -- Kevin Reid
