--- 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