--- a/UserPreferences.st Tue Mar 13 15:46:50 2012 +0000
+++ b/UserPreferences.st Wed Mar 21 17:45:38 2012 +0000
@@ -90,7 +90,7 @@
"/ I prefer redish background
"/ #sideEffectAssignmentColor (Color 75 0 0)
- #sideEffectAssignmentBackgroundColor (Color 100 86 86)
+ "/ #sideEffectAssignmentBackgroundColor (Color 100 86 86)
"/ #jsKeywordColor (Color black)
#jsKeywordEmphasis bold
@@ -111,7 +111,7 @@
self initializeDefaultPreferences
"
- "Modified: / 14-02-2012 / 09:55:01 / cg"
+ "Modified: / 16-03-2012 / 10:35:42 / cg"
! !
!UserPreferences class methodsFor:'accessing'!
@@ -662,9 +662,6 @@
"Modified: / 22-02-2012 / 13:22:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
-
-
!UserPreferences methodsFor:'accessing-misc-communication'!
dotNetBridgeRunsInIDE
@@ -1337,6 +1334,10 @@
"Created: / 29-11-2010 / 19:47:36 / cg"
!
+
+
+
+
expandSelectionOnMouseMoveWithButtonPressed
"expand the selection in a selectionInListView if the mouse is pressed while moving over
more lines. Default is not FALSE !!"
@@ -3105,7 +3106,6 @@
"
! !
-
!UserPreferences methodsFor:'accessing-prefs-editor'!
deleteSetsClipboardText
@@ -3208,6 +3208,33 @@
"Created: / 09-10-2006 / 11:00:56 / cg"
!
+selectAllWhenClickingBeyondEnd
+ "select mode, when clicking after the end of text,
+ as in st80 (or squeak), select all"
+
+ ^ self at:#selectAllWhenClickingBeyondEnd ifAbsent:false
+
+ "
+ UserPreferences current selectAllWhenClickingBeyondEnd
+ "
+
+ "Created: / 07-03-2012 / 14:00:17 / cg"
+!
+
+selectAllWhenClickingBeyondEnd:aBoolean
+ "select mode, when clicking after the end of text,
+ as in st80 (or squeak), select all"
+
+ ^ self at:#selectAllWhenClickingBeyondEnd put:aBoolean
+
+ "
+ UserPreferences current selectAllWhenClickingBeyondEnd:true
+ UserPreferences current selectAllWhenClickingBeyondEnd:false
+ "
+
+ "Created: / 07-03-2012 / 14:00:23 / cg"
+!
+
st80EditMode
"editing as in st80 (do not allow cursor beyond endOfLine/endOftext)."
@@ -3660,8 +3687,6 @@
"Created: / 19-08-2011 / 12:51:58 / cg"
! !
-
-
!UserPreferences methodsFor:'default settings-syntax colors'!
listOfPredefinedSyntaxColoringSchemes
@@ -3669,21 +3694,22 @@
(as shown in the Launchers 'source and debugger settings' dialog."
^ #(
- (#resetSyntaxColorsWithSideEffectHighlighting 'default')
- (#resetSyntaxColors 'default without side effect highlighting')
- (#resetSyntaxColorsToVCStyle 'green comments; blue controlFlow, red constants [visual-c style]')
+ (#resetSyntaxColors 'default [ST/X style]')
+ (#resetSyntaxColorsWithSideEffectHighlighting 'default with side effect highlighting [new ST/X style]')
+ (#resetSyntaxColorsToVCStyle 'green comments; blue controlFlow, red constants [VISUAL-C style]')
(#resetSyntaxColorsBlueControlFlowSelectors 'blue controlFlow')
(#resetSyntaxColorsGreenComments 'green comments')
(#resetSyntaxColorsGreenCommentsBlueControlFlowSelectors 'green comments; blue controlFlow')
- (#resetSyntaxColorsBlueSelectorsGreenComments 'blue selectors; green comments [dolphin style]')
+ (#resetSyntaxColorsBlueSelectorsGreenComments 'blue selectors; green comments [DOLPHIN style]')
(#resetSyntaxColorsBlueSelectorsGreyComments 'blue selectors; grey comments')
- (#resetSyntaxColorsToSqueakStyle1 'blue selectors; green comments [squeak style]')
- (#resetSyntaxColorsToSqueakStyle2 'blue selectors; green comments; brown self [new squeak style]')
+ (#resetSyntaxColorsToSqueakStyle1 'blue selectors; green comments [SQUEAK style]')
+ (#resetSyntaxColorsToSqueakStyle2 'blue selectors; green comments; brown self [new SQUEAK style]')
(#resetSyntaxColorsAllBlackExceptBadIDs 'no colors, but highlight errors')
- (#resetSyntaxColorsToVW7Style 'light blue comments [vw7 style]')
+ (#resetSyntaxColorsToVAgeStyle 'blue globals; green comments [V''Age style]')
+ (#resetSyntaxColorsToVW7Style 'light blue comments [VW7 style]')
)
- "Modified: / 13-02-2012 / 12:59:16 / cg"
+ "Modified: / 17-03-2012 / 10:40:18 / cg"
!
resetSyntaxColors
@@ -3698,20 +3724,22 @@
"resets the colors in the CurrentPreferences to no-color mode,
except for bad identifiers, which are underwaved."
- self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+ self resetSyntaxColors.
self at:#badIdentifierEmphasis put:(Array with:#underwave with:(#underlineColor->Color red)).
self at:#errorColor put:Color black.
self at:#commentColor put:Color black.
self at:#constantColor put:Color black.
self at:#methodSelectorEmphasis put:#normal.
self at:#selectorEmphasis put:#normal.
+
+ "Modified: / 16-03-2012 / 10:35:02 / cg"
!
resetSyntaxColorsBlueControlFlowSelectors
"resets the colors in the CurrentPreferences to alternative default values
(with blue control flow selectors)"
- self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+ self resetSyntaxColors.
self at:#controlFlowSelectorColor put:(Color blue).
"Created: / 08-09-2006 / 16:11:52 / cg"
@@ -3721,13 +3749,15 @@
"resets the colors in the CurrentPreferences to alternative default values
(with blue selectors and green comments)"
- self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+ self resetSyntaxColors.
self at:#commentColor put:(Color green darkened).
self at:#commentEmphasis put:#italic.
self at:#selectorColor put:(Color blue).
self at:#selectorEmphasis put:#normal.
self at:#methodSelectorColor put:(Color blue).
self at:#methodSelectorEmphasis put:#bold.
+
+ "Modified: / 16-03-2012 / 10:34:55 / cg"
!
resetSyntaxColorsBlueSelectorsGreyComments
@@ -3742,16 +3772,17 @@
"resets the colors in the CurrentPreferences to alternative default values
(with green comments)"
- self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+ self resetSyntaxColors.
self at:#commentColor put:(Color green darkened).
+ "Modified: / 16-03-2012 / 10:34:50 / cg"
!
resetSyntaxColorsGreenCommentsBlueControlFlowSelectors
"resets the colors in the CurrentPreferences to alternative default values
(with green comments, blue control flow)"
- self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+ self resetSyntaxColors.
self at:#commentColor put:(Color green darkened).
self at:#controlFlowSelectorColor put:(Color blue).
@@ -3759,17 +3790,18 @@
!
resetSyntaxColorsToSqueakStyle
- "resets the colors in the CurrentPreferences to alternative default values
- (with blue selectors and green comments)"
+ "resets the colors in the CurrentPreferences to alternative default values"
self resetSyntaxColorsToSqueakStyle2
+
+ "Modified (comment): / 17-03-2012 / 10:38:07 / cg"
!
resetSyntaxColorsToSqueakStyle1
"resets the colors in the CurrentPreferences to alternative default values
(with blue selectors and green comments)"
- self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+ self resetSyntaxColors.
self at:#commentColor put:(Color green darkened).
self at:#commentEmphasis put:#italic.
self at:#selectorColor put:(Color blue:80).
@@ -3780,13 +3812,16 @@
self at:#localIdentifierColor put:(Color grey:40).
self at:#instVarIdentifierEmphasis put:#bold.
self at:#constantColor put:(Color red:67).
+
+ "Modified: / 16-03-2012 / 10:34:40 / cg"
+ "Modified (comment): / 17-03-2012 / 10:38:47 / cg"
!
resetSyntaxColorsToSqueakStyle2
"resets the colors in the CurrentPreferences to alternative default values
(with blue selectors and green comments)"
- self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+ self resetSyntaxColors.
self at:#commentColor put:(Color green darkened).
self at:#commentEmphasis put:#italic.
self at:#selectorColor put:(Color blue:80).
@@ -3802,23 +3837,49 @@
self at:#selfEmphasis put:#bold.
self at:#localIdentifierColor put:(Color grey:50 ).
self at:#localIdentifierEmphasis put:#normal.
+
+ "Modified: / 16-03-2012 / 10:34:35 / cg"
+ "Modified (comment): / 17-03-2012 / 10:38:57 / cg"
+!
+
+resetSyntaxColorsToVAgeStyle
+ "resets the colors in the CurrentPreferences to alternative default values
+ (green comments, blue globals)"
+
+ self resetSyntaxColors.
+ self at:#identifierColor put:(Color rgbValue:16r00007F).
+ self at:#argumentColor put:(Color rgbValue:16r00007F).
+ self at:#identifierEmphasis put:#normal.
+ self at:#commentColor put:(Color rgbValue:16r007F00).
+ self at:#selfColor put:(Color rgbValue:16r7F007F).
+ self at:#constantColor put:(Color rgbValue:16r7F0000).
+ self at:#selectorColor put:(Color black).
+ self at:#selectorEmphasis put:#bold.
+ self at:#globalIdentifierColor put:(Color blue).
+ self at:#methodSelectorColor put:(Color black).
+ self at:#methodSelectorEmphasis put:#bold.
+
+ "Created: / 17-03-2012 / 10:37:42 / cg"
!
resetSyntaxColorsToVCStyle
"resets the colors in the CurrentPreferences to visual C default style
(green comments, blue keywords, redish string constants)"
- self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+ self resetSyntaxColors.
self at:#controlFlowSelectorColor put:(Color blue).
self at:#commentColor put:(Color green darkened).
self at:#constantColor put:(Color red:64 green:8 blue:8).
+
+ "Modified: / 16-03-2012 / 10:34:30 / cg"
+ "Modified (comment): / 17-03-2012 / 10:39:11 / cg"
!
resetSyntaxColorsToVW7Style
"resets the colors in the CurrentPreferences to alternative default values
(with light blue comments, green variables)"
- self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+ self resetSyntaxColors.
self at:#commentColor put:(Color blue lightened).
self at:#selectorColor put:(Color black).
self at:#selectorEmphasis put:#normal.
@@ -3826,13 +3887,16 @@
self at:#methodSelectorEmphasis put:#bold.
self at:#identifierEmphasis put:#normal.
self at:#identifierColor put:(Color green darkened).
+
+ "Modified: / 16-03-2012 / 10:34:26 / cg"
+ "Modified (comment): / 17-03-2012 / 10:39:18 / cg"
!
resetSyntaxColorsWithSideEffectHighlighting
"resets the colors in the CurrentPreferences to their default values
- plus side effect highlighting"
-
- self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+ plus side effect highlighting (assignments to instvars and globals are marked)"
+
+ self resetSyntaxColors.
self at:#sideEffectAssignmentBackgroundColor put:(Color rgbValue:16rFFDBDB).
"Created: / 13-02-2012 / 12:12:56 / cg"
@@ -3893,13 +3957,13 @@
!UserPreferences class methodsFor:'documentation'!
version
- ^ '$Id: UserPreferences.st 10782 2012-02-22 13:25:29Z vranyj1 $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.306 2012/03/17 10:18:59 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.302 2012/02/14 15:09:53 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.306 2012/03/17 10:18:59 cg Exp §'
!
version_SVN
- ^ '$Id: UserPreferences.st 10782 2012-02-22 13:25:29Z vranyj1 $'
+ ^ '$ Id: UserPreferences.st 10648 2011-06-23 15:55:10Z vranyj1 $'
! !