Use cWebView.pkg
Use cWebPanel.pkg
Use cWebForm.pkg 
Use csfWebAccumulationChart.pkg
Use cWebButton.pkg

Object oPieChartDemo is a cWebView
    //Set piWidth to 700
    Set psCaption to "Pie Chart Demo"

    // Your DDO structure will go here

    Object oWebMainPanel is a cWebPanel
      Set piColumnCount to 12
      Set pbFillHeight to True

      Object oWebPieChart is a csfWebAccumulationChart
        Set piHeight to 400
        Set piColumnSpan to 12
        Set psTitle to "demo Pie Chart"
        Set pbTooltip to True
        //Object oBarArea is a csfWebChartArea
        //  Set psBackground to "cornSilk"
        //  //Set psBorderColor to "green"
        //  //Set piBorderWidth to 2
        //End_Object  
        Object oDataSeries is a csfWebChartAccumulationSeries
          Set psInnerRadius to "40%"
          Set piStartAngle to 0
          Set piEndAngle to 360
          Set psSelectionMode to "Point"
          Set psName to "Revenue"
          Set pbDataLabelVisible to True // temporary hack (might change)
          Procedure OnAddChartData
            Send AddPoint "Net-tution" 21 "21%"
            Send AddPoint "Private Gifts" 8 "8%"
            Send AddPoint "All Other" 9 "9%"
            Send AddPoint "Local Revenue" 4 "4%"
            Send AddPoint "State Revenue" 21 "21%"
            Send AddPoint "Federal Revenue" 16 "16%"
            Send AddPoint "Self-supporting Operations" 21 "21%"
          End_Procedure
        End_Object  
      End_Object

      Object oExportButton is a cWebButton
          Set piColumnSpan to 2
          Set psCaption to "Export"
      
          Procedure OnClick
            Integer eFileType
            String  sFileName
            Move cwcet_PNG to eFileType
            Move "PieChart-test" to sFileName
            Send ExportChart of oWebPieChart eFileType sFileName
          End_Procedure
      End_Object
        
    End_Object 

End_Object