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