--- a/NewLauncher.st Wed Feb 11 18:37:10 2015 +0100
+++ b/NewLauncher.st Thu Feb 12 15:54:22 2015 +0100
@@ -3809,31 +3809,33 @@
[
|item m|
- item := hierarchicalListView selectionValue first.
- m := Menu new.
- m addItem:(MenuItem
- label: (resources string:'Open File Browser on Project''s Folder')
- itemValue: [
- |package dir|
-
- package := packageIdByItem at:item ifAbsent:nil.
- package notNil ifTrue:[
- dir := Smalltalk packageDirectoryForPackageId:package.
- dir notNil ifTrue:[
- UserPreferences current fileBrowserClass openOn:dir.
- ]
- ].
- ]).
-
- item type == #monticelloPackage ifTrue:[
+ hierarchicalListView selectionValue notEmptyOrNil ifTrue:[
+ item := hierarchicalListView selectionValue first.
+ m := Menu new.
m addItem:(MenuItem
- label: (resources string:'Browse Monticello Package')
+ label: (resources string:'Open File Browser on Project''s Folder')
itemValue: [
- |repos|
-
- repos := item parent info.
- MCRepositoryBrowser openOnRepository:repos forPackage:item label.
+ |package dir|
+
+ package := packageIdByItem at:item ifAbsent:nil.
+ package notNil ifTrue:[
+ dir := Smalltalk packageDirectoryForPackageId:package.
+ dir notNil ifTrue:[
+ UserPreferences current fileBrowserClass openOn:dir.
+ ]
+ ].
]).
+
+ item type == #monticelloPackage ifTrue:[
+ m addItem:(MenuItem
+ label: (resources string:'Browse Monticello Package')
+ itemValue: [
+ |repos|
+
+ repos := item parent info.
+ MCRepositoryBrowser openOnRepository:repos forPackage:item label.
+ ]).
+ ].
].
m
].
@@ -5676,14 +5678,14 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.529 2015-02-10 18:46:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.530 2015-02-12 14:54:22 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.529 2015-02-10 18:46:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.530 2015-02-12 14:54:22 cg Exp $'
!
version_SVN
- ^ '$Id: NewLauncher.st,v 1.529 2015-02-10 18:46:10 cg Exp $'
+ ^ '$Id: NewLauncher.st,v 1.530 2015-02-12 14:54:22 cg Exp $'
! !