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