Шаблон DefaultIcon предназначен для
изменения стандартной кларионовской иконки по
умолчанию, на иконку, задаваемую программистом.
Этот шаблон взят из набора шаблонов TINTOOLS
(c) 1996,97 By Tinman Development Corp (All Rights Reserved World Wide)
#EXTENSION(DefaultIcon,'Default
Entire Application Icon'),DESCRIPTION('Default Entire Application Icon')
#PROMPT('Select Icon File',OPENDIALOG('Select Icon for App','Icons|*.ICO')),%IconFile,REQ
#AT(%CustomGlobalDeclarations)
#PROJECT(%IconFile)
#ENDAT
#AT(%AfterWindowOpening)
SYSTEM{PROP:Icon} = '~%IconFile'
IF CLIP(0{PROP:Icon}) = ''
0{PROP:Icon} = '~%IconFile'
END
#ENDAT