vb/demo/Ice/value/InitialI.vb

   1 ' **********************************************************************
   2 '
   3 ' Copyright (c) 2003-2011 ZeroC, Inc. All rights reserved.
   4 '
   5 ' This copy of Ice is licensed to you under the terms described in the
   6 ' ICE_LICENSE file included in this distribution.
   7 '
   8 ' **********************************************************************
   9
  10 Imports Demo
  11
  12 Public Class InitialI
  13     Inherits InitialDisp_
  14
  15     Public Sub New(ByVal adapter As Ice.ObjectAdapter)
  16         _simple = New Simple
  17         _simple.message = "a message 4 u"
  18
  19         _printer = New PrinterI
  20         _printer.message = "Ice rulez!"
  21         _printerProxy = PrinterPrxHelper.uncheckedCast(adapter.addWithUUID(_printer))
  22
  23         _derivedPrinter = New DerivedPrinterI
  24         _derivedPrinter.message = _printer.message
  25         _derivedPrinter.derivedMessage = "a derived message 4 u"
  26         adapter.addWithUUID(_derivedPrinter)
  27     End Sub
  28
  29     Public Overloads Overrides Function getSimple(ByVal current As Ice.Current) As Simple
  30         Return _simple
  31     End Function
  32
  33     Public Overloads Overrides Sub getPrinter(ByRef impl As Printer, ByRef proxy As PrinterPrx, ByVal current As Ice.Current)
  34         impl = _printer
  35         proxy = _printerProxy
  36     End Sub
  37
  38     Public Overloads Overrides Function getDerivedPrinter(ByVal current As Ice.Current) As Printer
  39         Return _derivedPrinter
  40     End Function
  41
  42     Public Overloads Overrides Sub throwDerivedPrinter(ByVal current As Ice.Current)
  43         Dim ex As DerivedPrinterException = New DerivedPrinterException
  44         ex.derived = _derivedPrinter
  45         Throw ex
  46     End Sub
  47
  48     Public Overloads Overrides Sub shutdown(ByVal current As Ice.Current)
  49         current.adapter.getCommunicator().shutdown()
  50     End Sub
  51
  52     Private _simple As Simple
  53     Private _printer As Printer
  54     Private _printerProxy As PrinterPrx
  55     Private _derivedPrinter As DerivedPrinter
  56
  57 End Class