Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improved #moveMethodToProject - dialog
authorClaus Gittinger <cg@exept.de>
Tue, 19 Nov 2002 12:48:13 +0100
changeset 4285 be34a71fc8f2
parent 4284 1fd90359b703
child 4286 ca4a4c435bf3
improved #moveMethodToProject - dialog
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Tue Nov 19 12:25:18 2002 +0100
+++ b/NewSystemBrowser.st	Tue Nov 19 12:48:13 2002 +0100
@@ -29585,16 +29585,24 @@
     "helper for move-class-to-project and move-method-to-ptoject;
      Ask for the new project (package-id)"
 
-    |allProjects newProject box|
+    |allProjects newProject box classesProjects|
 
     allProjects := self class allProjectsIDs.
+    classesProjects := self selectedClasses value
+                        collectAll:[:cls | 
+                            (cls methodDictionary values 
+                                collect:[:m | m package ]) asSet ].
+    classesProjects remove:(Project defaultProject package).
+    classesProjects := classesProjects asOrderedCollection sort.
 
     box := ListSelectionBox new.
+    box useComboBoxWithList:classesProjects.
     box title:(resources string:title).
     box list:allProjects.
     box okAction:[:sel | newProject := sel].
     box initialText:initialTextOrNil.
     box label:'Project confirmation'.
+
     box showAtPointer.
 
     newProject notNil ifTrue:[
@@ -54136,7 +54144,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.485 2002-11-18 20:01:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.486 2002-11-19 11:48:13 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Tue Nov 19 12:25:18 2002 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Nov 19 12:48:13 2002 +0100
@@ -29585,16 +29585,24 @@
     "helper for move-class-to-project and move-method-to-ptoject;
      Ask for the new project (package-id)"
 
-    |allProjects newProject box|
+    |allProjects newProject box classesProjects|
 
     allProjects := self class allProjectsIDs.
+    classesProjects := self selectedClasses value
+                        collectAll:[:cls | 
+                            (cls methodDictionary values 
+                                collect:[:m | m package ]) asSet ].
+    classesProjects remove:(Project defaultProject package).
+    classesProjects := classesProjects asOrderedCollection sort.
 
     box := ListSelectionBox new.
+    box useComboBoxWithList:classesProjects.
     box title:(resources string:title).
     box list:allProjects.
     box okAction:[:sel | newProject := sel].
     box initialText:initialTextOrNil.
     box label:'Project confirmation'.
+
     box showAtPointer.
 
     newProject notNil ifTrue:[
@@ -54136,7 +54144,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.485 2002-11-18 20:01:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.486 2002-11-19 11:48:13 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool