--- a/Workspace.st	Wed Oct 01 11:57:34 2008 +0200
+++ b/Workspace.st	Thu Oct 02 15:44:44 2008 +0200
@@ -135,9 +135,13 @@
         at: 'ps'    put: 'printString';
         at: 'sr'    put: 'self subclassResponsibility';
         at: 'st'    put: 'Smalltalk';
+        at: 'ts'   put: 'Transcript showCR: ';
         at: 'trs'   put: 'Transcript showCR: ';
         at: 'ik'    put: 'includesKey: #';
         at: 'abb'   put: 'Workspace sniplets inspect';
+        at: 'ws'   put: 'Delay waitForSeconds: 1'; 
+        at: 'wfs'   put: 'Delay waitForSeconds: 1'; 
+        at: 'wfm'   put: 'Delay waitForMilliseconds: 1000'; 
         at: 'slef'  put: 'self';
         at: 'ati'    put: 'at:!! ifAbsent: ';
         at: 'ini'   put:'initialize', String lf, String lf,'    super initialize.', String lf, '    ';
@@ -1590,5 +1594,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.184 2008-10-01 09:57:34 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.185 2008-10-02 13:44:44 fm Exp $'
 ! !