Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 09 Aug 2006 14:25:24 +0200
changeset 6860 9992480933a9
parent 6859 bd9435c1dfc1
child 6861 06f6210c8122
*** empty log message ***
AbstractSettingsApplication.st file | annotate | diff | comparison | revisions 
--- a/AbstractSettingsApplication.st	Wed Aug 09 14:17:00 2006 +0200
+++ b/AbstractSettingsApplication.st	Wed Aug 09 14:25:24 2006 +0200
@@ -24,14 +24,15 @@
 	instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
 		warnUnderscore warnCompatibility warnUnusedVars
 		warnAboutWrongVariableNames warnAboutBadComments
-		warnInconsistentReturnValues warnAboutLowercaseLocalVariableNames
-		allowQualifiedNames allowDollar allowReservedWordsAsSelectors
-		allowOldStyleAssignment allowUnderscore allowDolphinExtensions
-		allowSqueakExtensions allowVisualAgeESSymbolLiterals
-		allowSTVPrimitives allowSTVExtensions allowFixedPointLiterals
-		justInTimeCompilation canLoadBinaries constantFoldingSelection
-		keepSource constantFolding constantFoldingOptions
-		fullDebugSupport immutableArrays enableUnderscore enableDollar'
+		warnInconsistentReturnValues
+		warnAboutNonLowercaseLocalVariableNames allowQualifiedNames
+		allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment
+		allowUnderscore allowDolphinExtensions allowSqueakExtensions
+		allowVisualAgeESSymbolLiterals allowSTVPrimitives
+		allowSTVExtensions allowFixedPointLiterals justInTimeCompilation
+		canLoadBinaries constantFoldingSelection keepSource
+		constantFolding constantFoldingOptions fullDebugSupport
+		immutableArrays enableUnderscore enableDollar'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -59,7 +60,7 @@
 AbstractSettingsApplication subclass:#EditSettingsAppl
 	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
 		searchDialogIsModal startTextDragWithControl
-		extendedWordSelectMode'
+		extendedWordSelectMode deleteSetsClipboardText'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -879,7 +880,7 @@
                                 extent: (Point 600 22)
                               )
                              (CheckBoxSpec
-                                label: 'Bad (Lowercase) Local Variable Names'
+                                label: 'Bad (Uppercase) Local Variable Names'
                                 name: 'BadLocalVariableNames'
                                 enableChannel: warnings
                                 model: warnAboutLowercaseLocalVariableNames
@@ -997,7 +998,7 @@
                 warnAboutWrongVariableNames
                 warnAboutBadComments
                 warnInconsistentReturnValues
-                warnAboutLowercaseLocalVariableNames
+                warnAboutNonLowercaseLocalVariableNames
             )
         from:ParserFlags.
 
@@ -1030,7 +1031,7 @@
                 warnAboutWrongVariableNames
                 warnAboutBadComments
                 warnInconsistentReturnValues
-                warnAboutLowercaseLocalVariableNames
+                warnAboutNonLowercaseLocalVariableNames
                 allowUnderscoreInIdentifier
                 allowDollarInIdentifier
                 allowSqueakExtensions
@@ -1263,12 +1264,12 @@
     ^ warnAboutBadComments.
 !
 
-warnAboutLowercaseLocalVariableNames
-    warnAboutLowercaseLocalVariableNames isNil ifTrue:[
-        warnAboutLowercaseLocalVariableNames := ParserFlags warnAboutLowercaseLocalVariableNames asValue.
-        warnAboutLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
-    ].
-    ^ warnAboutLowercaseLocalVariableNames.
+warnAboutNonLowercaseLocalVariableNames
+    warnAboutNonLowercaseLocalVariableNames isNil ifTrue:[
+        warnAboutNonLowercaseLocalVariableNames := ParserFlags warnAboutNonLowercaseLocalVariableNames asValue.
+        warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
+    ].
+    ^ warnAboutNonLowercaseLocalVariableNames.
 !
 
 warnAboutWrongVariableNames
@@ -1394,7 +1395,7 @@
                 warnAboutWrongVariableNames
                 warnAboutBadComments
                 warnInconsistentReturnValues
-                warnAboutLowercaseLocalVariableNames
+                warnAboutNonLowercaseLocalVariableNames
                 warnSTXSpecials
                 warnOldStyleAssignment
                 warnUnderscoreInIdentifier
@@ -2277,6 +2278,13 @@
                     translateLabel: true
                     extent: (Point 600 23)
                   )
+                 (CheckBoxSpec
+                    label: 'Delete-Key sets Clipboard'
+                    name: 'DeleteSetsClipboardTextCheckBox'
+                    model: deleteSetsClipboardText
+                    translateLabel: true
+                    extent: (Point 600 23)
+                  )
                  )
                
               )
@@ -2285,8 +2293,6 @@
          
         )
       )
-
-    "Modified: / 03-07-2006 / 16:55:11 / cg"
 ! !
 
 !AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
@@ -2300,6 +2306,7 @@
                 st80EditMode
                 st80SelectMode
                 extendedWordSelectMode
+                deleteSetsClipboardText
             )
         from:currentUserPrefs.
 
@@ -2317,6 +2324,7 @@
                 st80EditMode
                 st80SelectMode
                 extendedWordSelectMode
+                deleteSetsClipboardText
             )
         to:currentUserPrefs.
 
@@ -2336,6 +2344,17 @@
 
 !AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
 
+deleteSetsClipboardText
+
+    deleteSetsClipboardText isNil ifTrue:[
+        deleteSetsClipboardText := false asValue.
+        deleteSetsClipboardText onChangeSend:#updateModifiedChannel to:self.
+    ].
+    ^ deleteSetsClipboardText.
+
+    "Created: / 03-07-2006 / 16:52:06 / cg"
+!
+
 extendedWordSelectMode
 
     extendedWordSelectMode isNil ifTrue:[
@@ -2411,6 +2430,7 @@
                 st80EditMode
                 st80SelectMode
                 extendedWordSelectMode
+                deleteSetsClipboardText
             )
         asComparedTo:currentUserPrefs) ifTrue:[^ true].
 
@@ -12238,5 +12258,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.234 2006-08-07 13:26:10 fm Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.235 2006-08-09 12:25:24 cg Exp $'
+! !
hg/stx-libtool