--- a/SmallSense__CodeNavigationService.st Tue Oct 08 14:11:55 2013 +0100
+++ b/SmallSense__CodeNavigationService.st Mon Oct 14 15:14:48 2013 +0100
@@ -207,7 +207,11 @@
| className classes |
className := node resolvedType compoundName asStringWith: $/.
- classes := self environment allClasses select:[:cls | cls name = className ].
+ "/ Kludge - support both old and new Java class naming scheme
+ classes := (JavaClass canUnderstand: #binaryName)
+ ifTrue:[self environment allClasses select:[:cls | cls isJavaClass and:[cls binaryName = className]]]
+ ifFalse:[self environment allClasses select:[:cls | cls isJavaClass and:[cls name = className]]].
+
classes isEmpty ifTrue:[
service codeView flash.
].
@@ -218,7 +222,7 @@
self halt: 'Not yet supported'.
"Created: / 24-09-2013 / 10:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 26-09-2013 / 08:55:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 14-10-2013 / 15:14:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!CodeNavigationService::Navigator methodsFor:'navigation - Smalltalk'!