--- a/DialogBox.st Sat Oct 18 11:49:17 2008 +0200
+++ b/DialogBox.st Sat Oct 18 11:50:55 2008 +0200
@@ -5300,17 +5300,15 @@
"
!
-requestProject:title initialAnswer:initialTextOrNil suggestions:suggestions
+requestProject:title from:listOfProjects initialAnswer:initialTextOrNil suggestions:suggestions
"Ask for a project (package-id)"
- |allProjects newProject box|
-
- allProjects := Smalltalk allProjectIDs.
+ |newProject box|
box := ListSelectionBox new.
box useComboBoxWithList:suggestions.
box title:title.
- box list:allProjects.
+ box list:listOfProjects.
box okAction:[:sel | newProject := sel].
box initialText:initialTextOrNil.
box entryCompletionBlock:(DoWhatIMeanSupport packageNameEntryCompletionBlock).
@@ -5332,6 +5330,19 @@
"Created: / 07-09-2006 / 11:40:17 / cg"
!
+requestProject:title initialAnswer:initialTextOrNil suggestions:suggestions
+ "Ask for a project (package-id)"
+
+ |allProjects|
+
+ allProjects := Smalltalk allProjectIDs.
+ ^ self
+ requestProject:title
+ from:allProjects
+ initialAnswer:initialTextOrNil
+ suggestions:suggestions
+!
+
requestSelector:aString initialAnswer:initial
"launch a Dialog, which allows user to enter a method selector.
Return the entered string (may be empty string) or nil (if cancel was pressed).
@@ -8734,7 +8745,7 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.274 2008-09-04 09:57:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.275 2008-10-18 09:50:55 cg Exp $'
! !
DialogBox initialize!