A couple of questions
1) Any document saved with my program in Windows has the generic icon
how do I fix that?
The Mac version has the correct icon
2) When I load or save files there is a weird square character after
the data in the file
This is how I am saving files
progresswheel1.visible=true
//urlsv.text
'Dim file As FolderItem
'Dim fileStream as TextOutputStream
'file=GetSaveFolderItem("","URL Database")
'if file = nil then
'MSGBOX "Can't save file."
'end if
'
'if file <> nil then
'file.MacType = "Text"
'file.MacCreator = "UKBH"
'fileStream=file.CreateTextFile
'fileStream.WriteLine urlsv.text
'fileStream.Close
'end if
dim f as folderItem
dim i as integer
dim t as textOutputStream
dim theLine as string
f = GetSaveFolderItem ("", "URL Database")
if f <> nil then
t = f.createTextFile
f.MacType = "Text"
f.MacCreator = "UKBH"
if t <> nil then
for i = 0 to urlsv.listCount -1 //repeat with each row of the
listbox
theLine = urlsv.cell(i,0) + chr(9) + urlsv.cell(i,1)
//theLine is made up of the Name + tab character + the URL
t.writeLine theLine
next
t.close
end if
end if
This is how I am opening files
progresswheel1.visible=true
dim i as integer
dim File as FolderItem
dim FileStream as TextInputStream
file=GetOpenFolderItem("")
If file <> Nil and file.exists then
file.MacType = "Text"
file.MacCreator = "UKBH"
FileStream = file.OpenAsTextFile
If FileStream <> Nil then
Do Until FileStream.EOF
window1.urlsv.AddRow FileStream.ReadLine
Loop
End
Else
MsgBox "File error"
End
_______________________________________________
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>
