equal
deleted
inserted
replaced
431 classes do not conflict with existing ones ..." |
431 classes do not conflict with existing ones ..." |
432 |
432 |
433 self topView withWaitCursorDo:[ |
433 self topView withWaitCursorDo:[ |
434 |box allNameSpaces| |
434 |box allNameSpaces| |
435 |
435 |
436 allNameSpaces := (NameSpace allNamespaces |
436 allNameSpaces := (NameSpace allNameSpaces |
437 select:[:ns | ns isTopLevelNamespace]) |
437 select:[:ns | ns isTopLevelNameSpace]) |
438 collect:[:ns | ns name]. |
438 collect:[:ns | ns name]. |
439 |
439 |
440 box := ListSelectionBox title:(resources string:'default nameSpace:') withCRs. |
440 box := ListSelectionBox title:(resources string:'default nameSpace:') withCRs. |
441 box list:(allNameSpaces asOrderedCollection sort). |
441 box list:(allNameSpaces asOrderedCollection sort). |
442 box action:[:nsName | |
442 box action:[:nsName | |
769 ! ! |
769 ! ! |
770 |
770 |
771 !ProjectView class methodsFor:'documentation'! |
771 !ProjectView class methodsFor:'documentation'! |
772 |
772 |
773 version |
773 version |
774 ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.52 2007/01/23 18:19:38 stefan Exp $' |
774 ^ '$Header$' |
775 ! |
775 ! |
776 |
776 |
777 version_HG |
777 version_HG |
778 |
778 |
779 ^ '$Changeset: <not expanded> $' |
779 ^ '$Changeset: <not expanded> $' |