--- a/Workspace.st	Thu Oct 02 15:44:44 2008 +0200
+++ b/Workspace.st	Mon Oct 06 10:51:36 2008 +0200
@@ -99,56 +99,6 @@
 
 !Workspace class methodsFor:'accessing'!
 
-initializeDefaultAbbreviations
-    Sniplets
-        at: 'in'    put: 'isNil ';
-        at: 'nn'    put: 'notNil ';
-        at: 'it'    put: 'ifTrue: [!!]';
-        at: 'if'    put: 'ifFalse: [!!]';
-        at: 'itf'    put: 'ifTrue: [!!] ifFalse: []';
-        at: 'int'   put: 'isNil ifTrue: [!!]';
-        at: 'inf'   put: 'isNil ifFalse: [!!]';
-        at: 'ints'  put: 'isNil ifTrue: [^self]';
-        at: 'infs'  put: 'isNil ifFalse: [^self]';
-        at: 'wt'    put: 'whileTrue: [!!]';
-        at: 'wf'    put: 'whileFalse: [!!]';
-        at: 'do'    put: 'do: [:each | !!]';
-        at: 'dt'    put: 'detect: [:each | !!]';   
-        at: 'de'    put: 'detect: [:each | !!]';
-        at: 'det'    put: 'detect: [:each | !!]';
-        at: 'dtn'   put: 'detect: [:each | !!] ifNone: []';
-        at: 'cl'    put: 'collect: [:each | !!]';
-        at: 'co'    put: 'collect: [:each | !!]';
-        at: 'col'    put: 'collect: [:each | !!]';
-        at: 'sl'    put: 'select: [:each | !!]';
-        at: 'se'    put: 'select: [:each | !!]';
-        at: 'sel'    put: 'select: [:each | !!]';
-        at: 'rj'    put: 'reject: [:each | !!]';
-        at: 're'    put: 'reject: [:each | !!]';
-        at: 'rej'    put: 'reject: [:each | !!]';
-        at: 'inj'   put:'inject: !! into:[:pValue :each | ]';
-        at: 'ex'    put:'Error handle:[ex | !!] do:[]';
-        at: 'np'    put: 'nextPut: ';
-        at: 'npa'   put: 'nextPutAll: ';
-        at: 'y'     put: 'yourself.';
-        at: 'sh'    put: 'self halt.';
-        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, '    ';
-        at: 'newi'  put: 'new', String lf, String lf,'    ^ super new initialize.';
-        yourself
-!
-
 sniplets
     Sniplets isNil ifTrue:[
         Sniplets := Dictionary new.
@@ -175,6 +125,62 @@
     "Created: / 16.5.1998 / 16:53:37 / cg"
 !
 
+initializeDefaultAbbreviations
+    Sniplets
+        at: 'in'    put: 'isNil ';
+        at: 'nn'    put: 'notNil ';
+        at: 'it'    put: 'ifTrue: [!!]';
+        at: 'if'    put: 'ifFalse: [!!]';
+        at: 'itf'    put: 'ifTrue: [!!] ifFalse: []';
+        at: 'int'   put: 'isNil ifTrue: [!!]';
+        at: 'inf'   put: 'isNil ifFalse: [!!]';
+        at: 'ints'  put: 'isNil ifTrue: [^self]';
+        at: 'infs'  put: 'isNil ifFalse: [^self]';
+        at: 'wt'    put: 'whileTrue: [!!]';
+        at: 'wf'    put: 'whileFalse: [!!]';
+        at: 'do'    put: 'do: [:each | !!]';
+        at: 'dt'    put: 'detect: [:each | !!]';   
+        at: 'de'    put: 'detect: [:each | !!]';
+        at: 'det'   put: 'detect: [:each | !!]';
+        at: 'dtn'   put: 'detect: [:each | !!] ifNone: []';
+        at: 'cl'    put: 'collect: [:each | !!]';
+        at: 'co'    put: 'collect: [:each | !!]';
+        at: 'col'   put: 'collect: [:each | !!]';
+        at: 'sl'    put: 'select: [:each | !!]';
+        at: 'se'    put: 'select: [:each | !!]';
+        at: 'sel'   put: 'select: [:each | !!]';
+        at: 'rj'    put: 'reject: [:each | !!]';
+        at: 're'    put: 'reject: [:each | !!]';
+        at: 'rej'   put: 'reject: [:each | !!]';
+        at: 'inj'   put:'inject: !! into:[:pValue :each | ]';
+        at: 'ex'    put:'Error handle:[ex | !!] do:[]';
+        at: 'np'    put: 'nextPut: ';
+        at: 'npa'   put: 'nextPutAll: ';
+        at: 'y'     put: 'yourself.';
+        at: 'sh'    put: 'self halt.';
+        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, '    ';
+        at: 'newi'  put: 'new', String lf, String lf,'    ^ super new initialize.';
+        at: 'A'     put: 'Array';
+        at: 'An'    put: 'Array new:';
+        at: 'OC'    put: 'OrderedCollection';
+        at: 'Di'    put: 'Dictionary';
+        at: 'ID'    put: 'IdentityDictionary';
+        at: 'Id'    put: 'IdentityDictionary';
+        yourself
+!
+
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
@@ -1594,5 +1600,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.185 2008-10-02 13:44:44 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.186 2008-10-06 08:51:36 cg Exp $'
 ! !