-- IconEditorScript.tioga
-- Ken Pier, June 18, 1985 5:08:57 pm PDT
new CommandTool
cdr IconEditor
Bringover -p /Cedar/CedarChest6.0/Top/IconEditor.df
brief explanation of DF file and Bringover
IconEditor
Choose existing Icon and edit it
Point out change immediately reflected in small icons
Show some editing features: boxfills, lines, bitmap shifting
Open and briefly discuss IconEditorDoc.tioga
CreateIcon
point out new icon
Completely fill new icon with desktop Grey
Make a centered white box and fill it in with some pattern
Set and Show a Label field
Save Icons to File
Create vanilla text viewer, make iconic
Get an interpreter tool
via INTERPRETER, locate vanilla viewer
change icon field in viewer using
viewer.icon ← Icons.NewIconFromFile[<filename of file containing icons>, index];
redisplay vanilla viewer with new Icon
note label field is too small
use Shift Up and SetLabel to make bigger label field
change to new Icon and redisplay again
type SIGPLAN into interpreter, then DEL
type SEATTLE into interpreter, then DEL
invoke CreateFilledIcon
sweep out SIGPLAN SEATTLE into new Icon