TestCDPanel.cm
Last Edited by: Jacobi July 22, 1986 3:26:12 pm PDT
inside a commandtool
← CDPanelExtras.DefineTextEntry[CMosB.cmosB, $AA, "AA"]
← CDPanel.DefineNewLine[CMosB.cmosB]
← CDPanelExtras.DefineTextEntry[CMosB.cmosB, $YY, "YY", -1, FALSE]
← CDPanel.DefineNewLine[CMosB.cmosB]
← &rl ← RopeList.Append[LIST["AAAAAAyA"], LIST["BBBBBB", "CCCCC"]]
← CDValue.Store[CMosB.cmosB, $AA, &rl]
← CDValue.Store[CMosB.cmosB, $YY, &rl]
inside a detached debugger view
CDPanelExtras.ReDisplayRope[design, $AA, "12345"]
CDPanelExtras.FromDisplayRope[design, $AA]
CDValue.Store[design, $AA, "qwert"]
CDPanelExtras.ReDisplay[design, $AA]
Viewer: TYPE = ViewerClasses.Viewer;
PanelList: TYPE = LIST OF Panel;