diff options
Diffstat (limited to 'vb/demo/Ice/async/Server.vb')
| -rwxr-xr-x | vb/demo/Ice/async/Server.vb | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/vb/demo/Ice/async/Server.vb b/vb/demo/Ice/async/Server.vb index dd2f5f70067..01d1edf3345 100755 --- a/vb/demo/Ice/async/Server.vb +++ b/vb/demo/Ice/async/Server.vb @@ -13,33 +13,33 @@ Module AsyncS Inherits Ice.Application Public Overloads Overrides Function run(ByVal args() As String) As Integer - callbackOnInterrupt() + callbackOnInterrupt() Dim adapter As Ice.ObjectAdapter = communicator().createObjectAdapter("Hello") - _workQueue = New WorkQueue + _workQueue = New WorkQueue adapter.add(New HelloI(_workQueue), communicator().stringToIdentity("hello")) - _workQueue.Start() + _workQueue.Start() adapter.activate() communicator().waitForShutdown() Return 0 End Function - Public Overloads Overrides Sub interruptCallback(ByVal sig As Integer) - _workQueue.destroy() - _workQueue.Join() + Public Overloads Overrides Sub interruptCallback(ByVal sig As Integer) + _workQueue.destroy() + _workQueue.Join() - Try - communicator().destroy() - Catch ex As Ice.LocalException - Console.Error.WriteLine(ex) - Catch ex As System.Exception - Console.Error.WriteLine(ex) - End Try - End Sub + Try + communicator().destroy() + Catch ex As Ice.LocalException + Console.Error.WriteLine(ex) + Catch ex As System.Exception + Console.Error.WriteLine(ex) + End Try + End Sub - Private _workQueue As WorkQueue + Private _workQueue As WorkQueue End Class Public Sub Main(ByVal args() As String) |