parsing tell script object

import terminology from script object when parsing
use AppleScript version "2.3.1"
use scripting additions
use framework "Foundation"
use framework "AppKit"


property textFieldOutlet: missing value
property labelOutlet: missing value
property boundProperty: "Initial state"

tell script "Dialog Toolkit"
  check for main -- make sure we are in foreground when testing
  set theLabelStrings to {"Random Text", "Random Text", "Even more randome text"}
  set maxLabelWidth to max width for labels theLabelStrings
  set controlLeft to maxLabelWidth + 6
  set {labelOutlet, theTop, newWidth} to create label " total per queue." left inset 0 bottom (0 + 8) max width 250 aligns "left" without multiline
end tell
set theOptions to current application's NSDictionary's dictionaryWithObjects:{true, "No entry"} forKeys:{current application's NSContinuouslyUpdatesValueBindingOption, current application's NSNullPlaceholderBindingOption}
labelOutlet's bind:(current application's NSValueBinding) toObject:me withKeyPath:"boundProperty" options:theOptions

tell script "Dialog Toolkit"
  set {textFieldOutlet, textFieldLabel, theTop, fieldLeft} to create side labeled field "the field" placeholder text "Stop ID" left inset 0 bottom (theTop + 8) total width 250 label text "textFieldOutlet" field left controlLeft
end tell

textFieldOutlet's bind:(current application's NSValueBinding) toObject:me withKeyPath:"boundProperty" options:theOptions

tell script "Dialog Toolkit"
  set allControls to {labelOutlet, textFieldLabel, textFieldOutlet}
  -- controlResults will in the same order as allControls
  set {buttonName, suppressedState, controlResults} to display enhanced alert "The main title." message "some other stuff" as informational buttons {"Cancel", "OK"} giving up after 120 acc view width 250 acc view height theTop acc view controls allControls without suppression
  log controlResults
  set {statusMessage, textFieldLabel, textFieldOutlet} to controlResults

end tell
Comments (0)
