AbstractLauncherApplication.st
branchjv
changeset 15927 b134b5ad8d68
parent 15769 b62e96d5d327
parent 15925 2261f4a02519
child 15949 9c20ced90e66
--- 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)