Icon Bar Shell
by Ben Avison

This application is a skeleton application which can be used to develop simple applications based on an icon bar icon. The application is configured to report clicks with Select on the icon and files dragged to the icon by displaying a message in a command window.

To configure the application for your own use, you should insert your own code at line 880 in the Basic program !IBarShell.!RunImage. The code can use the variables click%, dir%, appl%, filetype% and pathname$.

If the icon is clicked with Select, click% will be TRUE, and the other variables are irrelevant. If a file is dragged to the icon, click% will be FALSE, dir% will be TRUE if the object is a (non-application) directory, appl% will be TRUE if the object is an application directory, filetype% is the filetype of the file, and pathname$ is its full pathname.

For untyped files and directories, filetype% is -1 for untyped files, &1000 for non-application directories and &2000 for application directories.

For more details, refer to the article in this month's magazine (RISC User, Volume 4 Issue 7 page 45).
