Squeak-dev July 2016

squeak-dev@lists.squeakfoundation.org

38 participants
224 discussions

The Trunk: System-mt.853.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.853.mcz ==================== Summary ==================== Name: System-mt.853 Author: mt Time: 31 July 2016, 10:54:53.47549 am UUID: 51cc93f8-a4bd-3c46-87c6-509e16783c2b Ancestors: System-mt.852 *** Widget Refactorings and UI Themes (Part 3 of 11) *** Prepare Shout syntax highlighting for UI themes. (Temporarily no syntax highlighting. Sorry. Be patient.) =============== Diff against System-mt.852 =============== Item was added: + ----- Method: TextDiffBuilder class>>applyUserInterfaceTheme (in category 'preferences') ----- + applyUserInterfaceTheme + + NormalTextAttributes := nil. + InsertTextAttributes := nil. + RemoveTextAttributes := nil.! Item was added: + ----- Method: TextDiffBuilder class>>canApplyThemeToInstances (in category 'preferences') ----- + canApplyThemeToInstances + ^ false! Item was removed: - ----- Method: TextDiffBuilder class>>initialize (in category 'class initialization') ----- - initialize - - self initializeTextAttributes! Item was removed: - ----- Method: TextDiffBuilder class>>initializeTextAttributes (in category 'class initialization') ----- - initializeTextAttributes - - InsertTextAttributes := { TextColor red }. - RemoveTextAttributes := { TextEmphasis struckOut. TextColor blue }. - NormalTextAttributes :={ TextEmphasis normal } - ! Item was added: + ----- Method: TextDiffBuilder class>>themeProperties (in category 'preferences') ----- + themeProperties + + ^ { + { #insertTextAttributes. 'Styling'. 'Text attributes to use when a patch was inserted.' }. + { #normalTextAttributes. 'Styling'. 'Text attributes to use when text did not change.' }. + { #removeTextAttributes. 'Styling'. 'Text attributes to use when a patch was removed.' }. + }! Item was added: + ----- Method: TextDiffBuilder>>applyUserInterfaceTheme (in category 'updating') ----- + applyUserInterfaceTheme + "My class-side cache is invalidated there. My dependents have to invoke my services again."! Item was changed: ----- Method: TextDiffBuilder>>buildDisplayPatch (in category 'creating patches') ----- buildDisplayPatch | stream | stream := AttributedTextStream new. + + "Lazy initialize the text attributes cache." + NormalTextAttributes ifNil: [NormalTextAttributes := self userInterfaceTheme normalTextAttributes + ifNil: [{TextEmphasis normal}]]. + InsertTextAttributes ifNil: [InsertTextAttributes := self userInterfaceTheme insertTextAttributes + ifNil: [{TextColor red}]]. + RemoveTextAttributes ifNil: [RemoveTextAttributes := self userInterfaceTheme removeTextAttributes + ifNil: [{TextEmphasis struckOut. TextColor blue}]]. + self patchSequenceDoIfMatch: [ :string | self print: string withAttributes: NormalTextAttributes on: stream ] ifInsert: [ :string | self print: string withAttributes: InsertTextAttributes on: stream ] ifRemove: [ :string | self print: string withAttributes: RemoveTextAttributes on: stream ]. ^stream contents!

1 0

The Trunk: ShoutCore-mt.56.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-mt.56.mcz ==================== Summary ==================== Name: ShoutCore-mt.56 Author: mt Time: 31 July 2016, 10:54:09.29549 am UUID: a1a7570e-2171-8e4a-b231-0bd7b2b5e290 Ancestors: ShoutCore-eem.55 *** Widget Refactorings and UI Themes (Part 3 of 11) *** Prepare Shout syntax highlighting for UI themes. (Temporarily no syntax highlighting. Sorry. Be patient.) =============== Diff against ShoutCore-eem.55 =============== Item was changed: SHTextStyler subclass: #SHTextStylerST80 instanceVariableNames: 'classOrMetaClass workspace font parser formatAssignments environment sourceMap processedSourceMap pixelHeight attributesByPixelHeight parseAMethod' + classVariableNames: 'SyntaxHighlightingAsYouType SyntaxHighlightingAsYouTypeAnsiAssignment SyntaxHighlightingAsYouTypeLeftArrowAssignment TextAttributesByPixelHeight' - classVariableNames: 'SubduedSyntaxHighlights SyntaxHighlightingAsYouType SyntaxHighlightingAsYouTypeAnsiAssignment SyntaxHighlightingAsYouTypeLeftArrowAssignment' poolDictionaries: '' category: 'ShoutCore-Styling'! - SHTextStylerST80 class - instanceVariableNames: 'styleTable textAttributesByPixelHeight'! !SHTextStylerST80 commentStamp: 'tween 8/27/2004 10:55' prior: 0! I style Smalltalk methods and expressions. My 'styleTable' class instance var holds an array ofArrays which control how each token is styled/coloured. See my defaultStyleTable class method for its structure. My styleTable can be changed by either modifying the defaultStyleTable class method and then executing SHTextStylerST80 initialize ; or by giving me a new styleTable through my #styleTable: class method. My 'textAttributesByPixelSize' class instance var contains a dictionary of dictionaries. The key is a pixelSize and the value a Dictionary from token type Symbol to TextAttribute array. It is created/maintained automatically. I also install these 3 preferences when my class initialize method is executed.... #syntaxHighlightingAsYouType - controls whether methods are styled in browsers #syntaxHighlightingAsYouTypeAnsiAssignment - controls whether assignments are formatted to be := #syntaxHighlightingAsYouTypeLeftArrowAssignment - controls whether assignments are formatted to be _ I reimplement #unstyledTextFrom: so that TextActions are preserved in the unstyled text ! - SHTextStylerST80 class - instanceVariableNames: 'styleTable textAttributesByPixelHeight'! Item was added: + ----- Method: SHTextStylerST80 class>>applyUserInterfaceTheme (in category 'preferences') ----- + applyUserInterfaceTheme + + self resetTextAttributesByPixelHeight.! Item was removed: - ----- Method: SHTextStylerST80 class>>attributeArrayForColor:emphasis:font: (in category 'style table') ----- - attributeArrayForColor: aColorOrNil emphasis: anEmphasisSymbolOrArrayorNil font: aTextStyleOrFontOrNil - "Answer a new Array containing any non nil TextAttributes specified" - | answer emphArray | - - answer := Array new. - aColorOrNil ifNotNil: [answer := answer, {TextColor color: aColorOrNil}]. - anEmphasisSymbolOrArrayorNil ifNotNil: [ - emphArray := anEmphasisSymbolOrArrayorNil isSymbol - ifTrue: [{anEmphasisSymbolOrArrayorNil}] - ifFalse: [anEmphasisSymbolOrArrayorNil]. - emphArray do: [:each | - each ~= #normal - ifTrue:[ - answer := answer, {TextEmphasis perform: each}]]]. - aTextStyleOrFontOrNil ifNotNil: [ - answer := answer, {TextFontReference toFont: aTextStyleOrFontOrNil}]. - ^answer! Item was removed: - ----- Method: SHTextStylerST80 class>>attributesByPixelHeight: (in category 'style table') ----- - attributesByPixelHeight: aNumber - - ^self textAttributesByPixelHeight - at: aNumber - ifAbsent: [ - | result | - result := self initialTextAttributesForPixelHeight: aNumber. - " thread safety first " - textAttributesByPixelHeight := textAttributesByPixelHeight copy - at: aNumber put: result; - yourself. - result ]! Item was removed: - ----- Method: SHTextStylerST80 class>>attributesFor:pixelHeight: (in category 'style table') ----- - attributesFor: aSymbol pixelHeight: aNumber - - ^(self textAttributesByPixelHeight - at: aNumber - ifAbsentPut:[self initialTextAttributesForPixelHeight: aNumber]) - at: aSymbol ifAbsent:[nil]! Item was added: + ----- Method: SHTextStylerST80 class>>canApplyThemeToInstances (in category 'preferences') ----- + canApplyThemeToInstances + + ^ false! Item was removed: - ----- Method: SHTextStylerST80 class>>chooseDefaultStyleTable (in category 'style table') ----- - chooseDefaultStyleTable - "Choose the default style table" - ^self subduedSyntaxHighlights - ifTrue:[self subduedStyleTable] - ifFalse:[self defaultStyleTable]! Item was removed: - ----- Method: SHTextStylerST80 class>>defaultStyleTable (in category 'style table') ----- - defaultStyleTable - "color can be a valid argument to Color class>>colorFrom: , or nil to - use the editor text color. - Multiple emphases can be specified using an array e.g. #(bold italic). - If emphasis is not specified, #normal will be used. - if pixel height is not specified , then the editor font size will be used. - " - - ^#( - "(symbol color [emphasisSymbolOrArray [textStyleName [pixelHeight]]])" - (default black ) - (invalid red ) - (excessCode red ) - (comment (green muchDarker) italic) - (unfinishedComment (red muchDarker) italic) - (#'$' (red muchDarker) ) - (character (red muchDarker) ) - (integer (red muchDarker) ) - (number (red muchDarker) ) - (#- (red muchDarker) ) - (symbol (blue muchDarker) bold) - (stringSymbol (blue muchDarker) bold) - (literalArray (blue muchDarker) bold) - (string (magenta muchDarker) normal) - (unfinishedString red normal ) - (assignment nil bold ) - (ansiAssignment nil bold) - (literal nil italic) - (keyword (blue muchDarker) ) - (binary (blue muchDarker) ) - (unary (blue muchDarker) ) - (incompleteKeyword (gray muchDarker) underlined) - (incompleteBinary (gray muchDarker) underlined) - (incompleteUnary (gray muchDarker) underlined) - (undefinedKeyword red ) - (undefinedBinary red ) - (undefinedUnary red ) - (patternKeyword nil bold) - (patternBinary nil bold) - (patternUnary nil bold) - (#self (red muchDarker) bold) - (#super (red muchDarker) bold) - (#true (red muchDarker) bold) - (#false (red muchDarker) bold) - (#nil (red muchDarker) bold) - (#thisContext (red muchDarker) bold) - (#return (red muchDarker) bold) - (patternArg (blue muchDarker) italic) - (methodArg (blue muchDarker) italic) - (blockPatternArg (blue muchDarker) italic) - (blockArg (blue muchDarker) italic) - (argument (blue muchDarker) italic) - (blockArgColon black ) - (leftParenthesis black ) - (rightParenthesis black ) - (leftParenthesis1 (green muchDarker) ) - (rightParenthesis1 (green muchDarker) ) - (leftParenthesis2 (magenta muchDarker) ) - (rightParenthesis2 (magenta muchDarker) ) - (leftParenthesis3 (red muchDarker) ) - (rightParenthesis3 (red muchDarker) ) - (leftParenthesis4 (green darker) ) - (rightParenthesis4 (green darker) ) - (leftParenthesis5 (orange darker) ) - (rightParenthesis5 (orange darker) ) - (leftParenthesis6 (magenta darker) ) - (rightParenthesis6 (magenta darker) ) - (leftParenthesis7 blue ) - (rightParenthesis7 blue ) - (blockStart black ) - (blockEnd black ) - (blockStart1 (green muchDarker) ) - (blockEnd1 (green muchDarker) ) - (blockStart2 (magenta muchDarker) ) - (blockEnd2 (magenta muchDarker) ) - (blockStart3 (red muchDarker) ) - (blockEnd3 (red muchDarker) ) - (blockStart4 (green darker) ) - (blockEnd4 (green darker) ) - (blockStart5 (orange darker) ) - (blockEnd5 (orange darker) ) - (blockStart6 (magenta darker) ) - (blockEnd6 (magenta darker) ) - (blockStart7 blue ) - (blockEnd7 blue ) - (arrayStart black ) - (arrayEnd black ) - (arrayStart1 black ) - (arrayEnd1 black ) - (byteArrayStart black ) - (byteArrayEnd black ) - (byteArrayStart1 black ) - (byteArrayEnd1 black ) - (leftBrace black ) - (rightBrace black ) - (cascadeSeparator black ) - (statementSeparator black ) - (externalCallType black ) - (externalCallTypePointerIndicator black ) - (primitiveOrExternalCallStart black bold ) - (primitiveOrExternalCallEnd black bold ) - (methodTempBar gray ) - (blockTempBar gray ) - (blockArgsBar gray ) - (primitive (green muchDarker) bold) - (pragmaKeyword (green muchDarker) bold) - (pragmaUnary (green muchDarker) bold) - (pragmaBinary (green muchDarker) bold) - (externalFunctionCallingConvention (green muchDarker) bold) - (module (green muchDarker) bold) - (blockTempVar gray italic) - (blockPatternTempVar gray italic) - (instVar black bold) - (workspaceVar black bold) - (undefinedIdentifier red bold) - (incompleteIdentifier (gray darker) (italic underlined)) - (tempVar (gray darker) italic) - (patternTempVar (gray darker) italic) - (poolConstant (gray darker) italic) - (classVar (gray darker) bold) - (globalVar black bold) ) - ! Item was removed: - ----- Method: SHTextStylerST80 class>>initialTextAttributesForPixelHeight: (in category 'style table') ----- - initialTextAttributesForPixelHeight: aNumber - | d | - - d := IdentityDictionary new. - self styleTable do: [:each | | textStyle element emphasis font pixelHeight attrArray color textStyleName | - element := each first. - color := each at: 2 ifAbsent:[nil]. - color:=color ifNotNil: [Color colorFrom: color]. - emphasis := each at: 3 ifAbsent:[nil]. - textStyleName := each at: 4 ifAbsent: [nil]. - pixelHeight := each at: 5 ifAbsent: [aNumber]. - textStyleName ifNil:[pixelHeight := nil]. - textStyle := TextStyle named: textStyleName. - font := textStyle ifNotNil:[pixelHeight ifNotNil:[textStyle fontOfSize: pixelHeight]]. - attrArray := self attributeArrayForColor: color emphasis: emphasis font: font. - attrArray notEmpty - ifTrue:[ - d at: element put: attrArray]]. - ^d - ! Item was removed: - ----- 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. ! Item was added: + ----- Method: SHTextStylerST80 class>>resetTextAttributesByPixelHeight (in category 'style table') ----- + resetTextAttributesByPixelHeight + + TextAttributesByPixelHeight := nil.! Item was removed: - ----- Method: SHTextStylerST80 class>>styleTable (in category 'style table') ----- - styleTable - - ^styleTable ifNil: [ styleTable := self chooseDefaultStyleTable ]! Item was removed: - ----- Method: SHTextStylerST80 class>>styleTable: (in category 'style table') ----- - styleTable: anArray - "Set the receiver's styleTable to anArray. - Clear textAttributesByPixelSize cache so that it will reinitialize. - " - - styleTable := anArray. - textAttributesByPixelHeight := nil! Item was removed: - ----- Method: SHTextStylerST80 class>>subduedStyleTable (in category 'style table') ----- - subduedStyleTable - "color can be a valid argument to Color class>>colorFrom: , or nil to - use the editor text color. - Multiple emphases can be specified using an array e.g. #(bold italic). - If emphasis is not specified, #normal will be used. - if pixel height is not specified , then the editor font size will be used. - " - - ^#( - "(symbol color [emphasisSymbolOrArray [textStyleName [pixelHeight]]])" - (default black ) - (invalid red ) - (excessCode red ) - (comment (cyan muchDarker) ) - (unfinishedComment (red muchDarker) italic) - (#'$' (red muchDarker) ) - (character (red muchDarker) ) - (integer (red muchDarker) ) - (number (red muchDarker) ) - (#- (red muchDarker) ) - (symbol (blue muchDarker) ) - (stringSymbol (blue muchDarker) ) - (literalArray (blue muchDarker) ) - (string (magenta muchDarker) normal ) - (unfinishedString red normal ) - (assignment nil bold ) - (ansiAssignment nil bold) - (literal nil italic) - (keyword (blue muchDarker) ) - (binary (blue muchDarker) ) - (unary (blue muchDarker) ) - (incompleteKeyword (gray muchDarker) underlined) - (incompleteBinary (gray muchDarker) underlined) - (incompleteUnary (gray muchDarker) underlined) - (undefinedKeyword red ) - (undefinedBinary red ) - (undefinedUnary red ) - (patternKeyword nil bold) - (patternBinary nil bold) - (patternUnary nil bold) - (#self (red muchDarker) ) - (#super (red muchDarker) ) - (#true (red muchDarker) ) - (#false (red muchDarker) ) - (#nil (red muchDarker) ) - (#thisContext (red muchDarker) ) - (#return (red muchDarker) ) - (patternArg (blue muchDarker) ) - (methodArg (blue muchDarker) ) - (blockPatternArg (blue muchDarker) ) - (blockArg (blue muchDarker) ) - (argument (blue muchDarker) ) - (blockArgColon black ) - (leftParenthesis black ) - (rightParenthesis black ) - (leftParenthesis1 (green muchDarker) ) - (rightParenthesis1 (green muchDarker) ) - (leftParenthesis2 (magenta muchDarker) ) - (rightParenthesis2 (magenta muchDarker) ) - (leftParenthesis3 (red muchDarker) ) - (rightParenthesis3 (red muchDarker) ) - (leftParenthesis4 (green darker) ) - (rightParenthesis4 (green darker) ) - (leftParenthesis5 (orange darker) ) - (rightParenthesis5 (orange darker) ) - (leftParenthesis6 (magenta darker) ) - (rightParenthesis6 (magenta darker) ) - (leftParenthesis7 blue ) - (rightParenthesis7 blue ) - (blockStart black ) - (blockEnd black ) - (blockStart1 (green muchDarker) ) - (blockEnd1 (green muchDarker) ) - (blockStart2 (magenta muchDarker) ) - (blockEnd2 (magenta muchDarker) ) - (blockStart3 (red muchDarker) ) - (blockEnd3 (red muchDarker) ) - (blockStart4 (green darker) ) - (blockEnd4 (green darker) ) - (blockStart5 (orange darker) ) - (blockEnd5 (orange darker) ) - (blockStart6 (magenta darker) ) - (blockEnd6 (magenta darker) ) - (blockStart7 blue ) - (blockEnd7 blue ) - (arrayStart black ) - (arrayEnd black ) - (arrayStart1 black ) - (arrayEnd1 black ) - (byteArrayStart black ) - (byteArrayEnd black ) - (byteArrayStart1 black ) - (byteArrayEnd1 black ) - (leftBrace black ) - (rightBrace black ) - (cascadeSeparator black ) - (statementSeparator black ) - (externalCallType black ) - (externalCallTypePointerIndicator black ) - (primitiveOrExternalCallStart black ) - (primitiveOrExternalCallEnd black ) - (methodTempBar gray ) - (blockTempBar gray ) - (blockArgsBar gray ) - (primitive (green muchDarker) bold) - (pragmaKeyword (green muchDarker) bold) - (pragmaUnary (green muchDarker) bold) - (pragmaBinary (green muchDarker) bold) - (externalFunctionCallingConvention (green muchDarker) bold) - (module (green muchDarker) bold) - (blockTempVar gray ) - (blockPatternTempVar gray ) - (instVar black ) - (workspaceVar black ) - (undefinedIdentifier red ) - (incompleteIdentifier (gray darker) (italic underlined)) - (tempVar (gray darker) ) - (patternTempVar (gray darker) ) - (poolConstant (gray muchDarker) ) - (classVar (gray muchDarker) ) - (globalVar black ) )! Item was removed: - ----- Method: SHTextStylerST80 class>>subduedSyntaxHighlights (in category 'preferences') ----- - subduedSyntaxHighlights - <preference: 'Subdued Syntax Highlighting' - category: 'browsing' - description: 'When enabled, use a more subdued syntax highlighting approach that is not as aggressive in the face newbies. Intended to introduce people gracefully to the shiny colorful world of Squeak syntax' - type: #Boolean> - ^SubduedSyntaxHighlights ifNil:[true]! Item was removed: - ----- Method: SHTextStylerST80 class>>subduedSyntaxHighlights: (in category 'preferences') ----- - subduedSyntaxHighlights: aBool - "Change the subdued syntax highlighting preference" - SubduedSyntaxHighlights := aBool. - "Force reload" - styleTable := nil. - textAttributesByPixelHeight := nil.! Item was changed: ----- Method: SHTextStylerST80 class>>textAttributesByPixelHeight (in category 'style table') ----- textAttributesByPixelHeight + "A cache for text attributes used by all instances of text styler." + ^ TextAttributesByPixelHeight ifNil: [ TextAttributesByPixelHeight := Dictionary new ]! - ^ textAttributesByPixelHeight ifNil: [ textAttributesByPixelHeight := Dictionary new ]! Item was added: + ----- Method: SHTextStylerST80 class>>textAttributesByPixelHeightAt:put: (in category 'style table') ----- + textAttributesByPixelHeightAt: aNumber put: someTextAttributes + "Thread-safety first." + + TextAttributesByPixelHeight := self textAttributesByPixelHeight copy + at: aNumber put: someTextAttributes; + yourself. + ^ someTextAttributes! Item was added: + ----- Method: SHTextStylerST80 class>>themeProperties (in category 'preferences') ----- + themeProperties + + ^ { + { #default. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #invalid. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #excessCode. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #comment. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #unfinishedComment. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #'$'. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #character. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #integer. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #number. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #-. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #symbol. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #stringSymbol. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #literalArray. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #string. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #unfinishedString. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #assignment. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #ansiAssignment. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #literal. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #keyword. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #binary. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #unary. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #incompleteKeyword. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #incompleteBinary. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #incompleteUnary. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #undefinedKeyword. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #undefinedBinary. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #undefinedUnary. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #patternKeyword. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #patternBinary. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #patternUnary. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #self. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #super. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #true. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #false. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #nil. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #thisContext. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #return. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #patternArg. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #methodArg. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockPatternArg. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockArg. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #argument. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockArgColon. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #leftParenthesis. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #rightParenthesis. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #leftParenthesis1. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #rightParenthesis1. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #leftParenthesis2. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #rightParenthesis2. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #leftParenthesis3. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #rightParenthesis3. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #leftParenthesis4. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #rightParenthesis4. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #leftParenthesis5. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #rightParenthesis5. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #leftParenthesis6. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #rightParenthesis6. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #leftParenthesis7. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #rightParenthesis7. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockStart. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockEnd. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockStart1. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockEnd1. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockStart2. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockEnd2. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockStart3. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockEnd3. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockStart4. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockEnd4. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockStart5. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockEnd5. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockStart6. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockEnd6. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockStart7. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockEnd7. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #arrayStart. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #arrayEnd. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #arrayStart1. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #arrayEnd1. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #byteArrayStart. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #byteArrayEnd. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #byteArrayStart1. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #byteArrayEnd1. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #leftBrace. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #rightBrace. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #cascadeSeparator. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #statementSeparator. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #externalCallType. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #externalCallTypePointerIndicator. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #primitiveOrExternalCallStart. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #primitiveOrExternalCallEnd. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #methodTempBar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockTempBar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockArgsBar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #primitive. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #pragmaKeyword. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #pragmaUnary. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #pragmaBinary. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #externalFunctionCallingConvention. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #module. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockTempVar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #blockPatternTempVar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #instVar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #workspaceVar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #undefinedIdentifier. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #incompleteIdentifier. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #tempVar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #patternTempVar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #poolConstant. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #classVar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + { #globalVar. 'Styling'. 'Specify color, emphasis, and font in a triple.' }. + }! Item was added: + ----- Method: SHTextStylerST80>>applyUserInterfaceTheme (in category 'updating') ----- + applyUserInterfaceTheme + "My dependents should take care of invalidating my caches and then ask me to style again. It is of no use to invalidate my caches right now because I have no idea when my dependents will ask me to style again."! Item was added: + ----- Method: SHTextStylerST80>>attributesByPixelHeight (in category 'style table') ----- + attributesByPixelHeight + + ^ attributesByPixelHeight ifNil: [ + attributesByPixelHeight := self attributesByPixelHeight: self pixelHeight]! Item was added: + ----- Method: SHTextStylerST80>>attributesByPixelHeight: (in category 'style table') ----- + attributesByPixelHeight: aNumber + + ^ self class textAttributesByPixelHeight + at: aNumber + ifAbsent: [ + self class + textAttributesByPixelHeightAt: aNumber + put: (self createTextAttributesForPixelHeight: aNumber)]! Item was changed: + ----- Method: SHTextStylerST80>>attributesFor: (in category 'style table') ----- - ----- Method: SHTextStylerST80>>attributesFor: (in category 'private') ----- attributesFor: aSymbol + ^ self attributesByPixelHeight at: aSymbol ifAbsent: nil! - ^(attributesByPixelHeight ifNil: [ - attributesByPixelHeight := self class attributesByPixelHeight: self pixelHeight ]) - at: aSymbol - ifAbsent: nil! Item was added: + ----- Method: SHTextStylerST80>>createAttributeArrayForColor:emphasis:font: (in category 'style table') ----- + createAttributeArrayForColor: aColorOrNil emphasis: anEmphasisOrArrayorNil font: aFontOrNil + "Answer a new Array containing any non nil TextAttributes specified" + + | answer emphArray | + answer := Array new. + aColorOrNil ifNotNil: [answer := answer, {TextColor color: aColorOrNil}]. + anEmphasisOrArrayorNil ifNotNil: [ + emphArray := anEmphasisOrArrayorNil isArray + ifFalse: [{anEmphasisOrArrayorNil}] + ifTrue: [anEmphasisOrArrayorNil]. + answer := answer, emphArray]. + aFontOrNil ifNotNil: [ + answer := answer, {TextFontReference toFont: aFontOrNil}]. + ^answer! Item was added: + ----- Method: SHTextStylerST80>>createTextAttributesForPixelHeight: (in category 'style table') ----- + createTextAttributesForPixelHeight: aNumber + + | result | + result := IdentityDictionary new. + result at: #default put: {}. "Required as fall-back for non-existing attributes." + + self class themeProperties do: [:each | + | spec element emphasis font color | + element := each first. + spec := self userInterfaceTheme perform: element. + spec isArray ifFalse: [spec := {spec}]. "Support color-only hints." + + color := spec first ifNotNil: [:colorSpec | Color colorFrom: colorSpec]. + emphasis := spec at: 2 ifAbsent:[nil]. + font := spec at: 3 ifAbsent: [nil]. + + "Support for named text styles." + font isString ifTrue: [ + | textStyle | + textStyle := TextStyle named: font. + font := textStyle ifNotNil: [textStyle fontOfSize: aNumber]]. + + (self createAttributeArrayForColor: color emphasis: emphasis font: font) + ifNotEmpty: [:attrArray | result at: element put: attrArray]]. + ^ result + ! Item was added: + ----- Method: SHTextStylerST80>>reset (in category 'initialize-release') ----- + reset + + attributesByPixelHeight := nil.!

1 0

The Trunk: 51Deprecated-mt.35.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-mt.35.mcz ==================== Summary ==================== Name: 51Deprecated-mt.35 Author: mt Time: 31 July 2016, 10:47:53.76249 am UUID: 317a680b-450c-8c41-82f5-8ce249f8d6e4 Ancestors: 51Deprecated-mt.34 Clean-up window color spec data if requested. =============== Diff against 51Deprecated-mt.34 =============== Item was added: + ----- Method: WindowColorRegistry class>>cleanUp: (in category 'registry') ----- + cleanUp: aggressive + + aggressive ifTrue: [self refresh].!

1 0

The Trunk: Morphic-mt.1209.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1209.mcz ==================== Summary ==================== Name: Morphic-mt.1209 Author: mt Time: 31 July 2016, 10:42:45.52449 am UUID: c7a82e5c-9317-3e43-8751-489f7248ac76 Ancestors: Morphic-mt.1208 Avoid updating the menu bar instances too early. =============== Diff against Morphic-mt.1208 =============== Item was removed: - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "..."'!

1 0

The Trunk: SMLoader-mt.88.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-mt.88.mcz ==================== Summary ==================== Name: SMLoader-mt.88 Author: mt Time: 31 July 2016, 10:39:59.37549 am UUID: 401c17bd-0096-f542-8b44-53ed7ede31ac Ancestors: SMLoader-tpr.87 *** Widget Refactorings and UI Themes (Part 2 of 11) *** Simplify window colors and prepare them and other properties of system windows to be themed. =============== Diff against SMLoader-tpr.87 =============== Item was changed: ----- Method: SMLoader class>>initialize (in category 'class initialization') ----- initialize "Hook us up in the world menu." "self initialize" Smalltalk at: #ToolBuilder ifAbsent: [self registerInFlapsRegistry. - (Preferences windowColorFor: #SMLoader) = Color white - ifTrue: ["not set" - Preferences - setWindowColorFor: #SMLoader - to: (Color colorFrom: self windowColorSpecification brightColor)]. (TheWorldMenu respondsTo: #registerOpenCommand:) ifTrue: [| oldCmds | oldCmds := TheWorldMenu registry select: [:cmd | cmd first includesSubstring: 'Package Loader']. oldCmds do: [:cmd | TheWorldMenu unregisterOpenCommand: cmd first]. TheWorldMenu registerOpenCommand: {self openMenuString. {self. #open}}]]. DefaultFilters := OrderedCollection new. DefaultCategoriesToFilterIds := OrderedCollection new! Item was removed: - ----- Method: SMLoader class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference." - - ^WindowColorSpec - classSymbol: self name - wording: 'Package Loader' - brightColor: Color yellow muchLighter duller - pastelColor: Color yellow veryMuchLighter duller - helpMessage: 'The SqueakMap Package Loader'! Item was added: + ----- Method: SMLoader>>defaultColor (in category 'user interface') ----- + defaultColor + + ^ self defaultWindowColor! Item was added: + ----- Method: SMLoader>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.801 g: 0.801 b: 0.614)! Item was changed: ----- Method: SMLoaderPlus class>>initialize (in category 'class initialization') ----- initialize "Hook us up in the world menu." "self initialize" Smalltalk at: #ToolBuilder ifPresent: [ : tb | self registerInFlapsRegistry. - (Preferences windowColorFor: #SMLoader) = Color white "note set" ifTrue: - [ - #(#SMLoader #SMReleaseBrowser ) do: - [ : each | - Preferences - setWindowColorFor: each - to: (Color colorFrom: self windowColorSpecification brightColor) ] ]. (TheWorldMenu respondsTo: #registerOpenCommand:) ifTrue: [ | oldCmds | oldCmds := TheWorldMenu registry select: [ : cmd | cmd first includesSubstring: 'Package Loader' ]. oldCmds do: [ : cmd | TheWorldMenu unregisterOpenCommand: cmd first ]. TheWorldMenu registerOpenCommand: {self openMenuString. {self. #open}} ] ]. DefaultFilters := OrderedCollection new. DefaultCategoriesToFilterIds := OrderedCollection new! Item was removed: - ----- Method: SMLoaderPlus class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference." - - ^WindowColorSpec - classSymbol: self name - wording: 'Package Loader' - brightColor: Color yellow muchLighter duller - pastelColor: Color yellow veryMuchLighter duller - helpMessage: 'The SqueakMap Package Loader'! Item was added: + ----- Method: SMLoaderPlus>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.801 g: 0.801 b: 0.614)! Item was removed: - ----- Method: SMReleaseBrowser class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference." - ^WindowColorSpec - classSymbol: self name - wording: 'Package Release Browser' - brightColor: Color yellow muchLighter duller - pastelColor: Color yellow veryMuchLighter duller - helpMessage: 'The SqueakMap Release Browser'! Item was added: + ----- Method: SMReleaseBrowser>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.801 g: 0.801 b: 0.614)!

1 0

The Trunk: Protocols-mt.55.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-mt.55.mcz ==================== Summary ==================== Name: Protocols-mt.55 Author: mt Time: 31 July 2016, 10:39:09.97349 am UUID: 9be47d93-9f26-8144-a2c2-b3b1b00c22d6 Ancestors: Protocols-mt.54 *** Widget Refactorings and UI Themes (Part 2 of 11) *** Simplify window colors and prepare them and other properties of system windows to be themed. =============== Diff against Protocols-mt.54 =============== Item was removed: - ----- Method: InstanceBrowser class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Instance Browser' brightColor: #(0.806 1.0 1.0) pastelColor: #(0.925 1.000 1.0) helpMessage: 'A tool for browsing the full protocol of an instance.'! Item was added: + ----- Method: InstanceBrowser>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.726 g: 0.9 b: 0.9)! Item was removed: - ----- Method: Lexicon class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Lexicon' brightColor: #(0.878 1.000 0.878) pastelColor: #(0.925 1.000 0.925) helpMessage: 'A tool for browsing the full protocol of a class.'! Item was added: + ----- Method: Lexicon>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.79 g: 0.9 b: 0.79)!

1 0

The Trunk: Nebraska-mt.42.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-mt.42.mcz ==================== Summary ==================== Name: Nebraska-mt.42 Author: mt Time: 31 July 2016, 10:38:22.08149 am UUID: f6330fa2-1555-2749-bbf3-4fc7a3addaf8 Ancestors: Nebraska-kfr.41 *** Widget Refactorings and UI Themes (Part 2 of 11) *** Simplify window colors and prepare them and other properties of system windows to be themed. =============== Diff against Nebraska-kfr.41 =============== Item was removed: - ----- Method: ChatNotes>>defaultBackgroundColor (in category 'morphic') ----- - defaultBackgroundColor - "In a better design, this would be handled by preferences." - ^Color r: 1.0 g: 0.7 b: 0.8! Item was added: + ----- Method: ChatNotes>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 1 g: 0.7 b: 0.8)!

1 0

The Trunk: EToys-mt.140.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.140.mcz ==================== Summary ==================== Name: EToys-mt.140 Author: mt Time: 31 July 2016, 10:37:24.17349 am UUID: 5fbe9cfe-d356-bc44-9dcb-a08a8d5493d1 Ancestors: EToys-tfel.139 *** Widget Refactorings and UI Themes (Part 2 of 11) *** Simplify window colors and prepare them and other properties of system windows to be themed. =============== Diff against EToys-tfel.139 =============== Item was removed: - ----- Method: ScriptingDomain>>defaultBackgroundColor (in category 'user interface') ----- - defaultBackgroundColor - ^ Color r: 0.91 g: 0.91 b: 0.91! Item was added: + ----- Method: ScriptingDomain>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.91 g: 0.91 b: 0.91)!

1 0

The Trunk: SUnitGUI-mt.63.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-mt.63.mcz ==================== Summary ==================== Name: SUnitGUI-mt.63 Author: mt Time: 31 July 2016, 10:36:41.86449 am UUID: 7ed7c1d5-ab99-b248-ad1a-fa14d90fc687 Ancestors: SUnitGUI-mt.62 *** Widget Refactorings and UI Themes (Part 2 of 11) *** Simplify window colors and prepare them and other properties of system windows to be themed. =============== Diff against SUnitGUI-mt.62 =============== Item was changed: + Model subclass: #TestRunner - Object subclass: #TestRunner instanceVariableNames: 'categories categoriesSelected classes classIndex classesSelected failedList failedSelected errorList errorSelected lastUpdate result previousRun categoryPattern classPattern' classVariableNames: '' poolDictionaries: '' category: 'SUnitGUI'! !TestRunner commentStamp: '<historical>' prior: 0! <lint: #ignore rule: #classNotReferenced rational: 'this view is only accessed from menus'> ! Item was removed: - ----- Method: TestRunner class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - - ^ WindowColorSpec - classSymbol: self name - wording: 'Test Runner' - brightColor: Color orange - pastelColor: (Color r: 0.65 g: 0.753 b: 0.976) - helpMessage: 'The Camp Smalltalk TestRunner tool for SUnit'! Item was removed: - ----- Method: TestRunner>>defaultBackgroundColor (in category 'private') ----- - defaultBackgroundColor - "<lint: #expect rule: #overridesSuper rational: 'we want a different color than the parent'>" - - ^ Preferences testRunnerWindowColor! Item was added: + ----- Method: TestRunner>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.9 g: 0.576 b: 0.09)!

1 0

The Trunk: SmallLand-ColorTheme-mt.7.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of SmallLand-ColorTheme to project The Trunk: http://source.squeak.org/trunk/SmallLand-ColorTheme-mt.7.mcz ==================== Summary ==================== Name: SmallLand-ColorTheme-mt.7 Author: mt Time: 31 July 2016, 10:35:55.17149 am UUID: e0eb5d6c-e032-b843-96b5-90e78b70d353 Ancestors: SmallLand-ColorTheme-fbs.6 *** Widget Refactorings and UI Themes (Part 2 of 11) *** Simplify window colors and prepare them and other properties of system windows to be themed. =============== Diff against SmallLand-ColorTheme-fbs.6 =============== Item was changed: ----- Method: SmallLandColorTheme>>apply (in category 'applying') ----- apply + - Preferences installBrightWindowColors. "" super apply. "" self updateTopProject. self updateFlaps. self updateWorldMainDockingBar!

1 0

← Newer
1
2
3
4
5
6
7
8
...
23
Older →

Jump to page: