ProtoObjectObjectWAFile
| contentType | contents | fileName |
| instance | class |
|---|---|
| as yet unclassified | no messages
|
| contentType |
|---|
|
| contents |
|---|
|
| fileName |
|---|
|
| as yet unclassified |
|---|
| contentType |
^ contentType |
| contentType: aString |
contentType _ aString |
| contents |
^ contents |
| contents: aStream |
contents _ aStream |
| fileName |
"compensate for windows explorer behavior"
^ ('#:\*' match: fileName)
ifTrue: [fileName copyAfterLast: $\]
ifFalse: [fileName]
|
| fileName: aString |
fileName _ aString |