Help with tree menu in Safari

[JLF]

Hello,

I was hoping you might have a suggestion for me with a tree menu I am working on. I finished it and it works perfectly in IE but not so much in
Safari...

when i click on the links in safari it will only open the first file in the
folder that you click, and wont open any others unless you go back and click
on the folder again:

for example

Folder
--file 1
--file 2
--file 3

If i click on "folder" and it expands to show the three files and then i
click on say "file 2", it will display but if i then click on "file 1" it
will not display. However, if I go back and click on "folder" again and then
click on "file 1" it will display. So the link works but only if i click on
"folder" before clicking on any of the files.

This makes no sense to me as it works perfectly in IE. It even works with
all folders expanded if i jump from a file that is in a folder way at the
bottom to a file in a folder way at the top...does any of this make sense to
you?

Here is the code if that helps and you can download the file with all its
contents at www.retractaway.com/files/teachingkit.sit

The strangest thing of all is that there is a little portion of this code
that works perfectly in Safari...it is the electronic colouring book portion

---
fSubSub = insFld(fSub,gFld('F02. Electronic Colouring Book',
"files/electroniccolour.html"))
insDoc(fSubSub,gLnk('R', 'F02.01 Maple Leaves', 'files/mapleleaves.html'))
insDoc(fSubSub,gLnk('R', 'F02.02 Parliament Buildings',
'files/parliament.html'))
insDoc(fSubSub,gLnk('R', 'F02.03 Loonie', 'files/loonie.html'))
insDoc(fSubSub,gLnk('R', 'F02.04 Map Of Canada', 'files/mapofcanada.html'))
insDoc(fSubSub,gLnk('R', 'F02.05 First Nations', 'files/firstnations.html'))
insDoc(fSubSub,gLnk('R', 'F02.06 Mountie', 'files/mountie.html'))
insDoc(fSubSub,gLnk('R', 'F02.07 Astronaut', 'files/astronaut.html'))
insDoc(fSubSub,gLnk('R', 'F02.08 I Love Canada', 'files/lovecanada.html'))
---

The full code is below:

Any help at all would be greatly appreciated.

Thanks!

foldersTree = gFld('Teaching Kit', 'teachingkitrightframe.html') f =
foldersTree fSub = insFld(f,gFld('A. Introduction', 'files/intro.html'))
insDoc(fSub,gLnk('R', 'A01. The Teaching Kit Intro.',
'files/introduction.pdf'))
fSub = insFld(f,gFld('B. Teachers\' Guide', 'files/teachersguide.html'))
insDoc(fSub,gLnk('R', 'B01. WELCOME!', 'files/welcome.pdf'))
insDoc(fSub,gLnk('R', 'B02. What\'s the Show About?',
'files/whatstheshowabout.pdf'))
insDoc(fSub,gLnk('R', 'B03. MKM Facts and Figures', 'files/facts.pdf'))
insDoc(fSub,gLnk('R', 'B04. Staff Coordinator Tips', 'files/tips.pdf'))
insDoc(fSub,gLnk('R', 'B05. Teachers Tips', 'files/tipsteachers.pdf'))
insDoc(fSub,gLnk('R', 'B06. Concert Prep. Checklist',
'files/concertprep.pdf'))
insDoc(fSub,gLnk('R', 'B07. Concert Song Selection',
'files/concertsongselection.pdf'))
insDoc(fSub,gLnk('R', 'B08. Suggested Introduction',
'files/suggestedintro.pdf'))
insDoc(fSub,gLnk('R', 'B09. Concert Poster', 'files/concertposter.pdf'))
fSubSub = insFld(fSub,gFld('B10. Media Advisory',
'javascriptarent.op();'))
insDoc(fSubSub,gLnk('R', 'B10.01 Notifying the Media',
'files/notifymedia.pdf'))
insDoc(fSubSub,gLnk('R', 'B10.02 Sample Advisory',
'files/sampleadvisory.pdf'))
fSubSub = insFld(fSub,gFld('B11. Parent Invitation',
'javascriptarent.op();'))
insDoc(fSubSub,gLnk('R', 'B11.01 Inviting Guests',
'files/invitingguests.pdf'))
insDoc(fSubSub,gLnk('R', 'B11.02 Parent Invitation',
'files/parentinvite.pdf'))
fSubSub = insFld(fSub,gFld('B12. Ordering Products',
'javascriptarent.op();'))
insDoc(fSubSub,gLnk('R', 'B12.01 Ordering Options',
'files/orderingoptions.pdf'))
insDoc(fSubSub,gLnk('R', 'B12.02 Sample Order Form',
'files/sampleorderform.pdf'))
insDoc(fSubSub,gLnk('R', 'B12.03 Fax Order Form', 'files/fax.pdf'))
insDoc(fSub,gLnk('R', 'B13. Suggested Gym Layout', 'files/gymlayout.pdf'))
insDoc(fSub,gLnk('R', 'B14. Performance Evaluation',
'files/evaluation.pdf'))
fSub = insFld(f,gFld('C. Lyric Sheets', "files/lyricsheet.html"))
insDoc(fSub,gLnk('R', 'C01. To Use This Resource', 'files/howtouse.pdf'))
insDoc(fSub,gLnk('R', 'C02. Song Lyrics', 'files/songlyrics.pdf')) fSub =
insFld(f,gFld('D. O Canada', "files/ocanada.html")) insDoc(fSub,gLnk('R',
'D01. A Short History', 'files/history.pdf')) insDoc(fSub,gLnk('R', 'D02.
Music Chart', 'files/musicchart.pdf')) insDoc(fSub,gLnk('R', 'D03. English
Lyrics Poster',
'files/englishlyrics.pdf'))
insDoc(fSub,gLnk('R', 'D04. French Lyrics Poster',
'files/frenchlyrics.pdf'))
insDoc(fSub,gLnk('R', 'D05. English Recording',
'files/ocanadaenglish.aiff'))
insDoc(fSub,gLnk('R', 'D06. French Recording', 'files/ocanadafrench.aiff'))
insDoc(fSub,gLnk('R', 'D07. Bilingual Recording',
'files/ocanadabilingual.aiff'))
insDoc(fSub,gLnk('R', 'D08. Instrumental Recording',
'files/ocanadainstrumental.aiff'))
fSub = insFld(f,gFld('E. Big Canadian Music Book', "files/musicbook.html"))
insDoc(fSub,gLnk('R', 'E01. Introduction', 'files/bigmusicintro.pdf'))
insDoc(fSub,gLnk('R', 'E02. Cover Art', 'files/cover.jpg'))
insDoc(fSub,gLnk('R', 'E03. Charts', 'files/charts.pdf')) fSub =
insFld(f,gFld('F. Colouring Book', "files/colouringbook.html"))
insDoc(fSub,gLnk('R', 'F01. Colouring Book Info.',
'files/colouringinfo.pdf'))
fSubSub = insFld(fSub,gFld('F02. Electronic Colouring Book',
"files/electroniccolour.html"))
insDoc(fSubSub,gLnk('R', 'F02.01 Maple Leaves', 'files/mapleleaves.html'))
insDoc(fSubSub,gLnk('R', 'F02.02 Parliament Buildings',
'files/parliament.html'))
insDoc(fSubSub,gLnk('R', 'F02.03 Loonie', 'files/loonie.html'))
insDoc(fSubSub,gLnk('R', 'F02.04 Map Of Canada', 'files/mapofcanada.html'))
insDoc(fSubSub,gLnk('R', 'F02.05 First Nations', 'files/firstnations.html'))
insDoc(fSubSub,gLnk('R', 'F02.06 Mountie', 'files/mountie.html'))
insDoc(fSubSub,gLnk('R', 'F02.07 Astronaut', 'files/astronaut.html'))
insDoc(fSubSub,gLnk('R', 'F02.08 I Love Canada', 'files/lovecanada.html'))
insDoc(fSub,gLnk('R', 'F03. Printable Colouring Book',
'files/colouringbook.pdf'))
fSub = insFld(f,gFld('G. Animation', "files/animation.html"))
insDoc(fSub,gLnk('R', 'G01. Canada In My Pocket', 'files/cimp.html')) fSub =
insFld(f,gFld('H. Lecture Notes', "files/lecture.html"))
insDoc(fSub,gLnk('R', 'H01. Introduction', 'files/lectureintroduction.pdf'))
insDoc(fSub,gLnk('R', 'H02. Student Lecture Notes',
'files/studentlecture.pdf'))
fSub = insFld(f,gFld('I. Games', "files/games.html")) insDoc(fSub,gLnk('R',
'I01. Coinnection Game', 'files/coingame.html')) insDoc(fSub,gLnk('R', 'I02.
Canada Map Challenge', 'files/map.html')) fSubSub = insFld(fSub,gFld('I03.
Canadian Find A Word',
"files/findaword.html"))
insDoc(fSubSub,gLnk('R', 'I03.01 Places Puzzle', 'files/places.pdf'))
insDoc(fSubSub,gLnk('R', 'I03.02 Critters Puzzle', 'files/critters.pdf'))
insDoc(fSubSub,gLnk('R', 'I03.03 Things Puzzle', 'files/things.pdf'))