<> <> <> <> DIRECTORY CD USING [Technology], Rope USING [ROPE]; CDPanelExtras: CEDAR DEFINITIONS = BEGIN DefineIntEntryX: PROC [tech: CD.Technology _ NIL, cdValueKey: REF, text: Rope.ROPE _ NIL, min: INT _ FIRST[INT], max: INT _ LAST[INT], default: INT _ 1, lambda: INT _ 0]; <<--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>> <<--lambda=0: use lambda of technology>> END.