EXPORT VERSION 60482

pharo-project · guillep · Mar 14, 2017 · Mar 14, 2017 · Mar 16, 2017 · Mar 16, 2017
commit 350a3cbe3e90a4dd188b0b3fa3054e4bdc5e1f68
diff --git a/...ge/Behavior.extension/instance/layout..st → ...ge/Behavior.extension/instance/layout..st b/...ge/Behavior.extension/instance/layout..st → ...ge/Behavior.extension/instance/layout..st
@@ -1,4 +1,4 @@
-*Slot
+*Deprecated60
 layout: aClassLayout
 	self
 		deprecated: 'Please use #classLayout: instead'

diff --git a/...age/Behavior.extension/instance/layout.st → ...age/Behavior.extension/instance/layout.st b/...age/Behavior.extension/instance/layout.st → ...age/Behavior.extension/instance/layout.st
@@ -1,4 +1,4 @@
-*Slot
+*Deprecated60
 layout
 	self
 		deprecated: 'Please use #classLayout instead'

diff --git a/src/Deprecated60.package/Behavior.extension/properties.json b/src/Deprecated60.package/Behavior.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "Behavior"
+}
diff --git a/...ves.package/BitBlt.class/class/current.st → ...package/BitBlt.extension/class/current.st b/...ves.package/BitBlt.class/class/current.st → ...package/BitBlt.extension/class/current.st
@@ -1,4 +1,4 @@
-deprecated
+*Deprecated60
 current
 	"Return the class currently to be used for BitBlt"
 	"deprecated normally should be removed."

diff --git a/src/Deprecated60.package/BitBlt.extension/properties.json b/src/Deprecated60.package/BitBlt.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "BitBlt"
+}
diff --git a/...kCannotReturn.class/instance/deadHome..st → ...notReturn.extension/instance/deadHome..st b/...kCannotReturn.class/instance/deadHome..st → ...notReturn.extension/instance/deadHome..st
@@ -1,4 +1,4 @@
-accessing
+*Deprecated60
 deadHome: aContext
 	self deprecated: 'Should use self home: aContext'.
 	self home: aContext
diff --git a/...ckCannotReturn.class/instance/deadHome.st → ...nnotReturn.extension/instance/deadHome.st b/...ckCannotReturn.class/instance/deadHome.st → ...nnotReturn.extension/instance/deadHome.st
@@ -1,4 +1,4 @@
-accessing
+*Deprecated60
 deadHome
 	self deprecated: 'Should use self home'.
 	^ self home
diff --git a/src/Deprecated60.package/BlockCannotReturn.extension/properties.json b/src/Deprecated60.package/BlockCannotReturn.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "BlockCannotReturn"
+}
diff --git a/...lection.class/instance/groupBy.having..st → ...ion.extension/instance/groupBy.having..st b/...lection.class/instance/groupBy.having..st → ...ion.extension/instance/groupBy.having..st
@@ -1,4 +1,4 @@
-enumerating
+*Deprecated60
 groupBy: keyBlock having: selectBlock 
 	"This message is deprecated. Please use groupedBy:having:."
 

diff --git a/...ompiledMethod.class/instance/getSource.st → ...ledMethod.extension/instance/getSource.st b/...ompiledMethod.class/instance/getSource.st → ...ledMethod.extension/instance/getSource.st
@@ -1,4 +1,4 @@
-source code management
+*Deprecated60
 getSource
 	self
 		deprecated: 'Please use #sourceCode instead'

diff --git a/src/Deprecated60.package/CompiledMethod.extension/properties.json b/src/Deprecated60.package/CompiledMethod.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "CompiledMethod"
+}
diff --git a/...odTest.class/instance/deprecatedMethod.st → ...st.extension/instance/deprecatedMethod.st b/...odTest.class/instance/deprecatedMethod.st → ...st.extension/instance/deprecatedMethod.st
@@ -1,3 +1,3 @@
-examples
+*Deprecated60
 deprecatedMethod
 	self deprecated: 'example of a deprecated method'
diff --git a/...dTest.class/instance/deprecatedMethod2.st → ...t.extension/instance/deprecatedMethod2.st b/...dTest.class/instance/deprecatedMethod2.st → ...t.extension/instance/deprecatedMethod2.st
@@ -1,3 +1,3 @@
-examples
+*Deprecated60
 deprecatedMethod2
 	self deprecated: 'example of a deprecated method' on: 'date' in: 'someversion'.
diff --git a/src/Deprecated60.package/CompiledMethodTest.extension/properties.json b/src/Deprecated60.package/CompiledMethodTest.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "CompiledMethodTest"
+}
diff --git a/...ge/DebugAction.class/instance/keyText..st → ...ebugAction.extension/instance/keyText..st b/...ge/DebugAction.class/instance/keyText..st → ...ebugAction.extension/instance/keyText..st
@@ -1,4 +1,4 @@
-accessing
+*Deprecated60
 keyText: aString
 	"I set the shortcut for this action based on the first character of the given string."
 	self

diff --git a/src/Deprecated60.package/DebugAction.extension/properties.json b/src/Deprecated60.package/DebugAction.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "DebugAction"
+}
diff --git a/...tore.class/instance/basicCreationTime..st → ....extension/instance/basicCreationTime..st b/...tore.class/instance/basicCreationTime..st → ....extension/instance/basicCreationTime..st
@@ -1,4 +1,4 @@
-private
+*Deprecated60
 basicCreationTime: anEntry 
 	self 
 		deprecated: 'Use basicCreationTimeOf: instead'

diff --git a/....class/instance/basicModificationTime..st → ...ension/instance/basicModificationTime..st b/....class/instance/basicModificationTime..st → ...ension/instance/basicModificationTime..st
@@ -1,4 +1,4 @@
-private
+*Deprecated60
 basicModificationTime: anEntry 
 	self 
 		deprecated: 'Use basicModificationTimeOf: instead'

diff --git a/...ge/DiskStore.class/instance/basicSize..st → ...iskStore.extension/instance/basicSize..st b/...ge/DiskStore.class/instance/basicSize..st → ...iskStore.extension/instance/basicSize..st
@@ -1,4 +1,4 @@
-private
+*Deprecated60
 basicSize: anEntry 
 	"Returns the basic size of anEntry"
 	self 

diff --git a/src/Deprecated60.package/DiskStore.extension/properties.json b/src/Deprecated60.package/DiskStore.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "DiskStore"
+}
diff --git a/...e/FilePluginPrims.class/instance/size..st → ...lePluginPrims.extension/instance/size..st b/...e/FilePluginPrims.class/instance/size..st → ...lePluginPrims.extension/instance/size..st
@@ -1,4 +1,4 @@
-file primitives
+*Deprecated60
 size: id 
 	self 
 		deprecated: 'Use sizeOf: instead'

diff --git a/src/Deprecated60.package/FilePluginPrims.extension/properties.json b/src/Deprecated60.package/FilePluginPrims.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "FilePluginPrims"
+}
diff --git a/...ileSystem.class/instance/creationTime..st → ...ystem.extension/instance/creationTime..st b/...ileSystem.class/instance/creationTime..st → ...ystem.extension/instance/creationTime..st
@@ -1,4 +1,4 @@
-public
+*Deprecated60
 creationTime: aResolvable 
 	self 
 		deprecated: 'Use creationTimeOf: instead'

diff --git a/...ackage/FileSystem.class/instance/size..st → ...ge/FileSystem.extension/instance/size..st b/...ackage/FileSystem.class/instance/size..st → ...ge/FileSystem.extension/instance/size..st
@@ -1,4 +1,4 @@
-public
+*Deprecated60
 size: aResolvable 
 	self 
 		deprecated: 'Use sizeOf: instead'

diff --git a/src/Deprecated60.package/FileSystem.extension/properties.json b/src/Deprecated60.package/FileSystem.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "FileSystem"
+}
diff --git a/...tore.class/instance/basicCreationTime..st → ....extension/instance/basicCreationTime..st b/...tore.class/instance/basicCreationTime..st → ....extension/instance/basicCreationTime..st
@@ -1,4 +1,4 @@
-abstract
+*Deprecated60
 basicCreationTime: aNode 
 	self 
 		deprecated: 'Use basicCreationTimeOf: instead'

diff --git a/...eSystemStore.class/instance/basicSize..st → ...temStore.extension/instance/basicSize..st b/...eSystemStore.class/instance/basicSize..st → ...temStore.extension/instance/basicSize..st
@@ -1,4 +1,4 @@
-abstract
+*Deprecated60
 basicSize: aNode 
 	self 
 		deprecated: 'Use basicSizeOf: instead'

diff --git a/...stemStore.class/instance/creationTime..st → ...Store.extension/instance/creationTime..st b/...stemStore.class/instance/creationTime..st → ...Store.extension/instance/creationTime..st
@@ -1,4 +1,4 @@
-public
+*Deprecated60
 creationTime: aPath 
 	self 
 		deprecated: 'Use creationTimeOf: instead'

diff --git a/...Store.class/instance/modificationTime..st → ...e.extension/instance/modificationTime..st b/...Store.class/instance/modificationTime..st → ...e.extension/instance/modificationTime..st
@@ -1,4 +1,4 @@
-public
+*Deprecated60
 modificationTime: aPath 
 	self 
 		deprecated: 'Use modificationTimeOf: instead'

diff --git a/...e/FileSystemStore.class/instance/size..st → ...leSystemStore.extension/instance/size..st b/...e/FileSystemStore.class/instance/size..st → ...leSystemStore.extension/instance/size..st
@@ -1,4 +1,4 @@
-public
+*Deprecated60
 size: aPath 
 	self 
 		deprecated: 'Use sizeOf: instead'

diff --git a/src/Deprecated60.package/FileSystemStore.extension/properties.json b/src/Deprecated60.package/FileSystemStore.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "FileSystemStore"
+}
diff --git a/...dCollection.class/instance/someElement.st → ...lection.extension/instance/someElement.st b/...dCollection.class/instance/someElement.st → ...lection.extension/instance/someElement.st
@@ -1,4 +1,4 @@
-accessing
+*Deprecated60
 someElement
 	"Deprecated. Use anyOne."
 

diff --git a/src/Deprecated60.package/HashedCollection.extension/properties.json b/src/Deprecated60.package/HashedCollection.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "HashedCollection"
+}
diff --git a/...IconStyler.class/instance/iconProvider.st → ...Styler.extension/instance/iconProvider.st b/...IconStyler.class/instance/iconProvider.st → ...Styler.extension/instance/iconProvider.st
@@ -1,4 +1,4 @@
-accessing
+*Deprecated60
 iconProvider
 	" For 2.0/3.0 compatibility "
 	self deprecated: 'Use iconNamed:'on: 'Pharo60'  in: '23 September 2016'.

diff --git a/src/Deprecated60.package/IconStyler.extension/properties.json b/src/Deprecated60.package/IconStyler.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "IconStyler"
+}
diff --git a/...ge/LabelModel.class/instance/emphasis..st → ...abelModel.extension/instance/emphasis..st b/...ge/LabelModel.class/instance/emphasis..st → ...abelModel.extension/instance/emphasis..st
@@ -1,4 +1,4 @@
-api
+*Deprecated60
 emphasis: anEmphasis
 	anEmphasis isInteger
 		ifTrue:

diff --git a/src/Deprecated60.package/LabelModel.extension/properties.json b/src/Deprecated60.package/LabelModel.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "LabelModel"
+}
diff --git a/...ckage/MIMEDocument.class/instance/type.st → ...e/MIMEDocument.extension/instance/type.st b/...ckage/MIMEDocument.class/instance/type.st → ...e/MIMEDocument.extension/instance/type.st
@@ -1,4 +1,4 @@
-accessing
+*Deprecated60
 type
 	"Deprecated. Use contentType instead."
 

diff --git a/src/Deprecated60.package/MIMEDocument.extension/properties.json b/src/Deprecated60.package/MIMEDocument.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "MIMEDocument"
+}
diff --git a/...tore.class/instance/basicCreationTime..st → ....extension/instance/basicCreationTime..st b/...tore.class/instance/basicCreationTime..st → ....extension/instance/basicCreationTime..st
@@ -1,4 +1,4 @@
-private
+*Deprecated60
 basicCreationTime: aMemoryFileSystemEntry 
 	self 
 		deprecated: 'Use basicCreationTimeOf: instead'

diff --git a/....class/instance/basicModificationTime..st → ...ension/instance/basicModificationTime..st b/....class/instance/basicModificationTime..st → ...ension/instance/basicModificationTime..st
@@ -1,4 +1,4 @@
-private
+*Deprecated60
 basicModificationTime: aMemoryFileSystemEntry 
 	self 
 		deprecated: 'Use basicModificationTimeOf: instead'

diff --git a/.../MemoryStore.class/instance/basicSize..st → ...oryStore.extension/instance/basicSize..st b/.../MemoryStore.class/instance/basicSize..st → ...oryStore.extension/instance/basicSize..st
@@ -1,4 +1,4 @@
-private
+*Deprecated60
 basicSize: aMemoryFileSystemEntry 
 	self 
 		deprecated: 'Use basicSizeOf: instead'

diff --git a/src/Deprecated60.package/MemoryStore.extension/properties.json b/src/Deprecated60.package/MemoryStore.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "MemoryStore"
+}
diff --git a/...nel.package/Object.class/instance/name.st → ...package/Object.extension/instance/name.st b/...nel.package/Object.class/instance/name.st → ...package/Object.extension/instance/name.st
@@ -1,4 +1,4 @@
-accessing
+*Deprecated60
 name
 	"Answer a name for the receiver.  This is used generically in the title of certain inspectors, such as the referred-to inspector, and specificially by various subsystems.  By default, we let the object just print itself out..  "
 

diff --git a/....package/Point.class/instance/scaleTo..st → ...kage/Point.extension/instance/scaleTo..st b/....package/Point.class/instance/scaleTo..st → ...kage/Point.extension/instance/scaleTo..st
@@ -1,4 +1,4 @@
-extent functions
+*Deprecated60
 scaleTo: anExtent
 	"Return a Point scalefactor for shrinking a thumbnail of the receiver's extent to fit within anExtent. self and anExtent are expected to have positive nonZero x and y."
 

diff --git a/src/Deprecated60.package/Point.extension/properties.json b/src/Deprecated60.package/Point.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "Point"
+}
diff --git a/...package/Pragma.class/instance/selector.st → ...age/Pragma.extension/instance/selector.st b/...package/Pragma.class/instance/selector.st → ...age/Pragma.extension/instance/selector.st
@@ -1,4 +1,4 @@
-accessing
+*Deprecated60
 selector
 	"Answer the selector of the method containing the pragma.
 	 Do not confuse this with the selector of the pragma's message pattern."

diff --git a/...tTest.class/instance/deprecatedMessage.st → ...t.extension/instance/deprecatedMessage.st b/...tTest.class/instance/deprecatedMessage.st → ...t.extension/instance/deprecatedMessage.st
@@ -1,3 +1,3 @@
-helpers
+*Deprecated60
 deprecatedMessage
 	self deprecated: 'Deprecated method used by #testIgnoreDeprecationWarnings' on: '' in: ''
diff --git a/src/Deprecated60.package/SUnitTest.extension/properties.json b/src/Deprecated60.package/SUnitTest.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "SUnitTest"
+}
diff --git a/...malltalkImage.class/instance/evaluate..st → ...talkImage.extension/instance/evaluate..st b/...malltalkImage.class/instance/evaluate..st → ...talkImage.extension/instance/evaluate..st
@@ -1,4 +1,4 @@
-compiler
+*Deprecated60
 evaluate: aString
 	self
 		deprecated: 'Replace by Smalltalk compiler evaluate: aString.'

diff --git a/src/Deprecated60.package/SmalltalkImage.extension/properties.json b/src/Deprecated60.package/SmalltalkImage.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "SmalltalkImage"
+}
diff --git a/...havior.trait/instance/propertyValueAt..st → ...or.extension/instance/propertyValueAt..st b/...havior.trait/instance/propertyValueAt..st → ...or.extension/instance/propertyValueAt..st
@@ -1,4 +1,4 @@
-accessing-properties
+*Deprecated60
 propertyValueAt: propName
 
 	self

diff --git a/...ait/instance/propertyValueAt.ifAbsent..st → ...ion/instance/propertyValueAt.ifAbsent..st b/...ait/instance/propertyValueAt.ifAbsent..st → ...ion/instance/propertyValueAt.ifAbsent..st
@@ -1,4 +1,4 @@
-accessing-properties
+*Deprecated60
 propertyValueAt: propName ifAbsent: aBlock
 
 	self

diff --git a/...or.trait/instance/propertyValueAt.put..st → ...xtension/instance/propertyValueAt.put..st b/...or.trait/instance/propertyValueAt.put..st → ...xtension/instance/propertyValueAt.put..st
@@ -1,4 +1,4 @@
-accessing-properties
+*Deprecated60
 propertyValueAt: propName put: propValue
 	self
 		deprecated: 'Please use #propertyAt:put:  instead'

diff --git a/src/Deprecated60.package/TBehavior.extension/properties.json b/src/Deprecated60.package/TBehavior.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "TBehavior"
+}
diff --git a/...TestResult.class/instance/correctCount.st → ...Result.extension/instance/correctCount.st b/...TestResult.class/instance/correctCount.st → ...Result.extension/instance/correctCount.st
@@ -1,4 +1,4 @@
-deprecated
+*Deprecated60
 correctCount
 
 	self

diff --git a/src/Deprecated60.package/TestResult.extension/properties.json b/src/Deprecated60.package/TestResult.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "TestResult"
+}
diff --git a/...ivity-Tools-Tests.package/MethodConstantTests.class/instance/testTwoConstsInSameMethod.st b/...ivity-Tools-Tests.package/MethodConstantTests.class/instance/testTwoConstsInSameMethod.st
@@ -2,7 +2,6 @@ tests
 testTwoConstsInSameMethod
 
 	| result1 result2 |
-	<expectedFailure>
 	result1 := self sumOfTwoConsts: [ 1 ] and: [ 2 ].
 	result2 := self sumOfTwoConsts: nil and: nil.
 	self assert: result1 equals: 3.

diff --git a/src/Reflectivity.package/HookGenerator.class/instance/preamble.st b/src/Reflectivity.package/HookGenerator.class/instance/preamble.st
@@ -1,11 +1,13 @@
 results
 preamble
 	| preamble |
-
-	self flag: #TBD.
 	"Very simplistic now: needs to do some optimizatons"
 
 	preamble := OrderedCollection new.
 	links do: [:link |  
-		plugins do: [ :plugin | (link allReifications includes: plugin key) ifTrue: [preamble addAll: ((plugin entity: entity link: link) preamble: entity)] ]].
+		plugins do: [ :plugin | (link allReifications includes: plugin key) ifTrue: [preamble addAll: ((plugin entity: entity link: link) preamble: entity)]].
+		link control = #instead ifTrue: [
+				"for instead links, the preamble needs to clean the stack. For now just implemented for message sends"
+				entity isMessage ifTrue: [
+					entity numArgs + 1 timesRepeat: [preamble add: (RFStorePopIntoTempNode named: #RFBalancestack)]]]].
 	^preamble
diff --git a/src/ScriptLoader60.package/ScriptLoader.class/instance/commentForCurrentUpdate.st b/src/ScriptLoader60.package/ScriptLoader.class/instance/commentForCurrentUpdate.st
@@ -1,13 +1,7 @@
 public
 commentForCurrentUpdate
- ^ '19984 TabExample does not switch theme correctly
-	https://pharo.fogbugz.com/f/cases/19984
+ ^ '20010 Deprecated methods should be placed in the Deprecated60 package
+	https://pharo.fogbugz.com/f/cases/20010
 
-20014 Dark theme is bad for changes browser
-	https://pharo.fogbugz.com/f/cases/20014
-
-19975 Can add a _tag_ to a Nautilus work group but a package is expected
-	https://pharo.fogbugz.com/f/cases/19975
-
-20016 Extensions with the same prefix may not be categorized correctly
-	https://pharo.fogbugz.com/f/cases/20016'
+20021 fix for #instead: stack needs to be cleaned
+	https://pharo.fogbugz.com/f/cases/20021'