equal
deleted
inserted
replaced
403 box := ListSelectionBox title:(resources string:'default nameSpace:') withCRs. |
403 box := ListSelectionBox title:(resources string:'default nameSpace:') withCRs. |
404 box list:(allNameSpaces asOrderedCollection sort). |
404 box list:(allNameSpaces asOrderedCollection sort). |
405 box action:[:nsName | |
405 box action:[:nsName | |
406 |ns| |
406 |ns| |
407 |
407 |
408 ns := Namespace name:nsName. |
408 "/ only create topLevel nameSpaces here |
|
409 |
|
410 Class nameSpaceQuerySignal |
|
411 answer:Smalltalk |
|
412 do:[ |
|
413 ns := Namespace name:nsName. |
|
414 ]. |
409 myProject defaultNameSpace:ns |
415 myProject defaultNameSpace:ns |
410 ]. |
416 ]. |
411 box showAtPointer |
417 box showAtPointer |
412 ] |
418 ] |
413 |
419 |
414 "Created: 9.12.1995 / 16:50:45 / cg" |
420 "Created: 9.12.1995 / 16:50:45 / cg" |
415 "Modified: 14.2.1997 / 13:43:52 / cg" |
421 "Modified: 16.1.1997 / 01:00:06 / cg" |
416 ! |
422 ! |
417 |
423 |
418 projectPackage |
424 projectPackage |
419 "ask for the package identifier of this project. |
425 "ask for the package identifier of this project. |
420 New classes and methods get this identifier, to find them |
426 New classes and methods get this identifier, to find them |
717 ! ! |
723 ! ! |
718 |
724 |
719 !ProjectView class methodsFor:'documentation'! |
725 !ProjectView class methodsFor:'documentation'! |
720 |
726 |
721 version |
727 version |
722 ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.35 1997-01-14 12:46:32 cg Exp $' |
728 ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.36 1997-01-16 10:08:16 cg Exp $' |
723 ! ! |
729 ! ! |