CDTextsExtras.mesa A ChipNDale module
Copyright © 1986 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, August 21, 1986 9:48:26 am PDT
Last edited by: Christian Jacobi, August 21, 1986 12:53:06 pm PDT
DIRECTORY
CD,
Rope;
CDTextsExtras: CEDAR DEFINITIONS =
BEGIN
IsRigidText: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE {
RETURN [ ob.class=rigidTextClass ]
};
IsFlipText: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE {
RETURN [ ob.class=flipTextClass ]
};
IsText: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE {
RETURN [ ob.class=rigidTextClass OR ob.class=flipTextClass ]
};
Create: PROC [text: Rope.ROPE, font: REF READONLY ANY, layer: CD.Layer ← CD.commentLayer, flip: BOOL←TRUE] RETURNS [CD.Object];
rigidTextClass: PRIVATE CD.ObjectClass;
flipTextClass: PRIVATE CD.ObjectClass;
END.