home *** CD-ROM | disk | FTP | other *** search
/ Totally for Newton 10 / PDA10.toast / mac / Packages / Programming / 2.x / More Routing / GetRouteScripts.f < prev    next >
Encoding:
Text File  |  1997-03-14  |  718 b   |  22 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. DefConst('kAdditionalRouteFrames, _AllRouteFrames);        // DO NOT TOUCH!
  6.  
  7. GetRouteScripts := func(a) begin
  8.  
  9.     local b := Perform(self, 'oldRoute, [a]);                    // Do the old routing stuff.
  10.     
  11.     if NOT IsArray(b) then
  12.         b:='[];                                                            // There was no routing so create it.
  13.         
  14.     b := Clone(b);                                                        // Get it ready to add more to it.
  15.     
  16.     ArrayMunger(b, Length(b), 0, kAdditionalRouteFrames, 0, NIL);    // Add the extra items.
  17.     
  18.     b;                                                                        // Return the "fixed up" routing array.
  19. end;        // end func GetRouteScripts()
  20.  
  21. DefConst('kGetRouteScriptsFunc, GetRouteScripts);
  22.