ex_automationClient.tcl

package require Garuda

set script {
  object load -import System
  object load -import UIAutomationClient
  object load -import UIAutomationTypes
  object load -import UIAutomationProvider
  object load -import UIAutomationClientsideProviders
  
  set process [object invoke Process Start "calc"]
  after 1000
  
  set main [object invoke AutomationElement FromHandle [object create IntPtr [object invoke $process MainWindowHandle]]]
  set root [object invoke AutomationElement RootElement]
  set cond [object create PropertyCondition [object invoke AutomationElement ProcessIdProperty] [object invoke $process Id]]
}

eagle $script

[object invoke $process Id] needs to be converted into Int32 but I don't know how to do it in Garuda.