--- a/Tools_NavigatorModel.st Sat Dec 07 16:02:10 2013 +0100
+++ b/Tools_NavigatorModel.st Sat Dec 07 16:02:33 2013 +0100
@@ -383,7 +383,7 @@
topApp := self topApplication.
(topApp notNil and:[topApp ~~ self]) ifTrue:[
"Fetch the environment from the top application, fallback to previous environment"
- self environment: (topApp perform:#environment ifNotUnderstood:[environment])
+ self environment: (topApp perform:#environment ifNotUnderstood:[environment]) ? environment ? Smalltalk
]
"Created: / 03-09-2013 / 16:25:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -425,11 +425,11 @@
!NavigatorModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.24 2013-09-05 10:46:11 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.25 2013-12-07 15:02:33 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.24 2013-09-05 10:46:11 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.25 2013-12-07 15:02:33 cg Exp $'
!
version_HG
@@ -438,7 +438,7 @@
!
version_SVN
- ^ '§Id: Tools__NavigatorModel.st 7802 2011-07-05 18:33:36Z vranyj1 §'
+ ^ '$Id: Tools_NavigatorModel.st,v 1.25 2013-12-07 15:02:33 cg Exp $'
! !