diff options
Diffstat (limited to 'vb/demo/IceGrid/allocate/Server.vb')
| -rwxr-xr-x | vb/demo/IceGrid/allocate/Server.vb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vb/demo/IceGrid/allocate/Server.vb b/vb/demo/IceGrid/allocate/Server.vb index b9047fbba9d..121226b489b 100755 --- a/vb/demo/IceGrid/allocate/Server.vb +++ b/vb/demo/IceGrid/allocate/Server.vb @@ -14,8 +14,8 @@ Module AllocateS Public Overloads Overrides Function run(ByVal args() As String) As Integer Dim adapter As Ice.ObjectAdapter = communicator().createObjectAdapter("Hello") - Dim properties As Ice.Properties = communicator().getProperties() - Dim id As Ice.Identity = communicator().stringToIdentity(properties.getProperty("Identity")) + Dim properties As Ice.Properties = communicator().getProperties() + Dim id As Ice.Identity = communicator().stringToIdentity(properties.getProperty("Identity")) adapter.add(New HelloI(properties.getProperty("Ice.ServerId")), id) adapter.activate() communicator.waitForShutdown() |