--- a/TextView.st	Fri Sep 01 14:30:44 2017 +0200
+++ b/TextView.st	Fri Sep 01 14:32:33 2017 +0200
@@ -1905,6 +1905,7 @@
 
     <resource: #keyboard (#Find #Copy #FindNext #FindPrev #FindAgain
                           #GotoLine #SelectAll #SaveAs #Print
+                          #OpenWorkspaceOnIt
                           #'F*' #'f*')>
 
     (key == #Find) ifTrue:[self search. ^self].
@@ -1920,6 +1921,8 @@
     (key == #SaveAs)    ifTrue:[self save.    ^self].
     (key == #Print)     ifTrue:[self doPrint. ^self].
 
+    (key == #OpenWorkspaceOnIt) ifTrue:[self openWorkspaceWithIt. ^self].
+
     "
      shift-Fn defines a key-sequence
      Fn       pastes that sequence
@@ -1940,8 +1943,8 @@
 
     super keyPress:key x:x y:y
 
-    "Modified: / 10-03-2012 / 09:40:01 / cg"
     "Modified (format): / 30-03-2017 / 22:35:58 / stefan"
+    "Modified: / 01-09-2017 / 14:32:27 / cg"
 !
 
 mapped