smalltalk
/
osmo-st-all
Archived
1
0
Fork 0
Code Releases Activity

extensions: Add copyright statements from Pharo

This commit is contained in:
Holger Hans Peter Freyther 2014-02-12 17:18:01 +01:00
parent ed74b0c1ca
commit 931f2a21d6
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
GSTExtensions.st
View File

@ -3,23 +3,27 @@
String extend [ String extend [
expandMacros [ expandMacros [
<category: '*OsmoCore-FromPharo'> <category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
^self expandMacrosWithArguments: #() ^self expandMacrosWithArguments: #()
] ]
expandMacrosWith: anObject [ expandMacrosWith: anObject [
<category: '*OsmoCore-FromPharo'> <category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
^self expandMacrosWithArguments: (Array with: anObject) ^self expandMacrosWithArguments: (Array with: anObject)
] ]
expandMacrosWith: anObject with: anotherObject [ expandMacrosWith: anObject with: anotherObject [
<category: '*OsmoCore-FromPharo'> <category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
^self ^self
expandMacrosWithArguments: (Array with: anObject with: anotherObject) expandMacrosWithArguments: (Array with: anObject with: anotherObject)
] ]
expandMacrosWith: anObject with: anotherObject with: thirdObject [ expandMacrosWith: anObject with: anotherObject with: thirdObject [
<category: '*OsmoCore-FromPharo'> <category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
^self expandMacrosWithArguments: (Array ^self expandMacrosWithArguments: (Array
with: anObject with: anObject
with: anotherObject with: anotherObject
@ -27,7 +31,8 @@ String extend [
] ]
expandMacrosWith: anObject with: anotherObject with: thirdObject with: fourthObject [ expandMacrosWith: anObject with: anotherObject with: thirdObject with: fourthObject [
<category: '*OsmoCore-FromPharo'> <category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
^self expandMacrosWithArguments: (Array ^self expandMacrosWithArguments: (Array
with: anObject with: anObject
with: anotherObject with: anotherObject
@ -36,7 +41,8 @@ String extend [
] ]
expandMacrosWithArguments: anArray [ expandMacrosWithArguments: anArray [
<category: '*OsmoCore-FromPharo'> <category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
| newStream readStream char index | | newStream readStream char index |
newStream := (String new: self size) writeStream. newStream := (String new: self size) writeStream.
readStream := self readStream. readStream := self readStream.