eXept Software AG Logo

Smalltalk/X Webserver

Documentation of class 'PieChart':

Home

Documentation
www.exept.de
Everywhere
for:
 [back]

Class: PieChart

Inheritance:

   Object
   |
   +--AbstractChart
      |
      +--PieChart
Package:
stx:libwidg3
Category:
Statistic-Charts
Version:
rev: 1.11 date: 2017/11/28 18:23:44
user: cg
file: PieChart.st directory: libwidg3
module: stx stc-classLibrary: libwidg3

Description:


hallo erstmal...

 a simple PieChart, 
 (zeigt ein Tortendiagramm, wobei die Stücke jedoch nicht essbar sind.)

 The model is a collection of chart description items,
 each being a dictionary filled with entries for:
     #value  aNumber         the numeric value
     #color  aColor          the color

 see example on how to fill such a chartDescription model.

 This was one of the author's very first Smalltalk programs ever.
 So please excuse any odd code.



 [instance variables:]
 middlePoint,        only for the point in the middle => therefore middlepoint
 radX                radian for x-coordinate
 radY                radian for y-coordinate
 anzahl              number of pie-pieces
 summe               result of all values
 aod                 Array of Dictionaries
 aoHilf              Array with help coordinates
 foregroundColor     text color for percent displaying
 backgroundColor     background color of pie chart
 label1              name of pie chart


copyright
COPYRIGHT (c) 1998 by eXept Software AG
             All Rights Reserved

This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice.   This software may not
be provided or otherwise made available to, or used by, any
other person.  No title to or ownership of the software is
hereby transferred.

Class protocol:

instance creation
o  new
(comment from inherited method)
return an instance of myself without indexed variables

startup
o  open

Instance protocol:

accessing
o  anzahl
return the value of the instance variable 'anzahl' (automatically generated)

o  anzahl: something
set the value of the instance variable 'anzahl' (automatically generated)

o  aoHilf
return the value of the instance variable 'aoHilf' (automatically generated)

o  aoHilf: something
set the value of the instance variable 'aoHilf' (automatically generated)

o  aod
return the value of the instance variable 'aod' (automatically generated)

o  aod: something
set the value of the instance variable 'aod' (automatically generated)

o  label

o  label: aString

o  middlePoint
return the value of the instance variable 'middlePoint' (automatically generated)

o  middlePoint: aPoint
set the value of the instance variable 'middlePoint' (automatically generated)

o  model: newModel

o  newfont
return the value of the instance variable 'newfont' (automatically generated)

o  newfont: something
set the value of the instance variable 'newfont' (automatically generated)

o  oldfont
return the value of the instance variable 'oldfont' (automatically generated)

o  oldfont: something
set the value of the instance variable 'oldfont' (automatically generated)

o  pieChartName
return the value of the instance variable 'pieChartName' (automatically generated)

o  pieChartName: something
set the value of the instance variable 'pieChartName' (automatically generated)

o  rF
return the value of the instance variable 'rF' (automatically generated)

o  rF: something
set the value of the instance variable 'rF' (automatically generated)

o  radX
return the value of the instance variable 'radX' (automatically generated)

o  radX: something
set the value of the instance variable 'radX' (automatically generated)

o  radY
return the value of the instance variable 'radY' (automatically generated)

o  radY: something
set the value of the instance variable 'radY' (automatically generated)

o  style
return the value of the instance variable 'style' (automatically generated)

o  style: something
set the value of the instance variable 'style' (automatically generated)

o  summe
return the value of the instance variable 'summe' (automatically generated)

o  summe: something
set the value of the instance variable 'summe' (automatically generated)

accessing-color & font
o  backgroundColor
return the value of the instance variable 'backgroundColor' (automatically generated)

o  backgroundColor: something
set the value of the instance variable 'backgroundColor' (automatically generated)

o  foregroundColor
return the value of the instance variable 'foregroundColor' (automatically generated)

o  foregroundColor: something
set the value of the instance variable 'foregroundColor' (automatically generated)

drawing
o  drawKeyOn: aForm inArea: aRect

o  drawLogo2On: aView
zeichnet den pie-Umfang

o  drawPercentDescriptionOn: aView
Prozentausgabe der Diagrammstücke

o  drawPieChartOn: aView
get number of pieces

o  drawPiePiecesOn: aView
draw a filled arc in a box, given startAngle and endAngle.

o  redrawPieChartOn: aView

o  redrawPieChartOn: aView inArea: anArea
Instanzvariablen initialisieren

o  writeLabelOn: aView

initialization
o  initialize
(comment from inherited method)
just to ignore initialize to objects which do not need it

private
o  fillAod
fills the Dictionaries in Array with Values

o  getAnzahl
ermittelt die Anzahl der belegten Diagrammstücke

o  getSumme
initialisiert die Instanzvariable summe mit der Gesammtsumme

Examples:


        |p chart piece holder|

        chart := OrderedCollection new.
        piece := Dictionary new.
        piece at:#value put:50.
        piece at:#color put:(Color red onDevice:Display).
        chart add:piece.

        piece := Dictionary new.
        piece at:#value put:100.
        piece at:#color put:(Color blue onDevice:Display).
        chart add:piece.

        p := PieChartWidget new.
        p model:(holder := ValueHolder new).
        p extent:300@300.
        p pieChartName:'demo PieChart'.
        p open.
        holder value:chart.
        Delay waitForSeconds:2.

        1 to: 5 do:[:i |
            piece := Dictionary new.
            piece at:#value put:30.

            piece at:#color put:(i odd ifTrue:[Color green onDevice:Display] 
                                       ifFalse:[Color magenta onDevice:Display]).
            chart add:piece.

            holder value:nil.
            holder value:chart.
        ]

        |p chart piece holder v|

        chart := OrderedCollection new.
        piece := Dictionary new.
        piece at:#value put:50.
        piece at:#color put:(Color red onDevice:Display).
        chart add:piece.

        piece := Dictionary new.
        piece at:#value put:100.
        piece at:#color put:(Color blue onDevice:Display).
        chart add:piece.

        p := PieChart new.
        p model:(holder := chart asValue).
        p pieChartName:'demo PieChart'.

        p.
        v := View new.
        v extent:300@300.
        v open.
        Delay waitForSeconds:1.
        p redrawPieChartOn:v.

ST/X 7.7.0.0; WebServer 1.702 at 20f6060372b9.unknown:8081; Sat, 21 Dec 2024 17:23:15 GMT