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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 21 Aug 2006 12:21:55 +0200
changeset 6924 a1536984be35
parent 6923 ac5a126a3107
child 6925 388067acd009
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Mon Aug 21 12:21:32 2006 +0200
+++ b/NewSystemBrowser.st	Mon Aug 21 12:21:55 2006 +0200
@@ -25624,7 +25624,7 @@
     initial := initial , 'newProject'.
 
     packageIDHolder := ValueHolder with:initial.
-    projectTypeHolder := 'Application' asValue.
+    projectTypeHolder := 'Library' asValue.
 
     box := DialogBox new.
     box label:(resources string:'Create New Project').
@@ -25650,7 +25650,7 @@
     box yPosition:y.
     field := box addComboListOn:projectTypeHolder tabable:true.
     field width:0.7; left:0.3; rightInset:3.
-    field list:#('Application' 'Library').
+    field list:#( 'Library' 'Application' ).
 
     box addVerticalSpace.
     box addAbortButton; addOkButtonLabelled:(resources string:'Create').
@@ -25668,7 +25668,6 @@
             "/ self immediateUpdate value:true.
             self projectListApp addAdditionalProject:newProjectID.
             "/ self immediateUpdate value:false.
-
             self selectProject:newProjectID.
             self selectedClasses value:#().
         ].
@@ -26371,6 +26370,9 @@
         someRecentlyVisitedMethodCategories := someRecentlyVisitedMethodCategories asOrderedCollection sort.
         someMethodCategories addFirst:''.
         someMethodCategories addAllFirst:someRecentlyVisitedMethodCategories.
+        suggestion isNil ifTrue:[
+            suggestion := someRecentlyVisitedMethodCategories first
+        ].
     ].
 
     newProtocol := self 
@@ -38857,7 +38859,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.991 2006-08-20 18:35:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.992 2006-08-21 10:21:55 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Mon Aug 21 12:21:32 2006 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Aug 21 12:21:55 2006 +0200
@@ -25624,7 +25624,7 @@
     initial := initial , 'newProject'.
 
     packageIDHolder := ValueHolder with:initial.
-    projectTypeHolder := 'Application' asValue.
+    projectTypeHolder := 'Library' asValue.
 
     box := DialogBox new.
     box label:(resources string:'Create New Project').
@@ -25650,7 +25650,7 @@
     box yPosition:y.
     field := box addComboListOn:projectTypeHolder tabable:true.
     field width:0.7; left:0.3; rightInset:3.
-    field list:#('Application' 'Library').
+    field list:#( 'Library' 'Application' ).
 
     box addVerticalSpace.
     box addAbortButton; addOkButtonLabelled:(resources string:'Create').
@@ -25668,7 +25668,6 @@
             "/ self immediateUpdate value:true.
             self projectListApp addAdditionalProject:newProjectID.
             "/ self immediateUpdate value:false.
-
             self selectProject:newProjectID.
             self selectedClasses value:#().
         ].
@@ -26371,6 +26370,9 @@
         someRecentlyVisitedMethodCategories := someRecentlyVisitedMethodCategories asOrderedCollection sort.
         someMethodCategories addFirst:''.
         someMethodCategories addAllFirst:someRecentlyVisitedMethodCategories.
+        suggestion isNil ifTrue:[
+            suggestion := someRecentlyVisitedMethodCategories first
+        ].
     ].
 
     newProtocol := self 
@@ -38857,7 +38859,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.991 2006-08-20 18:35:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.992 2006-08-21 10:21:55 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool