The Trunk: ShoutCore-fbs.38.mcz

Frank Shearar uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-fbs.38.mcz

==================== Summary ====================

Name: ShoutCore-fbs.38
Author: fbs
Time: 23 November 2013, 4:39:00.277 pm
UUID: 42157684-8064-0d46-b160-aab51188161f
Ancestors: ShoutCore-fbs.37

Post Preference move cleanup.

=============== Diff against ShoutCore-fbs.37 ===============

Item was changed:
  ----- Method: SHTextStylerST80 class>>ansiAssignmentPreferenceChanged (in category 'preferences') -----
  ansiAssignmentPreferenceChanged
  "the user has changed the syntaxHighlightingAsYouTypeAnsiAssignment setting.
  If they have turned it on then force syntaxHighlightingAsYouTypeLeftArrowAssignment
  to be turned off"
+ self syntaxHighlightingAsYouTypeAnsiAssignment
+ ifTrue: [self syntaxHighlightingAsYouTypeLeftArrowAssignment: false]!
- Preferences syntaxHighlightingAsYouTypeAnsiAssignment
- ifTrue:[Preferences disable: #syntaxHighlightingAsYouTypeLeftArrowAssignment]!

Item was changed:
  ----- Method: SHTextStylerST80 class>>initialize (in category 'class initialization') -----
  initialize  
  "Clear styleTable and textAttributesByPixelSize cache so that they will
  reinitialize.
 
  SHTextStylerST80 initialize
  "
 
  styleTable := nil.
+ textAttributesByPixelHeight := nil. !
- textAttributesByPixelHeight := nil.
- self initializePreferences!

Item was removed:
- ----- Method: SHTextStylerST80 class>>initializePreferences (in category 'preferences') -----
- initializePreferences
-
- (Preferences preferenceAt: #syntaxHighlightingAsYouType) ifNil:[
- Preferences
- disable: #browseWithPrettyPrint.
- Preferences
- addPreference: #syntaxHighlightingAsYouType
- categories: #( browsing)
- default: true
- balloonHelp: 'Enable, or disable, Shout - Syntax Highlighting As You Type. When enabled, code in Browsers and Workspaces is styled to reveal its syntactic structure. When the code is changed (by typing some characters, for example), the styling is changed so that it remains in sync with the modified code'].
- (Preferences preferenceAt: #syntaxHighlightingAsYouTypeAnsiAssignment) ifNil:[
- Preferences
- addPreference: #syntaxHighlightingAsYouTypeAnsiAssignment
- categories: #( browsing)
- default: false
- balloonHelp: 'If true, and syntaxHighlightingAsYouType is enabled,  all left arrow assignments ( _ ) will be converted to the ANSI format ( := ) when a method is selected in a Browser. Whilst editing a method, this setting has no effect - both the left arrow and the ansi format may be used'.
- (Preferences preferenceAt: #syntaxHighlightingAsYouTypeAnsiAssignment)
- changeInformee: self
- changeSelector: #ansiAssignmentPreferenceChanged].
- (Preferences preferenceAt: #syntaxHighlightingAsYouTypeLeftArrowAssignment) ifNil:[
- Preferences
- addPreference: #syntaxHighlightingAsYouTypeLeftArrowAssignment
- categories: #( browsing)
- default: false
- balloonHelp: 'If true, and syntaxHighlightingAsYouType is enabled,  all ANSI format assignments ( := ) will be converted to left arrows ( _ ) when a method is selected in a Browser. Whilst editing a method, this setting has no effect - both the left arrow and the ansi format may be used'.
- (Preferences preferenceAt: #syntaxHighlightingAsYouTypeLeftArrowAssignment)
- changeInformee: self
- changeSelector: #leftArrowAssignmentPreferenceChanged ]. !

Item was changed:
  ----- Method: SHTextStylerST80 class>>leftArrowAssignmentPreferenceChanged (in category 'preferences') -----
  leftArrowAssignmentPreferenceChanged
  "the user has changed the syntaxHighlightingAsYouTypeLeftArrowAssignment setting.
  If they have turned it on then force syntaxHighlightingAsYouTypeAnsiAssignment
  to be turned off"
+ self syntaxHighlightingAsYouTypeLeftArrowAssignment
+ ifTrue: [self syntaxHighlightingAsYouTypeAnsiAssignment: false]!
- Preferences syntaxHighlightingAsYouTypeLeftArrowAssignment
- ifTrue:[Preferences disable: #syntaxHighlightingAsYouTypeAnsiAssignment]!

Item was changed:
  ----- Method: SHTextStylerST80>>privateFormat: (in category 'private') -----
  privateFormat: aText
  "Perform any formatting of aText necessary and answer either aText, or a formatted copy of aText"
 
  aText asString = Object sourceCodeTemplate
  ifTrue:[
  "the original source code template does not parse,
  replace it with one that does"
  ^self parseableSourceCodeTemplate asText].
  formatAssignments
  ifTrue:[
+ self class syntaxHighlightingAsYouTypeAnsiAssignment
- Preferences syntaxHighlightingAsYouTypeAnsiAssignment
  ifTrue:[^self convertAssignmentsToAnsi: aText].
+ self class syntaxHighlightingAsYouTypeLeftArrowAssignment
- Preferences syntaxHighlightingAsYouTypeLeftArrowAssignment
  ifTrue:[^self convertAssignmentsToLeftArrow: aText]].
  ^aText!