--- a/AbstractSettingsApplication.st	Mon Oct 12 20:23:52 2009 +0200
+++ b/AbstractSettingsApplication.st	Mon Oct 12 20:40:52 2009 +0200
@@ -40,7 +40,8 @@
 		fullDebugSupport immutableArrays enableUnderscore enableDollar
 		allowEmptyStatements warnAboutPossibleSTCCompilationProblems
 		warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
-		warnAboutPossiblyUnimplementedSelectors'
+		warnAboutPossiblyUnimplementedSelectors
+		allowExtendedBinarySelectors'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -1028,7 +1029,7 @@
           label: 'Byte Code Compiler Settings'
           name: 'Byte Code Compiler Settings'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 665 689)
+          bounds: (Rectangle 0 0 665 706)
         )
         component: 
        (SpecCollection
@@ -1061,7 +1062,7 @@
                       collection: (
                        (VerticalPanelViewSpec
                           name: 'VerticalPanel1_1'
-                          layout: (LayoutFrame 0 0 0 0 -20 0.5 -3 1)
+                          layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
                           horizontalLayout: fit
                           verticalLayout: top
                           horizontalSpace: 3
@@ -1104,13 +1105,20 @@
                                 translateLabel: true
                                 extent: (Point 313 22)
                               )
+                             (CheckBoxSpec
+                                label: 'Allow Extended Binary Selectors'
+                                name: 'CheckBox4'
+                                model: allowExtendedBinarySelectors
+                                translateLabel: true
+                                extent: (Point 313 22)
+                              )
                              )
                            
                           )
                         )
                        (VerticalPanelViewSpec
                           name: 'VerticalPanel1_2'
-                          layout: (LayoutFrame 0 0.5 0 0 0 1 -2 1)
+                          layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
                           horizontalLayout: left
                           verticalLayout: top
                           horizontalSpace: 3
@@ -1160,7 +1168,7 @@
                        )
                      
                     )
-                    extent: (Point 665 118)
+                    extent: (Point 665 137)
                   )
                  (DividerSpec
                     name: 'Separator4'
@@ -1180,7 +1188,7 @@
                       collection: (
                        (VerticalPanelViewSpec
                           name: 'VerticalPanel2_1'
-                          layout: (LayoutFrame 20 0 0 0 0 0.5 9 1)
+                          layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
                           horizontalLayout: fit
                           verticalLayout: top
                           horizontalSpace: 3
@@ -1258,7 +1266,7 @@
                         )
                        (VerticalPanelViewSpec
                           name: 'VerticalPanel2_2'
-                          layout: (LayoutFrame -1 0.5 0 0 0 1 -21 1)
+                          layout: (LayoutFrame -1 0.5 0 0 0 1 0 1)
                           horizontalLayout: left
                           verticalLayout: top
                           horizontalSpace: 3
@@ -1468,6 +1476,7 @@
                 allowVisualAgeESSymbolLiterals
                 allowFixedPointLiterals
                 allowEmptyStatements
+                allowExtendedBinarySelectors
 
                 arraysAreImmutable
             )
@@ -1513,6 +1522,15 @@
     "Created: / 20-11-2006 / 22:35:10 / cg"
 !
 
+allowExtendedBinarySelectors
+
+    allowExtendedBinarySelectors isNil ifTrue:[
+        allowExtendedBinarySelectors := (ParserFlags allowExtendedBinarySelectors ? false) asValue.
+        allowExtendedBinarySelectors onChangeSend:#updateModifiedChannel to:self.
+    ].
+    ^ allowExtendedBinarySelectors.
+!
+
 allowFixedPointLiterals
 
     allowFixedPointLiterals isNil ifTrue:[
@@ -15335,9 +15353,9 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.331 2009-10-11 00:03:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.332 2009-10-12 18:40:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.331 2009-10-11 00:03:18 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.332 2009-10-12 18:40:52 cg Exp $'
+! !