--- a/extensions.st Sat Jan 31 08:38:55 2015 +0000
+++ b/extensions.st Sun Feb 01 07:35:12 2015 +0000
@@ -618,6 +618,25 @@
"Created: / 24-08-2013 / 21:53:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!Tools::NewSystemBrowser methodsFor:'user actions-events'!
+
+processShortcut: anEvent
+ UserPreferences current smallSenseNewDialogsEnabled ifTrue:[
+ anEvent isKeyPressEvent ifTrue:[
+ | key |
+
+ key := anEvent key.
+ key == #CtrlT ifTrue:[
+ self searchMenuOpenNavigatorOnDeclarations.
+ ^ true
+ ].
+ ].
+ ].
+ ^ super processShortcut: anEvent
+
+ "Created: / 01-02-2015 / 07:22:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
searchCompletionBlock_SmallSense
@@ -789,33 +808,6 @@
"Modified: / 29-01-2015 / 07:10:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-!Tools::NewSystemBrowser methodsFor:'user actions-events-SmallSense'!
-
-stx_goodies_smallsense_processEvent:anEvent
-
- <swizzle: #processEvent:>
-
- UserPreferences current smallSenseNewDialogsEnabled ifTrue:[
- anEvent isKeyPressEvent ifTrue:[
- | key |
-
- key := anEvent key.
- key == #CtrlT ifTrue:[
- self searchMenuOpenNavigatorOnDeclarations.
- ^ true
- ].
- ]
- ].
- ^ self stx_libtool_processEvent:anEvent
-
- "
- stx_goodies_smallsense swizzle: (Tools::NewSystemBrowser >> #stx_goodies_smallsense_processEvent:)
- "
-
- "Created: / 10-01-2015 / 13:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 24-01-2015 / 01:47:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
!Tools::NewSystemBrowser class methodsFor:'utilities'!
stx_goodies_smallsense_askForClassToSearch:doWhatByDefault single:singleClass msgTail:msgTail resources:resourcesOrNil filter:filterOrNil forBrowser:aBrowserOrNil thenDo:aBlock