anchor.diff:      |AppTextBoxWidget    of TextBoxWidget
       |AppChartWidget      of ChartWidget
       |AppButtonWidget     of ButtonWidget
  +    |AppGaugeWidget      of GaugeWidget
       static member ToWorker appModel=
           match appModel with 
           |AppRandomEvent(src) ->      src |> Worker.Create 
  
positive.code:                             | :? TextBoxWidget   as src -> Some(AppTextBoxWidget(TextBoxWidget.FromWorker worker))
                              | :? ChartWidget     as src -> Some(AppChartWidget(ChartWidget.FromWorker worker))
                              | :? ButtonWidget    as src -> Some(AppButtonWidget(ButtonWidget.FromWorker worker))
                              | _ -> None 
  
  
  
negative.code:         |AppTextBoxWidget(src)   ->  src |> Worker.Create 
          |AppChartWidget(src)  ->     src |> Worker.Create 
          |AppButtonWidget(src)   ->   src |> Worker.Create 
          |AppGaugeWidget(src)   ->    src |> Worker.Create 
           
      static member FromWorker (worker:Worker)= 
                              match worker.Data with
  