equal
deleted
inserted
replaced
4749 packages := (selectedClasses collect:[:cls | cls package]) asSet asOrderedCollection. |
4749 packages := (selectedClasses collect:[:cls | cls package]) asSet asOrderedCollection. |
4750 ]. |
4750 ]. |
4751 ]. |
4751 ]. |
4752 |
4752 |
4753 self selectedDiagramProject value:(packages firstIfEmpty:nil) withoutNotifying:self. |
4753 self selectedDiagramProject value:(packages firstIfEmpty:nil) withoutNotifying:self. |
4754 self withWaitCursorDo:[ |
4754 diagramApp notNil ifTrue:[ |
4755 diagramApp |
4755 self withWaitCursorDo:[ |
4756 packages:packages; |
4756 diagramApp |
4757 generateDiagram; |
4757 packages:packages; |
4758 selectClasses:selectedClasses. |
4758 generateDiagram; |
|
4759 selectClasses:selectedClasses. |
|
4760 ] |
4759 ] |
4761 ] |
4760 ]. |
4762 ]. |
4761 ! |
4763 ! |
4762 |
4764 |
4763 updateProjectSelectionFromClasses |
4765 updateProjectSelectionFromClasses |
4887 ! ! |
4889 ! ! |
4888 |
4890 |
4889 !OrganizerCanvas class methodsFor:'documentation'! |
4891 !OrganizerCanvas class methodsFor:'documentation'! |
4890 |
4892 |
4891 version |
4893 version |
4892 ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.34 2009-03-19 16:16:00 cg Exp $' |
4894 ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.35 2009-09-14 17:49:22 cg Exp $' |
4893 ! ! |
4895 ! ! |