I was wondering how to make file input output blocks, like the ones to be in panther. I am really impatient and if anyone knows how, please post the code. Thanks!!!
Offline
You should be proud. THERE GOOD ONES!!!
Offline
And you guys are saying I'm the copycat. He said the exact same thing I said, but with correct spelling of there! :p
Offline
I will!!! Just tell me what method I should use (possibly putting it in the block?).
Offline
Jakey22 wrote:
And you guys are saying I'm the copycat. He said the exact same thing I said, but with correct spelling of there! :p
I was being a grammar chekkah.
File IO blocks would be kull, and a really good idea.
do you have the code, or do you have the concept(or both??)
Offline
Offline
Ok, I can't find all of them, But im not even sure if i should give you them... Ill try find them all before i post them.
Offline
johnnydean1 wrote:
('contents of file %s' #r #readFile:)
('Write %s to file %s' #- #writeText:toFile:)
('clear file %s' #- #clearFile:)readFile: t1
| t2 t3 |
self askForFileIO = true ifFalse: [^ self].
(FileDirectory default fileExists: t1)
ifFalse: [^ ''].
t2 _ (FileStream readOnlyFileNamed: t1) binary.
t2 ifNil: [^ ''].
t3 _ t2 contentsOfEntireFile asString.
t2 close.
^ t3writeText: aString toFile: aFileNameString
"Answer the contents of the given file."
| f |
(self askForFileIO = true) ifFalse: [^ self].
(FileDirectory default fileExists: aFileNameString) ifFalse: [^ self].
f _ (FileStream fileNamed: aFileNameString) binary.
f ifNil: [^ self].
f setToEnd.
f nextPutAll: aString.
f closeclearFile: aFileNameString
"Clear the given file."
| f dir |
(self askForFileIO = true) ifFalse: [^ self].
dir _ FileDirectory forFileName: aFileNameString.
dir deleteFileNamed: aFileNameString.
f _ FileStream newFileNamed: aFileNameString.
f close
You stole this from us, johnny... It's not yours to take or to give out. WE made it.'
And no, johnny, (Not Jake!), you can't use them in your mod...
Last edited by SeptimusHeap (2010-04-19 08:14:45)
Offline
johnnydean1 wrote:
('contents of file %s' #r #readFile:)
('Write %s to file %s' #- #writeText:toFile:)
('clear file %s' #- #clearFile:)readFile: t1
| t2 t3 |
self askForFileIO = true ifFalse: [^ self].
(FileDirectory default fileExists: t1)
ifFalse: [^ ''].
t2 _ (FileStream readOnlyFileNamed: t1) binary.
t2 ifNil: [^ ''].
t3 _ t2 contentsOfEntireFile asString.
t2 close.
^ t3writeText: aString toFile: aFileNameString
"Answer the contents of the given file."
| f |
(self askForFileIO = true) ifFalse: [^ self].
(FileDirectory default fileExists: aFileNameString) ifFalse: [^ self].
f _ (FileStream fileNamed: aFileNameString) binary.
f ifNil: [^ self].
f setToEnd.
f nextPutAll: aString.
f closeclearFile: aFileNameString
"Clear the given file."
| f dir |
(self askForFileIO = true) ifFalse: [^ self].
dir _ FileDirectory forFileName: aFileNameString.
dir deleteFileNamed: aFileNameString.
f _ FileStream newFileNamed: aFileNameString.
f close
Johnnydean1, please stop. You have stolen my work, given me no credit, and worse, ACTED AS IF IT WAS YOUR WORK.
Oh, and, @Jakey22: these won't work anyway, if you figure out why you can use them
Last edited by nXIII (2010-04-19 12:22:23)
Offline
johnnydean1 wrote:
Well you disliked me anyway lol
....
lol?!
You can laugh about this? It confuses me. Honestly. Would you care to know WHY I "disliked you anyway"? Because you stole my work, took advantage of the Panther team and Sparks' generosity, then gave us nothing in return, rather, took AWAY from us. I think that's a fair enough reason to dislike you, and I don't think you should be laughing.
Offline
I agree with johnnydean1. NXIII is overreacting. They're only bits of code.
Offline
waveOSBeta wrote:
I agree with johnnydean1. NXIII is overreacting. They're only bits of code.
You don't know johnnydean or the whole story. If he had 1.2 (which I made sure he didn't) he wouldn't hesitate to post my entire system of CYOB as his own work
Last edited by nXIII (2010-04-19 12:21:52)
Offline
You have a point...
So that's why you aren't releasing Panther in beta...
Offline
O_O
HOW?
Usually, I can get any file. But here i am, stumped, with you having panther?
HUH?
Offline
johnnydean1 wrote:
are you sure I dont have 1.2?
Yes. I am. If you have it, prove it to me be saying the number of system windows open in the most recent version. It should be easy. Download the image again and run it.
Now we'll know for sure.
Offline
johnnydean1 wrote:
Ohh thats why...
That's why what?
Everything you know is at an end. Nothing you can find will work. Only I know the password now, and I will no longer be distributing the image through mediafire.
Last edited by nXIII (2010-04-19 10:57:16)
Offline