'From etoys4.0 of 9 October 2008 [latest update: #2317] on 17 September 2009 at 10:02:02 pm'! "Change Set: cacheClean-bf Date: 17 September 2009 Author: Bert Freudenberg Make sure to truncate the cached files before overwriting."! !EToyProjectDetailsMorph class methodsFor: 'classification information' stamp: 'bf 9/17/2009 21:57'! updateTripletsFor: aCategory "Fetch the age-range, subject, or region triplet files from the web site and cache them locally." | contents triplets file filename | contents := (HTTPSocket httpGet: (self tripletsUrlFor: aCategory) args: #() user: '' passwd: '') contents. triplets := self tripletsFrom: contents. triplets ifNotNil: [ self useTriplets: triplets for: aCategory. filename := self tripletsFileNameFor: aCategory. file := FileStream fileNamed: filename. [file truncate; nextPutAll: contents] ensure: [file close]. ]. ! !