blob: c170b22fc8d81d68ca1ba4bc96113bc028b7e9bc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
' **********************************************************************
'
' Copyright (c) 2003-2006 ZeroC, Inc. All rights reserved.
'
' This copy of Ice is licensed to you under the terms described in the
' ICE_LICENSE file included in this distribution.
'
' **********************************************************************
Imports Demo
Public Class NestedI
Inherits NestedDisp_
Public Sub New(ByVal self As NestedPrx)
_self = self
End Sub
Public Overloads Overrides Sub nestedCall(ByVal level As Integer, ByVal proxy As NestedPrx, ByVal current As Ice.Current)
System.Console.Out.WriteLine("" & level)
level -= 1
If level > 0 Then
proxy.nestedCall(level, _self, current.ctx)
End If
End Sub
Private _self As NestedPrx
End Class
|
