[futurebasic] Re: [FB] Function Junction II update

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : May 1999 : Group Archive : Group : All Groups

From: "Michael Evans" <mikonic@...>
Date: Sun, 16 May 1999 09:49:10 -0400
> Attention all FnJnII owners!
> 
> Due to the problems with [_currentA5] on newer Macs/OSes, the following
> "fixes" need to be made to Function Junction II. These have been done in
> the "master copy" that is currently sold, but they're small enough that
> those who already have FnJnII will probably prefer to just make these
> changes manually, rather than re-downloading the whole file.
>
> In both FN selectionRect.BAS and FN selectionRect2.BAS
> replace
>   penPat;8 = [_currentA5]+_gray                   ' find gray pattern
> with
>   CALL STUFFHEX(@penPat,"AA55AA55AA55AA55")       'NEW fix for newer Mac
> OSes
>
> In FN marchingAnts.BAS
> replace
>   blackPat;8 = [_currentA5]+_black                ' copy black pat
> with
>   CALL STUFFHEX(@blackPat,"FFFFFFFFFFFFFFFF")     'NEW fix for newer Mac
> OSes
>
> And in FN toggleMenuBar.BAS
> replace
>         rect;8 = [_currentA5] + _screenBits.bounds 'get screen rect
> with
>         devH& = FN GETMAINDEVICE          'NEW for new Mac OSes where
>         BLOCKMOVE [devH&]+_gdRect,@rect,8 'we can't use _currentA5!
>
> Since my antique G3 doesn't show the problem, I've relied on user reports
> to come up with these - I have _not_ been able to find any workaround (or
> verify if there is a problem) with the INIT Shell, which also uses
> [_currentA5]. So if anyone has any ideas there, they'd be much
> appreciated.
>
> Bill
>
> --
> To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>
>

I tested these changes on my Yosemite Blue & White G-3, and they all work
correctly...

Thanks, Bill



********* PLEASE NOTE NEW CELL NUMBER!*********
----------------------------------------------------------
Michael Evans
Manager of Software Development * Photo Systems, Inc.
3301 Wood Valley Road, NW * Atlanta, GA, 30327-1515
Voice: (800) 521-4042 x428 * (404) 846-9386
Fax: (404) 240-0878 * Cell: (404) 229-3930
E-mail: evans@... * michael_evans@...
----------------------------------------------------------