May 7, 2014
9:09 p.m.
This code allows me to generate some screenshots. The exporter deletes the old picture, if it exists. |directory exporter window bounds | directory := FileSystem workingDirectory / 'pictures' . directory ensureCreateDirectory. exporter := DOScreenshotExporter new. exporter directory: directory. exporter writeWorldAs: 'world.png'. window := DOPartiesList new openWithSpec window. exporter writeMorph: window value as: 'PartiesList.png'. bounds := window fullBounds. exporter writeMorph: window value rectangle: (bounds insetBy: 20@20) as: 'PartOfPartiesList.png'. window close.
