DIRECTORYNameSymbolTable USING [Name],NodeStyle USING [Name, Ref],TextNode USING [Ref],TJaMBasic USING [Object];NodeStyleObsolete: CEDAR DEFINITIONS= BEGINRef: TYPE = NodeStyle.Ref;Name: TYPE = NodeStyle.Name;Object: TYPE = TJaMBasic.Object;RegisterStyleFreeVar: PROC [name: Name,eval: PROC [node: TextNode.Ref] RETURNS [REAL]];RegisterStyleFreeObjVar: PROC [name: Name,eval: PROC [node: TextNode.Ref] RETURNS [Object]];RemoveNodeFromApplyAllCache: PROC [node: TextNode.Ref];RemoveAllFromApplyAllCache: PROC;UnregisterStyleFreeVar: PROC [name: Name];EvalFreeVars: PROC [style: Ref, node: TextNode.Ref];DefineSpecial: PROC [name: Name, initialValue: REAL _ 0.0];GetSpecial: PROC [s:Ref, name: Name] RETURNS [REAL];GetSpecialI: PROC [s:Ref, name: Name] RETURNS [INTEGER];nonNumeric: ERROR; -- raised if call GetSpecial or GetSpecialI for nonnumeric variableDefineSpecialObj: PROC [name: Name, initialValue: TJaMBasic.Object];GetSpecialObj: PROC [s:Ref, name: Name] RETURNS [Object];END.  ˆ  NodeStyleObsolete.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Written by Bill Paxton, January 1981Last changed by Bill Paxton, December 1, 1982 8:37 amDoug Wyatt, March 2, 1985 5:35:13 pm PSTMichael Plass, March 14, 1985 4:47:24 pm PSTBeach, March 17, 1985 11:32:10 am PSTStyle free variablesThese are used for style extensions that need free variables similar to node level or node comment property.  Once the name is registered, style rules may use the name to get access to the value for the current node.  The registered eval proc's are called to get the current value whenever the style for the node is computed.The first REAL valued free variable is very efficiently implemented.  After that, free var's start costing more.  Use them to check out new ideas, then get the variable "blessed" and incorporated in the system in a more effiecient manner.Whenever something happens to the node that might cause the value of the free variable eval proc to change, call this routine.Whenever something happens that might change values for free variable eval procs to change, call this routine.Special Parameter Extensions Êó  –"Mesa" style˜ codešœ™Kšœ
Ïmœ1™<Kšœ$™$Kšœ5™5K™(K™,J™%—K˜ šÏk	˜	Kšœžœ˜Kšœ
žœ˜Kšœ	žœ˜Kšœ
žœ
˜—K˜ KšÐblœžœž˜$šœž˜K˜ Kšœžœ˜Kšœžœ˜Kšœžœ˜ —headšœ™K™ÅK˜ š
Ïnœžœžœžœžœ˜YK™î—K˜ š œžœžœžœ˜^K˜ —š œžœ˜7K™~—K˜ š œžœ˜!K™n—K˜ š œžœ˜*K™ —Kš œžœ"˜4—šœ™š œžœžœ˜;K˜ —Kš 
œžœžœžœ˜4K˜ Kš œžœžœžœ˜8K˜ KšœžœÏcC˜VK˜ š œžœ.˜DK˜ —Kš œžœžœ
˜9—K˜ Kšžœ˜— …—      
}  