diff -r 75390367bc8b -r 009ddfb1e69a ApplicationModel.st
--- a/ApplicationModel.st	Tue Jul 23 17:38:05 2013 +0200
+++ b/ApplicationModel.st	Tue Jul 23 19:53:23 2013 +0200
@@ -1276,6 +1276,7 @@
     builder window label:aString
 ! !
 
+
 !ApplicationModel methodsFor:'binding access'!
 
 actionFor:aKey
@@ -1977,32 +1978,6 @@
 
 !ApplicationModel methodsFor:'easy bindings'!
 
-aspectAdaptorFor: aSymbolOrCollectionOfThose on:aValueModel
-
-    | adaptor path |
-
-    path := aSymbolOrCollectionOfThose isSymbol 
-                ifTrue:[Array with: aSymbolOrCollectionOfThose]
-                ifFalse:[aSymbolOrCollectionOfThose].
-    adaptor := aValueModel.
-    path do:
-        [:selector|
-        adaptor := (AspectAdaptor forAspect: selector)
-                        subjectChannel: adaptor].
-    ^adaptor
-
-    "Created: / 09-03-2010 / 08:44:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 17-03-2010 / 19:28:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-aspectAt:aSymbol ifAbsentPut:aBlock
-
-    builder ifNil:[self createBuilder].
-    ^builder bindings at: aSymbol ifAbsentPut: aBlock
-
-    "Created: / 09-03-2010 / 08:37:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 registerInterestIn:aValueModel using:aSelectorOrArray
     "Register interest in a change in aValueModel using information in aSelectorOrArray.
      aSelectorOrArray can be one of three things:  
@@ -3967,6 +3942,15 @@
      editor window if supported."
 !
 
+processShortcut:aKeyEvent
+     "a shortcut key event as forwarded from the keyboardProcessor - if there is the
+      shortcut key defined, process the shortcut and return true - otherwise false." 
+
+    ^false
+
+    "Created: / 23-07-2013 / 18:10:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 requestForWindowClose
     "the applicationWindow wants to know, if a close
      is ok. Return false if not."
@@ -4010,11 +3994,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.341 2013-07-08 09:49:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.342 2013-07-23 17:53:23 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.341 2013-07-08 09:49:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.342 2013-07-23 17:53:23 vrany Exp $'
 ! !