"

 COPYRIGHT (c) 2006 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.

"

"{ Package: 'stx:libtool' }"

SyntaxElement subclass:#SyntaxElementVariable

	instanceVariableNames:'name assigned'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-CodeView-Syntax'

!

!SyntaxElementVariable class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 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

"

 Replace 'SyntaxElement', 'NewClass1' and

 the empty string arguments by true values.

 Install (or change) the class by 'accepting',

 either via the menu or the keyboard (usually CMD-A).

 You can also change the category simply by editing

 the categoryString and accepting.

 To be nice to others (and yourself later), do not forget to

 add some documentation; preferably under the classes documentation

 protocol.

 (see the `create documentation stubs' item in the methodList menu;

  switch from instance to class to find this menu item.)

 Notice, that ST/X uses the convention to document the class using

 comment-only class methods (however, ST80 comments are supported and

 can be changed via the class-documentation menu).

"

! !

!SyntaxElementVariable methodsFor:'accessing'!

assigned

    ^ assigned ? false

!

assigned:something

    assigned := something.

!

name

    ^ name

!

name:something

    name := something.

! !

!SyntaxElementVariable methodsFor:'queries'!

isClass

    ^ type == #class

!

isGlobal 

    ^ (type == #GlobalVariable) or:[ type == #class]

!

isInstanceVariable

    ^ (type == #InstanceVariable) 

!

isVariable

    ^ true

! !

!SyntaxElementVariable class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElementVariable.st,v 1.6 2014-02-05 18:57:25 cg Exp $'

!

version_CVS

    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElementVariable.st,v 1.6 2014-02-05 18:57:25 cg Exp $'

! !