hg/stx-libtool: comparison Tools

equal deleted inserted replaced

-:931d28c589b7
+:d8e9ed472e9f
 |cls sel pkg mthd newSel|
 self inSlaveModeOrInvisible
 "/ (self slaveMode value == true)
 ifTrue:[
-(changedObject == Smalltalk
+(changedObject == environment
 or:[ something == #projectOrganization ]) ifTrue:[
 listValid ifFalse:[ ^ self].
 listValid := false
 ].
 changedObject == self selectionHolder ifTrue:[
 changedObject == self projectList ifTrue:[
 ^  self
 ].
-changedObject == Smalltalk ifTrue:[
+changedObject == environment ifTrue:[
 something == #projectOrganization ifTrue:[
 self invalidateList.
 slaveMode value == true ifFalse:[
 self enqueueDelayedUpdateOutputGenerator.
 ].
 listValid := false.
 selectionIndexValid := false.
 ^ self
 ].
-changedObject == Smalltalk ifTrue:[
+changedObject == environment ifTrue:[
 something == #methodDictionary ifTrue:[
 ^ self
 ].
 something == #methodTrap ifTrue:[
 ^ self
 hideUnloadedClasses := self hideUnloadedClasses value.
 (selectedPackages includes:(self class nameListEntryForALL)) ifTrue:[
 hideUnloadedClasses ifTrue:[
 ^ Iterator on:[:whatToDo |
-Smalltalk allClassesDo:[:cls |
+environment allClassesDo:[:cls |
 cls isLoaded ifTrue:[
 cls isRealNameSpace ifFalse:[
 whatToDo value:cls
 ]
 ]
 ]
 ]
 ].
 ^ Iterator on:[:whatToDo |
-Smalltalk allClassesDo:[:cls |
+environment allClassesDo:[:cls |
 cls isRealNameSpace ifFalse:[
 whatToDo value:cls
 ]
 ]
 ]
 ^ Iterator on:[:whatToDo |
 |changedClasses|
 showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ].
-Smalltalk allClassesDo:[:cls |
+environment allClassesDo:[:cls |
 |doInclude|
 (hideUnloadedClasses not or:[cls isLoaded])
 ifTrue:[
 cls isRealNameSpace ifFalse:[
 ^ Iterator on:[:whatToDo |
 |changedClasses|
 showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ].
-Smalltalk allClassesDo:[:cls |
+environment allClassesDo:[:cls |
 |doInclude|
 (hideUnloadedClasses not or:[cls isLoaded])
 ifTrue:[
 cls isRealNameSpace ifFalse:[
 ].
 ].
 ].
 ].
-Smalltalk allClassesDo:[:eachClass |
+environment allClassesDo:[:eachClass |
 |cls pkg p classPackage|
 eachClass isRealNameSpace ifFalse:[
 (hideUnloaded not or:[eachClass isLoaded]) ifTrue:[
 "Created: / 17-02-2000 / 23:43:05 / cg"
 "Modified: / 17-08-2006 / 15:08:42 / cg"
 !
 makeDependent
-Smalltalk addDependent:self.
+environment addDependent:self.
 ChangeSet addDependent:self.
 !
 makeIndependent
-Smalltalk removeDependent:self.
+environment removeDependent:self.
 ChangeSet removeDependent:self.
 !
 markEntry: rawEntry at: index forBeingManagedBySVN:package
 "/    (ConfigurableFeatures includesFeature: #SubversionSupportEnabled) ifFalse:[^rawEntry].
 "/    package = PackageId noProjectID ifTrue:[^rawEntry].
 "/    workerQueue
 "/        nextPut:[
 "/            | repo newEntry branch mark|
-"/            "/ use Smalltalk-at to trick the dependency/prerequisite generator
+"/            "/ use environment-at to trick the dependency/prerequisite generator
-"/            repo := (Smalltalk at:#SVN::RepositoryManager) current
+"/            repo := (environment at:#SVN::RepositoryManager) current
 "/                        repositoryForPackage: package onlyFromCache: false.
 "/            repo ifNotNil:[
 "/                mark := ' [SVN]'.
 "/                branch := repo workingCopy branchOrNil.
 "/                branch ifNotNil:[mark := ' [SVN: ', branch path,']'].
 AdditionalEmptyProjects isNil ifTrue:[
 AdditionalEmptyProjects := Set new.
 ].
 AdditionalEmptyProjects add:aProject.
-Smalltalk changed:#projectOrganization   "/ not really ... to force update
+environment changed:#projectOrganization   "/ not really ... to force update
 "Created: / 17.2.2000 / 23:44:27 / cg"
 !
 removeAdditionalProjects:aListOfProjects
 AdditionalEmptyProjects notNil ifTrue:[
 	aListOfProjects do:[:eachProject |
 	    AdditionalEmptyProjects remove:eachProject ifAbsent:nil.
 	].
 ].
-Smalltalk changed:#projectOrganization   "/ not really ... to force update
+environment changed:#projectOrganization   "/ not really ... to force update
 "Created: / 17.2.2000 / 23:45:24 / cg"
 ! !
 !ProjectList class methodsFor:'documentation'!

branch	default-browser-environment
changeset 13473	d8e9ed472e9f
parent 12846	8ec716ef51e6