[Squeak]サムネイルとプロジェクトファイル(2)

　とりあえず使い方とソース。クラス名などへぼへぼですが、PNGのチャンクの操作方法のサンプルということで。
プロジェクトファイル(名無し2.001.pr)とそのサムネイル画像(名無し2.gif)からプロジェクトファイルを埋め込んだPNG画像(002.png)生成：

| writer image project newName  |
project := FileStream readOnlyFileNamed: '名無し2.001.pr'.
project binary.
newName := '002'.
image := ImageReadWriter formFromFileNamed: '名無し2.gif'.
writer := PNGSqeuakObject on: (FileStream newFileNamed: newName, '.png').
[ writer nextPutImage: image interlace: 0 filter: 0 Object: project contents]	
	ensure: [writer close. project close]

上記PNG画像からプロジェクト読込：

| reader |
reader := PNGSqeuakObject on: (FileStream readOnlyFileNamed: '002.png').
reader nextImage

ソースプログラム：
PNGSqeuakObject.st