










|
Bin
Selecting the iconbar icon shows a Filer display into which files and directories can be moved. Each time the application is run the contents of this directory are wiped.
You can download the application from here.
- Make a new application (named “!Bin”)
- Create a directory - named “Contents” - in the application's main directory
- Edit the !Run file to include the command
Set Bin$Path <Bin$Dir>.
- Add an Iconbar event handler
- Amend the code to
DEF PROCDealWith_Iconbar(event,object,component)
CASE event OF
WHEN Iconbar_Clicked : OSCLI("Filer_OpenDir Bin:Contents")
ENDCASE
ENDPROC
|
- Add an Initial event handler
- Amend the code to
DEF PROCDealWith_InitialEvent(event,object,component)
PROCEmptyBin
ENDPROC
DEF PROCEmptyBin
LOCAL ERROR
ON ERROR LOCAL RESTORE ERROR : ENDPROC
OSCLI("Wipe Bin:Contents.* FR~C~V")
RESTORE ERROR
ENDPROC
|
|