/*
putBoolean
desc ---
(key,
value)
number
boolean
list ---
(value)
boolean
Sets the value for a key whose type
is boolean.
*/
|putBoolean
 _objtype
 <
 |lis
  "Allz"
 > not
 {
  _parameter
  <
  |0 "Key"
  > not { "Allz" } if
 } if
/*
putClass
desc ---
(key,
value)
number
number
list ---
(value)
number
Sets the value for a key whose type
is class.
*/
|putClass
 _objtype
 <
 |lis
  "Class"
 > not
 {
  _parameter
  <
  |0 "Key"
  |1 "Class"
  > not { "Allz" } if
 } if
/*
putData
desc ---
(key,
value)
number
string
list ---
(value)
string
Puts raw byte data as a string
value.
*/
|putData
 _objtype
 <
 |lis
  "Allz"
 > not
 {
  _parameter
  <
  |0 "Key"
  > not { "Allz" } if
 } if
/*
putDouble
desc ---
(key,
value)
number
number
list ---
(value)
number
Sets the value for a key whose type
is double.
*/
|putDouble
 _objtype
 <
 |lis
  "Allz"
 > not
 {
  _parameter
  <
  |0 "Key"
  > not { "Allz" } if
 } if
/*
putEnumerated
desc ---
(key,
enumType,
value)
number
number
number
list ---
(enumType,
value)
number
number
Sets the enumeration type and
value for a key
*/
|putEnumerated
 _objtype
 <
 |lis
  _parameter
  <
  |0 "Enum"
  |1 "Key"
  > not { "Allz" } if
 > not
 {
  _parameter
  <
  |0 "Key"
  |1 "Enum"
  |2 "Key"
  > not { "Allz" } if
 } if
/*
putInteger
desc ---
(key,
value)
number
number
list ---
(value)
number
Sets the value for a key whose type
is integer.
*/
|putInteger
 _objtype
 <
 |lis
  "Allz"
 > not
 {
  _parameter
  <
  |0 "Key"
  > not { "Allz" } if
 } if
/*
putLargeInteger
desc ---
(key,
value)
number
number
list ---
(value)
number
Sets the value for a key whose type
is large integer.
*/
|putLargeInteger
 _objtype
 <
 |lis
  "Allz"
 > not
 {
  _parameter
  <
  |0 "Key"
  > not { "Allz" } if
 } if
/*
putList
desc ---
(key,
value)
number
number
list ---
(value)
number
ActionList
Sets the value for a key whose type
is an ActionList object.
*/
|putList
 _objtype
 <
 |lis
  "Allz"
 > not
 {
  _parameter
  <
  |0 "Key"
  > not { "Allz" } if
 } if
/*
putObject
desc ---
(key,
classID,
value)
number
number
object
list ---
(classID,
value)
number
object
ActionDescriptor
Sets the value for a key whose type
is an object, represented by an
Action Descriptor.
*/
|putObject
 _objtype
 <
 |lis
  _parameter
  <
  |0 "Class"
  > not { "Allz" } if
 > not
 {
  _parameter
  <
  |0 "Key"
  |1 "Class"
  > not { "Allz" } if
 } if
/*
putProperty
(classID,
value)
number
ActionReference
Puts a new property and value into
the reference.
*/
|putProperty
 _parameter
 <
 |0 "Class"
 > not
 {
  "Allz"
 } if
/*
putOffset
(classID,
value)
number
value
ActionReference
Puts a new offset and value into
the reference.
*/
|putOffset
 _parameter
 <
 |0 "Class"
 > not
 {
  "Allz"
 } if
/*
putName
(classID,
value)
number
string
ActionReference
Puts a new name and value into
the reference.
*/
|putName
 _parameter
 <
 |0 "Class"
 > not { "Allz" } if
/*
putIndex
(classID,
value)
number
number
ActionReference
Puts a new index and value into
the reference.
*/
|putIndex
 _parameter
 <
 |0 "Class"
 > not { "Allz" } if
/*
putIdentifier
(classID,
value)
number
number
ActionReference
Puts a new identifier and value into
the reference.
*/
|putIdentifier
 _parameter
 <
 |0 "Class"
 > not { "Allz" } if
/*
putPath
desc ---
(key,
value)
number
File
list ---
(value)
File
Sets the value for a key whose type
is path.
*/
|putPath
 _objtype
 <
 |lis
  "Allz"
 > not
 {
  _parameter
  <
  |0 "Key"
  > not { "Allz" } if
 } if
/*
putReference
desc ---
(key,
value)
number
ActionReference
list ---
(value)
ActionReference
Sets the value for a key whose type
is an object reference.
*/
|putReference
 _objtype
 <
 |lis
  "Allz"
 > not
 {
  _parameter
  <
  |0 "Key"
  > not { "Allz" } if
 } if
/*
putString
desc ---
(key,
value)
number
string
list ---
(value)
string
Sets the value for a key whose type
is string.
*/
|putString
 _objtype
 <
 |1
  "Allz"
 > not
 {
  _parameter
  <
  |0 "Key"
  > not { "Allz" } if
 } if
/*
putUnitDouble
desc ---
(key,
unitID,
value)
number
number
number
list ---
(unitID,
value)
number
number
Sets the value for a key whose type
is a unit value formatted as a
double.
*/
|putUnitDouble
 _objtype
 <
 |lis
  _parameter
  <
  |0 "Unit"
  > not { "Allz" } if
 > not
 {
  _parameter
  <
  |0 "Key"
  |1 "Unit"
  > not { "Allz" } if
 } if

/*
executeAction
(eventID
[, descriptor]
[, displayDialogs])
*/
|executeAction
 _parameter
 <
 |0 "Event"
 > not { "Allz" } if