Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- class TestClass definition.
- class-data: staticValue type int value 0.
- public Section.
- data: pubValue type string value 'public value',
- inc type int value 0.
- methods pubMeth1,
- pubMeth2,
- pubMeth3,
- increaseStaticValue importing val type int
- exporting result type int.
- protected Section.
- data: protSection type string value 'protected value'.
- methods protMethod1.
- private Section.
- data: privSection type string value 'private Section'.
- methods privMethod1.
- endclass.
- class TestClass implementation.
- method pubMeth1.
- write: / concatenate 'access from public method with ' into pubValue.
- endmethod.
- method pubMeth2.
- write: / 'list of class values: ' concatenate pubValue .
- endmethod.
- method pubMeth3.
- inc = inc + 1.
- endmethod.
- method increaseStaticValue.
- write: / 'call of' concatenate pubValue.
- endmethod.
- method protMeth1.
- write: / 'call of' concatenate pubValue.
- endmethod.
- method privMeth1.
- write: / 'call of' concatenate pubValue.
- endmethod.
- endclass.
- data class_obj type ref to TestClass.
- class_obj->pubMeth1().
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement