|
|
test updated afted setting $o.prop without setter exception removed (related to feature #1157)
@main[]
$o[^O::create[]]
prop1: $o.prop1
prop2: $o.prop2
$o.prop1[set_prop1]
prop1 modified: $o.prop1
^try-catch{
$O:prop1[value]
}
@CLASS
O
@create[]
$prop2[set_prop2]
@GET_prop1[]
prop1
@GET_prop2[]
prop2
@SET_DEFAULT[name;value]
$$name[$value - via SET_DEFAULT]