Class: ChartKey

• Inheritance
• Description
• Related information
• Class protocol
  • instance creation
  • startup
• Instance protocol
  • accessing
  • accessing-color & font
  • class initialization
  • drawing
  • private
• Examples

Inheritance:

   Object
   |
   +--AbstractChart
      |
      +--ChartKey

Package:

stx:libwidg3

Category:

Statistic-Charts

Version:

rev: 1.9 date: 2017/11/28 18:23:46

user: cg

file: ChartKey.st directory: libwidg3

module: stx stc-classLibrary: libwidg3

Author:

Timo Merkert (tm@idefix)

Description:

  ChartDescription for a diagram, whose values are a model as like an array of dictionaries 
  so have a look at 'class - documentation - examples'
  This can be used beside a BarChartWidget or PieChartWidget as
  a legend (extracting its values from the same model).

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



  [instance variables:]
      xPos                x-Koordinate für Color-Punkt
      anzahl              number of pie-pieces
      summe               result of all values
      aod                 Array of Dictionaries
      aoHilf              Array für Hilfsvariablen der Winkelberechnungen
      foregroundColor     Textfarbe
      backgroundColor     Hintergrundfarbe
      label1              Name der Legende

Related information:

    BarChartWidget
    PieChartWidget

Class protocol:

 new

 open

Instance protocol:

 anzahl

 aod

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

 aod: something

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

 getColorAt: aNumber

 getNameAt: num

 summe

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

 summe: something

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

 verticalY

return the value of the instance variable 'verticalY' (automatically generated)

 verticalY: something

set the value of the instance variable 'verticalY' (automatically generated)

 xPos

return the value of the instance variable 'xPos' (automatically generated)

 xPos: something

set the value of the instance variable 'xPos' (automatically generated)

 xPosOn: aView

 backgroundColor

return the value of the instance variable 'backgroundColor' (automatically generated)

 backgroundColor: something

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

 foregroundColor

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

 foregroundColor: something

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

 initialize

 drawChartDescOn: aView inArea: aArea

fontOK == true ifFalse:[

 drawDescriptionOn: aView inArea: anArea

draw colorpoint

 redrawChartDescOn: aView inArea: aRect

 getMaxFontSizeOn: aView inArea: anArea

needs to be refactored. hard coded attributes will confuse the reader.

 getMaxStringLenOn: aView

Examples:

        |p chart piece holder|

        chart := OrderedCollection new.
        piece := Dictionary new.
        piece at:#name put:'Güllemütz'.
        piece at:#color put:(Color red on:Display).
        chart add:piece.

        piece := Dictionary new.
        piece at:#name put:'Hallabadkapp'.
        piece at:#color put:(Color blue on:Display).
        chart add:piece.

        p := ChartDescription new.
        p model:(holder := ValueHolder new).
        p open.
        holder value:chart.
        Delay waitForSeconds:2.
        1 to: 20 do:[:i |
            piece := Dictionary new.
            i odd ifTrue:[
                piece at:#name put:'Hallo erstmal...'.
                piece at:#color put:(Color green on:Display).
            ]
            ifFalse:[
                piece at:#name put:'...und Tschüss'.
                piece at:#color put:Color magenta.
            ].
            chart add:piece.

            holder value:nil.
            holder value:chart.
        ].

        |p v chart piece holder|

        chart := OrderedCollection new.
        piece := Dictionary new.
        piece at:#name put:'Güllemütz'.
        piece at:#color put:(Color red on:Display).
        chart add:piece.

        piece := Dictionary new.
        piece at:#name put:'Hallabadkapp'.
        piece at:#color put:(Color blue on:Display).
        chart add:piece.

        p := ChartKey new.
        p model:chart asValue.

        v := View new.
        v extent:1000@1000.
        v open.
        Delay waitForSeconds:1.
        p redrawChartDescOn:v inArea:(400@400 extent:50@50).