--- a/AbstractLauncherApplication.st Tue Oct 27 06:40:43 2015 +0100
+++ b/AbstractLauncherApplication.st Thu Oct 29 06:54:24 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1997 by eXept Software AG
All Rights Reserved
@@ -1305,17 +1307,21 @@
"open an HTML browser on the 'LICENCE' document"
self withWaitCursorDo:[
- |lang doc|
-
- Smalltalk releaseIdentification = 'ST/X_free_demo_vsn' ifTrue:[
- doc := 'english/LICENCE_DEMO_STX.html'
+ |rel lang doc doc_De doc_En|
+
+ rel := Smalltalk releaseIdentification.
+ ((rel = 'ST/X_free_vsn') or:[rel = 'ST/X_demo_free_vsn']) ifTrue:[
+ doc_En := 'english/LICENCE_FREE_STX.html'.
+ doc_De := 'german/LICENCE_FREE_STX.html'.
] ifFalse:[
- ((lang := UserPreferences current language) = 'de'
- or:[lang = 'german']) ifTrue:[
- doc := 'german/LICENCE_STX.html'
- ] ifFalse:[
- doc := 'english/LICENCE_STX.html'
- ].
+ doc_En := 'english/LICENCE_STX.html'.
+ doc_De := 'german/LICENCE_STX.html'.
+ ].
+ ((lang := UserPreferences current language) = 'de'
+ or:[lang = 'german']) ifTrue:[
+ doc := doc_De
+ ] ifFalse:[
+ doc := doc_En
].
doc := resources at:'LICENCEFILE' default:doc.
self showDocumentation:('../' , doc)