anchor.diff:          |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
  
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    of TextBoxWidget
      |AppChartWidget      of ChartWidget
      |AppButtonWidget     of ButtonWidget
      |AppGaugeWidget      of GaugeWidget
      static member ToWorker appModel=
          match appModel with 
          |AppRandomEvent(src) ->      src |> Worker.Create 
  