Gente:
Hemos venido teniendo este problema , tal vez por descuido.
El presente change set ha sido probado en el SqueakLight 3.7.2 y en el
3.9a-6705.
Si han observado esto, hagan fileOut.

Pregunta a los que saben mas:

Porque podria suceder que los fileOuts no tengan la definicion de la clase ?

Edgar

'From SqueakLight3.7.1 of ''4 September 2004'' [latest update: #5989] on 10
April 2006 at 8:10:59 am'! "Change Set: ForceCoherence Date: 10 April 2006
Author: Edgar J. De Cleene Sometimes when I file the Change Set, Class
definitions are not filed"! Object subclass: #ChangeSet instanceVariableNames:
'name preamble postscript revertable isolationSet isolatedProject changeRecords
structures superclasses' classVariableNames: '' poolDictionaries: ''
category: 'Tools-Changes'! Object subclass: #ClassChangeRecord
instanceVariableNames: 'inForce revertable changeTypes thisDefinition
priorDefinition thisName priorName thisOrganization priorOrganization
thisComment priorComment thisMD priorMD methodChanges' classVariableNames: ''
poolDictionaries: '' category: 'Tools-Changes'! !ChangeSet methodsFor: 'change
logging' stamp: 'edc 4/10/2006 08:02'! fixClasses changeRecords
keysAndValuesDo:[:key :value| key isSymbol ifTrue:[value forceAdd]] ! !
!ChangeSet methodsFor: 'accessing' stamp: 'edc 4/10/2006 07:43'! changeRecords ^
changeRecords! ! !ChangeSet methodsFor: 'fileIn/Out' stamp: 'edc 4/10/2006
08:10'! fileOut "File out the receiver, to a file whose name is a function of
the change-set name and either of the date & time or chosen to have a
unique numeric tag, depending on the preference 'changeSetVersionNumbers'" |
file slips nameToUse | self checkForConversionMethods. self fixClasses.
ChangeSet promptForDefaultChangeSetDirectoryIfNecessary. nameToUse :=
Preferences changeSetVersionNumbers ifTrue: [self defaultChangeSetDirectory
nextNameFor: self name extension: 'cs'] ifFalse: [(self name , FileDirectory
dot , Utilities dateTimeSuffix , FileDirectory dot , 'cs') asFileName].
(Preferences warningForMacOSFileNameLength and: [nameToUse size > 31])
ifTrue: [nameToUse := FillInTheBlank request: (nameToUse , '\has ' ,
nameToUse size asString , ' letters - too long for Mac OS.\Suggested replacement
is:') withCRs initialAnswer: (nameToUse contractTo: 30). nameToUse = ''
ifTrue: [^ self]]. Cursor write showWhile: [[file := self
defaultChangeSetDirectory newFileNamed: nameToUse. file header; timeStamp.
self fileOutPreambleOn: file. self fileOutOn: file. self
fileOutPostscriptOn: file. file trailer] ensure: [file close]].
Preferences checkForSlips ifFalse: [^ self]. slips := self checkForSlips.
(slips size > 0 and: [(PopUpMenu withCaption: 'Methods in this fileOut have
halts or references to the Transcript or other ''slips'' in them. Would you like
to browse them?' chooseFrom: 'Ignore\Browse slips') = 2]) ifTrue: [self
systemNavigation browseMessageList: slips name: 'Possible slips in ' , name]! !
!ChangeSet methodsFor: 'fileIn/Out' stamp: 'edc 4/10/2006 08:10'!
fileOutCompressed "File out the receiver, to a file whose name is a function of
the change-set name and either of the date & time or chosen to have a
unique numeric tag, depending on the preference 'changeSetVersionNumbers'" |
nameToUse unzipped shortnameToUse zipped buffer | self
checkForConversionMethods. self self fixClasses. ChangeSet
promptForDefaultChangeSetDirectoryIfNecessary. nameToUse := Preferences
changeSetVersionNumbers ifTrue: [self defaultChangeSetDirectory nextNameFor:
self name extension: 'sqz'] ifFalse: [self name , FileDirectory dot ,
Utilities dateTimeSuffix, FileDirectory dot , FileStream cs]. (Preferences
warningForMacOSFileNameLength and: [nameToUse size > 30]) ifTrue:
[nameToUse := FillInTheBlank request: (nameToUse , '\has ' , nameToUse
size asString , ' letters - too long for Mac OS.\Suggested replacement is:')
withCRs initialAnswer: (nameToUse contractTo: 30). nameToUse = ''
ifTrue: [^ self]]. shortnameToUse := nameToUse. nameToUse := self
defaultChangeSetDirectory fullNameFor: nameToUse. Cursor write showWhile: [
unzipped :=RWBinaryOrTextStream on: ''. unzipped header; timeStamp. self
fileOutPreambleOn: unzipped. self fileOutOn: unzipped. self
fileOutPostscriptOn: unzipped. unzipped trailer. nameToUse := nameToUse
copyUpToLast: $. . unzipped reset. zipped := FileDirectory default
newFileNamed: (nameToUse, FileDirectory dot, ImageSegment
compressedFileExtension). zipped binary. zipped := GZipWriteStream on: zipped.
buffer := ByteArray new: 50000. 'Compressing ', nameToUse displayProgressAt:
Sensor cursorPoint from: 0 to: unzipped size during:[:bar| [unzipped
atEnd] whileFalse:[ bar value: unzipped position. zipped nextPutAll:
(unzipped nextInto: buffer)]. zipped close. unzipped close]]. ! !
!ClassChangeRecord methodsFor: 'definition' stamp: 'edc 4/10/2006 08:02'!
forceAdd changeTypes add: #add. ! !