Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Mar 7th, 2012  |  syntax: F#  |  size: 0.46 KB  |  views: 67  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
This paste has a previous version, view the difference. Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. type OrderService() =
  2.     let mutable client : option<IDuplexClient> = None
  3.     let mutable orderName : string = null
  4.     let mutable orderQuantity : int = 0
  5.  
  6.     member x.Order (name: string, quantity: int) =
  7.         client <- Some (OperationContext.Current.GetCallbackChannel<IDuplexClient> ())
  8.         orderName <- name
  9.         orderQuantity <- quantity
  10.         use timer = new Timer (new TimerCallback (CallClient), null, 5000, 5000)
  11.         Thread.Sleep 11000
clone this paste RAW Paste Data