CDPanelExtras.mesa (part of ChipNDale)
Copyright © 1983, 1985 by Xerox Corporation. All rights reserved.
by Christian Jacobi, August 8, 1983 5:20 pm
last edited by Christian Jacobi, November 12, 1985 10:49:52 am PST
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.