[futurebasic] Re: [FB] Mysterious chat between applications

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : November 1998 : Group Archive : Group : All Groups

From: Jamin <benjamen@...>
Date: Fri, 6 Nov 1998 10:49:24 +1100
Al Pastor-Serrano said in Re: [FB] Mysterious chat between applications

> Thanks for your reply, but it didn't totally quench my curiosity.
> How do you install a Gestalt?
> Can we install functions instead of data?
>

You actually install a routine that does something, then returns a long.  This routine is placed in the system heap.  The long, as I pointed out, can be anything.  I used the pascal converter to produce the following, but have not checked it:


'      Function:NewGestalt
'
'=========================================
LOCAL MODE
LOCAL FN NewGestalt(selector&,gestaltFunction&)
  '---------------------------------------
  `     CLR.W     -(SP)
  `     MOVE.L    ^selector&,-(SP)                ;OSType
  `     MOVE.L    ^gestaltFunction&,-(SP)         ;SelectorFunctionUPP
  `     DC.W      $205F,$201F,$A3AD,$3E80
  `     MOVE.W    (SP)+,D0
  `     EXT.L     D0
END FN = REGISTER(D0)                             'OSErr
'

That should keep yor curiosity quenched for a while...

Jamin