Packages March 2017

packages@lists.squeakfoundation.org

1 participants
168 discussions

The Trunk: Tests-jr.366.mcz
by commits＠source.squeak.org 05 Mar '17

05 Mar '17

David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-jr.366.mcz ==================== Summary ==================== Name: Tests-jr.366 Author: jr Time: 28 February 2017, 2:27:19.211388 pm UUID: a91286d9-df10-e24e-b128-dc03557db77a Ancestors: Tests-eem.363 fix: MCEnvironmentLoadTest must import required classes the "curiously" comment is apparently out of date =============== Diff against Tests-eem.363 =============== Item was changed: ----- Method: MCEnvironmentLoadTest>>setUp (in category 'running') ----- setUp environment := Environment named: 'MCEnvironmentLoadTest'. "This is required in order to not importSelf more than once" environment stopObserving: environment. "This is required to make own declarations visible in environment" environment importSelf. "Import the required PoolDictionary used by the package" environment bindingOf: #MCMockAPoolDictionary + ifAbsent: [environment from: Smalltalk globals import: #MCMockAPoolDictionary]. + environment from: Smalltalk globals import: #(MCMock MCSnapshotTest Object).! - ifAbsent: [environment from: Smalltalk globals import: #MCMockAPoolDictionary] - - "Curiously, the superclass MCMock will be used, but does not have to be imported, don't ask why..."!

1 0

The Trunk: Monticello-jr.664.mcz
by commits＠source.squeak.org 05 Mar '17

05 Mar '17

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-jr.664.mcz ==================== Summary ==================== Name: Monticello-jr.664 Author: jr Time: 2 March 2017, 11:24:19.419687 pm UUID: 5f7f61e8-c5f7-7749-8d7f-c39b5b4584fb Ancestors: Monticello-jr.663 make 'recompile package' work for working copies in another environment =============== Diff against Monticello-jr.663 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>recompilePackage (in category 'actions') ----- recompilePackage + (workingCopy withEnvironmentActiveDo: [workingCopy package packageInfo methods]) - workingCopy package packageInfo methods do: [:ea | ea actualClass recompile: ea methodSymbol] displayingProgress: 'Recompiling...'!

1 0

The Trunk: Monticello-jr.663.mcz
by commits＠source.squeak.org 05 Mar '17

05 Mar '17

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-jr.663.mcz ==================== Summary ==================== Name: Monticello-jr.663 Author: jr Time: 28 February 2017, 3:23:47.576081 am UUID: a39bff3c-bb90-704a-bbdc-1c9ce084747b Ancestors: Monticello-ul.662 add environments support to Monticello Neither PackageInfo nor MCPackage are naturally bound to an environment, so choose MCWorkingCopy as the keeper of one. To make sure that an MCPackage creates its snapshot from the correct environment, wrap a working copy's package in a decorator that activates the environment when a snapshot is requested. This is kind of hacky, but otherwise all senders of #snapshot would have to take care to activate the correct environment. It would be complicated because there is code breaking the Law of Demeter as follows: aWorkingCopyOrVersion package snapshot So with this solution, be sure to snapshot/load via the working copy if possible. Add a 'change environment' menu item to the working copies list. Afterwards, snapshots will be taken in the chosen environment, and new code will be compiled in it. Add a 'load into other environment' menu item to snapshot browsers. Depends on Compiler-jr.329 for compiling text in other environments, on Environments-jr.71 for choosing an environment, and Tools-jr.745 would help enable system navigation independently from this version. =============== Diff against Monticello-ul.662 =============== Item was changed: SystemOrganization addCategory: #'Monticello-Base'! SystemOrganization addCategory: #'Monticello-Chunk Format'! SystemOrganization addCategory: #'Monticello-Loading'! SystemOrganization addCategory: #'Monticello-Merging'! SystemOrganization addCategory: #'Monticello-Modeling'! SystemOrganization addCategory: #'Monticello-Patching'! SystemOrganization addCategory: #'Monticello-Repositories'! SystemOrganization addCategory: #'Monticello-Storing'! SystemOrganization addCategory: #'Monticello-UI'! SystemOrganization addCategory: #'Monticello-Versioning'! + SystemOrganization addCategory: #'Monticello-Environments'! Item was added: + ----- Method: Environment>>provisions (in category '*Monticello-Loading') ----- + provisions + "In contrast to #keys, return also the imported names" + ^ bindings keys! Item was changed: ----- Method: MCClassDefinition>>actualClass (in category 'accessing') ----- actualClass + ^ self actualClassIn: Environment current! - ^Smalltalk classNamed: self className! Item was added: + ----- Method: MCClassDefinition>>actualClassIn: (in category 'accessing') ----- + actualClassIn: anEnvironment + ^anEnvironment classNamed: self className! Item was changed: ----- Method: MCClassDefinition>>createClass (in category 'installing') ----- createClass + | environment superClass class composition | + environment := Environment current. - | superClass class composition | superClass := superclassName == #nil ifFalse: + [environment valueOf: superclassName + ifAbsent: [(KeyNotFound key: superclassName) signal]]. - [Smalltalk at: superclassName]. [class := (ClassBuilder new) name: name + inEnvironment: environment - inEnvironment: (CurrentEnvironment signal ifNil: [superClass environment]) subclassOf: superClass type: type instanceVariableNames: self instanceVariablesString classVariableNames: self classVariablesString poolDictionaries: self sharedPoolsString category: category. ] on: Warning, DuplicateVariableError do:[:ex| ex resume]. "The following is written to support traits unloading" composition := self traitComposition ifNil: [Array new] ifNotNil: [:traitComposition | Compiler evaluate: traitComposition]. (composition isCollection and:[composition isEmpty and:[class traitComposition isEmpty]]) ifFalse:[ class setTraitComposition: composition asTraitComposition. ]. composition := self classTraitComposition ifNil: [Array new] ifNotNil: [:traitComposition | Compiler evaluate: traitComposition]. (composition isCollection and:[composition isEmpty and:[class class traitComposition isEmpty]]) ifFalse:[ class class setTraitComposition: composition asTraitComposition. ]. ^class! Item was changed: ----- Method: MCClassDefinition>>unload (in category 'installing') ----- unload + Environment current removeClassNamed: name! - Smalltalk removeClassNamed: name! Item was changed: MCTool subclass: #MCCodeTool + instanceVariableNames: 'items environmentInDisplayingImage' - instanceVariableNames: 'items' classVariableNames: '' poolDictionaries: '' category: 'Monticello-UI'! !MCCodeTool commentStamp: 'nk 11/10/2003 22:00' prior: 0! MCCodeTool is an abstract superclass for those Monticello browsers that display code. It contains copies of the various CodeHolder methods that perform the various menu operations in the method list. ! Item was added: + ----- Method: MCCodeTool>>environmentInDisplayingImage (in category 'accessing') ----- + environmentInDisplayingImage + ^ environmentInDisplayingImage ifNil: [Smalltalk globals]! Item was added: + ----- Method: MCCodeTool>>environmentInDisplayingImage: (in category 'accessing') ----- + environmentInDisplayingImage: anEnvironment + environmentInDisplayingImage := anEnvironment! Item was added: + ----- Method: MCDefinition>>actualClassIn: (in category 'accessing') ----- + actualClassIn: anEnvironment + + ^nil! Item was changed: ----- Method: MCMethodDefinition>>actualClass (in category 'accessing') ----- actualClass + ^ self actualClassIn: Environment current! - ^Smalltalk at: className ifPresent: [:class | - class isBehavior ifTrue: [classIsMeta ifTrue: [class classSide] ifFalse: [class]]]! Item was added: + ----- Method: MCMethodDefinition>>actualClassIn: (in category 'accessing') ----- + actualClassIn: anEnvironment + ^ (anEnvironment at: className ifAbsent: [anEnvironment valueOf: className]) + ifNotNil: [:class | + class isBehavior ifTrue: [classIsMeta ifTrue: [class classSide] ifFalse: [class]]]! Item was changed: ----- Method: MCOperationsBrowser>>revertSelection (in category 'actions') ----- revertSelection | loader | selection ifNotNil: [loader := MCPackageLoader new. selection inverse applyTo: loader. + self environmentInDisplayingImage beCurrentDuring: [loader loadWithName: self changeSetNameForInstall]. - loader loadWithName: self changeSetNameForInstall. self reverts add: selection. self advanceSelection; changed: #list ]! Item was changed: ----- Method: MCOperationsBrowser>>selectedClass (in category 'subclassResponsibility') ----- selectedClass | definition | selection ifNil: [ ^nil ]. (definition := selection definition) ifNil: [ ^nil ]. definition isMethodDefinition ifFalse: [ ^nil ]. + definition className in: [:className | | environment | + environment := self environmentInDisplayingImage. + ^ environment at: className ifAbsent: [environment valueOf: className]]! - ^Smalltalk at: definition className ifAbsent: [ ]! Item was changed: ----- Method: MCOperationsBrowser>>selectedClassOrMetaClass (in category 'subclassResponsibility') ----- selectedClassOrMetaClass | definition | selection ifNil: [ ^nil ]. (definition := selection definition) ifNil: [ ^nil ]. (definition isMethodDefinition or: [definition isClassDefinition]) ifFalse: [ ^nil ]. + ^ definition actualClassIn: self environmentInDisplayingImage! - ^definition actualClass! Item was added: + ----- Method: MCPackage>>inEnvironment: (in category 'environments') ----- + inEnvironment: anEnvironment + "Answer a decorator for me that activates anEnvironment for certain operations." + ^ MCPackageInEnvironment decorating: self in: anEnvironment! Item was changed: ----- Method: MCPackage>>packageInfo (in category 'accessing') ----- packageInfo + "Activate my working copy's environment so the PackageInfo is added to the + correct EnvironmentInfo's packages." + | getPackageInfo | + getPackageInfo := [PackageInfo named: name]. + ^ self hasWorkingCopy + ifTrue: [self workingCopy withEnvironmentActiveDo: getPackageInfo] + ifFalse: getPackageInfo! - ^ PackageInfo named: name! Item was added: + ProtoObject subclass: #MCPackageInEnvironment + instanceVariableNames: 'package environment' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-Environments'! + + !MCPackageInEnvironment commentStamp: 'jr 2/27/2017 23:05' prior: 0! + I am a decorator for an MCPackage, activating an Environment for relevant operations. + + Instance Variables + environment: <Environment> should be the current one for some of my operations + package: <MCPackage> my substance! Item was added: + ----- Method: MCPackageInEnvironment class>>decorating:in: (in category 'instance creation') ----- + decorating: aPackage in: anEnvironment + | instance | + instance := self new. + instance initializeWithPackage: aPackage in: anEnvironment. + ^ instance! Item was added: + ----- Method: MCPackageInEnvironment>>basicInspect (in category 'object behavior') ----- + basicInspect + "Create and schedule an Inspector in which the user can examine the + receiver's variables. This method should not be overriden." + ^ToolSet basicInspect: self! Item was added: + ----- Method: MCPackageInEnvironment>>doesNotUnderstand: (in category 'delegating') ----- + doesNotUnderstand: aMessage + ^ aMessage sendTo: package! Item was added: + ----- Method: MCPackageInEnvironment>>environment (in category 'accessing') ----- + environment + + ^ environment! Item was added: + ----- Method: MCPackageInEnvironment>>environment: (in category 'accessing') ----- + environment: anObject + + environment := anObject! Item was added: + ----- Method: MCPackageInEnvironment>>inEnvironment: (in category 'initialize-release') ----- + inEnvironment: anEnvironment + environment == anEnvironment ifTrue: [^ self]. + ^ MCPackageInEnvironment decorating: package in: anEnvironment! Item was added: + ----- Method: MCPackageInEnvironment>>initializeWithPackage:in: (in category 'initialize-release') ----- + initializeWithPackage: aPackage in: anEnvironment + package := aPackage. + environment := anEnvironment.! Item was added: + ----- Method: MCPackageInEnvironment>>respondsTo: (in category 'delegating') ----- + respondsTo: aSymbol + ^ (MCPackageInEnvironment canUnderstand: aSymbol) + or: [package respondsTo: aSymbol]! Item was added: + ----- Method: MCPackageInEnvironment>>snapshot (in category 'input/output') ----- + snapshot + ^ environment beCurrentDuring: [package snapshot]! Item was changed: ----- Method: MCPackageLoader>>provisions (in category 'private') ----- provisions + ^ provisions ifNil: [provisions := Set withAll: Environment current provisions] ! - ^ provisions ifNil: [provisions := Set withAll: Smalltalk globals keys]! Item was changed: ----- Method: MCPackageManager>>initializeWithPackage: (in category 'initialize-release') ----- initializeWithPackage: aPackage + package := aPackage inEnvironment: Environment current. - package := aPackage. self initialize.! Item was changed: ----- Method: MCSnapshotBrowser>>classListMenu: (in category 'menus') ----- classListMenu: aMenu classSelection ifNil: [ ^aMenu ]. super classListMenu: aMenu. aMenu addLine; add: ('load class {1}' translated format: {classSelection}) + action: #loadClassSelection; + add: ('load class {1} into other Environment...' translated format: {classSelection}) + action: #loadClassSelectionIntoOtherEnvironment. - action: #loadClassSelection. ^ aMenu! Item was added: + ----- Method: MCSnapshotBrowser>>loadClassSelectionIntoOtherEnvironment (in category 'menus') ----- + loadClassSelectionIntoOtherEnvironment + | env | + classSelection ifNil: [ ^self ]. + env := EnvironmentRequest signal. + env beCurrentDuring: [ + (self packageClasses detect: [ :ea | ea className = classSelection ] ifNone: [ ^self ]) + load. + self methodsForSelectedClass do: [ :m | m load ]].! Item was changed: ----- Method: MCSnapshotBrowser>>selectedClass (in category 'accessing') ----- selectedClass + | environment | classSelection ifNil: [ ^nil ]. + environment := self environmentInDisplayingImage. + ^ environment at: classSelection ifAbsent: [environment valueOf: classSelection] - ^Smalltalk at: classSelection ifAbsent: [ nil ]. ! Item was changed: ----- Method: MCTraitDefinition>>createClass (in category 'visiting') ----- createClass ^ClassDescription newTraitNamed: name uses: (Compiler evaluate: self traitCompositionString) category: category + in: Environment current ! Item was changed: ----- Method: MCVersion>>load (in category 'actions') ----- load + self workingCopy withEnvironmentActiveDo: [MCVersionLoader loadVersion: self]! - MCVersionLoader loadVersion: self! Item was changed: ----- Method: MCVersion>>merge (in category 'actions') ----- merge + self workingCopy withEnvironmentActiveDo: [MCVersionMerger mergeVersion: self]! - MCVersionMerger mergeVersion: self! Item was changed: MCPackageManager subclass: #MCWorkingCopy + instanceVariableNames: 'versionInfo ancestry counter repositoryGroup requiredPackages environment' - instanceVariableNames: 'versionInfo ancestry counter repositoryGroup requiredPackages' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Versioning'! Item was added: + ----- Method: MCWorkingCopy>>environment (in category 'accessing') ----- + environment + ^ environment ifNil: [Smalltalk globals]! Item was added: + ----- Method: MCWorkingCopy>>environment: (in category 'accessing') ----- + environment: anEnvironment + "Anything that is loaded to me should go into anEnvironment from now on." + environment := anEnvironment. + package := package inEnvironment: anEnvironment.! Item was changed: ----- Method: MCWorkingCopy>>unload (in category 'operations') ----- unload + self withEnvironmentActiveDo: [MCPackageLoader unloadPackage: self package]. - MCPackageLoader unloadPackage: self package. self unregisterSubpackages. self unregister.! Item was added: + ----- Method: MCWorkingCopy>>withEnvironmentActiveDo: (in category 'private') ----- + withEnvironmentActiveDo: aBlock + ^ self environment beCurrentDuring: aBlock! Item was added: + ----- Method: MCWorkingCopyBrowser>>changeEnvironment (in category 'actions') ----- + changeEnvironment + workingCopy ifNil: [^ self]. + workingCopy environment: EnvironmentRequest signal! Item was changed: ----- Method: MCWorkingCopyBrowser>>viewChanges (in category 'actions') ----- viewChanges | patch | self canSave ifTrue: [patch := workingCopy changesRelativeToRepository: self repository. patch isNil ifTrue: [^ self]. patch isEmpty ifTrue: [ workingCopy modified: false. self inform: 'No changes' ] ifFalse: [ workingCopy modified: true. (MCPatchBrowser forPatch: patch) label: 'Patch Browser: ', workingCopy description; + environmentInDisplayingImage: workingCopy environment; show]]! Item was changed: ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') ----- workingCopyListMenu: aMenu workingCopy ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('add required package' #addRequiredPackage) ('clear required packages' #clearRequiredPackages) ('add repository...' #addPackageRepository) ('browse package' #browseWorkingCopy) ('view changes' #viewChanges) ('view history' #viewHistory) ('search history' #searchHistory) ('recompile package' #recompilePackage) ('revert package...' #revertPackage) ('unload package' #unloadPackage) ('delete working copy' #deleteWorkingCopy) ('inspect working copy' #inspectWorkingCopy) + ('rename package...' #renamePackage) + ('change environment...' #changeEnvironment)). - ('rename package...' #renamePackage)). (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [ aMenu add: 'make SAR' target: self selector: #fileOutAsSAR ]. self fillMenu: aMenu fromSpecs: #( addLine ('check all packages for changes' #checkAllPackages)). self insertExternalMenuEntries: aMenu. ^aMenu! Item was changed: ----- Method: MethodAddition>>createCompiledMethod (in category 'as yet unclassified') ----- createCompiledMethod | notification | [methodAndNode := myClass compile: text asString + environment: Environment current notifying: requestor trailer: (myClass defaultMethodTrailerIfLogSource: logSource) ifFail: [^nil]] on: SyntaxErrorNotification do: [:exc | notification := exc. exc pass]. notification ifNotNil: [notification newSource ifNotNil: [:newSource | text := newSource]]. selector := methodAndNode selector. compiledMethod := methodAndNode method. self writeSourceToLog. priorMethodOrNil := myClass compiledMethodAt: selector ifAbsent: [nil]. !

1 0

The Trunk: Monticello-jr.662.mcz
by commits＠source.squeak.org 05 Mar '17

05 Mar '17

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-jr.662.mcz ==================== Summary ==================== Name: Monticello-jr.662 Author: jr Time: 12 February 2017, 4:32:10.446498 pm UUID: 91d400b5-f770-9b4d-ab42-2f06632a0179 Ancestors: Monticello-mva.661 add support for restoring Trait comments from st snapshots Previously, the Trait definition was only treated as doIt in FilePackage and converted to a MCTraitDefinition by MCTraitParser. The latter does not have access to the PseudoClasses of the FilePackage and, thus, could not access the Trait's comment, leaving it empty. System-jr.919 adds PseudoTraits in FilePackage, so a correct conversion into MCTraitDefinitions including the comment is now possible. =============== Diff against Monticello-mva.661 =============== Item was changed: ----- Method: FilePackage>>classDefinition:with: (in category '*monticello') ----- classDefinition: string with: chgRec | tokens theClass | - - self flag: #traits. tokens := Scanner new scanTokens: string. "tokens size = 11 ifFalse:[^doIts add: chgRec]." theClass := self getClass: (tokens at: 3). theClass definition: string. classOrder add: theClass.! Item was added: + ----- Method: FilePackage>>traitDefinition:with: (in category '*monticello') ----- + traitDefinition: string with: chgRec + | tokens theTrait | + tokens := Scanner new scanTokens: string. + theTrait := self getTrait: (tokens at: 3). + theTrait definition: string. + classOrder add: theTrait.! Item was changed: ----- Method: MCStReader>>loadDefinitions (in category 'evaluating') ----- loadDefinitions | filePackage | filePackage := FilePackage new fullName: 'ReadStream'; fileInFrom: self readStream. definitions := OrderedCollection new. filePackage classes do: [:pseudoClass | pseudoClass hasDefinition ifTrue: [definitions add: + (pseudoClass asMCDefinitionBy: self)]. - (self classDefinitionFrom: pseudoClass)]. definitions addAll: (self methodDefinitionsFor: pseudoClass). definitions addAll: (self methodDefinitionsFor: pseudoClass metaClass)]. filePackage doIts do: [:ea | self addDefinitionsFromDoit: ea string]. ! Item was added: + ----- Method: MCStReader>>traitDefinitionFrom: (in category 'as yet unclassified') ----- + traitDefinitionFrom: aPseudoTrait + | tokens traitCompositionString lastIndex | + tokens := Scanner new scanTokens: aPseudoTrait definition. + traitCompositionString := ((ReadStream on: aPseudoTrait definition) + match: 'uses:'; + upToAll: 'category:') withBlanksTrimmed. + traitCompositionString isEmpty ifTrue: [traitCompositionString := '{}']. + lastIndex := tokens size. + ^ MCTraitDefinition + name: (tokens at: 3) + traitComposition: traitCompositionString + category: (tokens at: lastIndex) + comment: (self commentFor: aPseudoTrait) + commentStamp: (self commentStampFor: aPseudoTrait)! Item was added: + ----- Method: PseudoClass>>asMCDefinitionBy: (in category '*monticello') ----- + asMCDefinitionBy: aMCReader + ^ aMCReader classDefinitionFrom: self! Item was added: + ----- Method: PseudoTrait>>asMCDefinitionBy: (in category '*monticello') ----- + asMCDefinitionBy: aMCReader + ^ aMCReader traitDefinitionFrom: self!

1 0

The Trunk: Traits-jr.308.mcz
by commits＠source.squeak.org 05 Mar '17

05 Mar '17

David T. Lewis uploaded a new version of Traits to project The Trunk: http://source.squeak.org/trunk/Traits-jr.308.mcz ==================== Summary ==================== Name: Traits-jr.308 Author: jr Time: 14 February 2017, 3:24:19.70449 pm UUID: 8fb8baf0-afab-cb4c-865a-b0dc338749c4 Ancestors: Traits-pre.307 fix endless loop in 'show hierarchy' for Traits =============== Diff against Traits-pre.307 =============== Item was changed: ----- Method: TraitDescription>>printUsersOf:on:level: (in category 'printing') ----- printUsersOf: aClass on: aStream level: indent aStream crtab: indent. aStream nextPutAll: aClass name. aClass isTrait ifTrue:[ + aClass users do:[:each| self printUsersOf: each on: aStream level: indent+1]. - aClass users do:[:each| self printUsersOf: aClass on: aStream level: indent+1]. ]. !

1 0

The Trunk: Traits-jr.309.mcz
by commits＠source.squeak.org 05 Mar '17

05 Mar '17

David T. Lewis uploaded a new version of Traits to project The Trunk: http://source.squeak.org/trunk/Traits-jr.309.mcz ==================== Summary ==================== Name: Traits-jr.309 Author: jr Time: 1 March 2017, 5:00:38.523078 pm UUID: 32a4e214-747f-cc42-8b8d-a95182963d05 Ancestors: Traits-jr.308 environments for Traits Monticello-jr.663 needs this to create traits =============== Diff against Traits-pre.307 =============== Item was added: + ----- Method: ClassDescription class>>newTraitNamed:uses:category:in: (in category '*Traits') ----- + newTraitNamed: aSymbol uses: aTraitCompositionOrCollection category: aString in: anEnvironment + "Creates a new trait. If no current trait implementation + is installed, raise an error." + ^TraitImpl + ifNil:[self error: 'Traits are not installed'] + ifNotNil:[TraitImpl newTraitNamed: aSymbol uses: aTraitCompositionOrCollection category: aString in: anEnvironment]! Item was added: + ----- Method: ClassTrait>>environment (in category 'accessing') ----- + environment + ^ baseTrait environment! Item was added: + ----- Method: Trait class>>newTraitNamed:uses:category:in: (in category 'public') ----- + newTraitNamed: aSymbol uses: aTraitCompositionOrCollection category: aString in: anEnvironment + "Creates a new trait." + ^self + named: aSymbol + uses: aTraitCompositionOrCollection + category: aString + env: anEnvironment! Item was changed: ----- Method: TraitDescription>>printUsersOf:on:level: (in category 'printing') ----- printUsersOf: aClass on: aStream level: indent aStream crtab: indent. aStream nextPutAll: aClass name. aClass isTrait ifTrue:[ + aClass users do:[:each| self printUsersOf: each on: aStream level: indent+1]. - aClass users do:[:each| self printUsersOf: aClass on: aStream level: indent+1]. ]. !

1 0

The Trunk: Environments-jr.68.mcz
by commits＠source.squeak.org 05 Mar '17

05 Mar '17

David T. Lewis uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-jr.68.mcz ==================== Summary ==================== Name: Environments-jr.68 Author: jr Time: 22 January 2017, 1:28:18.011832 am UUID: 41256adf-d98a-4c4f-8bb6-6e5d800a4014 Ancestors: Environments-nice.67 add a convenience method to activate an environment during a block =============== Diff against Environments-nice.67 =============== Item was added: + ----- Method: Environment>>beCurrentDuring: (in category 'as yet unclassified') ----- + beCurrentDuring: aBlock + "Evaluate aBlock with me as the current dynamic Environment" + ^ aBlock on: CurrentEnvironment do: [:e | e resume: self]!

1 0

The Trunk: Environments-jr.69.mcz
by commits＠source.squeak.org 05 Mar '17

05 Mar '17

David T. Lewis uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-jr.69.mcz ==================== Summary ==================== Name: Environments-jr.69 Author: jr Time: 22 January 2017, 1:58:32.760832 am UUID: bef4785f-f66c-1246-bae6-6a15be9aaf33 Ancestors: Environments-jr.68 prevent the removal of third-party imported bindings Previously, when environment T imported from A and B, which both had a binding for #x, unbinding #x from either A or B would remove the binding from T. Now if the binding of #x is removed from A it will only be removed from T if T actually uses the binding from A, but not if T uses the binding from B. It also prevents an environment A from unbinding something in an imported environment B when A imports itself and A and B both have a declaration with the same key. =============== Diff against Environments-jr.68 =============== Item was changed: ----- Method: Environment>>hideBinding: (in category 'binding') ----- hideBinding: aBinding + (bindings bindingOf: aBinding key) == aBinding ifFalse: [^ self]. self undeclare: aBinding key from: bindings!

1 0

The Trunk: Environments-jr.71.mcz
by commits＠source.squeak.org 05 Mar '17

05 Mar '17

David T. Lewis uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-jr.71.mcz ==================== Summary ==================== Name: Environments-jr.71 Author: jr Time: 28 February 2017, 2:36:25.745081 am UUID: a50d4dbb-f587-6d46-bd22-bfcba43c4187 Ancestors: Environments-jr.69 add a signal to ask for an environment to be used by Monticello to choose an environment =============== Diff against Environments-jr.69 =============== Item was changed: SystemOrganization addCategory: #'Environments-Core'! SystemOrganization addCategory: #'Environments-Loading'! SystemOrganization addCategory: #'Environments-Policies'! SystemOrganization addCategory: #'Environments-Help'! + SystemOrganization addCategory: #'Environments-Notifications'! Item was added: + Notification subclass: #EnvironmentRequest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Environments-Notifications'! + + !EnvironmentRequest commentStamp: 'jr 1/15/2017 00:34' prior: 0! + I represent a request for an Environment that is not necessarily the CurrentEnvironment, but any Environment available in the system. + + Instance Variables + ! Item was added: + ----- Method: EnvironmentRequest>>defaultAction (in category 'exceptionDescription') ----- + defaultAction + | all environment | + all := Environment allInstances. + environment := UIManager default chooseFrom: all values: all. + self resume: environment.!

1 0

The Trunk: ToolsTests-jr.79.mcz
by commits＠source.squeak.org 05 Mar '17

05 Mar '17

David T. Lewis uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-jr.79.mcz ==================== Summary ==================== Name: ToolsTests-jr.79 Author: jr Time: 28 February 2017, 2:07:52.478388 pm UUID: 633800f6-1e23-1744-8e1a-01ecd6e88cd2 Ancestors: ToolsTests-eem.78 change testSelectedEnvironment to fit with Tools-jr.745 =============== Diff against ToolsTests-eem.78 =============== Item was changed: ----- Method: BrowserTest>>testSelectedEnvironment (in category 'as yet unclassified') ----- testSelectedEnvironment browser selectSystemCategory: browser class category. + self assert: browser selectedEnvironment = Smalltalk globals. - self assert: browser selectedEnvironment = Smalltalk. + "browser selectSystemCategory: nil. + self assert: browser selectedEnvironment isNil." + "selectedClass would not work in a hierarchy browser that has to display classes from different environments (because the correct categories might be missing)"! - browser selectSystemCategory: nil. - self assert: browser selectedEnvironment isNil.!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2017