-- SilScript.tioga -- Ken Pier, June 19, 1985 11:44:55 am PDT new CommandTool cdr Sil Bringover /Cedar/CedarChest6.0/Top/CSil.df brief explanation of DF file and Bringover XSil.load eXperimental SIL brief explanation of package loading and starting SIL show Sil running, point our mark and origin carets with fixed size add procedure to caret managing interface to change size of cursors Add to SilDisplayCursors SilCaretSize: PROC [newMarkWidth, newMarkLength, newOriginWidth, newOriginLength: NAT]; Add to SilDisplayCursorsImpl SilCaretSize: PUBLIC ENTRY PROC [newMarkWidth, newMarkLength, newOriginWidth, newOriginLength: NAT] = { markWidth _ newMarkWidth; markLength _ newMarkLength; originWidth _ newOriginWidth; originLength _ newOriginLength; }; Perform MakeDo -dr CSil explain about MakeDo observe compiling and binding called from MakeDo observe more compiling than usual because of interface change Reload XSil.bcd New Sil Viewer Call SilCaretSize from CommandTool to dynamically change sizes _ SilDisplayCursors.SilCaretSize[10,10,10,10] _ SilDisplayCursorsImpl.SilCaretSize[2,2,4,4] _ SilDisplayCursorsImpl.SilCaretSize[newMarkWidth: 2, newMarkLength: 6, newOriginWidth: 4, newOriginLength: 2] ÊΘJ˜J˜*J˜J˜J˜J˜˜+J˜*—J˜˜ J˜J˜5J˜BJ˜C—J˜˜JšÏn œÏkœ@žœ˜W—˜š œžœžœžœ@žœ˜gJšœ˜Jšœ˜Jšœ˜Jšœ˜J˜——˜J˜J˜0J˜=—J˜J˜šœ œ-˜>Jšœ-˜-Jšœœ˜œ—J˜—…—¾’