Apple

G’day

I’ve written before how Shane's eBook method of saving to a .plist no longer works with some data, specifically listed data from Array Controllers, in High Sierra, but with the latest iterations of current Sierra, they’ve stopped working too!!!

So, I’ve researched, and altered my approach, but still get a major problem. EVERYTHING I’ve found indicated Shane’s method is supposed to work, and WAS up until the latest release of Sierra.

The code below, which reads data from 4 controllers, works on my first pass setting it up, with default data, and the Array Controller lists set as simply {}, but on the second pass, when the Array Controllers actually contain data, and they save as a .plist file, the list becomes unopenable after just the first write.

I’ve tried setting the READ Array Controller data to a list and a record, and saving both as a list and a record, and enclosing the variable in curly brackets. All fail.

The icon of the .plist file, after failure, looks like this…

Error is …'Brian’s Disk:Users:OzSanta:Desktop:Mail Manager Folder:General Data.plist’ is not a property list file

Can ANYONE please tell me what I’m supposed to do?

Regards

Santa

on saveTheGeneralData()

# Set up Emails

try

say 100

set emailText1Array to table1ArrayController's arrangedObjects() as list

say 101

on error errmsg

set emailText1Array to {}

my displayError("saveTheGeneralData 1 " & errmsg as text)

end try

try

set emailText2Array to table2ArrayController's arrangedObjects() as list

on error errmsg

set emailText2Array to {}

my displayError("saveTheGeneralData 2 " & errmsg as text)

end try

try

set emailText3Array to table3ArrayController's arrangedObjects() as list

on error errmsg

set emailText3Array to {}

my displayError("saveTheGeneralData 3 " & errmsg as text)

end try

try

set (my lastReceivedEmailsList) to emailListArrayController's arrangedObjects() as list

on error errmsg

set lastReceivedemailsListList to {}

my displayError("saveTheGeneralData 4 " & errmsg as text)

end try

try

set thePPath to POSIX path of ((path to desktop as text) & "Mail Manager Folder:General Data.plist") as text

on error errmsg number errnum

tell application "System Events" to display dialog "Setting thePPath " & errmsg

end try

try

set numbersDict to current application's NSDictionary's dictionaryWithDictionary:{sendNumbersChartAlsoKey:sendNumbersChartAlso, sendNumbersChartOnlyKey:sendNumbersChartOnly, numbersGraphStoreEachNumbersFileKey:numbersGraphStoreEachNumbersFile, numbersGraphPreviousDaysPermanentKey:numbersGraphPreviousDaysPermanent, numbersGraphPreviousWeeksPermanentKey:numbersGraphPreviousWeeksPermanent, numbersGraphPreviousMonthsPermanentKey:numbersGraphPreviousMonthsPermanent, numbersGraphLastYearsPermanentKey:numbersGraphLastYearsPermanent, theNumbersGraphTypeKey:theNumbersGraphType}

on error errmsg number errnum

my displayError("saveTheGeneralData set numbersDict " & errmsg as text)

end try

tell application id "com.apple.systemevents"

set plistParentRecord to make new property list item with properties {kind:record} as record

set propertyListFile to make new property list file with properties {contents:plistParentRecord, name:thePPath}

# Actually Arrays

tell property list items of propertyListFile

try

make new property list item at end with properties {kind:list, name:"emailText1Key", value:{emailText1Array}} — <<< ALWAYS FAILS HERE WHEN ACTUALLY WRITING DATA, Says ‘1’, but never ‘2’ once written.

say 1

end try

try

make new property list item at end with properties {kind:list, name:"emailText2Key", value:emailText2Array}

say 2

end try

try

# make new property list item at end with properties {kind:record, name:"emailText3Key", value:{emailText3Array}}

say 3

end try

try

make new property list item at end with properties {kind:list, name:"lastReceivedEmailsListKey", value:lastReceivedEmailsList}

say 3.1

end try

try

make new property list item at end with properties {kind:list, name:"numbersDictKey", value:numbersDict}

say 4

end try

try

make new property list item at end with properties {kind:list, name:"eMailAddressesListButtonKey", value:eMailAddressesListButton}

say 4.01

end try

try

make new property list item at end with properties {kind:list, name:"hourlyReportsKey", value:hourlyReports}

say 4.1

end try

try

make new property list item at end with properties {kind:list, name:"salesAddressKeeperStoreKey", value:salesAddressKeeperStore}

say 4.3

end try

try

make new property list item at end with properties {kind:list, name:"theSmallPaperListsKey", value:theSmallPaperList}

say 4.4

end try

try

make new property list item at end with properties {kind:list, name:"theLargePaperListKey", value:theLargePaperList}

say 4.5

end try

try

make new property list item at end with properties {kind:list, name:"eMailAddressesListKey", value:eMailAddressesList}

say 4.6

end try

try

say 5

make new property list item at end with properties {kind:string, name:"mailAddressesMainErrorKey", value:mailAddressesMainError}

make new property list item at end with properties {kind:string, name:"theBusinessNameKey", value:theBusinessName}

on error errmsg

tell application "System Events" to display dialog errmsg

end try

say 6

make new property list item at end with properties {kind:number, name:"emailsMaxRetrievableKey", value:emailsMaxRetrievable}

# ETC.

say 7

make new property list item at end with properties {kind:date, name:"theLastMidnightCheckerStoreNSDateKey", value:theLastMidnightCheckerStoreNSDate}

# ETC.

say 9

make new property list item at end with properties {kind:boolean, name:"serverBackupStateKey", value:serverBackupState}

# ETC.

say 10

end tell

end saveTheGeneralData