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! |
Free forum by Nabble | Edit this page |