mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-23 11:31:01 +00:00
30 lines
674 B
Smalltalk
30 lines
674 B
Smalltalk
|
| fileName flag |
|
||
|
|
|
||
|
|
fileName := '/tmp/TestFile.text'.
|
||
|
|
|
||
|
|
flag := NO.
|
||
|
|
|
||
|
|
[
|
||
|
|
('This is some file' writeToFile:fileName atomically:NO)
|
||
|
|
ifTrue:
|
||
|
|
[ Transcript showLine:'File was succesfully created.']
|
||
|
|
ifFalse:
|
||
|
|
[ Transcript showLine:'File was not created.']
|
||
|
|
]
|
||
|
|
handler:
|
||
|
|
[ :exception |
|
||
|
|
Transcript showLine:('Handled exception: ',(exception name)).
|
||
|
|
Transcript showLine:('Reason : ',(exception reason)).
|
||
|
|
flag := YES
|
||
|
|
].
|
||
|
|
|
||
|
|
flag ifTrue:
|
||
|
|
[
|
||
|
|
Transcript showLine:'Finished with exception'
|
||
|
|
]
|
||
|
|
ifFalse:
|
||
|
|
[
|
||
|
|
Transcript showLine:'Finished succesfully'
|
||
|
|
]
|
||
|
|
|