--- a/NewSystemBrowser.st Thu Aug 17 09:48:50 2006 +0200
+++ b/NewSystemBrowser.st Thu Aug 17 09:49:04 2006 +0200
@@ -6164,6 +6164,13 @@
showBusyCursorWhilePerforming: true
)
(MenuItem
+ enabled: hasProjectDefinitionWithAnyUnloadedClassSelectedHolder
+ label: 'Load All'
+ itemValue: classMenuLoadAll
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
enabled: hasClassSelectedHolder
label: 'Unload'
itemValue: classMenuUnload
@@ -6246,7 +6253,7 @@
nil
)
- "Modified: / 27-07-2006 / 09:46:00 / cg"
+ "Modified: / 17-08-2006 / 00:46:31 / cg"
!
codeMenu
@@ -12643,6 +12650,27 @@
"Created: / 10-08-2006 / 16:26:17 / cg"
!
+hasProjectDefinitionWithAnyUnloadedClassSelected
+ |selected|
+
+ self selectedClasses value do:[:cls |
+ cls isLoaded ifFalse:[^ true].
+ cls isProjectDefinition ifTrue:[
+ cls hasAllExtensionsLoaded ifFalse:[^ true].
+ cls hasAllClassesLoaded ifFalse:[^ true].
+ ].
+ ].
+ ^ true
+
+ "Created: / 17-08-2006 / 00:49:24 / cg"
+!
+
+hasProjectDefinitionWithAnyUnloadedClassSelectedHolder
+ ^ [ self hasProjectDefinitionWithAnyUnloadedClassSelected ]
+
+ "Created: / 17-08-2006 / 00:46:45 / cg"
+!
+
hasProjectSelected
^ self selectedProjects value size > 0
@@ -18361,6 +18389,17 @@
!
+classMenuLoadAll
+ "load all classes from the selected project definitions"
+
+ (self selectedClasses value copy) do:[:cls |
+ cls autoload.
+ cls theNonMetaclass isProjectDefinition ifTrue:[ cls theNonMetaclass load ].
+ ].
+
+ "Modified: / 17-08-2006 / 01:07:13 / cg"
+!
+
classMenuMakePrivateIn
"make the selected class(es) private in another class."
@@ -33251,7 +33290,7 @@
|packageLabel loadInfo|
aClass notNil ifTrue:[
- packageLabel := 'Package: ' , (aClass package ? '?').
+ packageLabel := 'Base: ' , (aClass package ? '?').
aClass isLoaded ifTrue:[
loadInfo := ' [' , (aClass theNonMetaclass revision printString) , ']'.
@@ -33264,6 +33303,8 @@
packageLabel := packageLabel , loadInfo
].
navigationState packageLabelHolder value:packageLabel.
+
+ "Modified: / 17-08-2006 / 00:44:00 / cg"
!
updatePackageInfoForMethod:aMethod
@@ -33280,17 +33321,19 @@
(mpkg := aMethod package) ~= mClass package
ifTrue:[
mpkg = Project defaultProject package ifTrue:[
- info := 'Unassigned/Extension (' , mpkg , ')'
- ] ifFalse:[
- info := 'Extension in: ''' , mpkg , ''''
+ info := 'Unassigned (' , mpkg , ')'
+ ] ifFalse:[
+ info := 'Extension: ''' , mpkg , ''''
].
navigationState packageLabelHolder value:info
] ifFalse:[
- info := 'In BasePackage: ''' , mpkg.
+ info := 'Base: ''' , mpkg.
info := info , ''' [' , (aMethod mclass theNonMetaclass revision printString) , ']'.
].
].
navigationState packageLabelHolder value:info
+
+ "Modified: / 17-08-2006 / 00:43:39 / cg"
! !
!NewSystemBrowser methodsFor:'private-dialogs'!
@@ -38733,7 +38776,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.985 2006-08-16 16:40:05 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.986 2006-08-17 07:49:04 cg Exp $'
! !
NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st Thu Aug 17 09:48:50 2006 +0200
+++ b/Tools__NewSystemBrowser.st Thu Aug 17 09:49:04 2006 +0200
@@ -6164,6 +6164,13 @@
showBusyCursorWhilePerforming: true
)
(MenuItem
+ enabled: hasProjectDefinitionWithAnyUnloadedClassSelectedHolder
+ label: 'Load All'
+ itemValue: classMenuLoadAll
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
enabled: hasClassSelectedHolder
label: 'Unload'
itemValue: classMenuUnload
@@ -6246,7 +6253,7 @@
nil
)
- "Modified: / 27-07-2006 / 09:46:00 / cg"
+ "Modified: / 17-08-2006 / 00:46:31 / cg"
!
codeMenu
@@ -12643,6 +12650,27 @@
"Created: / 10-08-2006 / 16:26:17 / cg"
!
+hasProjectDefinitionWithAnyUnloadedClassSelected
+ |selected|
+
+ self selectedClasses value do:[:cls |
+ cls isLoaded ifFalse:[^ true].
+ cls isProjectDefinition ifTrue:[
+ cls hasAllExtensionsLoaded ifFalse:[^ true].
+ cls hasAllClassesLoaded ifFalse:[^ true].
+ ].
+ ].
+ ^ true
+
+ "Created: / 17-08-2006 / 00:49:24 / cg"
+!
+
+hasProjectDefinitionWithAnyUnloadedClassSelectedHolder
+ ^ [ self hasProjectDefinitionWithAnyUnloadedClassSelected ]
+
+ "Created: / 17-08-2006 / 00:46:45 / cg"
+!
+
hasProjectSelected
^ self selectedProjects value size > 0
@@ -18361,6 +18389,17 @@
!
+classMenuLoadAll
+ "load all classes from the selected project definitions"
+
+ (self selectedClasses value copy) do:[:cls |
+ cls autoload.
+ cls theNonMetaclass isProjectDefinition ifTrue:[ cls theNonMetaclass load ].
+ ].
+
+ "Modified: / 17-08-2006 / 01:07:13 / cg"
+!
+
classMenuMakePrivateIn
"make the selected class(es) private in another class."
@@ -33251,7 +33290,7 @@
|packageLabel loadInfo|
aClass notNil ifTrue:[
- packageLabel := 'Package: ' , (aClass package ? '?').
+ packageLabel := 'Base: ' , (aClass package ? '?').
aClass isLoaded ifTrue:[
loadInfo := ' [' , (aClass theNonMetaclass revision printString) , ']'.
@@ -33264,6 +33303,8 @@
packageLabel := packageLabel , loadInfo
].
navigationState packageLabelHolder value:packageLabel.
+
+ "Modified: / 17-08-2006 / 00:44:00 / cg"
!
updatePackageInfoForMethod:aMethod
@@ -33280,17 +33321,19 @@
(mpkg := aMethod package) ~= mClass package
ifTrue:[
mpkg = Project defaultProject package ifTrue:[
- info := 'Unassigned/Extension (' , mpkg , ')'
- ] ifFalse:[
- info := 'Extension in: ''' , mpkg , ''''
+ info := 'Unassigned (' , mpkg , ')'
+ ] ifFalse:[
+ info := 'Extension: ''' , mpkg , ''''
].
navigationState packageLabelHolder value:info
] ifFalse:[
- info := 'In BasePackage: ''' , mpkg.
+ info := 'Base: ''' , mpkg.
info := info , ''' [' , (aMethod mclass theNonMetaclass revision printString) , ']'.
].
].
navigationState packageLabelHolder value:info
+
+ "Modified: / 17-08-2006 / 00:43:39 / cg"
! !
!NewSystemBrowser methodsFor:'private-dialogs'!
@@ -38733,7 +38776,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.985 2006-08-16 16:40:05 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.986 2006-08-17 07:49:04 cg Exp $'
! !
NewSystemBrowser initialize!