author | Claus Gittinger <cg@exept.de> |
Sat, 12 Nov 2016 11:51:07 +0100 | |
changeset 17061 | 17e020091a74 |
parent 17060 | 536a4ac6e833 |
child 17062 | d57e024b384f |
extensions.st | file | annotate | diff | comparison | revisions |
--- a/extensions.st Sat Nov 12 04:32:30 2016 +0100 +++ b/extensions.st Sat Nov 12 11:51:07 2016 +0100 @@ -875,9 +875,12 @@ add:'-callType' -> [ self isCallTypeAPI ifTrue:[ 'API' ] ifFalse:[ 'normal' ] - ]. + ]; + add:'-virtual' -> [ self isVirtualCPP ]. ^ atts + + "Modified: / 12-11-2016 / 11:38:35 / cg" ! ! !FileStream methodsFor:'inspecting'!