Safari is a folder. It's actually Safari.app. It's icon is Safari.app/
Contents/Resources/compass.icns. No more resource forks.
On Dec 31, 2008, at 9:58 AM, Lennox Jacob wrote:
I got this example from the LR but when I run it I am getting this
message - "Resource not found!".
'This example gets the desktop application icon for Photoshop® and
displays it in a Canvas control.
#if TargetMacOS then
Dim rf as ResourceFork
Dim f as FolderItem
Dim p as Picture
'f= GetFolderItem("Photoshop") I don't have Photoshop, but I have
Safari
f= GetFolderItem("Safari")
If f <> Nil then
rf=f.OpenResourceFork
If rf <> Nil then
p=rf.Geticl(128)
Canvas1.backdrop=p
Else
MsgBox "Resource not found!"
End if
Else
MsgBox "File not found!"
End if
#Else
msgbox "Sorry, but access to the resourcefork is supported only
on Macintosh"
#endif
How can I fix that?
--
Thom McGrath
The ZAZ Studios
<http://www.thezaz.com/> AIM: thezazstudios
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
|