equal
deleted
inserted
replaced
24708 |
24708 |
24709 "/ if the class is a namespace, ask if mode should be changed |
24709 "/ if the class is a namespace, ask if mode should be changed |
24710 |
24710 |
24711 (aClass isNameSpace and:[aClass ~~ Smalltalk]) ifTrue:[ |
24711 (aClass isNameSpace and:[aClass ~~ Smalltalk]) ifTrue:[ |
24712 orgMode ~~ #namespace ifTrue:[ |
24712 orgMode ~~ #namespace ifTrue:[ |
24713 (self confirm:'selected class is a namespace - switch view mode ?') ifTrue:[ |
24713 (self confirm:'Browser: class is a namespace - switch organizers display mode ?') ifTrue:[ |
24714 self organizerMode value:#namespace. |
24714 self organizerMode value:#namespace. |
24715 orgMode := self organizerMode value. |
24715 orgMode := self organizerMode value. |
24716 ] |
24716 ] |
24717 ]. |
24717 ]. |
24718 ]. |
24718 ]. |
24732 cat := aClass category. |
24732 cat := aClass category. |
24733 (self selectedCategoriesValue includes:cat) ifFalse:[ |
24733 (self selectedCategoriesValue includes:cat) ifFalse:[ |
24734 self selectedCategories value:(OrderedCollection with:cat). |
24734 self selectedCategories value:(OrderedCollection with:cat). |
24735 ] |
24735 ] |
24736 ] ifFalse:[ orgMode == #namespace ifTrue:[ |
24736 ] ifFalse:[ orgMode == #namespace ifTrue:[ |
24737 nsName := aClass nameSpace name. |
24737 aClass isNameSpace ifTrue:[ |
|
24738 nsName := aClass name. |
|
24739 ] ifFalse:[ |
|
24740 nsName := aClass nameSpace name. |
|
24741 ]. |
24738 (self selectedNamespacesValue includes:nsName) ifFalse:[ |
24742 (self selectedNamespacesValue includes:nsName) ifFalse:[ |
24739 self selectedNamespaces value:(OrderedCollection with:nsName). |
24743 self selectedNamespaces value:(OrderedCollection with:nsName). |
24740 ] |
24744 ] |
24741 ] ifFalse:[ orgMode == #project ifTrue:[ |
24745 ] ifFalse:[ orgMode == #project ifTrue:[ |
24742 pkg := aClass package. |
24746 pkg := aClass package. |
49462 ! ! |
49466 ! ! |
49463 |
49467 |
49464 !NewSystemBrowser class methodsFor:'documentation'! |
49468 !NewSystemBrowser class methodsFor:'documentation'! |
49465 |
49469 |
49466 version |
49470 version |
49467 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.173 2001-09-25 12:02:08 cg Exp $' |
49471 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.174 2001-09-25 12:44:51 cg Exp $' |
49468 ! ! |
49472 ! ! |
49469 NewSystemBrowser initialize! |
49473 NewSystemBrowser initialize! |