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>
Tue, 05 Sep 2006 18:29:11 +0200
changeset 7086 198ba4acdb9f
parent 7085 19f72b29a012
child 7087 c46a141cfe46
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Tue Sep 05 18:21:58 2006 +0200
+++ b/NewSystemBrowser.st	Tue Sep 05 18:29:11 2006 +0200
@@ -7418,7 +7418,7 @@
             label: '-'
           )
          (MenuItem
-            enabled: hasProjectSelectedHolder
+            enabled: hasSingleProjectSelectedHolder
             label: 'Properties...'
             itemValue: projectMenuProperties
             translateLabel: true
@@ -7447,7 +7447,7 @@
         nil
       )
 
-    "Modified: / 29-08-2006 / 15:36:03 / cg"
+    "Modified: / 05-09-2006 / 16:19:25 / cg"
 !
 
 protocolMenu
@@ -25518,7 +25518,16 @@
 !
 
 projectMenuProperties
-    self information:'Sorry - this functionality is not yet implemented'
+    |project defClass|
+
+    project := self theSingleSelectedProject.
+    project isNil ifTrue:[^ self ].
+    defClass := ProjectDefinition definitionClassForPackage:project.
+
+    (ProjectDefinitionEditor new
+        definitionClass:defClass) open
+
+    "Modified: / 05-09-2006 / 18:24:25 / cg"
 !
 
 projectMenuRemove
@@ -39035,7 +39044,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1026 2006-09-05 09:12:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1027 2006-09-05 16:29:11 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Tue Sep 05 18:21:58 2006 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Sep 05 18:29:11 2006 +0200
@@ -7418,7 +7418,7 @@
             label: '-'
           )
          (MenuItem
-            enabled: hasProjectSelectedHolder
+            enabled: hasSingleProjectSelectedHolder
             label: 'Properties...'
             itemValue: projectMenuProperties
             translateLabel: true
@@ -7447,7 +7447,7 @@
         nil
       )
 
-    "Modified: / 29-08-2006 / 15:36:03 / cg"
+    "Modified: / 05-09-2006 / 16:19:25 / cg"
 !
 
 protocolMenu
@@ -25518,7 +25518,16 @@
 !
 
 projectMenuProperties
-    self information:'Sorry - this functionality is not yet implemented'
+    |project defClass|
+
+    project := self theSingleSelectedProject.
+    project isNil ifTrue:[^ self ].
+    defClass := ProjectDefinition definitionClassForPackage:project.
+
+    (ProjectDefinitionEditor new
+        definitionClass:defClass) open
+
+    "Modified: / 05-09-2006 / 18:24:25 / cg"
 !
 
 projectMenuRemove
@@ -39035,7 +39044,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1026 2006-09-05 09:12:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1027 2006-09-05 16:29:11 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool