DIRECTORYCD USING [Design, Technology, DesignNumber, Layer],CDSequencer USING [CommandProc, QueueMethod],Rope USING [ROPE],ViewerClasses USING [Viewer];CDPanel: CEDAR DEFINITIONS = BEGINCreatePanel: PROC [design: CD.Design] RETURNS [ViewerClasses.Viewer];StoreDefaultLayer: PROC [design: CD.Design, l: CD.Layer];FetchDefaultLayer: PROC [design: CD.Design] RETURNS [CD.Layer];StoreWidth: PROC [design: CD.Design, l: CD.Layer, width: CD.DesignNumber];FetchWidth: PROC [design: CD.Design, layer: CD.Layer] RETURNS [CD.DesignNumber];RedisplayLabels: PROC [design: CD.Design];DefineNewLine: PROC [tech: CD.Technology_NIL];DefineLayerEntry: PROC [tech: CD.Technology_NIL, lev: CD.Layer, text: Rope.ROPE, min, default: CD.DesignNumber_1];DefineIntEntry: PROC [tech: CD.Technology_NIL, cdValueKey: REF,text: Rope.ROPE_NIL,min: INT _ FIRST[INT], max: INT _ LAST[INT], default: INT _ 1];DefineButton: PROC [tech: CD.Technology_NIL, name: Rope.ROPE _ NIL, proc: CDSequencer.CommandProc _ NIL, command: ATOM _ NIL, queue: CDSequencer.QueueMethod _ useDefault, topLine: BOOL _ FALSE,border: BOOL _ FALSE,data: REF _ NIL,cdValueKey: REF _ NIL];DefineLabel: PROC [tech: CD.Technology_NIL, name: Rope.ROPE, border: BOOL _ FALSE, cdValueKey: REF _ NIL];END.   V  CDPanel.mesa    (part of ChipNDale)Copyright c 1983, 1985 by Xerox Corporation.  All rights reserved.by Christian Jacobi, August 8, 1983 5:20 pm last edited by Christian Jacobi, May 2, 1985 3:56:42 pm PDT--only one panel-viewer per design is created--panel may or may not be updated if definitions occur after first creation--only layers of technology tech may be used--cdValueKey must have been correctly registered with CDValue! CDPanel does NOT itself. --(needed to allow hooking entries onto already used keys)--Restriction: displayed value does not follow changes of CDValue.StoreInt--button is always forked--data is hanged on comm.data--cdValueKey # NIL: overwrites name field by using CDValue --if cdValueKey # NIL: overwrites name field by using CDValue--Don't use define procedures from forked process! (order gets fooled) Э╩  Ш ЪЬ#Щ#JЪЬ
╧mЬ7ЩBJЪЬ,Щ,JЪЬ;Щ;ЧJШ Ъ╧k	Ш	JЪЮЬЮЬ+Ш3JЪЬЮЬШ-JЪЬЮЬЮЬШJЪЬЮЬ
ШJШ ЧJЪ╧nЬЮЬЮЬШJЪЮШJШ ЪЯЬЮЬ
ЮЬ	ЮЬШEJЪЬ-Щ-JЪЬKЩKЧJШ JЪЯЬЮЬ
ЮЬЮЬШ9JЪ
ЯЬЮЬ
ЮЬ	ЮЬЮЬШ?JШ JЪ
Я
ЬЮЬ
ЮЬЮЬЮЬШJJЪЯ
ЬЮЬ
ЮЬЮЬЮЬЮЬШPJШ JЪЯЬЮЬ
ЮЬ	Ш*JШ JШ JШ JЪЯЬЮЬЮЬЮЬШ.JШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШrJЪЬ,Щ,JШ ЧЪЯЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬЮЬШJЪЬЮЬЮЬЮЬШJЪЬ	ЮЬШJЪЬXЩXJЪЬ:Щ:JЪЬJЩJЧJШ ЪЯЬЮЬЮЬЮЬШ-JЪЬЮ
ЬШJЪЬ ЮЬШ%JЪЬ	ЮЬЮЬШJЪЬ-Ш-JЪЬ	ЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮШJЪЬЮЬЮЬШJЪЬЩJЪЬЩJЪЬ;Щ;ЧJШ ЪЯЬЮЬЮЬЮЬШ,JЪЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬ=Щ=ЧШ JШ ЧJЪЬFЩFJЪЮЬШJШ JШ JШ Ч ЕЧ      g  