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. μCDTextsExtras.mesa A ChipNDale module Copyright c 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 Κl˜codešœ(™(Kšœ Οmœ1™