LiveCode Forums.

Code: Select all

tell application "Calendar"
	if (count of items of localUIDs) is greater than 0 then
		set theProps to properties of event id (item 1 of localUIDs) of (last calendar whose name is "Work")
	else
		set theProps to "nothing selected"
	end if
end tell
return theProps

Code: Select all

  
 <dict>
 ...
  <key>com.apple.security.personal-information.calendars</key>
    <true/>
    ...
  </dict> 
  

Code: Select all

use AppleScript version "2.4" -- Yosemite (10.10) or later
use framework "Foundation"
use framework "EventKit"
use script "CalendarLib EC" version "1.1.4"
use scripting additions

-- Determine selected event
set defaultsReply to (do shell script "defaults read com.apple.ical SelectedEvents")

set localUIDs to {}
set {TID, text item delimiters} to {text item delimiters, quote}
set resultItems to text items of defaultsReply
set text item delimiters to TID
repeat with i from 1 to (count resultItems)
	if i mod 2 = 0 then set end of localUIDs to resultItems's item i
end repeat


set selectedID to (item 1 of localUIDs)
if selectedID = missing value then return empty
set theEKEventStore to fetch store
set theEvent to theEKEventStore's eventWithIdentifier:selectedID

set theCalID to theEvent's calendar()'s calendarIdentifier() as text

tell application id "com.apple.iCal" -- Calendar
	set theProps to properties of event id (item 1 of localUIDs) of calendar id theCalID
end tell

return theProps

Code: Select all

set defaultsReply to (do shell script "defaults read com.apple.ical SelectedEvents")

set localUIDs to {}
set {TID, text item delimiters} to {text item delimiters, quote}
set resultItems to text items of defaultsReply
set text item delimiters to TID
repeat with i from 1 to (count resultItems)
	if i mod 2 = 0 then set end of localUIDs to resultItems's item i
end repeat

tell application id "com.apple.iCal" -- Calendar
	set theProps to properties of event id (item 1 of localUIDs) of some calendar
end tell
return theProps

Code: Select all

global tArray
-- Sent when the mouse is released after clicking
-- pMouseButton specifies which mouse button was pressed
on mouseUp pMouseButton
  local tAuthStatus, tlist
   put empty into  fld "FldResult"
   put smkCheckAuth() into tAuthStatus
  
   if tAuthStatus is "Authorised" then
      put smkGetListOfEvents("2022-01-01","2023-12-31") into tArray
   else
      answer "Error, You need to grant permission for this application to access Calendars."
      exit mouseUp
   end if
   if the keys of tArray is empty then
      answer "no data returned"
   else
      repeat for each line tkey in the keys of tArray
         --put tArray[tkey] & cr & tArray[tkey] & cr after tList
         put tArray[tkey]["title"] & cr & tArray[tkey]["startdate"] & cr & tArray[tkey]["enddate"] & cr after tList
      end repeat
      put tList into fld "FldResult"
      beep
      answer "done"
   end if
end mouseUp