blob: 851bb469274ee3ad4dde978bdc71f37490124459 (
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-2009 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
|
