smalltalk
/
osmo-st-core
Archived
1
0
Fork 0
Code Pull Requests 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 [
expandMacros [
<category: '*OsmoCore-FromPharo'>
<category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
^self expandMacrosWithArguments: #()
]
expandMacrosWith: anObject [
<category: '*OsmoCore-FromPharo'>
<category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
^self expandMacrosWithArguments: (Array with: anObject)
]
expandMacrosWith: anObject with: anotherObject [
<category: '*OsmoCore-FromPharo'>
<category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
^self
expandMacrosWithArguments: (Array with: anObject with: anotherObject)
]
expandMacrosWith: anObject with: anotherObject with: thirdObject [
<category: '*OsmoCore-FromPharo'>
<category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
^self expandMacrosWithArguments: (Array
with: anObject
with: anotherObject
@ -27,7 +31,8 @@ String extend [
]
expandMacrosWith: anObject with: anotherObject with: thirdObject with: fourthObject [
<category: '*OsmoCore-FromPharo'>
<category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
^self expandMacrosWithArguments: (Array
with: anObject
with: anotherObject
@ -36,7 +41,8 @@ String extend [
]
expandMacrosWithArguments: anArray [
<category: '*OsmoCore-FromPharo'>
<category: '*PharoCompat'>
"From Pharo, for Phexample/OsmoCore, MIT license"
| newStream readStream char index |
newStream := (String new: self size) writeStream.
readStream := self readStream.