On 2007-01-16, at 21:05, Gary Edge wrote:
I knew it was simple. Thanks Sven
Gary
On Jan 16, 2007, at 2:59 PM, Sven E Olsson wrote:
f = App.ExecutableFile.parent
f = f.parent.Child("Resources")
if f <> nil then
if f.Exists then
folder.ResourceFolder = f
end if
end if
Sven E
Ye but there is one hint ...
If you "running in Debug mode" ..
So you have to do something like this:
#if DebugBuild then
// create your "debug mode Resource Folder" here
if folder.ResourceFolder = nil then
mBeep
MsgBox "Error Debug Mode Source Folder not Found!"
quit
end if 'nil
#else
f = App.ExecutableFile.parent
f = f.parent.Child("Resources")
if f <> nil then
if f.Exists then
folder.ResourceFolder = f
end if
end if
#endif ' #debugbuild
Sven E
-----------------------
REALbasic 2007R1 OS X 10.4.8 Intel and 10.4.6 PPC
SEEdit Maxi THE XHTML EDITOR FOR MACINTOSH
http://www.seedit.info
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
