--- a/stx_goodies_smallsense.st Wed Nov 26 09:34:04 2014 +0000
+++ b/stx_goodies_smallsense.st Sat Dec 06 22:27:37 2014 +0000
@@ -46,28 +46,6 @@
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
"
-!
-
-extensionsVersion_HG
-
- ^ '$Changeset: <not expanded> $'
-! !
-
-!stx_goodies_smallsense class methodsFor:'initialization'!
-
-initialize
-
- "This should be logically done in postload, but postload
- is not called when classlibrary is built-in (i.e., not loaded
- by Smalltalk loadPackage: ...). This is indeed a bug. "
-
- Swizzled := false.
- self hasAllExtensionsLoaded ifTrue:[
- self swizzle
- ].
-
- "Created: / 19-08-2013 / 15:24:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 02-09-2013 / 12:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!stx_goodies_smallsense class methodsFor:'accessing - tests'!
@@ -117,7 +95,7 @@
#'stx:libview' "DisplaySurface - extended"
#'stx:libview2' "ApplicationModel - extended"
#'stx:libwidg' "DialogBox - extended"
- #'stx:libwidg2' "DoWhatIMeanSupport - extended"
+ #'stx:libwidg2' "HierarchicalItem - superclass of SmallSense::ClassPO"
)
!
@@ -146,21 +124,6 @@
)
! !
-!stx_goodies_smallsense class methodsFor:'description - actions'!
-
-postLoadAction
-
- "/ Setup SmallSense completion
- UserPreferences current at: #searchCompletionBlock put: #SmallSense.
-
- "/ Swizzle methods. Note, that if they are already swizzled,
- "/ self swizzle is noop.
- self swizzle.
-
- "Created: / 02-09-2013 / 12:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified (comment): / 25-11-2013 / 12:31:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
!stx_goodies_smallsense class methodsFor:'description - contents'!
classNamesAndAttributes
@@ -192,8 +155,6 @@
#'SmallSense::SettingsAppl'
#'SmallSense::SmalltalkChecker'
#'SmallSense::SmalltalkInferencerParameters'
- #'SmallSense::SmalltalkLintAnnotation'
- #'SmallSense::SmalltalkLintHighlighter'
#'SmallSense::SmalltalkLintService'
#'SmallSense::SmalltalkParseNodeVisitor'
#'SmallSense::SmalltalkParser'
@@ -312,10 +273,7 @@
UserPreferences smallSenseSmalltalkIndentOnPasteEnabled
UserPreferences smallSenseSmalltalkIndentOnPasteEnabled:
EditTextViewCompletionSupport isCompletionViewShown
- DoWhatIMeanSupport #'stx_goodies_smallsense_codeCompletionForClass:context:codeView:'
#'Tools::NavigationState' #'stx_goodies_smallsense_selectedClasses'
- 'Tools::CodeCompletionService class' #'stx_goodies_smallsense_isUsefulFor:'
- 'Workspace class' #'stx_goodies_smallsense_codeCompletionServiceClass'
Method inspector2TabSTXParseTreeInspector
ParseNode inspector2TabSTXParseTreeInspector
Parser inspector2TabSTXParseTreeInspector
@@ -327,6 +285,9 @@
RBProgramNode startPosition
RBContainsSmalltalkXEOLCommentRule fixes:
'DialogBox class' #'stx_goodies_smallsense_requestProject:from:initialAnswer:suggestions:'
+ 'Tools::CodeCompletionService class' new
+ #'Tools::LintService' buttonPress:x:y:in:
+ #'Tools::LintService' showInfoWindowForLine:
)
! !
@@ -401,7 +362,7 @@
self swizzle: m.
] on: Error do:[:ex |
Logger error: 'Cannot swizzle %1: %2' with: m selector with: ex description.
- "/ Debugger enter.
+ Debugger enter.
].
].
Swizzled := true.
@@ -410,10 +371,12 @@
"
stx_goodies_smallsense swizzle
Swizzled := false.
+
+ self extensionMethods select:[:m | m notNil and:[ (m annotationAt: #swizzle:) notNil or:[(m annotationAt: #swizzle:checksum:) notNil ] ] ]
"
"Created: / 19-08-2013 / 14:54:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified (comment): / 07-10-2014 / 15:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 28-11-2014 / 15:31:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
swizzle: method
@@ -551,5 +514,3 @@
^ '$Id: stx_goodies_smallsense.st,v 1.2 2014/02/12 14:49:29 sr Exp $'
! !
-
-stx_goodies_smallsense initialize!