RemoteInvocationServer sample



source ../../oo.tcl

@import core.*

#- creating server object
s = [RemoteInvocationServer new]

#- allowing messages to Object class
$s permit: "Object *"

#- allowing messages to instances
$s permit: "id* *"

#- denying message to our server instance
$s deny: "$s *"

#- denying any RemoteInvocationServer instance creation
$s deny: "RemoteInvocationServer (alloc|new)"

$s start