| #include <stdcrap.h>
Set PicInfo$Dir <Obey$Dir>
SetMacro PicInfo$Path <PicInfo$Dir>.
Set Alias$PicInfo "<PicInfo$Dir>.PicInfo %0"
IconSprites PicInfo:!Sprites
|
| Lock & Load required modules...
RMEnsure Director 0.26 Error 0 This program requires Director to run
|
| Setup exit handler
Set Director$AtExitPicInfo "/PicInfo:!Exit"
|
Menu PicInfo
  Option Info -sub Window:PIInfo
  Option Help
    Command DirectorEdit <PicInfo$Dir>.!Help
  Option Quit
    Command <Director$AtExitPicInfo>
EndMenu
|
DirectorWindow PIInfo -file <PicInfo$Dir>.Templates -command "JTUtils -winclick PIInfo 10 ""URIdispatch http://www.parsed-out.demon.co.uk/compstuf/acornsw.htm"" "
|
DirectorIcon !PicInfo -dragto "Command:TaskWindow ""PicInfo |<Director$CurrentPath>""-quit" -menu PicInfo -right

