home *** CD-ROM | disk | FTP | other *** search
/ Totally for Newton 10 / PDA10.toast / mac / Packages / Programming / 2.x / More Routing / InstallScript.f < prev    next >
Encoding:
Text File  |  1997-03-14  |  345 b   |  12 lines  |  [TEXT/R*ch]
  1. // Copyright (c) 1996-1997 Jeremy Wyld. All rights reserved.
  2. /* For best viewing pleasure set the font to: Courier 10pt with 3 space tabs */
  3.  
  4.  
  5. InstallScript     := func(partFrame, removeFrame) begin
  6.  
  7.     GetRoot().(EnsureInternal('oldRoute)) := GetRoot().GetRouteScripts;
  8.  
  9.     GetRoot().(EnsureInternal('GetRouteScripts)) := kGetRouteScriptsFunc;
  10.     
  11. end;
  12.