|
| ensure not running on < risc os 3.1 (is this really necessary now?)
|
RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.03 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.03 Error This application requires CallASWI 0.03 or later
|
| Find path to file
Set ID3TagEd$Dir <Obey$Dir>
|
IconSprites <ID3TagEd$Dir>.!Sprites
|
Run <ID3TagEd$Dir>.Resources.Resfind ID3TagEd
|
| set the application system variables for new help system
|
|Set ID3TagEd$Help <ID3Tag$dir>.Documents.index/html
|Set ID3TagEd$Version "0.00"
|Set ID3TagEd$Web "http://www.chris-johnson.org/software/index.html"
|Set ID3TagEd$Title "ID3 tag edit"
|Set ID3TagEd$Publisher "Chris Johnson"
|Set ID3TagEd$Description "An application to edit the ID3 Tag embedded in MP3 files"
|
Set Alias$GetMod RMEnsure %%0 %%1 RMLoad System:Modules.%%0|MRMEnsure %%0 %%1 ERROR ID3TagEd needs %%0 %%1 or later
GetMod FPEmulator 4.03

RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 5.34 Error This application requires SharedCLibrary 5.34 or later
|
Set Alias$GetTBox RMEnsure %%0 %%1 RMLoad System:Modules.Toolbox.%%0|MRMEnsure %%0 %%1 ERROR ID3TagEd needs %%0 %%1 or later
Set Alias$GetTBox2 RMEnsure %%0 %%1 RMLoad System:Modules.Toolbox.%%2|MRMEnsure %%0 %%1 ERROR ID3TagEd needs %%0 %%1 or later

GetTBox Toolbox    1.36
GetTBox Window     1.31
GetTBox Menu       0.23
GetTBox Iconbar    1.11
GetTBox ProgInfo   0.05
GetTBox SaveAs     0.11
GetTBox ToolAction 0.25
GetTBox2 TextGadgets 0.25 textgadget
Unset Alias$GetTBox
Unset Alias$GetTBox2
Unset Alias$GetMod

|
| Ensure Iconv
| http://www.netsurf-browser.org/iconv/
unset ID3TagEd$NoIconv
RMEnsure Iconv 0.08 RMLoad System:Modules.Iconv
RMEnsure Iconv 0.08 set ID3TagEd$NoIconv "Yes"
|RMEnsure Iconv 0.08 Error ID3TagEd requires Iconv 0.08 or later. This can be downloaded from http://www.netsurf-browser.org/iconv/
|
| Ensure we have the Tabs module ----------------------------------------
X RMEnsure Tabs 0.12 RMLoad System:modules.Toolbox.Tabs
RMEnsure Tabs 0.12 RMLoad <ID3TagEd$Dir>.Resources.RMStore.Tabs
RMEnsure Tabs 0.12 Error ID3TagEd requires Tabs 0.09 to run


| Check memory allocation
|WimpSlot -min 200K -max 200K
WimpSlot -min 360K -max 360K
|
| Now start program
Run <ID3TagEd$Dir>.!RunImage
