Object subclass:#ViewProperty
	instanceVariableNames:'aspectSelector changeSelector nameIndex view elementClass
		labelSelector identifier tabable defaultable menuSelector
		initiallyInvisible'
	classVariableNames:'Identifier'
	poolDictionaries:''
	privateIn:UIPainterView
!

!UIPainterView::ViewProperty class methodsFor:'instance creation'!

new
    Identifier notNil ifTrue:[Identifier := Identifier + 1]
                     ifFalse:[Identifier := 1].

  ^ self basicNew initialize
! !

!UIPainterView::ViewProperty methodsFor:'accessing'!

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

    ^ aspectSelector
!

aspectSelector:something
    "set the value of the instance variable 'aspectSelector' (automatically generated)"

    aspectSelector := something.
!

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

    ^ changeSelector!

changeSelector:something
    "set the value of the instance variable 'changeSelector' (automatically generated)"

    changeSelector := something.!

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

    ^ defaultable!

defaultable:something
    "set the value of the instance variable 'defaultable' (automatically generated)"

    defaultable := something.!

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

    ^ elementClass!

elementClass:something
    "set the value of the instance variable 'elementClass' (automatically generated)"

    elementClass := something.!

group
    ^ nil
!

identifier
    "return the unique identifier assigned to property
    "
    ^ identifier
!

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

    ^ initiallyInvisible!

initiallyInvisible:something
    "set the value of the instance variable 'initiallyInvisible' (automatically generated)"

    initiallyInvisible := something.!

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

    ^ labelSelector!

labelSelector:something
    "set the value of the instance variable 'labelSelector' (automatically generated)"

    labelSelector := something.!

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

    ^ menuSelector!

menuSelector:something
    "set the value of the instance variable 'menuSelector' (automatically generated)"

    menuSelector := something.!

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

    ^ view name
!

name:something
    "set the value of the instance variable 'name' (automatically generated)"

    view name:something
!

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

    ^ nameIndex!

nameIndex:something
    "set the value of the instance variable 'nameIndex' (automatically generated)"

    nameIndex := something.!

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

    ^ tabable!

tabable:something
    "set the value of the instance variable 'tabable' (automatically generated)"

    tabable := something.!

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

    ^ view!

view:something
    "set the value of the instance variable 'view' (automatically generated)"

    view := something.! !

!UIPainterView::ViewProperty methodsFor:'initialization'!

initialize
    super initialize.
    identifier := Identifier
! !