#FEATURE by exept
authorClaus Gittinger <cg@exept.de>
Mon, 10 Aug 2020 17:07:52 +0200
changeset 4715 84c2d6467ff1
parent 4714 a99041716273
child 4716 4b419603d157
#FEATURE by exept class: Scanner changed: #invalidCharacter:
Scanner.st
--- a/Scanner.st	Sun Aug 09 18:06:24 2020 +0200
+++ b/Scanner.st	Mon Aug 10 17:07:52 2020 +0200
@@ -1560,7 +1560,23 @@
 
     Notice:
       Only 7-bit ascii allowed (for compatibility with other Smalltalk dialects).
-      You can enable some of the special characters via the compiler-settings dialog
+      You can enable some of the special characters via the ',
+      ('compiler-settings dialog' 
+        asActionLinkTo:[
+             |list|
+
+             list := #(          
+                        #('Tools/Compiler'                      #'AbstractSettingsApplication::GeneralCompilerSettingsAppl'     )
+                        #('Tools/Compiler/ByteCode'             #'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl'    )
+                        #('Tools/Compiler/STC'                  #'AbstractSettingsApplication::STCCompilerSettingsAppl'         )
+                    ).
+             SettingsDialog
+                openWithList:list
+                label:(i'Compiler Settings')
+                initialSettingsClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl 
+        ] 
+        info:'Click to open settings'
+      ),'
       or by setting "allowNationalCharactersInIdentifier" / "allowGreekCharactersInIdentifier"
       in the ParserFlags.'.
         ].