Smarktark file loading

Load
| theFile myStream theHell|

[theFile := (Dialog request: 'Enter filename' initialAnswer: 'putYourTextHere.txt') asFilename.
myStream := theFile readStream.
myStream text.
theHell := myStream contents.
inputText value: theHell.
myStream close.]
on:  Object errorSignal
do: [ Dialog warn: 'You canceled or file not found'].

"to jest moja metoda load która pyta o nazwe pliku, otwiera go sobie,
podmienia value w input fieldzie tekstem z tego pliku i zamyka go.
od razu z obsluga wyjatkow (Object errorSignal to matka wszelkich bledow)
ktorymi sypalo jezeli podany plik nie istnieje albo wcisnieto cancel nic
nie wpisujac."