Squeak-dev April 2018

squeak-dev@lists.squeakfoundation.org

47 participants
159 discussions

The Trunk: PreferenceBrowser-mt.82.mcz
by commits＠source.squeak.org 04 Apr '18

04 Apr '18

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.82.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.82 Author: mt Time: 4 April 2018, 12:35:28.855182 pm UUID: ad916872-7020-fb43-893e-281a1b14a77d Ancestors: PreferenceBrowser-tpr.81 Some improvements for the preference wizard: 1) Show checkmarks to indicate what is selected and what not. 2) Add prefs for bigger fonts and cursors. 3) Do not show autogenerated DEMO themes in the list of UI themes to avoid visual glitches. 4) Add pref for #alternativeBrowseIt to last (tool) page. Well, the code still needs clean-up. At the moment, the only good thing is that the whole code mess is in the single class PreferenceWizardMorph. :-) =============== Diff against PreferenceBrowser-tpr.81 =============== Item was changed: Morph subclass: #PreferenceWizardMorph + instanceVariableNames: 'previewWorld titleMorph buttonRowMorph controlMorph startButton previousButton nextButton pages currentPageIndex pagesLabel skipButton isFullScreen lowPerformanceMorph checkmark' - instanceVariableNames: 'previewWorld titleMorph buttonRowMorph controlMorph startButton previousButton nextButton pages currentPageIndex pagesLabel skipButton isFullScreen lowPerformanceMorph' classVariableNames: '' poolDictionaries: '' category: 'PreferenceBrowser'! Item was added: + ----- Method: PreferenceWizardMorph>>changed: (in category 'updating') ----- + changed: aspect + + super changed: aspect. + + (aspect beginsWith: #state) + ifTrue: [super changed: ('label', (aspect allButFirst: 5)) asSymbol].! Item was added: + ----- Method: PreferenceWizardMorph>>checkmark (in category 'initialization') ----- + checkmark + + ^ checkmark ifNil: [checkmark := (((ToolIcons iconNamed: #checkmark) dyed: Color white) scaledToSize: 20@20) asMorph]! Item was changed: ----- Method: PreferenceWizardMorph>>createCheckbox:for:help: (in category 'initialization') ----- createCheckbox: label for: selector help: terms | box lbl btn | btn := self createButton + layoutInset: 0; label: ' '; + onColor: (self defaultColor adjustBrightness: 0.3) offColor: (self defaultColor adjustBrightness: 0.3); - onColor: Color white offColor: (self defaultColor adjustBrightness: 0.3); vResizing: #rigid; hResizing: #rigid; action: ('toggle', selector) asSymbol; getStateSelector: ('state', selector) asSymbol; + getLabelSelector: ('label', selector) asSymbol; extent: 25@25. lbl := self createLabel: label color: self defaultTextColor. box := Morph new color: Color transparent; changeTableLayout; listDirection: #leftToRight; cellPositioning: #topLeft; hResizing: #spaceFill; vResizing: #shrinkWrap; cellInset: 10; yourself. box addAllMorphs: {btn. lbl}. self setBalloonText: (terms isString ifTrue: [terms] ifFalse: [self findHelpStringFor: terms]) for: box. ^ box! Item was added: + ----- Method: PreferenceWizardMorph>>doesNotUnderstand: (in category 'buttons') ----- + doesNotUnderstand: msg + + (msg selector numArgs = 0 and: [msg selector beginsWith: 'label']) + ifTrue: [^ (self perform: ('state', (msg selector allButFirst: 5)) asSymbol) + ifTrue: [self checkmark] + ifFalse: [' '] ]. + + ^ super doesNotUnderstand: msg! Item was changed: ----- Method: PreferenceWizardMorph>>initializePage01Themes (in category 'initialization') ----- initializePage01Themes | currentPage | currentPage := pages add: self createPage. currentPage addMorphBack: (self createLabel: 'Choose a theme:' color: Color white). + ((UserInterfaceTheme allThemes + reject: [:uit | uit name beginsWith: 'Demo']) + sorted: [:a :b | a name <= b name]) + do: [:ea | + currentPage addMorphBack: (self createButton + label: ea name; + hResizing: #spaceFill; + action: #chooseTheme:; + arguments: {ea})]. - (UserInterfaceTheme allThemes sorted: [:a :b | a name <= b name]) do: [:ea | - currentPage addMorphBack: (self createButton - label: ea name; - hResizing: #spaceFill; - action: #chooseTheme:; - arguments: {ea})]. currentPage addMorphBack: self createVerticalSpacer. ! Item was added: + ----- Method: PreferenceWizardMorph>>initializePage02bVisualsMore (in category 'initialization') ----- + initializePage02bVisualsMore + + | currentPage | + currentPage := pages add: self createPage. + currentPage addMorphBack: (self createLabel: 'Choose more visual settings' color: Color white). + + currentPage addAllMorphsBack: { + self createCheckbox: 'Bigger Fonts' translated for: #UseBiggerFonts help: 'For high-DPI displays, bigger fonts can improve readability.'. + self createCheckbox: 'Bigger Cursors' translated for: #UseBiggerCursors help: #(bigger cursor). + }. + + currentPage addMorphBack: self createVerticalSpacer. + ! Item was changed: ----- Method: PreferenceWizardMorph>>initializePage05Tools (in category 'initialization') ----- initializePage05Tools | currentPage | currentPage := pages add: self createPage. currentPage addMorphBack: (self createLabel: 'Choose other settings' color: Color white). currentPage addAllMorphsBack: { self createCheckbox: 'Trace messages browser' translated for: #TraceMessages help: #(trace message). self createCheckbox: 'Reuse tool windows' translated for: #ReuseWindows help: #(window reuse). self createCheckbox: 'Tool and menu icons' translated for: #ToolAndMenuIcons help: 'Whether to show icons in tools and menus.' translated. + self createCheckbox: 'Browse class hierarchy' translated for: #AlternativeBrowseIt help: 'Whether to spawn a hierarchy browser or full system browser on browse-it commands.' translated. }. currentPage addMorphBack: self createVerticalSpacer. ! Item was changed: ----- Method: PreferenceWizardMorph>>initializePages (in category 'initialization') ----- initializePages pages := OrderedCollection new. currentPageIndex := 0. self initializePage01Themes; initializePage02Visuals; + initializePage02bVisualsMore; initializePage03Interaction; initializePage04InteractionMore; initializePage05Tools.! Item was added: + ----- Method: PreferenceWizardMorph>>stateAlternativeBrowseIt (in category 'buttons') ----- + stateAlternativeBrowseIt + + ^ Preferences valueOfFlag: #alternativeBrowseIt ifAbsent: [false]! Item was added: + ----- Method: PreferenceWizardMorph>>stateUseBiggerCursors (in category 'buttons') ----- + stateUseBiggerCursors + + ^ Cursor useBiggerCursors! Item was added: + ----- Method: PreferenceWizardMorph>>stateUseBiggerFonts (in category 'buttons') ----- + stateUseBiggerFonts + + ^ UserInterfaceTheme current name beginsWith: 'Demo'! Item was changed: + ----- Method: PreferenceWizardMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: PreferenceWizardMorph>>stepTime (in category 'testing') ----- stepTime ^ 1000! Item was added: + ----- Method: PreferenceWizardMorph>>toggleAlternativeBrowseIt (in category 'buttons') ----- + toggleAlternativeBrowseIt + + Preferences toggle: #alternativeBrowseIt. + self changed: #stateAlternativeBrowseIt.! Item was added: + ----- Method: PreferenceWizardMorph>>toggleUseBiggerCursors (in category 'buttons') ----- + toggleUseBiggerCursors + + Cursor useBiggerCursors: self stateUseBiggerCursors not. + Cursor currentCursor: Cursor currentCursor. + + self changed: #stateUseBiggerCursors.! Item was added: + ----- Method: PreferenceWizardMorph>>toggleUseBiggerFonts (in category 'buttons') ----- + toggleUseBiggerFonts + + [ + self stateUseBiggerFonts + ifFalse: [Preferences setDemoFonts] + ifTrue: [Preferences restoreDefaultFonts]. + ] valueSupplyingAnswer: true. + + self changed: #stateUseBiggerFonts.!

1 0

The Trunk: Tools-mt.803.mcz
by commits＠source.squeak.org 04 Apr '18

04 Apr '18

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.803.mcz ==================== Summary ==================== Name: Tools-mt.803 Author: mt Time: 4 April 2018, 12:32:16.314182 pm UUID: 7d749742-eb4f-454f-bbeb-30e4f18620f3 Ancestors: Tools-mt.802 Adds a dyable checkmark icon for tools to use. For now: Preference Wizard. =============== Diff against Tools-mt.802 =============== Item was added: + ----- Method: ToolIcons class>>checkmark (in category 'private') ----- + checkmark + "© 2018 Icon8 + Website: https://icons8.com + License: https://creativecommons.org/licenses/by-nd/3.0/" + + ^ Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: 'iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABmJLR0QA/wD/AP+gvaeTAAAD + zUlEQVRYCe2ZT0hUQRzH561adLBDpFBBKvRH0AITtEPQHwiCgrCgIAhBJOhUdAoKOnjqUEGH + AiE6FRF1C0+RQpcKhCgwOuSf0jDDCMsSW3f6DOuDx+72nHm7+5Z5zeP73ffcmfnN7/ud35t9 + 6wrhDueAc8A54BxwDjgHnAN2OlCTSqWuVFVVveJ8Fwnb4P8DRN+DMsBfXJ/HgRRMNlj1bsTK + QqTtBeqbYWKxAeGzsKABy+/PYUR3Ih3wPO/JssgwA1RbBhOOhJlg3b2CoB4MOBwmKtDmSSlP + Bv7Ou7TNgAYp5Y08FeFvzIU329PKwntPNUtflb/iIvJaof1A+AWoRJnwov3KswpaEL8AtcWz + VzxnqG23OCnnowbhw1BbPH3nCbMd2g/EXIIm4lXfc/YrzypoR/wiVKK0yE45yNBElP4qhL+G + WsKX+6mPvEaRhANBfdBEvGTjO5ME7UpDJ+L/QG0DKP0BNTAJXIPwd1BbPH1nEb4R2g/EXIMm + 4lXpn7ZfeVbBXsQvQalLSv9Rdqj9r7WIHoXa4uk7jew6aD8QcwuaiFelf9R+5Siorq4+hPgM + NDHgPkOLhhchwnoSPc69t8TxkPHq4YNTZKjSf8PoRqF/zGQymVa6f4Wxog3x09BfqXEhRFFf + OojVD/14WmceeLqYN3Z0kuh3mJvkDJnsgMZAyLEC8XLj5/59x3iiEgzoINFC4v3kophQT8wZ + 6MfQOU+gZS2MFR0kGSbeT9zIBGI+gP5YnXOGzfJArMqZbB1JTkGdBFWfKcasuCdQ+l0GMVVc + xX5ixwsS7Y2Q6GeyDDOhjphfoBKlyzFi1sKSI7VCxKUV2gs1q19tBmkoaAIfn7dpq4e6UM8H + PXT+AWOH+oweNVwtf1XzKoGKOhUh1s3YVedMuJmkP0BfmMk5uDGqODqbaTD+W3JZDSsOlXwx + Juyk9KP8qLGr4soDCWylCiZhcIV0r39GGHc1MHfZLj3DyKoShoQQTbBsoFqG+Z6xmwnSsKzw + IkQvtwkLfNFpJ68RWHakIszwkQT3M24MlgN9BI1FPPMIT71EZAP39ZAQolGU6KD0X1L6ewiX + hrHAK3KWUprwm8pqI5/3MDZEuQWCyU2Q9D4hxLgo/rhMiFjFM1/JoCphjFtCRiFPiENCiGIX + gxCVxRbEf4KmJsyRdhNMBJQJk4YmnE2E8oAI7SdGdv0BxnkwcdAx4RuqN8HEooVb4Z//+GDj + 602s8oCwZkwYgbkb4/VAn4pexnH/1bDaJ6SUB1E6jxmP0+n0M64dnAPOAeeAc8A54BxwDlTU + gb+am3XexSy3CAAAAABJRU5ErkJggg==' readStream)!

1 0

The Trunk: System-mt.1013.mcz
by commits＠source.squeak.org 04 Apr '18

04 Apr '18

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1013.mcz ==================== Summary ==================== Name: System-mt.1013 Author: mt Time: 4 April 2018, 12:30:15.520182 pm UUID: 3a0db30f-45cb-c342-ac69-e18652996e83 Ancestors: System-cmm.1012 Avoid duplicate creation of Demo/HiDPI versions of UI themes. =============== Diff against System-cmm.1012 =============== Item was changed: ----- Method: Preferences class>>setDemoFonts (in category 'prefs - fonts') ----- setDemoFonts "Preferences setDemoFonts" | theme base | self inform: 'The current UI theme will be copied\and larger fonts be installed.' translated withCRs. (UserInterfaceTheme current name beginsWith: 'Demo') ifFalse: [ + UserInterfaceTheme allThemes + detect: [:ea | (ea name beginsWith: 'Demo') + and: [ea name endsWith: UserInterfaceTheme current name]] + ifFound: [:uit | uit apply] + ifNone: [ + "Create DEMO version of current theme." + theme := UserInterfaceTheme named: 'Demo'. + theme merge: UserInterfaceTheme current overwrite: true. + theme apply]]. - "Create DEMO version of current theme." - theme := UserInterfaceTheme named: 'Demo'. - theme merge: UserInterfaceTheme current overwrite: true. - theme apply]. base := (TextStyle defaultFont name beginsWith: 'Darkmap') ifTrue: ['Darkmap DejaVu Sans'] ifFalse: ['Bitmap DejaVu Sans']. self setDefaultFonts: { {#setSystemFontTo:. base. 14}. {#setFixedFontTo:. 'BitstreamVeraSansMono'. 16}. {#setListFontTo:. base. 14}. {#setFlapsFontTo:. base. 12}. {#setEToysFontTo:. base. 14}. {#setPaintBoxButtonFontTo:. base. 14}. {#setMenuFontTo:. base . 14}. {#setWindowTitleFontTo:. base, ' B'. 14}. {#setBalloonHelpFontTo:. base. 12}. {#setCodeFontTo:. base. 14}. {#setButtonFontTo:. base. 12}. } !

1 0

The Trunk: System-cmm.1012.mcz
by commits＠source.squeak.org 04 Apr '18

04 Apr '18

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.1012.mcz ==================== Summary ==================== Name: System-cmm.1012 Author: cmm Time: 3 April 2018, 6:58:34.010582 pm UUID: 71a76599-7c50-4d4e-9bab-ece5dfa71c93 Ancestors: System-mt.1011 Revert cmm.1009 to keep consistent default font size with other themes. =============== Diff against System-mt.1011 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: aUserInterfaceTheme "Set-up fonts." aUserInterfaceTheme + set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode); + set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); + set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); + set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis italic emphasisCode); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); - set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode); set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); + set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); + set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); + set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); + set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode)! - set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); - set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); - set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); - set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12 emphasized: TextEmphasis bold emphasisCode)!

1 0

The Trunk: System-mt.1010.mcz
by commits＠source.squeak.org 03 Apr '18

03 Apr '18

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1010.mcz ==================== Summary ==================== Name: System-mt.1010 Author: mt Time: 3 April 2018, 8:07:14.69082 am UUID: 322ad26c-26ac-0046-8e31-9db174de998e Ancestors: System-cmm.1009 Adds an alternate gray-based dark UI theme. =============== Diff against System-cmm.1009 =============== Item was added: + UserInterfaceTheme subclass: #TrimTheme + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Support'! Item was added: + ----- Method: TrimTheme class>>addButtons: (in category 'instance creation') ----- + addButtons: theme + + theme + set: #borderColor for: #PluggableButtonMorph to: self gray102; + set: #borderWidth for: #PluggableButtonMorph to: 1; + set: #borderStyle for: #PluggableButtonMorph to: BorderStyle default; + set: #color for: #PluggableButtonMorph to: self gray76; + + set: #textColor for: #PluggableButtonMorph to: self white; + + set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | self gray39] ]; + set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | self gray51] ]; + set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | self gray39] ]. + + "And the plus-version." + theme + set: #disabledColor for: #PluggableButtonMorphPlus to: Color transparent; + set: #disabledTextColor for: #PluggableButtonMorphPlus to: self gray128.! Item was added: + ----- Method: TrimTheme class>>addDialogs: (in category 'instance creation') ----- + addDialogs: theme + "self create apply." + + theme + set: #borderColor for: #DialogWindow to: self gray59; + set: #borderWidth for: #DialogWindow to: 0; + set: #borderStyle for: #DialogWindow to: BorderStyle default; + set: #color for: #DialogWindow to: self gray64; + + set: #titleBorderColor for: #DialogWindow to: self gray59; + set: #titleBorderWidth for: #DialogWindow to: 0; + set: #titleBorderStyle for: #DialogWindow to: BorderStyle default; + set: #titleColor for: #DialogWindow to: self gray51; + set: #titleTextColor for: #DialogWindow to: self white; + + set: #textColor for: #DialogWindow to: self white; + + set: #okColor for: #DialogWindow to: self green; + set: #cancelColor for: #DialogWindow to: self red; + set: #buttonColor for: #DialogWindow to: self gray59; + set: #selectionModifier for: #DialogWindow to: [ [:c | self blue ] ]. + + "The List Chooser is a dialog, too." + theme + set: #addColor for: #ListChooser to: self yellow; + set: #disabledColor for: #ListChooser to: Color transparent. + + + "And the system progress bar." + theme + set: #borderColor for: #SystemProgressBarMorph to: Color transparent; + set: #borderWidth for: #SystemProgressBarMorph to: 0; + set: #borderStyle for: #SystemProgressBarMorph to: BorderStyle default; + set: #color for: #SystemProgressBarMorph to: self gray64; + set: #barColor for: #SystemProgressBarMorph to: self blue. + + "And the balloon morphs." + theme + set: #borderColor for: #NewBalloonMorph to: self gray168; + set: #borderWidth for: #NewBalloonMorph to: 1; + set: #color for: #NewBalloonMorph to: self gray102; + set: #textColor for: #NewBalloonMorph to: self white.! Item was added: + ----- Method: TrimTheme class>>addFonts: (in category 'instance creation') ----- + addFonts: theme + + "Set-up fonts." + theme + set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); + set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); + set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); + set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); + set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); + set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); + set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); + set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); + set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).! Item was added: + ----- Method: TrimTheme class>>addMenusAndDockingBars: (in category 'instance creation') ----- + addMenusAndDockingBars: theme + + theme + set: #borderColor for: #MenuMorph to: self gray51; + set: #borderWidth for: #MenuMorph to: 1; + set: #borderStyle for: #MenuMorph to: BorderStyle default; + set: #color for: #MenuMorph to: self gray27; + + set: #titleBorderColor for: #MenuMorph to: (Color r: 0.6 g: 0.7 b: 1); + set: #titleBorderWidth for: #MenuMorph to: 0; + set: #titleBorderStyle for: #MenuMorph to: BorderStyle default; + set: #titleColor for: #MenuMorph to: Color transparent; + set: #titleTextColor for: #MenuMorph to: self white; + + set: #lineColor for: #MenuMorph to: self gray51; + set: #lineStyle for: #MenuMorph to: BorderStyle simple; + set: #lineWidth for: #MenuMorph to: 1. + + theme + set: #textColor for: #MenuItemMorph to: self white; + set: #disabledTextColor for: #MenuItemMorph to: self gray128; + set: #selectionColor for: #MenuItemMorph to: self gray102; + set: #selectionTextColor for: #MenuItemMorph to: self white. + + "The world main docking bar." + theme + set: #logoColor for: #TheWorldMainDockingBar to: self white; + set: #selectionLogoColor for: #TheWorldMainDockingBar to: self white.! Item was added: + ----- Method: TrimTheme class>>addScrollables: (in category 'instance creation') ----- + addScrollables: theme + "self create apply" + + "Sliders" + theme + set: #borderColor for: #Slider to: self gray76; + set: #borderWidth for: #Slider to: 1; + set: #color for: #Slider to: self gray61; + set: #thumbBorderColor for: #Slider to: self gray61; + set: #thumbBorderWidth for: #Slider to: 1; + set: #thumbColor for: #Slider to: self gray128; + set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ]. + + "Scroll bars" + theme + set: #thumbBorderWidth for: #ScrollBar to: 1; + set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: 0.2] ]; + "set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | self gray51] ];" + set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: 0.2] ]. + + "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." + theme + set: #borderColor for: #ScrollPane to: self gray76; + set: #borderWidth for: #ScrollPane to: 1; + set: #borderStyle for: #ScrollPane to: BorderStyle default; + set: #color for: #ScrollPane to: self gray51. + + "List widgets" + theme + set: #textColor for: #PluggableListMorph to: self white; + set: #selectionColor for: #PluggableListMorph to: self blue; + derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter]; + set: #selectionTextColor for: #PluggableListMorph to: self white; + set: #filterColor for: #PluggableListMorph to: self orange; + set: #filterTextColor for: #PluggableListMorph to: self white; + set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c alpha: 0.3] ]; + set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ]. + + "Tree widgets" + theme + set: #higlightTextColor for: #SimpleHierarchicalListMorph to: self red; + set: #lineColor for: #SimpleHierarchicalListMorph to: self gray168. + + "Text widgets" + theme + set: #textColor for: #PluggableTextMorph to: self white; + set: #caretColor for: #PluggableTextMorph to: self white; + set: #selectionColor for: #PluggableTextMorph to: (self blue alpha: 0.4); + set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | self blue alpha: 0.3] ]; + set: #adornmentReadOnly for: #PluggableTextMorph to: self black; + set: #adornmentRefuse for: #PluggableTextMorph to: self blue; + set: #adornmentConflict for: #PluggableTextMorph to: self red; + set: #adornmentDiff for: #PluggableTextMorph to: self green; + set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange; + set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow; + set: #frameAdornmentWidth for: #PluggableTextMorph to: 1. + theme + set: #balloonTextColor for: #PluggableTextMorphPlus to: self gray102.! Item was added: + ----- Method: TrimTheme class>>addSyntaxHighlighting: (in category 'instance creation') ----- + addSyntaxHighlighting: theme + "self createDark apply." + + theme + set: #color for: #TextAction to: self blue; + + set: #default for: #SHTextStylerST80 to: {self white}; + set: #invalid for: #SHTextStylerST80 to: {self red}; + set: #excessCode for: #SHTextStylerST80 to: {self red}; + set: #comment for: #SHTextStylerST80 to: {self cyan}; + set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic}; + set: #'$' for: #SHTextStylerST80 to: {self yellow}; + set: #character for: #SHTextStylerST80 to: {self yellow}; + set: #integer for: #SHTextStylerST80 to: {self yellow}; + set: #number for: #SHTextStylerST80 to: {self yellow}; + set: #- for: #SHTextStylerST80 to: {self yellow}; + set: #symbol for: #SHTextStylerST80 to: {self orange}; + set: #stringSymbol for: #SHTextStylerST80 to: {self orange}; + set: #literalArray for: #SHTextStylerST80 to: {self orange}; + set: #string for: #SHTextStylerST80 to: {self magenta. TextEmphasis normal}; + set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal}; + set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; + set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; + set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic}; + set: #keyword for: #SHTextStylerST80 to: {self blue}; + set: #binary for: #SHTextStylerST80 to: {self blue}; + set: #unary for: #SHTextStylerST80 to: {self blue}; + set: #incompleteKeyword for: #SHTextStylerST80 to: {self white. TextEmphasis underlined}; + set: #incompleteBinary for: #SHTextStylerST80 to: {self white. TextEmphasis underlined}; + set: #incompleteUnary for: #SHTextStylerST80 to: {self white. TextEmphasis underlined}; + set: #undefinedKeyword for: #SHTextStylerST80 to: {self red}; + set: #undefinedBinary for: #SHTextStylerST80 to: {self red}; + set: #undefinedUnary for: #SHTextStylerST80 to: {self red}; + set: #patternKeyword for: #SHTextStylerST80 to: {nil}; + set: #patternBinary for: #SHTextStylerST80 to: {nil}; + set: #patternUnary for: #SHTextStylerST80 to: {nil}; + set: #self for: #SHTextStylerST80 to: {self gray168}; + set: #super for: #SHTextStylerST80 to: {self gray168}; + set: #true for: #SHTextStylerST80 to: {self red}; + set: #false for: #SHTextStylerST80 to: {self red}; + set: #nil for: #SHTextStylerST80 to: {self red}; + set: #thisContext for: #SHTextStylerST80 to: {self red}; + set: #return for: #SHTextStylerST80 to: {self red}; + set: #patternArg for: #SHTextStylerST80 to: {self gray168}; + set: #methodArg for: #SHTextStylerST80 to: {self gray168}; + set: #blockPatternArg for: #SHTextStylerST80 to: {self gray168}; + set: #blockArg for: #SHTextStylerST80 to: {self gray168}; + set: #argument for: #SHTextStylerST80 to: {self gray168}; + set: #blockArgColon for: #SHTextStylerST80 to: {self white}; + set: #leftParenthesis for: #SHTextStylerST80 to: {self white}; + set: #rightParenthesis for: #SHTextStylerST80 to: {self white}; + set: #leftParenthesis1 for: #SHTextStylerST80 to: {self gray168}; + set: #rightParenthesis1 for: #SHTextStylerST80 to: {self gray168}; + set: #leftParenthesis2 for: #SHTextStylerST80 to: {self gray128}; + set: #rightParenthesis2 for: #SHTextStylerST80 to: {self gray128}; + set: #leftParenthesis3 for: #SHTextStylerST80 to: {self gray102}; + set: #rightParenthesis3 for: #SHTextStylerST80 to: {self gray102}; + set: #leftParenthesis4 for: #SHTextStylerST80 to: {self gray76}; + set: #rightParenthesis4 for: #SHTextStylerST80 to: {self gray76}; + set: #leftParenthesis5 for: #SHTextStylerST80 to: {self gray102}; + set: #rightParenthesis5 for: #SHTextStylerST80 to: {self gray102}; + set: #leftParenthesis6 for: #SHTextStylerST80 to: {self gray128}; + set: #rightParenthesis6 for: #SHTextStylerST80 to: {self gray128}; + set: #leftParenthesis7 for: #SHTextStylerST80 to: {self gray168}; + set: #rightParenthesis7 for: #SHTextStylerST80 to: {self gray168}; + set: #blockStart for: #SHTextStylerST80 to: {self white}; + set: #blockEnd for: #SHTextStylerST80 to: {self white}; + set: #blockStart1 for: #SHTextStylerST80 to: {self gray168}; + set: #blockEnd1 for: #SHTextStylerST80 to: {self gray168}; + set: #blockStart2 for: #SHTextStylerST80 to: {self gray128}; + set: #blockEnd2 for: #SHTextStylerST80 to: {self gray128}; + set: #blockStart3 for: #SHTextStylerST80 to: {self gray102}; + set: #blockEnd3 for: #SHTextStylerST80 to: {self gray102}; + set: #blockStart4 for: #SHTextStylerST80 to: {self gray76}; + set: #blockEnd4 for: #SHTextStylerST80 to: {self gray76}; + set: #blockStart5 for: #SHTextStylerST80 to: {self gray102}; + set: #blockEnd5 for: #SHTextStylerST80 to: {self gray102}; + set: #blockStart6 for: #SHTextStylerST80 to: {self gray128}; + set: #blockEnd6 for: #SHTextStylerST80 to: {self gray128}; + set: #blockStart7 for: #SHTextStylerST80 to: {self gray168}; + set: #blockEnd7 for: #SHTextStylerST80 to: {self gray168}; + set: #arrayStart for: #SHTextStylerST80 to: {self white}; + set: #arrayEnd for: #SHTextStylerST80 to: {self white}; + set: #arrayStart1 for: #SHTextStylerST80 to: {self white}; + set: #arrayEnd1 for: #SHTextStylerST80 to: {self white}; + set: #byteArrayStart for: #SHTextStylerST80 to: {self white}; + set: #byteArrayEnd for: #SHTextStylerST80 to: {self white}; + set: #byteArrayStart1 for: #SHTextStylerST80 to: {self white}; + set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self white}; + set: #leftBrace for: #SHTextStylerST80 to: {self white}; + set: #rightBrace for: #SHTextStylerST80 to: {self white}; + set: #cascadeSeparator for: #SHTextStylerST80 to: {self white}; + set: #statementSeparator for: #SHTextStylerST80 to: {self white}; + set: #externalCallType for: #SHTextStylerST80 to: {self white}; + set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self white}; + set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self white}; + set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self white}; + set: #methodTempBar for: #SHTextStylerST80 to: {self white}; + set: #blockTempBar for: #SHTextStylerST80 to: {self white}; + set: #blockArgsBar for: #SHTextStylerST80 to: {self white}; + set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; + set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; + set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; + set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; + set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; + set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; + set: #blockTempVar for: #SHTextStylerST80 to: {self white}; + set: #blockPatternTempVar for: #SHTextStylerST80 to: {self white}; + set: #instVar for: #SHTextStylerST80 to: {self white}; + set: #workspaceVar for: #SHTextStylerST80 to: {self white}; + set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red}; + set: #incompleteIdentifier for: #SHTextStylerST80 to: {self white. {TextEmphasis italic. TextEmphasis underlined}}; + set: #tempVar for: #SHTextStylerST80 to: {self white}; + set: #patternTempVar for: #SHTextStylerST80 to: {self white}; + set: #poolConstant for: #SHTextStylerST80 to: {self white}; + set: #classVar for: #SHTextStylerST80 to: {self white}; + set: #globalVar for: #SHTextStylerST80 to: {self white}. + + "And the text differ" + theme + set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self green }; + set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self red }; + set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.! Item was added: + ----- Method: TrimTheme class>>addToolColors: (in category 'instance creation') ----- + addToolColors: theme + "Tool-specific colors." + + "SUnit's TestRunner." + theme + set: #failureColor for: #TestRunner to: self yellow; + set: #errorColor for: #TestRunner to: self red; + set: #passColor for: #TestRunner to: self green. + + "Monticello Tools." + theme + set: #revertedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut}; + set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: self gray128}. + + "Browser." + theme set: #noClassCommentColor for: #Browser to: self red.! Item was added: + ----- Method: TrimTheme class>>addWindowColors: (in category 'instance creation') ----- + addWindowColors: theme + + | windowColorBrightnessAdjustment | + windowColorBrightnessAdjustment := -0.35. + theme + set: #titleFont for: #SystemWindow to: [Preferences windowTitleFont]; + set: #borderColorModifier for: #SystemWindow to: [ [:c | c adjustBrightness: -0.1] ]; + set: #borderColorModifier for: #ScrollPane to: [ [:c | c adjustBrightness: 0.1] ]; + set: #borderWidth for: #SystemWindow to: 1; + + set: #uniformWindowColor for: #Model to: self gray76; + + set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color alphaMixed: 0.5 with: self gray40] ]; + set: #unfocusedLabelColor for: #SystemWindow to: self gray168; + set: #focusedLabelColor for: #SystemWindow to: Color white; + + set: #customWindowColor for: #Browser to: ((Color r: 0.764 g: 0.9 b: 0.63) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #ChangeList to: ((Color r: 0.719 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #ChangeSorter to: ((Color r: 0.719 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #ChatNotes to: ((Color r: 1.0 g: 0.7 b: 0.8) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #ClassCommentVersionsBrowser to: ((Color r: 0.753 g: 0.677 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #Debugger to: ((Color r: 0.9 g: 0.719 b: 0.719) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #DualChangeSorter to: ((Color r: 0.719 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #FileContentsBrowser to: ((Color r: 0.7 g: 0.7 b: 0.508) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #FileList to: ((Color r: 0.65 g: 0.65 b: 0.65) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #InstanceBrowser to: ((Color r: 0.726 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #Lexicon to: ((Color r: 0.79 g: 0.9 b: 0.79) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #MCTool to: ((Color r: 0.65 g: 0.691 b: 0.876) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #MessageNames to: ((Color r: 0.639 g: 0.9 b: 0.497) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #MessageSet to: ((Color r: 0.719 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #PackagePaneBrowser to: ((Color r: 0.9 g: 0.9 b: 0.63) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #PluggableFileList to: (Color lightYellow adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #PreferenceBrowser to: ((Color r: 0.671 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #SMLoader to: ((Color r: 0.801 g: 0.801 b: 0.614) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #SMLoaderPlus to: ((Color r: 0.801 g: 0.801 b: 0.614) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #SMReleaseBrowser to: ((Color r: 0.801 g: 0.801 b: 0.614) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #ScriptingDomain to: ((Color r: 0.91 g: 0.91 b: 0.91) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #SelectorBrowser to: ((Color r: 0.45 g: 0.9 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #StringHolder to: ((Color r: 0.9 g: 0.9 b: 0.719) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #TestRunner to: ((Color r: 0.9 g: 0.576 b: 0.09) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #TranscriptStream to: ((Color r: 0.9 g: 0.75 b: 0.45) adjustBrightness: windowColorBrightnessAdjustment); + set: #customWindowColor for: #VersionsBrowser to: ((Color r: 0.782 g: 0.677 b: 0.9) adjustBrightness: windowColorBrightnessAdjustment).! Item was added: + ----- Method: TrimTheme class>>backgroundForm (in category 'instance creation') ----- + backgroundForm + + | ref | + ref := self gray39. + + ^ (SqueakTheme linenblue asFormOfDepth: 32) collectColors: [:c | + Color + h:ref hue + s: ref saturation + v: c brightness - 0.12 + alpha: c alpha]! Item was added: + ----- Method: TrimTheme class>>black (in category 'colors') ----- + black + + ^ self gray27! Item was added: + ----- Method: TrimTheme class>>blue (in category 'colors') ----- + blue + + ^ Color r: 94 / 255 g: 140 / 255 b: 204 / 255! Item was added: + ----- Method: TrimTheme class>>create (in category 'instance creation') ----- + create + "doIt: [self create apply.]" + + | themeName | + themeName := 'Trim (dark)'. + ^ (self named: themeName) in: [:theme | + theme merge: (self named: 'Squeak') overwrite: true. + theme name: themeName. + + "General morph stuff." + theme + set: #keyboardFocusColor for: #Morph to: self blue; + set: #keyboardFocusWidth for: #Morph to: 2. + + theme set: #background for: #MorphicProject to: self backgroundForm. + + self addFonts: theme. + self addWindowColors: theme. + self addSyntaxHighlighting: theme. + self addMenusAndDockingBars: theme. + self addDialogs: theme. + self addButtons: theme. + self addScrollables: theme. + self addToolColors: theme. + + theme]! Item was added: + ----- Method: TrimTheme class>>cyan (in category 'colors') ----- + cyan + + ^ Color fromString: '#2aa198'! Item was added: + ----- Method: TrimTheme class>>gray102 (in category 'colors - gray') ----- + gray102 + + ^ Color gray: 102 / 255! Item was added: + ----- Method: TrimTheme class>>gray128 (in category 'colors - gray') ----- + gray128 + + ^ Color gray: 128 / 255! Item was added: + ----- Method: TrimTheme class>>gray168 (in category 'colors - gray') ----- + gray168 + + ^ Color gray: 168 / 255! Item was added: + ----- Method: TrimTheme class>>gray27 (in category 'colors - gray') ----- + gray27 + + ^ Color gray: 27 / 255! Item was added: + ----- Method: TrimTheme class>>gray34 (in category 'colors - gray') ----- + gray34 + + ^ Color gray: 34 / 255! Item was added: + ----- Method: TrimTheme class>>gray39 (in category 'colors - gray') ----- + gray39 + + ^ Color gray: 39 / 255! Item was added: + ----- Method: TrimTheme class>>gray40 (in category 'colors - gray') ----- + gray40 + + ^ Color gray: 40 / 255! Item was added: + ----- Method: TrimTheme class>>gray51 (in category 'colors - gray') ----- + gray51 + + ^ Color gray: 51 / 255! Item was added: + ----- Method: TrimTheme class>>gray59 (in category 'colors - gray') ----- + gray59 + + ^ Color gray: 59 / 255! Item was added: + ----- Method: TrimTheme class>>gray61 (in category 'colors - gray') ----- + gray61 + + ^ Color gray: 61 / 255! Item was added: + ----- Method: TrimTheme class>>gray64 (in category 'colors - gray') ----- + gray64 + + ^ Color gray: 64 / 255! Item was added: + ----- Method: TrimTheme class>>gray76 (in category 'colors - gray') ----- + gray76 + + ^ Color gray: 76 / 255! Item was added: + ----- Method: TrimTheme class>>green (in category 'colors') ----- + green + + ^ Color fromString: '#859900'! Item was added: + ----- Method: TrimTheme class>>magenta (in category 'colors') ----- + magenta + + ^ (Color r: 0.917 g: 0.317 b: 0.607)! Item was added: + ----- Method: TrimTheme class>>orange (in category 'colors') ----- + orange + + ^ (Color r: 0.886 g: 0.383 b: 0.175)! Item was added: + ----- Method: TrimTheme class>>red (in category 'colors') ----- + red + + ^ (Color r: 0.952 g: 0.3 b: 0.288)! Item was added: + ----- Method: TrimTheme class>>violet (in category 'colors') ----- + violet + + ^ Color fromString: '#6c71c4'! Item was added: + ----- Method: TrimTheme class>>white (in category 'colors') ----- + white + + ^ Color gray: 240 / 255! Item was added: + ----- Method: TrimTheme class>>yellow (in category 'colors') ----- + yellow + + ^ Color fromString: '#b58900'! Item was changed: ----- Method: UserInterfaceTheme class>>cleanUp: (in category 'initialize-release') ----- cleanUp: aggressive aggressive ifTrue: [ All := nil. SqueakTheme create; createDuller. SolarizedTheme createDark; createLight. MonokaiTheme createDark. + CommunityTheme createDark. + TrimTheme create].! - CommunityTheme createDark].!

7 9

The Trunk: System-mt.1011.mcz
by commits＠source.squeak.org 03 Apr '18

03 Apr '18

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1011.mcz ==================== Summary ==================== Name: System-mt.1011 Author: mt Time: 3 April 2018, 8:49:01.678205 am UUID: a8e83753-cef1-a24e-b214-83fe53b2849b Ancestors: System-mt.1010 Minor changes for a more distinguishable syntax highlighting in Monokai and Solarized UI themes. =============== Diff against System-mt.1010 =============== Item was changed: ----- Method: MonokaiTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') ----- addDarkSyntaxHighlighting: theme "self createDark apply." + theme set: #color for: #TextAction to: self blue; set: #default for: #SHTextStylerST80 to: {self foregroundColor}; set: #invalid for: #SHTextStylerST80 to: {self red}; set: #excessCode for: #SHTextStylerST80 to: {self red}; set: #comment for: #SHTextStylerST80 to: {self commentColor}; set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic}; set: #'$' for: #SHTextStylerST80 to: {self red}; set: #character for: #SHTextStylerST80 to: {self numberColor}; set: #integer for: #SHTextStylerST80 to: {self numberColor}; set: #number for: #SHTextStylerST80 to: {self numberColor}; set: #- for: #SHTextStylerST80 to: {self red}; + set: #symbol for: #SHTextStylerST80 to: {self orange}; + set: #stringSymbol for: #SHTextStylerST80 to: {self orange}; + set: #literalArray for: #SHTextStylerST80 to: {self orange}; - set: #symbol for: #SHTextStylerST80 to: {self blue}; - set: #stringSymbol for: #SHTextStylerST80 to: {self blue}; - set: #literalArray for: #SHTextStylerST80 to: {self blue}; set: #string for: #SHTextStylerST80 to: {self stringColor. TextEmphasis normal}; set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal}; set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic}; set: #keyword for: #SHTextStylerST80 to: {self blue}; set: #binary for: #SHTextStylerST80 to: {self blue}; set: #unary for: #SHTextStylerST80 to: {self blue}; set: #incompleteKeyword for: #SHTextStylerST80 to: {self foregroundColor. TextEmphasis underlined}; set: #incompleteBinary for: #SHTextStylerST80 to: {self foregroundColor. TextEmphasis underlined}; set: #incompleteUnary for: #SHTextStylerST80 to: {self foregroundColor. TextEmphasis underlined}; set: #undefinedKeyword for: #SHTextStylerST80 to: {self red}; set: #undefinedBinary for: #SHTextStylerST80 to: {self red}; set: #undefinedUnary for: #SHTextStylerST80 to: {self red}; + set: #patternKeyword for: #SHTextStylerST80 to: {nil}; + set: #patternBinary for: #SHTextStylerST80 to: {nil}; + set: #patternUnary for: #SHTextStylerST80 to: {nil}; + set: #self for: #SHTextStylerST80 to: {Color gray: 0.6}; + set: #super for: #SHTextStylerST80 to: {Color gray: 0.6}; - set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #self for: #SHTextStylerST80 to: {self red}; - set: #super for: #SHTextStylerST80 to: {self red}; set: #true for: #SHTextStylerST80 to: {self red}; set: #false for: #SHTextStylerST80 to: {self red}; set: #nil for: #SHTextStylerST80 to: {self red}; set: #thisContext for: #SHTextStylerST80 to: {self red}; set: #return for: #SHTextStylerST80 to: {self red}; set: #patternArg for: #SHTextStylerST80 to: {self blue}; set: #methodArg for: #SHTextStylerST80 to: {self blue}; set: #blockPatternArg for: #SHTextStylerST80 to: {self blue}; set: #blockArg for: #SHTextStylerST80 to: {self blue}; set: #argument for: #SHTextStylerST80 to: {self blue}; set: #blockArgColon for: #SHTextStylerST80 to: {self foregroundColor}; set: #leftParenthesis for: #SHTextStylerST80 to: {self foregroundColor}; set: #rightParenthesis for: #SHTextStylerST80 to: {self foregroundColor}; set: #leftParenthesis1 for: #SHTextStylerST80 to: {self green}; set: #rightParenthesis1 for: #SHTextStylerST80 to: {self green}; set: #leftParenthesis2 for: #SHTextStylerST80 to: {self magenta}; set: #rightParenthesis2 for: #SHTextStylerST80 to: {self magenta}; set: #leftParenthesis3 for: #SHTextStylerST80 to: {self red}; set: #rightParenthesis3 for: #SHTextStylerST80 to: {self red}; set: #leftParenthesis4 for: #SHTextStylerST80 to: {self green}; set: #rightParenthesis4 for: #SHTextStylerST80 to: {self green}; set: #leftParenthesis5 for: #SHTextStylerST80 to: {self orange}; set: #rightParenthesis5 for: #SHTextStylerST80 to: {self orange}; set: #leftParenthesis6 for: #SHTextStylerST80 to: {self magenta}; set: #rightParenthesis6 for: #SHTextStylerST80 to: {self magenta}; set: #leftParenthesis7 for: #SHTextStylerST80 to: {self blue}; set: #rightParenthesis7 for: #SHTextStylerST80 to: {self blue}; set: #blockStart for: #SHTextStylerST80 to: {self foregroundColor}; set: #blockEnd for: #SHTextStylerST80 to: {self foregroundColor}; set: #blockStart1 for: #SHTextStylerST80 to: {self green}; set: #blockEnd1 for: #SHTextStylerST80 to: {self green}; set: #blockStart2 for: #SHTextStylerST80 to: {self magenta}; set: #blockEnd2 for: #SHTextStylerST80 to: {self magenta}; set: #blockStart3 for: #SHTextStylerST80 to: {self red}; set: #blockEnd3 for: #SHTextStylerST80 to: {self red}; set: #blockStart4 for: #SHTextStylerST80 to: {self green}; set: #blockEnd4 for: #SHTextStylerST80 to: {self green}; set: #blockStart5 for: #SHTextStylerST80 to: {self orange}; set: #blockEnd5 for: #SHTextStylerST80 to: {self orange}; set: #blockStart6 for: #SHTextStylerST80 to: {self magenta}; set: #blockEnd6 for: #SHTextStylerST80 to: {self magenta}; set: #blockStart7 for: #SHTextStylerST80 to: {self blue}; set: #blockEnd7 for: #SHTextStylerST80 to: {self blue}; set: #arrayStart for: #SHTextStylerST80 to: {self foregroundColor}; set: #arrayEnd for: #SHTextStylerST80 to: {self foregroundColor}; set: #arrayStart1 for: #SHTextStylerST80 to: {self foregroundColor}; set: #arrayEnd1 for: #SHTextStylerST80 to: {self foregroundColor}; set: #byteArrayStart for: #SHTextStylerST80 to: {self foregroundColor}; set: #byteArrayEnd for: #SHTextStylerST80 to: {self foregroundColor}; set: #byteArrayStart1 for: #SHTextStylerST80 to: {self foregroundColor}; set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self foregroundColor}; set: #leftBrace for: #SHTextStylerST80 to: {self foregroundColor}; set: #rightBrace for: #SHTextStylerST80 to: {self foregroundColor}; set: #cascadeSeparator for: #SHTextStylerST80 to: {self foregroundColor}; set: #statementSeparator for: #SHTextStylerST80 to: {self foregroundColor}; set: #externalCallType for: #SHTextStylerST80 to: {self foregroundColor}; set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self foregroundColor}; set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self foregroundColor}; set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self foregroundColor}; set: #methodTempBar for: #SHTextStylerST80 to: {self foregroundColor}; set: #blockTempBar for: #SHTextStylerST80 to: {self foregroundColor}; set: #blockArgsBar for: #SHTextStylerST80 to: {self foregroundColor}; set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #blockTempVar for: #SHTextStylerST80 to: {self foregroundColor}; set: #blockPatternTempVar for: #SHTextStylerST80 to: {self foregroundColor}; set: #instVar for: #SHTextStylerST80 to: {self foregroundColor}; set: #workspaceVar for: #SHTextStylerST80 to: {self foregroundColor}; set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red}; set: #incompleteIdentifier for: #SHTextStylerST80 to: {self foregroundColor. {TextEmphasis italic. TextEmphasis underlined}}; set: #tempVar for: #SHTextStylerST80 to: {self foregroundColor}; set: #patternTempVar for: #SHTextStylerST80 to: {self foregroundColor}; + set: #poolConstant for: #SHTextStylerST80 to: {self classColor}; + set: #classVar for: #SHTextStylerST80 to: {self classColor}; + set: #globalVar for: #SHTextStylerST80 to: {self classColor}. - set: #poolConstant for: #SHTextStylerST80 to: {self foregroundColor}; - set: #classVar for: #SHTextStylerST80 to: {self foregroundColor}; - set: #globalVar for: #SHTextStylerST80 to: {self foregroundColor}. "And the text differ" theme set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self red }; set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self blue }; set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.! Item was changed: ----- Method: SolarizedTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') ----- addDarkSyntaxHighlighting: theme "self createDark apply." theme set: #color for: #TextAction to: self blue; set: #default for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #invalid for: #SHTextStylerST80 to: {self red}; set: #excessCode for: #SHTextStylerST80 to: {self red}; set: #comment for: #SHTextStylerST80 to: {self cyan}; set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic}; set: #'$' for: #SHTextStylerST80 to: {self red}; set: #character for: #SHTextStylerST80 to: {self red}; set: #integer for: #SHTextStylerST80 to: {self red}; set: #number for: #SHTextStylerST80 to: {self red}; set: #- for: #SHTextStylerST80 to: {self red}; + set: #symbol for: #SHTextStylerST80 to: {self green}; + set: #stringSymbol for: #SHTextStylerST80 to: {self green}; + set: #literalArray for: #SHTextStylerST80 to: {self green}; - set: #symbol for: #SHTextStylerST80 to: {self blue}; - set: #stringSymbol for: #SHTextStylerST80 to: {self blue}; - set: #literalArray for: #SHTextStylerST80 to: {self blue}; set: #string for: #SHTextStylerST80 to: {self magenta. TextEmphasis normal}; set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal}; set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic}; set: #keyword for: #SHTextStylerST80 to: {self blue}; set: #binary for: #SHTextStylerST80 to: {self blue}; set: #unary for: #SHTextStylerST80 to: {self blue}; set: #incompleteKeyword for: #SHTextStylerST80 to: {self darkContentPrimary. TextEmphasis underlined}; set: #incompleteBinary for: #SHTextStylerST80 to: {self darkContentPrimary. TextEmphasis underlined}; set: #incompleteUnary for: #SHTextStylerST80 to: {self darkContentPrimary. TextEmphasis underlined}; set: #undefinedKeyword for: #SHTextStylerST80 to: {self red}; set: #undefinedBinary for: #SHTextStylerST80 to: {self red}; set: #undefinedUnary for: #SHTextStylerST80 to: {self red}; + set: #patternKeyword for: #SHTextStylerST80 to: {nil}; + set: #patternBinary for: #SHTextStylerST80 to: {nil}; + set: #patternUnary for: #SHTextStylerST80 to: {nil}; + set: #self for: #SHTextStylerST80 to: {self darkContentPrimary}; + set: #super for: #SHTextStylerST80 to: {self darkContentPrimary}; - set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; - set: #self for: #SHTextStylerST80 to: {self red}; - set: #super for: #SHTextStylerST80 to: {self red}; set: #true for: #SHTextStylerST80 to: {self red}; set: #false for: #SHTextStylerST80 to: {self red}; set: #nil for: #SHTextStylerST80 to: {self red}; set: #thisContext for: #SHTextStylerST80 to: {self red}; set: #return for: #SHTextStylerST80 to: {self red}; set: #patternArg for: #SHTextStylerST80 to: {self blue}; set: #methodArg for: #SHTextStylerST80 to: {self blue}; set: #blockPatternArg for: #SHTextStylerST80 to: {self blue}; set: #blockArg for: #SHTextStylerST80 to: {self blue}; set: #argument for: #SHTextStylerST80 to: {self blue}; set: #blockArgColon for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #leftParenthesis for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #rightParenthesis for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #leftParenthesis1 for: #SHTextStylerST80 to: {self green}; set: #rightParenthesis1 for: #SHTextStylerST80 to: {self green}; set: #leftParenthesis2 for: #SHTextStylerST80 to: {self magenta}; set: #rightParenthesis2 for: #SHTextStylerST80 to: {self magenta}; set: #leftParenthesis3 for: #SHTextStylerST80 to: {self red}; set: #rightParenthesis3 for: #SHTextStylerST80 to: {self red}; set: #leftParenthesis4 for: #SHTextStylerST80 to: {self green}; set: #rightParenthesis4 for: #SHTextStylerST80 to: {self green}; set: #leftParenthesis5 for: #SHTextStylerST80 to: {self orange}; set: #rightParenthesis5 for: #SHTextStylerST80 to: {self orange}; set: #leftParenthesis6 for: #SHTextStylerST80 to: {self magenta}; set: #rightParenthesis6 for: #SHTextStylerST80 to: {self magenta}; set: #leftParenthesis7 for: #SHTextStylerST80 to: {self blue}; set: #rightParenthesis7 for: #SHTextStylerST80 to: {self blue}; set: #blockStart for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #blockEnd for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #blockStart1 for: #SHTextStylerST80 to: {self green}; set: #blockEnd1 for: #SHTextStylerST80 to: {self green}; set: #blockStart2 for: #SHTextStylerST80 to: {self magenta}; set: #blockEnd2 for: #SHTextStylerST80 to: {self magenta}; set: #blockStart3 for: #SHTextStylerST80 to: {self red}; set: #blockEnd3 for: #SHTextStylerST80 to: {self red}; set: #blockStart4 for: #SHTextStylerST80 to: {self green}; set: #blockEnd4 for: #SHTextStylerST80 to: {self green}; set: #blockStart5 for: #SHTextStylerST80 to: {self orange}; set: #blockEnd5 for: #SHTextStylerST80 to: {self orange}; set: #blockStart6 for: #SHTextStylerST80 to: {self magenta}; set: #blockEnd6 for: #SHTextStylerST80 to: {self magenta}; set: #blockStart7 for: #SHTextStylerST80 to: {self blue}; set: #blockEnd7 for: #SHTextStylerST80 to: {self blue}; set: #arrayStart for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #arrayEnd for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #arrayStart1 for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #arrayEnd1 for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #byteArrayStart for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #byteArrayEnd for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #byteArrayStart1 for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #leftBrace for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #rightBrace for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #cascadeSeparator for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #statementSeparator for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #externalCallType for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #methodTempBar for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #blockTempBar for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #blockArgsBar for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #blockTempVar for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #blockPatternTempVar for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #instVar for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #workspaceVar for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red}; set: #incompleteIdentifier for: #SHTextStylerST80 to: {self darkContentPrimary. {TextEmphasis italic. TextEmphasis underlined}}; set: #tempVar for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #patternTempVar for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #poolConstant for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #classVar for: #SHTextStylerST80 to: {self darkContentPrimary}; set: #globalVar for: #SHTextStylerST80 to: {self darkContentPrimary}. "And the text differ" theme set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self red }; set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self blue }; set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.! Item was changed: ----- Method: SolarizedTheme class>>addLightMenusAndDockingBars: (in category 'instance creation') ----- addLightMenusAndDockingBars: theme "self createLight apply." theme set: #borderWidth for: #MenuMorph to: 1; set: #borderColor for: #MenuMorph to: self lightBackgroundHighlights; set: #color for: #MenuMorph to: self lightBackground; set: #titleTextColor for: #MenuMorph to: self lightContentEmphasizedMore; set: #lineColor for: #MenuMorph to: self lightBackgroundHighlights; set: #lineStyle for: #MenuMorph to: BorderStyle default; set: #lineWidth for: #MenuMorph to: 1. theme set: #textColor for: #MenuItemMorph to: self lightContentEmphasized; set: #disabledTextColor for: #MenuItemMorph to: self lightContentSecondary; + set: #selectionColor for: #MenuItemMorph to: self lightBackgroundHighlights darker; - set: #selectionColor for: #MenuItemMorph to: self lightBackgroundHighlights; set: #selectionTextColor for: #MenuItemMorph to: self lightContentEmphasizedMore. "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph." "The world main docking bar." theme set: #color for: #DockingBarMorph to: self lightBackgroundHighlights; set: #selectionColor for: #DockingBarItemMorph to: self lightContentSecondary; set: #logoColor for: #TheWorldMainDockingBar to: self lightContentEmphasized; set: #selectionLogoColor for: #TheWorldMainDockingBar to: self lightContentEmphasizedMore.! Item was changed: ----- Method: SolarizedTheme class>>addLightScrollables: (in category 'instance creation') ----- addLightScrollables: theme "self createLight apply." "Scroll bars" theme set: #thumbColor for: #ScrollBar to: self lightBackground; set: #thumbBorderColor for: #ScrollBar to: self lightBackground; set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderWidth for: #ScrollPane to: 0; " set: #borderColor for: #ScrollPane to: Color transparent;" set: #color for: #ScrollPane to: self lightBackground. "List widgets" theme set: #textColor for: #PluggableListMorph to: self lightContentEmphasized; + set: #selectionColor for: #PluggableListMorph to: self lightBackgroundHighlights darker; - set: #selectionColor for: #PluggableListMorph to: self lightBackgroundHighlights; set: #selectionTextColor for: #PluggableListMorph to: self lightContentEmphasizedMore; derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c darker]; set: #filterColor for: #PluggableListMorph to: self yellow; set: #filterTextColor for: #PluggableListMorph to: self lightBackground; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.5 ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.5 ] ]. "Tree widgets" theme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter; set: #lineColor for: #SimpleHierarchicalListMorph to: self lightContentSecondary. "Text widgets" theme set: #textColor for: #PluggableTextMorph to: self lightContentPrimary; set: #caretColor for: #PluggableTextMorph to: self lightContentEmphasizedMore; + set: #selectionColor for: #PluggableTextMorph to: self lightBackgroundHighlights darker; - set: #selectionColor for: #PluggableTextMorph to: self lightBackgroundHighlights; set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | (Color r: 0.933 g: 0.909 b: 0.835) "light background highlights"] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta; set: #adornmentRefuse for: #PluggableTextMorph to: self cyan; set: #adornmentConflict for: #PluggableTextMorph to: self red; set: #adornmentDiff for: #PluggableTextMorph to: self green; set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: self lightContentSecondary.! Item was changed: ----- Method: SolarizedTheme class>>addLightSyntaxHighlighting: (in category 'instance creation') ----- addLightSyntaxHighlighting: theme "self createLight apply." + theme set: #color for: #TextAction to: self blue; set: #default for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #invalid for: #SHTextStylerST80 to: {self red}; set: #excessCode for: #SHTextStylerST80 to: {self red}; set: #comment for: #SHTextStylerST80 to: {self cyan}; set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic}; set: #'$' for: #SHTextStylerST80 to: {self red}; set: #character for: #SHTextStylerST80 to: {self red}; set: #integer for: #SHTextStylerST80 to: {self red}; set: #number for: #SHTextStylerST80 to: {self red}; set: #- for: #SHTextStylerST80 to: {self red}; + set: #symbol for: #SHTextStylerST80 to: {self green}; + set: #stringSymbol for: #SHTextStylerST80 to: {self green}; + set: #literalArray for: #SHTextStylerST80 to: {self green}; - set: #symbol for: #SHTextStylerST80 to: {self blue}; - set: #stringSymbol for: #SHTextStylerST80 to: {self blue}; - set: #literalArray for: #SHTextStylerST80 to: {self blue}; set: #string for: #SHTextStylerST80 to: {self magenta. TextEmphasis normal}; set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal}; set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic}; set: #keyword for: #SHTextStylerST80 to: {self blue}; set: #binary for: #SHTextStylerST80 to: {self blue}; set: #unary for: #SHTextStylerST80 to: {self blue}; set: #incompleteKeyword for: #SHTextStylerST80 to: {self lightContentPrimary. TextEmphasis underlined}; set: #incompleteBinary for: #SHTextStylerST80 to: {self lightContentPrimary. TextEmphasis underlined}; set: #incompleteUnary for: #SHTextStylerST80 to: {self lightContentPrimary. TextEmphasis underlined}; set: #undefinedKeyword for: #SHTextStylerST80 to: {self red}; set: #undefinedBinary for: #SHTextStylerST80 to: {self red}; set: #undefinedUnary for: #SHTextStylerST80 to: {self red}; set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; + set: #self for: #SHTextStylerST80 to: {self lightContentPrimary}; + set: #super for: #SHTextStylerST80 to: {self lightContentPrimary}; - set: #self for: #SHTextStylerST80 to: {self red}; - set: #super for: #SHTextStylerST80 to: {self red}; set: #true for: #SHTextStylerST80 to: {self red}; set: #false for: #SHTextStylerST80 to: {self red}; set: #nil for: #SHTextStylerST80 to: {self red}; set: #thisContext for: #SHTextStylerST80 to: {self red}; set: #return for: #SHTextStylerST80 to: {self red}; set: #patternArg for: #SHTextStylerST80 to: {self blue}; set: #methodArg for: #SHTextStylerST80 to: {self blue}; set: #blockPatternArg for: #SHTextStylerST80 to: {self blue}; set: #blockArg for: #SHTextStylerST80 to: {self blue}; set: #argument for: #SHTextStylerST80 to: {self blue}; set: #blockArgColon for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #leftParenthesis for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #rightParenthesis for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #leftParenthesis1 for: #SHTextStylerST80 to: {self green}; set: #rightParenthesis1 for: #SHTextStylerST80 to: {self green}; set: #leftParenthesis2 for: #SHTextStylerST80 to: {self magenta}; set: #rightParenthesis2 for: #SHTextStylerST80 to: {self magenta}; set: #leftParenthesis3 for: #SHTextStylerST80 to: {self red}; set: #rightParenthesis3 for: #SHTextStylerST80 to: {self red}; set: #leftParenthesis4 for: #SHTextStylerST80 to: {self green}; set: #rightParenthesis4 for: #SHTextStylerST80 to: {self green}; set: #leftParenthesis5 for: #SHTextStylerST80 to: {self orange}; set: #rightParenthesis5 for: #SHTextStylerST80 to: {self orange}; set: #leftParenthesis6 for: #SHTextStylerST80 to: {self magenta}; set: #rightParenthesis6 for: #SHTextStylerST80 to: {self magenta}; set: #leftParenthesis7 for: #SHTextStylerST80 to: {self blue}; set: #rightParenthesis7 for: #SHTextStylerST80 to: {self blue}; set: #blockStart for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #blockEnd for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #blockStart1 for: #SHTextStylerST80 to: {self green}; set: #blockEnd1 for: #SHTextStylerST80 to: {self green}; set: #blockStart2 for: #SHTextStylerST80 to: {self magenta}; set: #blockEnd2 for: #SHTextStylerST80 to: {self magenta}; set: #blockStart3 for: #SHTextStylerST80 to: {self red}; set: #blockEnd3 for: #SHTextStylerST80 to: {self red}; set: #blockStart4 for: #SHTextStylerST80 to: {self green}; set: #blockEnd4 for: #SHTextStylerST80 to: {self green}; set: #blockStart5 for: #SHTextStylerST80 to: {self orange}; set: #blockEnd5 for: #SHTextStylerST80 to: {self orange}; set: #blockStart6 for: #SHTextStylerST80 to: {self magenta}; set: #blockEnd6 for: #SHTextStylerST80 to: {self magenta}; set: #blockStart7 for: #SHTextStylerST80 to: {self blue}; set: #blockEnd7 for: #SHTextStylerST80 to: {self blue}; set: #arrayStart for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #arrayEnd for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #arrayStart1 for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #arrayEnd1 for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #byteArrayStart for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #byteArrayEnd for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #byteArrayStart1 for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #leftBrace for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #rightBrace for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #cascadeSeparator for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #statementSeparator for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #externalCallType for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #methodTempBar for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #blockTempBar for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #blockArgsBar for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #blockTempVar for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #blockPatternTempVar for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #instVar for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #workspaceVar for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red}; set: #incompleteIdentifier for: #SHTextStylerST80 to: {self lightContentPrimary. {TextEmphasis italic. TextEmphasis underlined}}; set: #tempVar for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #patternTempVar for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #poolConstant for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #classVar for: #SHTextStylerST80 to: {self lightContentPrimary}; set: #globalVar for: #SHTextStylerST80 to: {self lightContentPrimary}. "And the text differ" theme set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self red }; set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self blue }; set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.! Item was changed: + ----- Method: SolarizedTheme class>>darkSelectionColor (in category 'colors by purpose') ----- - ----- Method: SolarizedTheme class>>darkSelectionColor (in category 'as yet unclassified') ----- darkSelectionColor ^ self base01 darker! Item was changed: + ----- Method: SolarizedTheme class>>darkSelectionTextColor (in category 'colors by purpose') ----- - ----- Method: SolarizedTheme class>>darkSelectionTextColor (in category 'as yet unclassified') ----- darkSelectionTextColor ^ self base2!

1 0

The Trunk: System-cmm.1009.mcz
by commits＠source.squeak.org 03 Apr '18

03 Apr '18

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.1009.mcz ==================== Summary ==================== Name: System-cmm.1009 Author: cmm Time: 30 March 2018, 5:47:41.207216 pm UUID: fce32aff-3701-47be-9d68-125ede7bed60 Ancestors: System-mt.1008 Modernize the fonts of my Community Dark theme to better accomodate larger displays. =============== Diff against System-mt.1008 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: aUserInterfaceTheme "Set-up fonts." aUserInterfaceTheme + set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis italic emphasisCode); + set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); + set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); + set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode); - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); + set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); + set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); + set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12); + set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 12 emphasized: TextEmphasis bold emphasisCode)! - set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode)!

4 3

Re: [squeak-dev] [Newbies] AMB
by David T. Lewis 01 Apr '18

01 Apr '18

I am CCing squeak-dev because Stéphane Rollandin is active on that list. Stef did the Squeak implementation and can probably answer your questions. Dave On Sat, Mar 31, 2018 at 03:51:22PM -0700, Sean P. DeNigris wrote: > Is anyone familiar with the AMB project, installable from SqMap catalog? > > I got excited by the description's assertion that "it can do incredible > things" (it even provided an example. After reading the description, tests, > code, and references, I have an inkling what it does, but don't quite > understand what is "incredible" about it and don't want to miss the magic!! > > The catalog description is: > > This is the "ambigous", "nondeterminist", "angelic" operator aka amb > > ... more seriously described as a declarative control flow statement able to > enumerate over finite domains all values that make a program terminate. It > uses continuations to walk the tree of possible tuples, backtracking when > the program fails. > > The amazing thing is the simplicity of the code: four short or very short > methods on the instance side, the class side methods only providing > syntactic sugar. > > And it can do incredible things such as: > > AMB assert: [:string :n :char | (string occurrencesOf: char) = n] > over: #('maman' 'barbapapa' 'guiliguili' 'arthur' 'chtulu') > and: #(2 4 1) > and: #($m $b $a $i $u) > > See AMBTest for more magic. > > I would have been unable to implement this by myself ! This is a port of the > code by Dorai Sitaram which is the reference documentation for amb: > > http://www.ccs.neu.edu/home/dorai/t-y-scheme/t-y-scheme-Z-H-16.html#node_ch… > > > > ----- > Cheers, > Sean > -- > Sent from: http://forum.world.st/Squeak-Beginners-f107673.html > _______________________________________________ > Beginners mailing list > Beginners(a)lists.squeakfoundation.org > http://lists.squeakfoundation.org/mailman/listinfo/beginners

3 3

Re: [squeak-dev] [Pharo-users] Regarding Raven: DOCap System
by henry 01 Apr '18

01 Apr '18

FWIW, Here is an image showing the full stack up to Raven, though the BufferListLayer (stack item 2) is no longer present. [a Transceiver.jpeg] - HH ‐‐‐‐‐‐‐ Original Message ‐‐‐‐‐‐‐ On April 1, 2018 11:06 AM, henry <henry(a)callistohouse.club> wrote: > Thank you for your observations, Andrew. Allow me to take a moment to describe how differences appear in Smalltalk and Java, you have hit the nail squarely. I wish to mention two differences, one on the send side and the other on the resolve side. I also need to mention that it has been a number of years since I have had the Java version functioning, as I delved into making ParrotTalk work binary compatible between Smalltalk and Java. So I am rusty on how the Java side actually works. I just tested and the Reactor interface is not yet functional, so more work needed there. > > On the send side, Java does not have a doesNotUnderstand: mechanism, while Smalltalk does. I do not use special syntax for local async sends, like NewSpeak does, I just have a doesNotUnderstand: implementation in the ERef hierarchy, so when you write: 42 eventual * 10, it sends the * message as an eventual send rather than an immediate call. In Java you have to explicitly call redirectMessage... Here is code (not yet functional in Raven for Java) that demonstrates both an explicit redirectMessage, as well as whenResolved with a ReactorInterface anonymous class implementation. > > Ref ref = RefUtil.wrap("a pauwau is the best", Vat.getLocalVat()); > Ref newRef = ref.redirectMessage("indexOf", "best"); > newRef.whenResolved(new ReactorInterface<Integer>() { > @Override > public void value(Integer obj) throws NotResolvedException { > isResolved = true; > assertEquals(16, obj.intValue()); > } > @Override > public void reactToLostClient(Exception e) throws NotResolvedException { > assertTrue(false); > } > }); > > To your point on whenResolved differences between Smalltalk and Java, exactly. In Smalltalk all you need to do is pass a one-arg block closure with #whenResolved: to an eventual ERef: promise, remotePromise, nearRef or farRef. FarRef and RemotePromise will forward this to the remote vat. > > In Java, I am trying to use anonymous subclasses with a Templated Class for the expected return. > > More difficulty arises if there is more that one expected return type. In Smalltalk just query the class of the returned type within the block closure. It is also possible to have two or more whenResolved: reactor blocks, each with a test for a specific type or failure, and the failure of the resolved reactor should not break the eventual reference, just fail quietly until a successful reactor is encountered. > > In Java, you can have more than one reactor, with two different templated classes. The wrong cast should fail until the correct cast is found. Another thought is how scala works. I do not recall the name of the pattern matching by type, but in scala one can add more tha n one type to the pattern matching (I think it is pattern matching) and the correct code will be called. Perhaps Java's implementation of Raven needs scala code. > > I hope this helps understanding and answers your concerns regarding differences in return types from eventual sends, between a dynamic type system such as Smalltalk and static return types in Java. Please note there is also a Swift implementation of ParrotTalk. > > - HH > > ‐‐‐‐‐‐‐ Original Message ‐‐‐‐‐‐‐ > On April 1, 2018 8:57 AM, <aglynn42(a)gmail.com> wrote: > >> One thing that occurred to me is that the whenResolved etc. handlers only need to be customized to the degree that you want to interop with Java types that are not self-describing, such as the faked primitives and interfaces. Smalltalk types are uniformly self describing, allowing you to implement a single handler for all types, whereas only certain kinds of Java types are self-describing. >> >> If you think about it in terms of RMI, which is not really much different other than the metaphor not taking time and frequency of non-response into account, the promises and futures are much like stubs and skeletons, proxies for the remote message send and resulting method invocations/responses. A Smalltalk to Smalltalk interop such as SST, which is very similar to RMI, only needs one proxy for all objects, which makes abstracting it from the transport (and whether the transport is continuous etc.) much easier. i.e. in RMI you need pools of constant TCP connections, while in SST the transport needen’t be a continuous connection, it could be entirely discrete such as http, and only one abstract connection between “spaces” or “nodes” is required. >> >> If you avoid the nasties in Java and only support interop for self-describing types, you shouldn’t need to write so much custom but rote code. If you do need to support non self-describing types, only on those do you need the custom rote code in the handlers. Further if you use only one set of proxies, i.e. one future/promise/handler set, it will be much easier to keep Raven clean and separated from the transport implementation. >> >> If you keep in mind that although it’s a useful and powerful metaphor, the notion of futures, promises and the like is only a metaphor for invoking remote methods, which in turn is only a more mentally adhesive manner of describing remote procedure calls, with self-describing objects one handler can invoke the appropriate methods on the object by delegating the responsibility to the object itself. >> >> Andrew >> >> From: Pharo-users <pharo-users-bounces(a)lists.pharo.org> On Behalf Of henry >> Sent: Saturday, March 31, 2018 3:46 PM >> To: Squeak-dev <squeak-dev(a)lists.squeakfoundation.org>; Pharo-users list <pharo-users(a)lists.pharo.org> >> Subject: Re: [Pharo-users] Regarding Raven: DOCap System >> >> Raven is a remote, distributed object-capability system. I wanted to stress it runs distributedly over 2048-bit encrypted ParrotTalk 3.6 >> >> Sent from ProtonMail Mobile >> >> On Sat, Mar 31, 2018 at 15:43, henry <henry(a)callistohouse.club> wrote: >> >>> @m_m#3045 for concurrency without shared state, running on a single green thread (smalltalk’s Process) with support for remote async sends to other images, there is my Raven [1], using Cryptography [2], ParrotTalk [3] and STON. This is an implementation of eright’s [4] ELib. I am working on implementing STON for Java, inside the ASN1 project [5] as I already have ParrotTalk in Java [6], binary interoperate with Squeak/Pharo, and my Raven work in progress in Java [7]. This model allows message send redirection to a promise or farRef (or nearRef) as an asynchronous send returning a promise, which supports whenResolved/whenBroken handlers to be registered per PromiseERef. I’ll be happy to answer any questions you may be having about Raven. Raven is an implementation of an Actor model called Communicating Event Loops, in some literature [8] [9]. >>> >>> I hope this helps! >>> >>> [1] http://www.squeaksource.com/Cryptography/Raven-HenryHouse.21.mcz >>> >>> [2] http://www.squeaksource.com/Cryptography/Cryptography-rww.115.mcz >>> >>> [3] http://www.squeaksource.com/Cryptography/ParrotTalk-rww.19.mcz >>> >>> [4] http://erights.org/elib/index.html >>> >>> [5] https://github.com/CallistoHouseLtd/ASN1 >>> >>> [6] https://github.com/CallistoHouseLtd/ParrotTalk >>> >>> [7] https://github.com/CallistoHouseLtd/Raven >>> >>> [8] https://eighty-twenty.org/2016/10/18/actors-hopl >>> >>> [9] http://soft.vub.ac.be/Publications/2016/vub-soft-tr-16-11.pdf >>> >>> Sent from ProtonMail Mobile

1 2

Jump to page: