Merge facbfd4

Author: JurajKubelka

src/GToolkit-Coder-UI/GtCreationForm.class.st

@@ -171,10 +171,13 @@ GtCreationForm >> secureCommit [
 { #category : #accessing }
 GtCreationForm >> selectInNavigationModel: aNavigationModel anInstance: anInstance [
 	aNavigationModel selectPackage: anInstance package.
-
-	anInstance tags
-		ifNotEmpty: [ aNavigationModel
-				selectPackageTag: (anInstance package tagNamed: anInstance tags first) ].
+	
+	(anInstance package tags reject: [ :aTag | aTag isRoot])
+		ifNotEmpty: [
+			anInstance packageTag ifNotNil:  [ 
+				aNavigationModel
+					selectPackageTag: (anInstance package 
+						tagNamed: anInstance tags first) ] ].
 
 	aNavigationModel selectClass: anInstance
 ]

src/GToolkit-Coder-UI/GtSourceCoderDoItAndInspectShortcut.class.st

@@ -14,7 +14,7 @@ GtSourceCoderDoItAndInspectShortcut >> initialize [
 	super initialize.
 
 	combination := BlKeyCombination primaryG.
-	name := 'Do it and inspect'.
+	name := 'Evaluate and inspect'.
 ]
 
 { #category : #evaluation }

src/GToolkit-Coder-UI/GtSourceCoderDoItShortcut.class.st

@@ -14,7 +14,7 @@ GtSourceCoderDoItShortcut >> initialize [
 	super initialize.
 
 	combination := BlKeyCombination primaryD.
-	name := 'Do it'.
+	name := 'Evaluate'.
 ]
 
 { #category : #evaluation }