changed: #initializeDefaultAbbreviations
authorClaus Gittinger <cg@exept.de>
Wed, 26 Sep 2012 14:49:33 +0200
changeset 4453 c0cee00a50f6
parent 4452 b96bee8dc658
child 4454 bd8fd2128997
changed: #initializeDefaultAbbreviations added some periods for default-abbrevs to make the pasted code a statement.
Workspace.st
--- a/Workspace.st	Mon Sep 10 00:07:11 2012 +0200
+++ b/Workspace.st	Wed Sep 26 14:49:33 2012 +0200
@@ -151,19 +151,19 @@
         'ien'   'isEmptyOrNil '
         'nen'   'notEmptyOrNil '
 
-        'it'    'ifTrue:[!!]'
-        'if'    'ifFalse:[!!]'
-        'itf'   'ifTrue:[!!] ifFalse:[]'
-        'int'   'isNil ifTrue:[!!]'
-        'inf'   'isNil ifFalse:[!!]'
-        'ints'  'isNil ifTrue:[^ self]'
-        'infs'  'isNil ifFalse:[^ self]'
-        'nnt'   'notNil ifTrue:[!!]'
-        'nnf'   'notNil ifFalse:[!!]'
-        'iet'   'isEmpty ifTrue:[!!]'
-        'net'   'notEmpty ifTrue:[!!]'
-        'ief'   'isEmpty ifFalse:[!!]'
-        'nef'   'notEmpty ifFalse:[!!]'
+        'it'    'ifTrue:[!!'
+        'if'    'ifFalse:[!!'
+        'itf'   'ifTrue:[!!] ifFalse:[].'
+        'int'   'isNil ifTrue:[!!].'
+        'inf'   'isNil ifFalse:[!!].'
+        'ints'  'isNil ifTrue:[^ self].'
+        'infs'  'isNil ifFalse:[^ self].'
+        'nnt'   'notNil ifTrue:[!!].'
+        'nnf'   'notNil ifFalse:[!!].'
+        'iet'   'isEmpty ifTrue:[!!].'
+        'net'   'notEmpty ifTrue:[!!].'
+        'ief'   'isEmpty ifFalse:[!!].'
+        'nef'   'notEmpty ifFalse:[!!].'
 
         'wt'    'whileTrue:[!!]'
         'wf'    'whileFalse:[!!]'
@@ -189,9 +189,9 @@
         'rej'   'reject:[:each | !!]'
         'inj'   'inject:!! into:[:accum :each | ]'
 
-        'ex'    'Error handle:[ex | !!] do:[]'
-        'sh'    'self halt'
-        'mt'    'MessageTally spyOn:[!!]'
+        'ex'    'Error handle:[ex | !!] do:[].'
+        'sh'    'self halt.'
+        'mt'    'MessageTally spyOn:[!!].'
 
         'ih'    '!! ifTrue:[ self halt ].'
         'ik'    'includesKey: #'
@@ -206,19 +206,19 @@
         'npl'   'nextPutLine: '
 
         'ps'    'printString'
-        'sr'    'self subclassResponsibility'
+        'sr'    'self subclassResponsibility.'
 
         'ati'   'at:!! ifAbsent: '
         'atip'  'at:!! ifAbsentPut:[ ] '
         'ap'    'at:!! '
 
         'st'    'Smalltalk'
-        'ts'    'Transcript showCR:''!!'''
-        'trs'   'Transcript showCR:''!!'''
-        'abb'   'Workspace sniplets inspect'
-        'ws'    'Delay waitForSeconds: 1' 
-        'wfs'   'Delay waitForSeconds: 1' 
-        'wfm'   'Delay waitForMilliseconds: 1000' 
+        'ts'    'Transcript showCR:''!!''.'
+        'trs'   'Transcript showCR:''!!''.'
+        'abb'   'Workspace sniplets inspect.'
+        'ws'    'Delay waitForSeconds: 1.' 
+        'wfs'   'Delay waitForSeconds: 1.' 
+        'wfm'   'Delay waitForMilliseconds: 1000.' 
         'ini'   'initialize\    super initialize.\    '
         'newi'  'new\    ^ super new initialize.'
         'upd'   'update:something with:aParameter from:changedObject\    !!\    ^ super update:something with:aParameter from:changedObject.'
@@ -277,7 +277,7 @@
             at:abbrev put:text "/ ifPresent:[ self error:'duplicate abbreviation key' ]
     ].
 
-    "Modified: / 12-05-2011 / 10:13:20 / cg"
+    "Modified: / 26-09-2012 / 14:48:42 / cg"
 !
 
 updateStyleCache
@@ -2031,9 +2031,9 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.252 2012-07-27 09:05:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.253 2012-09-26 12:49:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.252 2012-07-27 09:05:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.253 2012-09-26 12:49:33 cg Exp $'
 ! !