Skip to content

Instantly share code, notes, and snippets.

@eduard93
Created April 28, 2016 16:00
Show Gist options
  • Save eduard93/e45c8fe95899317ece7e2b5731e7e2b8 to your computer and use it in GitHub Desktop.
Save eduard93/e45c8fe95899317ece7e2b5731e7e2b8 to your computer and use it in GitHub Desktop.
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2016-04-28 19:00:03">
<Class name="Utils.NewClass1">
<Super>%RegisteredObject</Super>
<TimeChanged>64036,68182.147523</TimeChanged>
<TimeCreated>64023,75066.420504</TimeCreated>
<Property name="ObjectProp">
<Type>Utils.NewClass1</Type>
</Property>
<Property name="Value">
</Property>
<Method name="Test">
<Description>
do ##class(Utils.NewClass1).Test()</Description>
<ClassMethod>1</ClassMethod>
<Implementation><![CDATA[
set obj = ..%New()
set obj.ObjectProp = ..%New()
set obj.ObjectProp.Value = 1
set propRef = $property(obj, "ObjectProp")
Write "Full reference: " _ obj.ObjectProp.Value, !
Write "Local var reference: " _ propRef.Value, !
Set propRef.Value = 2
Write "Full reference: " _ obj.ObjectProp.Value, !
Write "Local var reference: " _ propRef.Value, !
Set propRef = ..%New()
Set propRef.Value = 3
Write "Full reference: " _ obj.ObjectProp.Value, !
Write "Local var reference: " _ propRef.Value, !
]]></Implementation>
</Method>
</Class>
</Export>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment