equal
deleted
inserted
replaced
11795 <resource: #programMenu > |
11795 <resource: #programMenu > |
11796 |
11796 |
11797 |items m| |
11797 |items m| |
11798 |
11798 |
11799 items := #( |
11799 items := #( |
11800 ('new namespace' nameSpaceNewNameSpace) |
11800 ('New NameSpace' nameSpaceNewNameSpace) |
11801 ). |
11801 ). |
11802 |
11802 |
11803 "/ showAllNamespaces ifTrue:[ |
11803 "/ showAllNamespaces ifTrue:[ |
11804 "/ items := items , #( ('-') ('show topLevel namespaces only' showTopLevelNamespaces)). |
11804 "/ items := items , #( ('-') ('show topLevel namespaces only' showTopLevelNamespaces)). |
11805 "/ ] ifFalse:[ |
11805 "/ ] ifFalse:[ |
11812 and:[currentNamespace ~= '* all *']]) ifTrue:[ |
11812 and:[currentNamespace ~= '* all *']]) ifTrue:[ |
11813 "/ is it all empty ? |
11813 "/ is it all empty ? |
11814 currentNamespace allClasses isEmpty ifTrue:[ |
11814 currentNamespace allClasses isEmpty ifTrue:[ |
11815 items := items , #( |
11815 items := items , #( |
11816 ('-') |
11816 ('-') |
11817 ('remove' nameSpaceRemove)). |
11817 ('Remove' nameSpaceRemove)). |
11818 ] ifFalse:[ |
11818 ] ifFalse:[ |
11819 items := items , #( |
11819 items := items , #( |
11820 ('-') |
11820 ('-') |
11821 ('remove all classes...' nameSpaceRemoveAllClasses) |
11821 ('Remove all Classes...' nameSpaceRemoveAllClasses) |
11822 ('-') |
11822 ('-') |
11823 ('checkin each...' nameSpaceCheckInEach) |
11823 ('Checkin each...' nameSpaceCheckInEach) |
11824 ). |
11824 ). |
11825 ] |
11825 ] |
11826 ]. |
11826 ]. |
11827 |
11827 |
11828 m := PopUpMenu itemList:items resources:resources performer:self. |
11828 m := PopUpMenu itemList:items resources:resources performer:self. |
14923 ! ! |
14923 ! ! |
14924 |
14924 |
14925 !BrowserView class methodsFor:'documentation'! |
14925 !BrowserView class methodsFor:'documentation'! |
14926 |
14926 |
14927 version |
14927 version |
14928 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.700 2001-12-08 00:45:55 cg Exp $' |
14928 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.701 2001-12-08 14:47:29 cg Exp $' |
14929 ! ! |
14929 ! ! |
14930 BrowserView initialize! |
14930 BrowserView initialize! |