XTkTioga.mesa
Copyright Ó 1991, 1992 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, August 22, 1991 6:23:31 pm PDT
Christian Jacobi, August 23, 1991 11:30 am PDT
DIRECTORY TEdit, XTk;
XTkTioga: CEDAR DEFINITIONS ~ BEGIN
tiogaWidgetClass: READONLY XTk.Class;
Widget creation listens to arguments $scrollbar and $menu
CreateTiogaWidget: PROC [widgetSpec: XTk.WidgetSpec ¬ [], doc: TEdit.Doc ¬ NIL, scrollbar, menu: BOOL ¬ TRUE] RETURNS [tiogaWidget: XTk.Widget];
SetDocument: PROC [tiogaWidget: XTk.Widget, doc: TEdit.Doc];
END.