Packages October 2008

packages@lists.squeakfoundation.org

3 participants
120 discussions

Installer: Installer-Core-mtf.239.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 15 Oct '08

15 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.239.mcz ==================== Summary ==================== Name: Installer-Core-mtf.239 Author: mtf Time: 15 October 2008, 8:10:38 am UUID: 387e9e3f-a457-4f31-bf65-386c96750026 Ancestors: Installer-Core-mtf.238 Print a cr after messages, not before. This is the convention used in the rest of squeak, so now Installer messages interleave better with external messages (especially 'data was slow') =============== Diff against Installer-Core-mtf.238 =============== Item was changed: ----- Method: Installer>>logCR: (in category 'logging') ----- logCR: text self validate. + ^ Transcript show: text; cr! - ^ Transcript cr; show: text!

1 0

Installer: Installer-Core-mtf.238.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 15 Oct '08

15 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.238.mcz ==================== Summary ==================== Name: Installer-Core-mtf.238 Author: mtf Time: 15 October 2008, 7:56:50 am UUID: c312a02b-a7bd-449c-ab43-41ce729a4101 Ancestors: Installer-Core-mtf.237 oops. bad syntax in the retry logging. fixed =============== Diff against Installer-Core-mtf.237 =============== Item was changed: ----- Method: InstallerWeb>>urlToDownload (in category 'web install') ----- urlToDownload "while we look for a url which returns what we are looking for, we get the data anyway" | delay retry | delay := 0. self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). [ retry := false. pageDataStream := self urlGet: potentialUrl ] doWhileTrue: [ self wasPbwikiSpeedWarning ifTrue: [ retry := true ] ifFalse: [ self hasPage ifTrue: [ pageDataStream reset. ^ potentialUrl ] ]. + self logCR: 'PBWiki warning. Retrying in ', (delay + 5) printString, ' seconds'. - self logCR: 'PBWiki warning. Retrying in ', (delay + 5), ' seconds'. (Delay forSeconds: (delay := delay + 5)) wait. retry ]]. ^nil ! Item was changed: ----- Method: InstallerUrl>>urlThing (in category 'url') ----- urlThing | retry delay | self logCR: 'retrieving ', self urlToDownload , ' ...'. delay := 0. [ retry := false. pageDataStream := self urlGet: self urlToDownload ] doWhileTrue: [ self wasPbwikiSpeedWarning ifTrue: [ + self logCR: 'PBWiki warning. Retrying in ', (delay + 5) printString, ' seconds'. - self logCR: 'PBWiki warning. Retrying in ', (delay + 5), ' seconds'. retry := true. (Delay forSeconds: (delay := delay + 5)) wait ]. retry ]. pageDataStream ifNil: [ self error: 'unable to contact host' ]. ^ pageDataStream !

1 0

Installer: Installer-Core-mtf.237.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 15 Oct '08

15 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.237.mcz ==================== Summary ==================== Name: Installer-Core-mtf.237 Author: mtf Time: 15 October 2008, 7:46:18 am UUID: 6b376525-420e-468c-b351-bf9435801811 Ancestors: Installer-Core-mtf.236 log retries due to the pbwiki robots message =============== Diff against Installer-Core-mtf.236 =============== Item was changed: ----- Method: InstallerWeb>>urlToDownload (in category 'web install') ----- urlToDownload "while we look for a url which returns what we are looking for, we get the data anyway" | delay retry | delay := 0. self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). [ retry := false. pageDataStream := self urlGet: potentialUrl ] doWhileTrue: [ self wasPbwikiSpeedWarning ifTrue: [ retry := true ] ifFalse: [ self hasPage ifTrue: [ pageDataStream reset. ^ potentialUrl ] ]. + self logCR: 'PBWiki warning. Retrying in ', (delay + 5), ' seconds'. (Delay forSeconds: (delay := delay + 5)) wait. retry ]]. ^nil ! Item was changed: ----- Method: InstallerUrl>>urlThing (in category 'url') ----- urlThing | retry delay | self logCR: 'retrieving ', self urlToDownload , ' ...'. delay := 0. [ retry := false. pageDataStream := self urlGet: self urlToDownload ] doWhileTrue: [ + self wasPbwikiSpeedWarning ifTrue: [ + self logCR: 'PBWiki warning. Retrying in ', (delay + 5), ' seconds'. + retry := true. (Delay forSeconds: (delay := delay + 5)) wait ]. - self wasPbwikiSpeedWarning ifTrue: [ retry := true. (Delay forSeconds: (delay := delay + 5)) wait ]. + retry ]. - retry ]. pageDataStream ifNil: [ self error: 'unable to contact host' ]. ^ pageDataStream !

1 0

Squeak3.11 Contributions: Kernel-Extensions-kph.82.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 15 Oct '08

15 Oct '08

A new version of Kernel-Extensions was added to project Squeak3.11 Contributions: http://www.squeaksource.com/311/Kernel-Extensions-kph.82.mcz ==================== Summary ==================== Name: Kernel-Extensions-kph.82 Author: kph Time: 15 October 2008, 3:53:47 am UUID: ef5e2feb-9ec3-44a9-9175-6750207b77d4 Ancestors: Kernel-Extensions-kph.81 removed iconOrThumbnailOfSize: from ProtoObject in favour of a fix to ObjectExplorer http://bugs.squeak.org/view.php?id=7217 =============== Diff against Kernel-Extensions-kph.81 =============== Item was removed: - ----- Method: ProtoObject>>iconOrThumbnailOfSize: (in category '*kernel-extensions-explorer') ----- - iconOrThumbnailOfSize: n - - ^ nil!

1 0

SystemEditor: TraitEditor-mtf.9.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 14 Oct '08

14 Oct '08

A new version of TraitEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/TraitEditor-mtf.9.mcz ==================== Summary ==================== Name: TraitEditor-mtf.9 Author: mtf Time: 14 October 2008, 10:23:48 am UUID: 1f545e3e-afbf-41c6-94a3-e6daca385ec8 Ancestors: TraitEditor-mtf.8 filled in enough stuff that a package can successfully build a SystemEditor containing TraitCompositions. It immediately fails upon commit, of course =============== Diff against TraitEditor-mtf.8 =============== Item was added: + ----- Method: TraitCompositionEditor>>transformations (in category 'reflecting') ----- + transformations + transformations ifNotNil: [^ transformations]. + subject ifNil: [^ OrderedCollection new]. + ^ self subject transformations! Item was changed: + AbstractEditor subclass: #TraitCompositionEditor + instanceVariableNames: 'subject transformations' - Object subclass: #TraitCompositionEditor - instanceVariableNames: 'subject additions removals' classVariableNames: '' poolDictionaries: '' category: 'TraitEditor'! + + !TraitCompositionEditor commentStamp: 'mtf 10/14/2008 10:02' prior: 0! + I store the new version of a TraitComposition. I don't use any kind of diff between the subject and product. For now at least, I don't use a TraitTransformationEditor, but use plain TraitTransforms which include TraitEditors! Item was added: + ----- Method: TraitDescriptionEditor>>trait (in category 'reflecting') ----- + trait + "for compatibility with TraitTransformations" + ^ self + ! Item was added: + ----- Method: TraitDescriptionEditor>>addCompositionOnLeft: (in category 'reflecting') ----- + addCompositionOnLeft: aTraitComposition + ^ aTraitComposition add: self! Item was added: + ----- Method: TraitCompositionEditor>>@ (in category 'reflecting') ----- + @ anArrayOfAssociations + "the modifier operators #@ and #- bind stronger than +. + Thus, #@ or #- sent to a sum will only affect the most right summand" + + self prepareToChange. + transformations + addLast: (transformations removeLast @ anArrayOfAssociations)! Item was added: + ----- Method: ClassEditor>>braceStream: (in category '*TraitEditor') ----- + braceStream: nElements + "Allows brace arrays used in TraitCompositions to execute in an editor context" + + ^ self subject braceStream: nElements! Item was added: + ----- Method: TraitCompositionEditor>>includesTrait: (in category 'reflecting') ----- + includesTrait: aTrait + ^ self transformations anySatisfy: [:transformation | transformation trait == aTrait]! Item was added: + ----- Method: ClassEditor>>braceWith:with: (in category '*TraitEditor') ----- + braceWith: a with: b + "Allows brace arrays used in TraitCompositions to execute in an editor context" + + ^ self subject braceWith: a with: b! Item was added: + ----- Method: TraitCompositionEditor>>- (in category 'reflecting') ----- + - anArray + "the modifier operators #@ and #- bind stronger than +. + Thus, #@ or #- sent to a sum will only affect the most right summand" + + self prepareToChange. + transformations + addLast: (transformations removeLast - anArray)! Item was added: + ----- Method: TraitDescriptionEditor>>+ (in category 'reflecting') ----- + + aTraitOrTraitComposition + "Use double dispatch to avoid having nested composition in cases where + parenthesis are used, such as T1 + (T2 + T3)" + + ^aTraitOrTraitComposition addOnTheLeft: self! Item was added: + ----- Method: TraitCompositionEditor>>prepareToChange (in category 'private') ----- + prepareToChange + "Mark the composition as changed by setting transformations to be non-nil" + transformations ifNil: [self loadTransformations]! Item was added: + ----- Method: TraitDescriptionEditor>>@ (in category 'reflecting') ----- + @ anArrayOfAssociations + ^ TraitAlias with: self aliases: anArrayOfAssociations! Item was added: + ----- Method: ClassEditor>>braceWith:with:with: (in category '*TraitEditor') ----- + braceWith: a with: b with: c + "Allows brace arrays used in TraitCompositions to execute in an editor context" + + ^ self subject braceWith: a with: b with: c! Item was added: + ----- Method: ClassEditor>>braceWith:with:with:with: (in category '*TraitEditor') ----- + braceWith: a with: b with: c with: d + "Allows brace arrays used in TraitCompositions to execute in an editor context" + + ^ self subject braceWith: a with: b with: c with: d! Item was added: + ----- Method: TraitCompositionEditor>>addCompositionOnLeft: (in category 'reflecting') ----- + addCompositionOnLeft: aTraitComposition + self transformations do: [ : each | aTraitComposition add: each ]. + ^ aTraitComposition! Item was added: + ----- Method: TraitCompositionEditor>>add: (in category 'reflecting') ----- + add: aTraitTransformation + self errorIfNotAddable: aTraitTransformation. + self prepareToChange. + transformations addLast: aTraitTransformation! Item was added: + ----- Method: TraitCompositionEditor>>remove: (in category 'reflecting') ----- + remove: aTransformation + self prepareToChange. + transformations remove: aTransformation! Item was added: + ----- Method: TraitDescriptionEditor>>addOnTheLeft: (in category 'reflecting') ----- + addOnTheLeft: aTraitExpression + ^TraitCompositionEditor with: aTraitExpression with: self! Item was added: + ----- Method: TraitDescriptionEditor>>- (in category 'reflecting') ----- + - anArrayOfSelectors + ^TraitExclusion + with: self + exclusions: anArrayOfSelectors! Item was added: + ----- Method: TraitCompositionEditor>>loadTransformations (in category 'private') ----- + loadTransformations + "initialize the transformations from the subject" + self subject ifNil: [^ transformations := OrderedCollection new]. + self halt.! Item was added: + ----- Method: TraitCompositionEditor>>+ (in category 'reflecting') ----- + + aTraitExpression + ^ aTraitExpression addCompositionOnLeft: self. + ! Item was added: + ----- Method: TraitCompositionEditor>>size (in category 'reflecting') ----- + size + ^ self transformations size! Item was added: + ----- Method: TraitCompositionEditor>>errorIfNotAddable: (in category 'private') ----- + errorIfNotAddable: aTraitTransformation + (self includesTrait: aTraitTransformation trait) ifTrue: [ + ^TraitCompositionException + signal: 'Trait ' , aTraitTransformation trait asString, ' already in composition']! Item was added: + ----- Method: TraitCompositionEditor>>subject (in category 'accessing') ----- + subject + ^ subject! Item was added: + ----- Method: TraitCompositionEditor>>addOnTheLeft: (in category 'reflecting') ----- + addOnTheLeft: aTrait + self errorIfNotAddable: aTrait. + self prepareToChange. + transformations addFirst: aTrait! Item was added: + ----- Method: TraitCompositionEditor class>>with: (in category 'instance creation') ----- + with: aTraitTransformation + ^self new + add: aTraitTransformation; + yourself! Item was added: + ----- Method: ClassEditor>>braceWith: (in category '*TraitEditor') ----- + braceWith: a + "Allows brace arrays used in TraitCompositions to execute in an editor context" + + ^ self subject braceWith: a! Item was added: + ----- Method: TraitCompositionEditor class>>with:with: (in category 'instance creation') ----- + with: aTraitTransformation with: anotherTraitTransformation + ^self new + add: aTraitTransformation; + add: anotherTraitTransformation; + yourself!

1 0

Installer: Installer-Core-mtf.236.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 14 Oct '08

14 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.236.mcz ==================== Summary ==================== Name: Installer-Core-mtf.236 Author: mtf Time: 14 October 2008, 10:15:14 am UUID: 42f7aa5e-d26a-4d01-8a35-43825caa61f7 Ancestors: Installer-Core-kph.235 Universes got broken in the refactor. Fixed =============== Diff against Installer-Core-kph.235 =============== Item was changed: ----- Method: Installer class>>universe (in category 'universe') ----- universe + ^ InstallerUniverse default! - ^ InstallerUniverse new universe: (self classUGlobalInstaller universe: self classUUniverse systemUniverse)! Item was added: + ----- Method: InstallerUniverse class>>default (in category 'instance creation') ----- + default + + ^ self universe: (self classUGlobalInstaller universe: self classUUniverse systemUniverse)! Item was added: + ----- Method: InstallerUniverse class>>universe: (in category 'instance creation') ----- + universe: u + + ^ self new universe: u!

1 0

SystemEditor: TraitEditor-mtf.8.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 14 Oct '08

14 Oct '08

A new version of TraitEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/TraitEditor-mtf.8.mcz ==================== Summary ==================== Name: TraitEditor-mtf.8 Author: mtf Time: 13 October 2008, 11:36:40 pm UUID: 12d17a16-eb4c-4013-844b-23aa44a31711 Ancestors: TraitEditor-mtf.7 A hack to let brace arrays compile in a SystemEditor context =============== Diff against TraitEditor-mtf.7 =============== Item was added: + ----- Method: ClassEditor>>braceWithNone (in category '*TraitEditor') ----- + braceWithNone + "Allows brace arrays used in TraitCompositions to execute in an editor context" + + ^ self subject braceWithNone!

1 0

Monticello Public: Monticello.impl-mtf.587.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 14 Oct '08

14 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.587.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.587 Author: mtf Time: 13 October 2008, 11:34:18 pm UUID: c6ee7243-7695-4af8-a1ac-363f5386b007 Ancestors: Monticello.impl-mtf.586 a couple changes to make Traits in MC1.6 slightly less buggy =============== Diff against Monticello.impl-mtf.586 =============== Item was changed: ----- Method: MCMethodDefinition>>actualClassIn: (in category 'accessing') ----- actualClassIn: anEnvironment + ^ theClass := anEnvironment at: className + ifPresent: [:class | classIsMeta ifTrue: [class classSide] ifFalse: [class]]! - ^ (theClass := anEnvironment classNamed: className) - ifNotNilDo: [:class | classIsMeta ifTrue: [class classSide] ifFalse: [class]]! Item was changed: ----- Method: MCTraitDefinition>>edLoad: (in category 'system editor') ----- edLoad: aSystemEditor + (aSystemEditor at: #Trait) named: self className + uses: (Compiler evaluate: self traitCompositionString for: aSystemEditor doItHost logged: false) + category: self category. + ^ false.! - ^ (aSystemEditor at: #Trait) named: self name - uses: (Compiler evaluate: self traitCompositionString for: aSystemEditor logged: false) - category: self category!

1 0

SystemEditor: SystemEditor-mtf.136.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 14 Oct '08

14 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.136.mcz ==================== Summary ==================== Name: SystemEditor-mtf.136 Author: mtf Time: 13 October 2008, 11:31:58 pm UUID: bf506d66-56e2-4ecb-95b4-7163a69ad730 Ancestors: SystemEditor-mtf.135 Some more reflection to support compiling and running code in the context of a SystemEditor. See SystemEditor >> doItHost. This was implemented in order to interpret trait composition strings =============== Diff against SystemEditor-mtf.135 =============== Item was changed: ----- Method: RootClassEditor class>>classMetaclassEditor (in category 'instance creation') ----- classMetaclassEditor + ^ RootMetaclassEditor! - ^ OldRootMetaclassEditor! Item was added: + ----- Method: ClassDescriptionEditor>>allSubclassesDo: (in category 'reflecting') ----- + allSubclassesDo: aBlock + "Evaluate the argument, aBlock, for each of the receiver's subclasses." + + self subclassesDo: + [:cl | + aBlock value: cl. + cl allSubclassesDo: aBlock]! Item was added: + ----- Method: ClassDescriptionEditor>>basicNew (in category 'reflecting') ----- + basicNew + "Primitive. Answer an instance of the receiver (which is a class) with no + indexable variables. Fail if the class is indexable. Essential. See Object + documentation whatIsAPrimitive." + + <primitive: 70> + "space must be low" + self environment signalLowSpace. + ^ self basicNew "retry if user proceeds" + ! Item was changed: ----- Method: MetaclassEditor>>edBuild (in category 'building') ----- edBuild | result class | + class := self subject ifNil: [Metaclass] ifNotNil: [self subject class]. - class := self subject ifNil: [Metaclass] ifNotNil: [self subject | subject class]. result := class basicNew. "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" result superclass: self edSuperclass methodDictionary: MethodDictionary new format: self format; organization: self organization edBuild. result setInstVarNames: self instVarNames. ^ result! Item was added: + ----- Method: PureBehaviorEditor>>literalScannedAs:notifying: (in category 'reflecting') ----- + literalScannedAs: literal notifying: anEncoder + literal isVariableBinding ifTrue: [self halt]. + ^ literal! Item was changed: ----- Method: ClassEditor>>bindingOf: (in category 'reflecting') ----- bindingOf: varName "Answer the binding of some variable resolved in the scope of the receiver" | aSymbol | aSymbol := varName asSymbol. "First look in classVar dictionary." + (self classVarNames includes: aSymbol) - (classVarNames includes: aSymbol) ifTrue: [^ subject ifNotNil: [subject classPool bindingOf: aSymbol]]. "Next look in shared pools." self sharedPools do: [:pool | (pool bindingOf: aSymbol) ifNotNilDo: [:binding | ^binding]]. "Next look in declared environment." (self environment bindingOf: aSymbol) ifNotNilDo: [:binding | ^binding]. "Finally look higher up the superclass chain and fail at the end." ^ self superclassOrEditor bindingOf: aSymbol! Item was added: + ----- Method: SystemEditor>>edSubclassesOrEditorsOf:do: (in category 'building') ----- + edSubclassesOrEditorsOf: anEditor do: aBlock + "Evaluate aBlock for each subclasses of the given ClassEditor, as either an editor (if it has changed), or as a class (if it has not changed). Does not add any items to my additions list" + + | subclasses | + subclasses := anEditor subject + ifNil: [Set new] + ifNotNilDo: [ :class | class subclasses asSet]. + additions do: [ :ea | + subclasses remove: ea subject ifAbsent: []. + ea superclassOrEditor == anEditor ifTrue: [aBlock value: ea]]. + removals do: [ :removedKey | subclasses remove: (subject at: removedKey) ifAbsent: []]. + subclasses do: aBlock! Item was added: + ----- Method: MetaclassEditor>>inheritsFrom: (in category 'debugging') ----- + inheritsFrom: aClass + "This allows aClassEditor isKindOf: Object to work properly" + + ^ superclass inheritsFrom: aClass! Item was added: + ----- Method: SystemEditor>>edSubclassesOf:do: (in category 'building') ----- + edSubclassesOf: anEditor do: aBlock + "Answers all subclasses of the given ClassEditor, as editors" + + self edSubclassesOrEditorsOf: anEditor do: [:ea | aBlock value: (self edEditorFor: ea)]! Item was added: + ----- Method: ClassEditor>>subclassesOrEditorsDo: (in category 'reflecting') ----- + subclassesOrEditorsDo: aBlock + "Evaluates aBlock for all of my subclasses, as either classes or editors, whichever is easier" + + system edSubclassesOrEditorsOf: self do: aBlock! Item was changed: + ----- Method: MetaclassEditor>>new (in category 'initialization') ----- - ----- Method: MetaclassEditor>>new (in category 'behavior') ----- new + "Answers a new ClassEditor with myself as its class" ^ editor := self basicNew! Item was added: + ----- Method: ClassEditor>>subclassesDo: (in category 'reflecting') ----- + subclassesDo: aBlock + ^ system edSubclassesOf: self do: aBlock! Item was added: + ----- Method: ClassEditor>>new (in category 'reflecting') ----- + new + "Create an instance of myself. This instance is only intended for compiling DoIts that will evaluate in my scope. See SystemEditor >> doItHost" + + superclass := self subject ifNil: [UndefinedObject]. + methodDict := MethodDictionary new. + format := superclass format. + ^ self basicNew! Item was added: + ----- Method: PureBehaviorEditor>>evaluatorClass (in category 'reflecting') ----- + evaluatorClass + ^ self subject + ifNil: [Compiler] + ifNotNil: [self subject evaluatorClass]! Item was added: + ----- Method: ClassDescriptionEditor>>allSuperclassesDo: (in category 'reflecting') ----- + allSuperclassesDo: aBlock + "Evaluate aBlock for each of my receiver superclasses." + + self superclass withAllSuperclassesDo: aBlock! Item was added: + ----- Method: PureBehaviorEditor>>realClass (in category 'accessing') ----- + realClass + "Since the metaobject protocol gets pretty messed up in some of my subclasses, answer what class this really is an instance of" + + ^ self class! Item was added: + ----- Method: ClassDescriptionEditor>>withAllSuperclassesDo: (in category 'reflecting') ----- + withAllSuperclassesDo: aBlock + "Evaluate aBlock for each of my receiver superclasses." + + aBlock value: self. + self allSuperclassesDo: aBlock! Item was added: + ----- Method: RootClassEditor>>withAllSuperclasses (in category 'reflecting') ----- + withAllSuperclasses + ^ OrderedCollection new! Item was changed: ----- Method: MetaclassEditor>>instVarNames (in category 'debugging') ----- instVarNames "Override the implemenation in Behavior. That will return the inst vars of ClassEditor, but we want the inst vars of the subject's class." + ^ self isDebuggingAsEditor + ifTrue: [superclass instVarNames] + ifFalse: [super instVarNames]! - self isDebuggingAsEditor ifTrue: [^ super instVarNames]. - ^ instVarNames ifNil: [self subject instVarNames]! Item was added: + ----- Method: PureBehaviorEditor>>decompilerClass (in category 'reflecting') ----- + decompilerClass + ^ self subject + ifNil: [Decompiler] + ifNotNil: [self subject decompilerClass]! Item was changed: ----- Method: MetaclassEditor>>instSize (in category 'debugging') ----- instSize "Override the implemenation in Behavior, so that when inspecting the ClassEditor, it will look like a regular Class" + ^ self isDebuggingAsEditor + ifTrue: [superclass instSize] + ifFalse: [super instSize]! - self isDebuggingAsEditor ifTrue: [^ super instSize]. - ^ self instVarNames size + self superclassOrEditor instSize! Item was added: + ----- Method: RootClassEditor>>withAllSuperclassesDo: (in category 'reflecting') ----- + withAllSuperclassesDo: aBlock + ^ self! Item was changed: ----- Method: ClassDescriptionEditor>>superclassOrEditor (in category 'accessing') ----- superclassOrEditor "Answer my superclass as an editor if it is being edited, or as a class if it is not. Does not add anything to my SystemEditor" superEditor ifNotNil: [^ superEditor]. + self subject superclass ifNil: [^ self realClass classRootEditor on: nil for: self environment]. - self subject superclass ifNil: [^ self class classRootEditor on: nil for: self environment]. ^ self environment classOrEditorFor: self subject superclass! Item was added: + ----- Method: PureBehaviorEditor>>printOn: (in category 'printing') ----- + printOn: aStream + + | title | + title := self realClass name. + aStream + nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']); + nextPutAll: title; + nextPutAll: ' on: '; + print: self subject ! Item was added: + ----- Method: PureBehaviorEditor>>binding (in category 'reflecting') ----- + binding + ^ nil -> self! Item was added: + ----- Method: ClassEditor>>realClass (in category 'accessing') ----- + realClass + "Answer the true class, which is the superclass of my MetaclassEditor" + + ^ self class instVarAt: 1! Item was added: + ----- Method: SystemEditor>>doItHost (in category 'accessing') ----- + doItHost + "Answer an object which lets methods evaluated against it execute in my context: + + Compiler evaluate: 'Array' for: SystemEditor new doItHost logged: false + " + + ^ (self at: #UndefinedObject) new! Item was changed: ----- Method: PureBehaviorEditor>>parserClass (in category 'reflecting') ----- parserClass + ^ self subject + ifNil: [Parser] + ifNotNil: [self subject parserClass]! - ^ self class parserClass! Item was changed: ----- Method: MetaclassEditor>>allInstVarNames (in category 'debugging') ----- allInstVarNames "specialized in order to enable debugger to show as self" + ^ self isDebuggingAsEditor + ifTrue: [superclass allInstVarNames] + ifFalse: [super allInstVarNames]! - - self isDebuggingAsEditor ifTrue: [^ super allInstVarNames]. - ^ self edSuperclass - ifNil: [self instVarNames copy] - ifNotNil: [self edSuperclass allInstVarNames, self instVarNames]! Item was added: + ----- Method: RootMetaclassEditor>>withAllSuperclasses (in category 'reflecting') ----- + withAllSuperclasses + ^ OrderedCollection new! Item was changed: ----- Method: MetaclassEditor>>initialize (in category 'initialization') ----- initialize "initialize myself so that I can create instances" superclass := self class classClassEditor. methodDict := MethodDictionary new. + format := superclass format.! - format := self class classClassEditor format.! Item was added: + ----- Method: RootMetaclassEditor>>withAllSuperclassesDo: (in category 'reflecting') ----- + withAllSuperclassesDo: aBlock + ^ self! Item was removed: - ----- Method: MetaclassEditor>>printOn: (in category 'printing') ----- - printOn: aStream - aStream - nextPutAll: 'a MetaclassEditor on: '; - print: editor subject ! Item was removed: - ----- Method: RootClassEditor>>allSuperclasses (in category 'reflecting') ----- - allSuperclasses - ^ OrderedCollection new! Item was removed: - ----- Method: ClassEditor>>printOn: (in category 'printing') ----- - printOn: aStream - aStream - nextPutAll: 'a ClassEditor on: '; - nextPutAll: subject name! Item was removed: - ----- Method: MetaclassEditor>>basicNew (in category 'initialization') ----- - basicNew - "Primitive. Answer an instance of the receiver (which is a class) with no - indexable variables. Fail if the class is indexable. Essential. See Object - documentation whatIsAPrimitive." - - <primitive: 70> - "space must be low" - self environment signalLowSpace. - ^ self basicNew "retry if user proceeds" - ! Item was removed: - ----- Method: RootMetaclassEditor>>allSuperclasses (in category 'reflecting') ----- - allSuperclasses - ^ OrderedCollection new!

1 0

SystemEditor: SystemEditor-mtf.135.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 14 Oct '08

14 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.135.mcz ==================== Summary ==================== Name: SystemEditor-mtf.135 Author: mtf Time: 13 October 2008, 8:34:38 pm UUID: c26a0a6e-a8de-4f0f-8446-c70e6954cd30 Ancestors: SystemEditor-mtf.134 oops. missed a method =============== Diff against SystemEditor-mtf.134 =============== Item was added: + ----- Method: PureBehaviorEditor>>subject (in category 'accessing') ----- + subject + ^ subject!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2008