'From etoys2.3 of 24 February 2008 [latest update: #1894] on 24 February 2008 at 2:06:20 am'! "Change Set: fixCondensing Date: 24 February 2008 Author: Yoshiki Ohshima Fix condensing changes and sources."! !SubdivisionHalfEdge methodsFor: 'private' stamp: 'yo 2/23/2008 22:27'! isLeftPoint: aPoint ^self ccw: aPoint with: self origin with: self destination ! ! !SystemDictionary methodsFor: 'housekeeping' stamp: 'yo 2/23/2008 22:08'! condenseSourcesForVersion: aString "Move all the changes onto a compacted sources file." "Smalltalk condenseSources" | f classCount dir newVersionString | Utilities fixUpProblemsWithAllCategory. "The above removes any concrete, spurious '-- all --' categories, which mess up the process." dir _ FileDirectory default. newVersionString _ aString. newVersionString ifNil: [^ self]. newVersionString = SmalltalkImage current sourceFileVersionString ifTrue: [^ self error: 'The new source file must not be the same as the old.']. SmalltalkImage current sourceFileVersionString: newVersionString. "Write all sources with fileIndex 1" f _ FileStream newFileNamed: SmalltalkImage current sourcesName. f converter: UTF8TextConverter new. "This is needed only when converting from SqueakV3.sources." f header; timeStamp. SourceFiles first converter: MacRomanTextConverter new. 'Condensing Sources File...' displayProgressAt: Sensor cursorPoint from: 0 to: Smalltalk classNames size during: [:bar | classCount _ 0. Smalltalk allClassesDo: [:class | bar value: (classCount _ classCount + 1). class fileOutOn: f moveSource: true toFile: 1]]. f trailer; close. "Make a new empty changes file" SmalltalkImage current closeSourceFiles. dir rename: SmalltalkImage current changesName toBe: SmalltalkImage current changesName , '.old'. (FileStream newFileNamed: SmalltalkImage current changesName) header; timeStamp; close. SmalltalkImage current lastQuitLogPosition: 0. self setMacFileInfoOn: SmalltalkImage current changesName. self setMacFileInfoOn: SmalltalkImage current sourcesName. SmalltalkImage current openSourceFiles. self inform: 'Source files have been rewritten!! Check that all is well, and then save/quit.'! !