"

 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.

"

GraphColumnViewSpec subclass:#GraphColumnView2DSpec

	instanceVariableNames:'gridX gridY actionBlock doubleClickBlock buttonReleaseBlock

		menuAccessBlock'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Support-UI-Specs'

!

!GraphColumnView2DSpec class methodsFor:'documentation'!

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.

"

!

documentation

"

    Not normally used by applications.

    [author:]

        Claus Atzkern

    [see also:]

        UIBuilder

        UIPainter

"

! !

!GraphColumnView2DSpec class methodsFor:'interface - painter'!

addBindingsTo:env for:inst channel:aChannel 

    super addBindingsTo:env for:inst channel:aChannel.

    self 

        adaptApects:

                    #(  

                        actionBlock

                        doubleClickBlock

                        buttonReleaseBlock

                        menuAccessBlock

                     )

        to:env 

        for:inst 

        channel:aChannel

        converter:#symbolOrNil.

    self 

        adaptApects:

                    #(  

                        gridX

                        gridY

                     )

        to:env 

        for:inst 

        channel:aChannel

        converter:#numberOrNil.

!

slices

    ^ #(

            (Basics    basicsEditSpec)

            (Details   detailsEditSpec)

            (Misc      basicsMiscSpec)

       )

! !

!GraphColumnView2DSpec class methodsFor:'interface specs'!

basicsMiscSpec

    "

    "

    <resource: #canvas>

              )

      )

!

detailsEditSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:GraphColumnView2DSpec andSelector:#detailsEditSpec

    "

    <resource: #canvas>

              )

      )

! !

!GraphColumnView2DSpec methodsFor:'accessing'!

actionBlock

    "return the value of the instance variable 'actionBlock' (automatically generated)"

    ^ actionBlock!

actionBlock:something

    "set the value of the instance variable 'actionBlock' (automatically generated)"

    actionBlock := something.!

buttonReleaseBlock

    "return the value of the instance variable 'buttonReleaseBlock' (automatically generated)"

    ^ buttonReleaseBlock!

buttonReleaseBlock:something

    "set the value of the instance variable 'buttonReleaseBlock' (automatically generated)"

    buttonReleaseBlock := something.!

doubleClickBlock

    "return the value of the instance variable 'doubleClickBlock' (automatically generated)"

    ^ doubleClickBlock!

doubleClickBlock:something

    "set the value of the instance variable 'doubleClickBlock' (automatically generated)"

    doubleClickBlock := something.!

gridX

    "return the value of the instance variable 'gridX' (automatically generated)"

    ^ gridX ? 0

!

gridX:something

    "set the value of the instance variable 'gridX' (automatically generated)"

    gridX := something.!

gridY

    "return the value of the instance variable 'gridY' (automatically generated)"

    ^ gridY ? 0

!

gridY:something

    "set the value of the instance variable 'gridY' (automatically generated)"

    gridY := something.!

menuAccessBlock

    "return the value of the instance variable 'menuAccessBlock' (automatically generated)"

    ^ menuAccessBlock!

menuAccessBlock:something

    "set the value of the instance variable 'menuAccessBlock' (automatically generated)"

    menuAccessBlock := something.! !

!GraphColumnView2DSpec methodsFor:'building'!

actionSelectors

    "add more action selectors

    "

    |more|

    more := super actionSelectors.

    actionBlock        notNil ifTrue:[more add:actionBlock].

    doubleClickBlock   notNil ifTrue:[more add:doubleClickBlock].

    buttonReleaseBlock notNil ifTrue:[more add:buttonReleaseBlock].

    menuAccessBlock    notNil ifTrue:[more add:menuAccessBlock].

  ^ more

!

defineCallBackActionFor:aSelector with:aBuilder

    |appl args|

    (     aSelector isNil

      or:[aBuilder isEditing

      or:[(appl := aBuilder application) isNil]]

    ) ifTrue:[

        ^ nil

    ].

    args := aSelector numArgs.

    args == 0 ifTrue:[ ^ [                 appl perform:aSelector] ].

    args == 1 ifTrue:[ ^ [:a1|             appl perform:aSelector with:a1] ].

    args == 2 ifTrue:[ ^ [:a1 :a2|         appl perform:aSelector with:a1 with:a2] ].

    args == 3 ifTrue:[ ^ [:a1 :a2 :a3|     appl perform:aSelector with:a1 with:a2 with:a3] ].

    args == 4 ifTrue:[ ^ [:a1 :a2 :a3 :a4| appl perform:aSelector with:a1 with:a2 with:a3 with:a4] ].

    ^ nil

!

setAttributesIn:aView with:aBuilder

    super setAttributesIn:aView with:aBuilder.

    aBuilder isEditing ifFalse:[

        aView gridExtent:(self gridX @ self gridY).

        aView             action:(self defineCallBackActionFor:actionBlock with:aBuilder).

        aView  doubleClickAction:(self defineCallBackActionFor:doubleClickBlock with:aBuilder).

        aView buttonReleaseBlock:(self defineCallBackActionFor:buttonReleaseBlock with:aBuilder).

        aView    menuAccessBlock:(self defineCallBackActionFor:menuAccessBlock with:aBuilder).

    ]

! !

!GraphColumnView2DSpec methodsFor:'converting'!

skippedInLiteralEncoding

    "define the inst-slots which are skiped when generating a literalArrayEncoding"

    |l|

    l := super skippedInLiteralEncoding asOrderedCollection.

    actionBlock        isNil ifTrue:[l add:#actionBlock].

    doubleClickBlock   isNil ifTrue:[l add:#doubleClickBlock].

    buttonReleaseBlock isNil ifTrue:[l add:#buttonReleaseBlock].

    menuAccessBlock    isNil ifTrue:[l add:#menuAccessBlock].

  ^ l

! !

!GraphColumnView2DSpec methodsFor:'parsing a view'!

fromView:aView callBack:aBlock

    gridX := aView gridX.

    gridY := aView gridY.

    super fromView:aView callBack:aBlock

! !

!GraphColumnView2DSpec class methodsFor:'documentation'!

version

! !