1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
| 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'
]
|
