"{ Package: 'stx:libjava/tools' }"!

!ConfigurableFeatures class methodsFor:'queries-features'!

hasGroovySupport

    "Actually, same as hasJavaToolingSupport, byt maybe

     we'll separate later"

    ^self hasJavaToolingSupport

    "

     ConfigurableFeatures hasGroovySupport

     ConfigurableFeatures includesFeature:#GroovySupport

    "

    "Created: / 18-02-2012 / 16:57:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ConfigurableFeatures class methodsFor:'queries-features'!

hasJavaToolingSupport

    "/ use Smalltalk-at to trick the dependency/prerequisite generator

    ^self hasJavaSupport

	and:[(Smalltalk at:#'stx_libjava_tools') notNil]

    "

     ConfigurableFeatures hasJavaToolingSupport

     ConfigurableFeatures includesFeature:#JavaToolingSupport

    "

    "Created: / 18-02-2012 / 16:44:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaObject methodsFor:'inspecting'!

inspectorClass

    "Return an inspector class for the receiver.

     Bit ugly, but reasonably fast :-)"

    | cls nm ifaces |

    nm := (cls := self class) name.

    (nm == #'java/util/ArrayList') ifTrue:[

	^JavaListInspectorView

    ].

    (nm == #'java/util/LinkedList') ifTrue:[

	^JavaListInspectorView

    ].

    (nm == #'java/util/HashMap') ifTrue:[

	^JavaMapInspectorView

    ].

    (nm == #'java/util/TreeMap') ifTrue:[

	^JavaMapInspectorView

    ].

    (nm == #'java/util/HashSet') ifTrue:[

	^JavaSetInspectorView

    ].

    ifaces := self class allInterfaces.

    ifaces do:[:i|

	i name == #'java/util/List' ifTrue:[

	    ^JavaListInspectorView

	].

	i name == #'java/util/Map' ifTrue:[

	    ^JavaMapInspectorView

	].

	i name == #'java/util/Set' ifTrue:[

	    ^JavaSetInspectorView

	].

    ].

    ^super inspectorClass

    "Created: / 04-12-2011 / 16:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!Tools::NewSystemBrowser methodsFor:'menu actions-class'!

classMenuNewGroovyClass

    | currentClass superClass code category |

    currentClass := self theSingleSelectedClass.

    currentClass notNil ifTrue:[

	superClass := currentClass theNonMetaclass superclass.

	superClass notNil ifTrue:[

	    superClass isJavaClass ifFalse:[

		superClass := Java classForName:'java.lang.Object'.

	    ]

	]

    ] ifFalse:[

	superClass := Java classForName:'java.lang.Object'.

    ].

    category := self hasCategorySelected

		    ifTrue:[self selectedCategoriesValue first]

		    ifFalse:[Compiler defaultMethodCategory]. "/ '* As yet uncategorized *'

    code := GroovyLanguage instance

		    classTemplateFor: superClass

		    in: category

		    asNamespace: false

		    private: false.

    self showCode: code.

    self setAcceptAction: [:theCode | self doAcceptGroovyClassDefinition: theCode asString ].

    self codeAspect:#newClassDefinition.

    "Created: / 18-02-2012 / 17:16:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!stx_libjava_tools class methodsFor:'documentation'!

extensionsVersion_HG

    ^ '$Changeset: <not expanded> $'

! !