The Trunk: System-dtl.177.mcz

David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.177.mcz

==================== Summary ====================

Name: System-dtl.177
Author: dtl
Time: 27 November 2009, 3:16:46 am
UUID: 2643ef5e-822c-4088-9233-416c30a23cdf
Ancestors: System-dtl.176

Bug fix - Change Project class>>deletingProject to use isKindOf: Project. Still need to factor out ProjectViewMorph dependencies in this method.

=============== Diff against System-dtl.176 ===============

Item was changed:
  ----- Method: Project class>>deletingProject: (in category 'utilities') -----
  deletingProject: outgoingProject
 
  ImageSegment allSubInstancesDo: [:seg |
  seg ifOutPointer: outgoingProject thenAllObjectsDo: [:obj |
  (obj isKindOf: ProjectViewMorph) ifTrue: [
  obj deletingProject: outgoingProject.  obj abandon].
+ (obj isKindOf: Project) ifTrue: [obj deletingProject: outgoingProject]]].
- obj class == Project ifTrue: [obj deletingProject: outgoingProject]]].
  Project allProjects do: [:p | p deletingProject: outgoingProject]. "ones that are in"
  ProjectViewMorph allSubInstancesDo: [:p |
  p deletingProject: outgoingProject.
  p project == outgoingProject ifTrue: [p abandon]].
 
  AllProjects := self allProjects copyWithout: outgoingProject.!