The ICONW Package
Last Updated 2 August 83 by Sybalsky
File don[Phylum]<LispUsers>IconW.*
This is a package of functions for building ``icon'' windows with arbitrary shapes.  They can be used as icons for shrinking windows, etc. Creating Icons
(ICONW Image Mask Position NoOpenFlg)
Creates a window at Position (or prompts for one if Position is  NIL).  The window will be filled with Image, ascookie-cut by Mask.  With Mask set up as a copy of Image with the enclosed regions filled with black,  the icon window looks like it's the same shape as Image.  If NoOpenFlg is T, the window won't be opened.  There is also a provision for ``titled'' iconsœicon windows with user-specified text in them.  One starts with a template, which tells how to build a specific instance of a TitledIcon.

To create a TitledIcon template, do this:

(create TITLEDICON ICON_youricon MASK_yourmask TITLEREG_Region)

where Region is a Region within the icon (in icon-relative coordinates) which can be filled with text.  To actually create a titled icon window,
	(TITLEDICONW IconTemplate Text Font Position NoOpenFlg Just)
IconTemplate is one of the things created above, Text is the text to be printed into the icon, andFontthefonttoprintitin(defaultisHelvetica10).PositionandNoOpenFlgaremoreorlessasabove.TITLEDICONWwillsplitthetextintolinesautomatically(atwordboundaries),oryoucaninsertCR'syourself.ThetextisdrawninPAINTmode,soitcancomeclosetolinesintheiconimage.Normally,eachlineofthetextwillbecentered,andthewholetextwillbeflushagainstthetopofthemessageregion.YoucanchangethisusingtheJustargument.Itiseitheranatomoralistofatoms;anyofTOP,BOTTOM,LEFTandRIGHTareallowed,andhavetheobviouseffectonthepositioningofthemessage.AttachinganIcontoaWindow(WINDOWPROPYourWindow'ICONWINDOWIconw)ACollectionofStockIconsThefile<LispUsers>StockIconscontainsacollectionoficonsthatI'veusedinvariousplaces;usethemasexamples,orfeelfreetore-usethem.Nominationsfornewmembersofthecollectionarewelcome!Here'salistofthecurrentcontents:FOLDERœAfilefolderFOLDERMASKœThemaskforFOLDER.PAPERICONœAsheetofpaperwiththetoprightcornerturnedPAPERICONMASKœitsmask.FILEDRAWERœThefrontofafiledrawerGYPSY.FILEDRAWERMASKœitsmaskENVELOPEICONœAnenvelopeENVELOPEMASKœitsmaskTITLED.FILEDRAWERœATitledIconofthefiledrawerfront(Capacity,about3linesof10pt.text)TITLED.FILEFOLDERœATitledIconofthefilefolder(Capacity,about3linesof10pt.text)TITLED.ENVELOPEœATitledIconoftheenvelope(Capacity,oneshortlineof10pt.text).