#FEATURE by cg
class: SmallSense::CriticsWindow
changed: #generateHTMLForRule:on:
"
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
Copyright (C) 2013-2014 Jan Vrany
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
"
"{ Package: 'stx:goodies/smallsense' }"
"{ NameSpace: SmallSense }"
PO subclass:#MethodBindingPO
instanceVariableNames:'binding'
classVariableNames:''
poolDictionaries:''
category:'SmallSense-Java-Interface-PO'
!
!MethodBindingPO class methodsFor:'documentation'!
copyright
"
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
Copyright (C) 2013-2014 Jan Vrany
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
"
! !
!MethodBindingPO methodsFor:'accessing'!
binding
^ binding
!
binding:b
binding := b.
!
label
"Return a text to be displayed. The label may be cached
`label` instvar."
label isNil ifTrue:[
| descriptor |
descriptor := binding signature.
label := (Smalltalk at:#JavaMethod)
specTextFromSignature:descriptor
in: nil
withName: binding selector
isConstructor: binding isConstructor.
"/ | parameters |
"/
"/ label := String streamContents: [ :s |
"/ s nextPutAll: binding selector.
"/ s nextPut: $(.
"/ parameters := binding parameters.
"/ parameters notEmptyOrNil ifTrue:[
"/ s nextPutAll: parameters first displayString.
"/ parameters size > 1 ifTrue:[
"/ 1 to: parameters size do:[:i |
"/ s nextPutAll: ', '.
"/ s nextPutAll: (parameters at: i) displayString.
"/ ]
"/ ].
"/ ].
"/ s nextPut: $).
"/ ]
].
^ label
"Created: / 13-08-2014 / 22:33:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
stringToCompleteForLanguage:aProgrammingLanguage
^ binding selector , '()'
"Created: / 13-08-2014 / 22:39:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MethodBindingPO methodsFor:'testing'!
isSmallSenseMethodBindingPO
^ true
"Created: / 13-08-2014 / 22:44:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MethodBindingPO class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !