<> <> <> <> <<>> 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.