Model subclass:#GraphColumn

	instanceVariableNames:'aspects functionYblock'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-Graphs'

!

!GraphColumn class methodsFor:'documentation'!

documentation

"

    a model, which keeps all the information to describe a graph column as used by

    the GraphColumnView. Each change of an attribute will raise a change notification

    and immediately take affect in the graphs

    [author:]

        Claus Atzkern

    [see also:]

        GraphColumnView

        GraphColumnView2D

        GraphColumnView3D

"

! !

!GraphColumn class methodsFor:'instance creation'!

name:aName

    ^ self new name:aName

!

new

    ^ super basicNew initialize

! !

!GraphColumn class methodsFor:'menu definitions'!

colorMenuSelector:aSelector

    "specification used to build the Menu

    "

    ^ ColorMenu colorMenu:true value:aSelector.

!

middleButtonMenu

    "this window spec was automatically generated by the ST/X MenuEditor"

    "do not manually edit this - the builder may not be able to

     handle the specification if its corrupted."

    "

     MenuEditor new openOnClass:GraphColumn andSelector:#middleButtonMenu

     (Menu new fromLiteralArrayEncoding:(GraphColumn middleButtonMenu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'Style'

                #'argument:' #'lineStyle:'

                #'submenuChannel:' #'styleMenuSelector:'

            )

             #(#MenuItem

                #'label:' 'Size'

                #'argument:' #'lineWidth:'

                #'submenuChannel:' #'widthMenuSelector:'

            )

             #(#MenuItem

                #'label:' 'Color'

                #'argument:' #'foregroundColor:'

                #'submenuChannel:' #'colorMenuSelector:'

            )

             #(#MenuItem

                #'label:' 'Zoom Y'

                #'argument:' #'zoomY:'

                #'submenuChannel:' #'zoomMenuSelector:'

            )

          ) nil

          nil

      )

!

styleMenuSelector:aSelector

    |menu width height item bitmap|

    menu   := Menu new.

    width  := 40.

    height := 10.

    #( #solid #dashed ) do:[:style|

        bitmap := Form width:width height:height depth:1.

        bitmap paint:(Color colorId:1).

        bitmap fillRectangleX:0 y:0 width:width height:height.

        bitmap paint:(Color colorId:0).

        bitmap fillRectangleX:0 y:0 width:width height:height.

        bitmap paint:(Color colorId:1).

        bitmap lineWidth:2.

        bitmap lineStyle:style.

        bitmap displayLineFromX:2 y:(height // 2) toX:width-2 y:(height // 2).

        item := MenuItem labeled:bitmap.

        item value:aSelector.

        item argument:style.

        menu addItem:item.

    ].

  ^ menu

"

(self styleMenuSelector:#lineStyle) startUp

"

!

widthMenuSelector:aSelector

    |menu width item bitmap|

    menu  := Menu new.

    width := 40.

    #( 1 2 3 4 5 6 ) do:[:height|

        bitmap := Form width:width height:height depth:1.

        bitmap paint:(Color colorId:1).

        bitmap fillRectangleX:0 y:0 width:width height:height.

        item := MenuItem labeled:bitmap.

        item value:aSelector.

        item argument:height.

        menu addItem:item.

    ].

    item := MenuItem labeled:'other ..'.

    item value:[:arg :panel||n|

        n := Number fromString:(Dialog request:'size:') onError:nil.

        n notNil ifTrue:[

            panel receiver perform:aSelector with:n

        ]

    ].

    menu addItem:item.

  ^ menu

"

(self widthMenuSelector:#lineWidth) startUp

"

!

zoomMenuSelector:aSelector

    "specification used to build the Menu

    "

    |menu width item bitmap|

    menu  := Menu new.

    width := 40.

    #( 25 50 75 nil 100 nil 150 200 nil ) do:[:zY|

        zY notNil ifTrue:[

            item := MenuItem labeled:(zY printString, ' %' ).

            item value:aSelector.

            item argument:(zY / 100).

        ] ifFalse:[

            item := MenuItem labeled:'-'.

        ].

        menu addItem:item.

    ].

    item := MenuItem labeled:'other ..'.

    item value:[:arg :panel||n|

        n := Number fromString:(Dialog request:'zoom %:') onError:nil.

        n notNil ifTrue:[

            panel receiver perform:aSelector with:(n / 100)

        ]

    ].

    menu addItem:item.

  ^ menu

"

(self zoomMenuSelector:#zoomY) startUp

"

! !

!GraphColumn methodsFor:'accessing'!

name

    "get the name of the column

    "

    ^ aspects at:#name ifAbsent:nil

!

name:aName

    "set the name of the column

    "

    self aspectAt:#name put:aName

!

relativeXaxis

    "returns the relative X-axis (y == 0) into the graph view; staring at top (0.0) to

     bottom (1.0). Thus a relative X axis of 0.5 means the graph is centered in the view.

    "

    ^ aspects at:#relativeXaxis ifAbsent:0.5

!

    "sets the relative X-axis (y == 0) into the graph view; staring at top (0.0) to

     bottom (1.0). Thus a relative X axis of 0.5 means the graph is centered in the view.

     In case that the value is not a valid number, the relative X axis is set to 0.5.

    "

    |x|

!

scaleY

    "returns the current y-scale of the column (~~ 0); this value should be set once

     insteat #zoomY:.

    "

    ^ aspects at:#scaleY ifAbsent:1

!

    "set the current y-scale of the column (~~ 0); this value should be set once

     insteat #zoomY:.

     In case that the value is not a valid number or less equal zero, the scale Y

     factor is set to its default value (1).

    "

    |y|

    self aspectAt:#scaleY put:y

!

shown

    "returns true if the column is shown otherwise false

    "

    ^ aspects at:#shown ifAbsent:true

!

shown:aState

    "set the visibility state of the column

    "

    self aspectAt:#shown put:aState

!

transY

    "get the current y-transition of the column; the default is 0

    "

    ^ aspects at:#transY ifAbsent:0

!

    "set the current y-transition of the column to an integer or nil (== 0).

    "

!

zoomY

    "returns the current y-zoom factor of the column excluding the scale Y factor

    "

    ^ aspects at:#zoomY ifAbsent:1

!

zoomY:aFactor

    "set the current y-zoom factor of the column. The graph and its

     horizontal lines are vertical zoomed relative to its center defined

     by the relativeXaxis.

     In case that the value is not a valid number or less equal zero, the zoom Y

     factor is set to its default value (1).

    "

    |y|

    self aspectAt:#zoomY put:y

! !

!GraphColumn methodsFor:'accessing Y function'!

functionYblock

    "get the two arguments block which is used to access Y values from

     start into an array. The block should return the collection of y

     values; see method: #from:into:

    "

    ^ functionYblock

!

functionYblock:something

    "set the two arguments block which is used to access Y values from

     start into an array. The block should return the collection of y

     values; see method: #from:into:

    "

    functionYblock := something.

    self changed.

! !

!GraphColumn methodsFor:'accessing Y values'!

yValueAt:anIndex

    "returns the Y value at an index

    "

    ^ (self yValuesStartAt:anIndex into:(Array new:1)) at:1

!

yValuesStartAt:start into:anArray

    "returns the Y values from start upto an array size. The collection of Y

     values should be returned.

     You can use the argument anArray, to store the Y values or a new array.

     The functionYblock is obligated to return the array used

    "

    ^ functionYblock value:start value:anArray

! !

!GraphColumn methodsFor:'accessing graph'!

foregroundColor

    "returns the color of the graph; if the color is nil the default foreground color

     of the graph is used which derives from the style sheet.

    "

    ^ aspects at:#foregroundColor ifAbsent:nil

!

foregroundColor:aColor

    "set the color of the graph; if the color is nil the default foreground color

     of the graph is used which derives from the style sheet.

    "

    self aspectAt:#foregroundColor put:aColor

!

lineStyle

    "returns the style in which the graph is drawn; if no style is defined, the

     default style is used (#solid).

    "

    ^ aspects at:#lineStyle ifAbsent:#solid

!

lineStyle:aStyle

    "set the style in which the graph is drawn; if no style is defined or

     in case of a non valid style, the default style is used (#solid).

    "

!

lineWidth

    "returns the width of the graph line

    "

    ^ aspects at:#lineWidth ifAbsent:1

!

lineWidth:anInteger

    "set the width of the graph line; if the width is not defined or

     not a valid number, the default value is set (1).

    "

    self aspectAt:#lineWidth put:(anInteger ? 1)

! !

!GraphColumn methodsFor:'accessing hLines'!

hLineFgColor

    "returns the color of the horizontal lines; if the color is nil the default foreground

     color of the graph is used which derives from the style sheet.

    "

    ^ aspects at:#hLineFgColor ifAbsent:nil

!

hLineFgColor:aColor

    "set the color of the horizontal lines; if the color is nil the default foreground

     color of the graph is used which derives from the style sheet.

    "

    self aspectAt:#hLineFgColor put:aColor

!

hLineList

    "returns the list of horizontal lines or nil

    "

    ^ aspects at:#hLineList ifAbsent:nil

!

hLineList:aCollection

    "set the list of horizontal lines to be drawn

    "

    |col|

    self aspectAt:#hLineList put:col

!

hLineStyle

    "returns the style in which the horizontal lines are drawn; if no style is

     defined, the default style is used (#solid).

    "

    ^ aspects at:#hLineStyle ifAbsent:#solid

!

hLineStyle:aStyle

    "set the style in which the horizontal lines are drawn; if no style is defined

     or in case of a non valid style, the default style is used (#solid).

    "

!

hLineWidth

    "returns the width of the horizontal lines

    "

    ^ aspects at:#hLineWidth ifAbsent:1

!

hLineWidth:anInteger

    "set the width of the horizontal lines; if the width is not defined or

     not a valid number, the default value is set (1).

    "

    self aspectAt:#hLineWidth put:(anInteger ? 1)

! !

!GraphColumn methodsFor:'accessing menu'!

middleButtonMenu

    "returns the default middle button menu of a column

    "

    |menu|

    menu := Menu new fromLiteralArrayEncoding:(self class middleButtonMenu).

    menu receiver:self.

  ^ menu

! !