Class App Inherits Application

Const kEditClear = "&Delete"

Const kFileQuit = "&Quit"

Const kFileQuitShortcut = ""

End Class

Class PicWindow Inherits Window

EventHandler Sub Open() dim c as CDPieChartMBS // The data for the pie chart dim data(-1) as double=array(55.0, 18.0, 25.0, 22.0, 18.0, 30.0, 35.0) // The labels for the pie chart, Words are choosen random to check font! dim labels(-1) as string=array("Hello","поддержка","наличие","процессорам","Джон","Ланкастерский","герцог") // Create a PieChart object of size 360 x 300 pixels c = new CDPieChartMBS(700, 600) // Set the center of the pie at (180, 140) and the radius to 100 pixels c.setPieSize 350,300,150 // Set the pie data and the pie labels c.setData data,labels call c.setLabelStyle "Times New Roman",18 Backdrop=c.makeChartPicture End EventHandler

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&File"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Edit"

MenuItem EditUndo = "&Undo"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "Cu&t"

MenuItem EditCopy = "&Copy"

MenuItem EditPaste = "&Paste"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "Select &All"

End MenuBar