extensions.st
changeset 383 e3400ab65300
parent 380 1833a3046a92
child 391 58d61fda2ca2
--- 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