Packages July 2016

packages@lists.squeakfoundation.org

1 participants
141 discussions

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

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

31 Jul '16

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.640.mcz ==================== Summary ==================== Name: Monticello-mt.640 Author: mt Time: 31 July 2016, 10:35:10.36149 am UUID: 245be9a0-8610-2140-b4ed-57064cbe00ee Ancestors: Monticello-cmm.639 *** 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 Monticello-cmm.639 =============== Item was removed: - ----- Method: MCTool class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - - ^ WindowColorSpec - classSymbol: self name - wording: 'Monticello Tool' - brightColor: (Color r: 0.627 g: 0.69 b: 0.976) - pastelColor: (Color r: 0.65 g: 0.753 b: 0.976) paler - helpMessage: 'A Tool Window for the Monticello VCS'! Item was removed: - ----- Method: MCTool>>defaultBackgroundColor (in category 'morphic ui') ----- - defaultBackgroundColor - ^ Preferences monticelloToolWindowColor! Item was added: + ----- Method: MCTool>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.65 g: 0.691 b: 0.876)!

1 0

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

31 Jul '16

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.702.mcz ==================== Summary ==================== Name: Collections-mt.702 Author: mt Time: 31 July 2016, 10:34:09.51149 am UUID: b1aa2c6f-bf2f-a642-ae79-6d85d806a417 Ancestors: Collections-topa.701 *** 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 Collections-topa.701 =============== Item was added: + ----- Method: TranscriptStream class>>themeProperties (in category 'preferences') ----- + themeProperties + + ^ Model themeProperties! Item was added: + ----- Method: TranscriptStream>>applyUserInterfaceTheme (in category 'model protocol') ----- + applyUserInterfaceTheme + + self dependents do: [:ea | + ea isSystemWindow ifTrue: [ + ea refreshWindowColor]].! Item was added: + ----- Method: TranscriptStream>>windowColorToUse (in category 'model protocol') ----- + windowColorToUse + + ^ Color colorFrom: (Model useColorfulWindows + ifTrue: [self userInterfaceTheme customWindowColor ifNil: [Color r: 0.9 g: 0.75 b: 0.45]] + ifFalse: [self userInterfaceTheme uniformWindowColor ifNil: [Color veryVeryLightGray]])!

1 0

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

31 Jul '16

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.62.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.62 Author: mt Time: 31 July 2016, 10:33:35.36249 am UUID: 2ef5e9cc-18c3-7041-813b-54a1d5856f9f Ancestors: PreferenceBrowser-topa.61 *** 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 PreferenceBrowser-topa.61 =============== Item was removed: - PBColorPreferenceView subclass: #PBWindowColorPreferenceView - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'PreferenceBrowser'! Item was removed: - ----- Method: PBWindowColorPreferenceView class>>initialize (in category 'class initialization') ----- - initialize - self viewRegistry register: self.! Item was removed: - ----- Method: PBWindowColorPreferenceView class>>unload (in category 'class initialization') ----- - unload - "Unload order is not guaranteed so guard against failure" - [self viewRegistry unregister: self] on: Error do:[]! Item was removed: - ----- Method: PBWindowColorPreferenceView class>>viewRegistry (in category 'class initialization') ----- - viewRegistry - ^(PreferenceViewRegistry registryOf: #windowColorPreferences) - viewOrder: 6; - yourself.! Item was removed: - ----- Method: PBWindowColorPreferenceView>>initialize (in category 'initialization') ----- - initialize - super initialize. - self addActionTitled: 'Bright' target: Preferences selector: #installBrightWindowColors arguments: {} balloonText: 'Use standard bright colors for all windows' translated. - self addActionTitled: 'Pastel' target: Preferences selector: #installPastelWindowColors arguments: {} balloonText: 'Use standard pastel colors for all windows' translated. - self addActionTitled: 'Gray' target: Preferences selector: #installUniformWindowColors arguments: {} balloonText: 'Use gray backgrounds for all standard windows' translated.! Item was changed: ----- Method: PreferenceBrowser class>>initialize (in category 'class initialization') ----- initialize self - registerWindowColor; registerInOpenMenu; registerInFlaps! Item was removed: - ----- Method: PreferenceBrowser class>>registerWindowColor (in category 'class initialization') ----- - registerWindowColor - (Preferences windowColorFor: self name) = Color white - ifTrue: [ Preferences setWindowColorFor: self name to: (Color colorFrom: self windowColorSpecification brightColor) ].! Item was removed: - ----- Method: PreferenceBrowser class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Preference Browser' brightColor: #(0.645 1.0 1.0) pastelColor: #(0.886 1.0 1.0) helpMessage: 'A tool for expressing personal preferences for numerous options.'! Item was added: + ----- Method: PreferenceBrowser>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.671 g: 0.9 b: 0.9)! Item was changed: ----- Method: PreferenceView>>tearOffButton (in category 'user interface') ----- tearOffButton "Hand the user a button the can control this" | aButton | + aButton := self representativeButtonWithColor: Color white inPanel: nil. - aButton := self representativeButtonWithColor: self preference defaultBackgroundColor inPanel: nil. aButton borderWidth: 1; borderColor: Color black; useRoundedCorners. aButton openInHand! Item was removed: - (PackageInfo named: 'PreferenceBrowser') postscript: 'Preferences removePreference: #syntaxHighlightingAsYouType. - Preferences removePreference: #syntaxHighlightingAsYouTypeLeftArrowAssignment. - Preferences removePreference: #syntaxHighlightingAsYouTypeAnsiAssignment.'!

1 0

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

31 Jul '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.710.mcz ==================== Summary ==================== Name: Tools-mt.710 Author: mt Time: 31 July 2016, 10:32:50.22549 am UUID: 6a406dc5-4534-3d42-8443-d5d6509382a3 Ancestors: Tools-tfel.709 *** 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 Tools-tfel.709 =============== Item was added: + ----- Method: ArchiveViewer>>defaultBackgroundColor (in category 'accessing') ----- + defaultBackgroundColor + + ^ Color veryVeryLightGray! Item was added: + ----- Method: ArchiveViewer>>defaultColor (in category 'accessing') ----- + defaultColor + + ^ Color veryVeryLightGray! Item was removed: - ----- Method: Browser class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Browser' brightColor: #lightGreen pastelColor: #paleGreen helpMessage: 'The standard "system browser" tool that allows you to browse through all the code in the system'! Item was added: + ----- Method: Browser>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.764 g: 0.9 b: 0.63)! Item was removed: - ----- Method: ChangeList class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Change List' brightColor: #lightBlue pastelColor: #paleBlue helpMessage: 'A tool that presents a list of all the changes found in an external file.'! Item was added: + ----- Method: ChangeList>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.719 g: 0.9 b: 0.9)! Item was removed: - ----- Method: ChangeSorter class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Change Sorter' brightColor: #lightBlue pastelColor: #paleBlue helpMessage: 'A tool that lets you see the code for one change set at a time.'! Item was added: + ----- Method: ChangeSorter>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.719 g: 0.9 b: 0.9)! Item was removed: - ----- Method: ClassCommentVersionsBrowser class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Class Comment Versions Browser' brightColor: #(0.769 0.653 1.0) pastelColor: #(0.819 0.753 1.0) helpMessage: 'A tool for viewing prior versions of a class comment.'! Item was added: + ----- Method: ClassCommentVersionsBrowser>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.753 g: 0.677 b: 0.9)! Item was removed: - ----- Method: Debugger class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Debugger' brightColor: #lightRed pastelColor: #veryPaleRed helpMessage: 'The system debugger.'! Item was added: + ----- Method: Debugger>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.9 g: 0.719 b: 0.719)! Item was removed: - ----- Method: DualChangeSorter class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Dual Change Sorter' brightColor: #lightBlue pastelColor: #paleBlue helpMessage: 'Lets you view and manipulate two change sets concurrently.'! Item was added: + ----- Method: DualChangeSorter>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.719 g: 0.9 b: 0.9)! Item was removed: - ----- Method: FileContentsBrowser class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'File Contents Browser' brightColor: #tan pastelColor: #paleTan helpMessage: 'Lets you view the contents of a file as code, in a browser-like tool.'! Item was added: + ----- Method: FileContentsBrowser>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.7 g: 0.7 b: 0.508)! Item was removed: - ----- Method: FileList class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - ^ WindowColorSpec - classSymbol: self name - wording: 'File List' - brightColor: #veryLightGray - pastelColor: #veryLightGray - helpMessage: 'A tool for looking at files'! Item was added: + ----- Method: FileList>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.65 g: 0.65 b: 0.65)! Item was removed: - ----- Method: MessageNames class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Message Names' brightColor: #(0.645 1.0 0.452) pastelColor: #(0.843 0.976 0.843) helpMessage: 'A tool finding, viewing, and editing all methods whose names contiane a given character sequence.'! Item was added: + ----- Method: MessageNames>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.639 g: 0.9 b: 0.497)! Item was removed: - ----- Method: MessageSet class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Message List' brightColor: #lightBlue pastelColor: #paleBlue helpMessage: 'A list of messages (e.g. senders, implementors)'! Item was added: + ----- Method: MessageSet>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.719 g: 0.9 b: 0.9)! Item was removed: - ----- Method: PackagePaneBrowser class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Package Browser' brightColor: #(1.0 1.0 0.6) pastelColor: #(0.976 0.976 0.835) helpMessage: 'A system browser with an extra pane at top-left for module.'! Item was added: + ----- Method: PackagePaneBrowser>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.9 g: 0.9 b: 0.63)! Item was removed: - ----- Method: PluggableFileList>>defaultBackgroundColor (in category 'initialize-release') ----- - defaultBackgroundColor - - ^Color lightYellow! Item was added: + ----- Method: PluggableFileList>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ Color lightYellow! Item was removed: - ----- Method: SelectorBrowser class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Method Finder' brightColor: #lightCyan pastelColor: #palePeach helpMessage: 'A tool for finding methods by giving sample arguments and values.'! Item was added: + ----- Method: SelectorBrowser>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.45 g: 0.9 b: 0.9)! Item was changed: ----- Method: StandardToolSet class>>initialize (in category 'class initialization') ----- initialize + ToolSet register: self.! - ToolSet register: self. - Preferences installNormalWindowColors.! Item was removed: - ----- Method: TranscriptStream class>>windowColorSpecification (in category '*Tools') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Transcript' brightColor: #lightOrange pastelColor: #paleOrange helpMessage: 'The system transcript'! Item was removed: - ----- Method: VersionsBrowser class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Versions Browser' brightColor: #(0.869 0.753 1.0) pastelColor: #(0.919 0.853 1.0) helpMessage: 'A tool for viewing prior versions of a method.'! Item was added: + ----- Method: VersionsBrowser>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.782 g: 0.677 b: 0.9)!

1 0

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

31 Jul '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.171.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.171 Author: mt Time: 31 July 2016, 10:32:00.85249 am UUID: de835798-12b4-df4e-9232-dcf31e11ee6f Ancestors: ToolBuilder-Morphic-mt.170 *** 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 ToolBuilder-Morphic-mt.170 =============== Item was changed: + Model subclass: #ListChooser - Object subclass: #ListChooser instanceVariableNames: 'window fullList selectedItems searchText searchMorph title listMorph index realIndex buttonBar builder addAllowed result' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !ListChooser commentStamp: 'MAD 3/14/2010 16:20' prior: 0! I am a simple dialog to allow the user to pick from a list of strings or symbols. I support keyboard and mouse navigation, and interactive filtering of the displayed items. You can specify whether you want the index, or the value of the selected item. If you're interested in the value, you can also allow users to Add a new value not in the list. cmd-s or <enter> or double-click answers the currently selected item's value/index; cmd-l or <escape> or closing the window answers nil/zero. Now using ToolBuilder, so needs Morphic-MAD.381. Released under the MIT Licence.!

1 0

The Trunk: 51Deprecated-mt.34.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.34.mcz ==================== Summary ==================== Name: 51Deprecated-mt.34 Author: mt Time: 31 July 2016, 10:29:55.07349 am UUID: 99b93939-2985-7149-9b93-1aa8b90728c7 Ancestors: 51Deprecated-mt.33 *** 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 51Deprecated-mt.33 =============== Item was changed: SystemOrganization addCategory: #'51Deprecated-Files-Kernel'! SystemOrganization addCategory: #'51Deprecated-Morphic-Support'! SystemOrganization addCategory: #'51Deprecated-Morphic-Text Support'! + SystemOrganization addCategory: #'51Deprecated-PreferenceBrowser'! + SystemOrganization addCategory: #'51Deprecated-System-Support'! Item was added: + ----- Method: Object>>defaultBackgroundColor (in category '*51Deprecated') ----- + defaultBackgroundColor + + self deprecated: 'Implement #uniformWindowColor and #customWindowColor in your model.'. + ^ Color veryVeryLightGray! Item was added: + PBColorPreferenceView subclass: #PBWindowColorPreferenceView + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: '51Deprecated-PreferenceBrowser'! Item was added: + ----- Method: PBWindowColorPreferenceView class>>initialize (in category 'class initialization') ----- + initialize + self viewRegistry register: self.! Item was added: + ----- Method: PBWindowColorPreferenceView class>>unload (in category 'class initialization') ----- + unload + "Unload order is not guaranteed so guard against failure" + [self viewRegistry unregister: self] on: Error do:[]! Item was added: + ----- Method: PBWindowColorPreferenceView class>>viewRegistry (in category 'class initialization') ----- + viewRegistry + ^(PreferenceViewRegistry registryOf: #windowColorPreferences) + viewOrder: 6; + yourself.! Item was added: + ----- Method: PBWindowColorPreferenceView>>initialize (in category 'initialization') ----- + initialize + super initialize. + self addActionTitled: 'Bright' target: Preferences selector: #yourself arguments: {} balloonText: 'Use standard bright colors for all windows' translated. + self addActionTitled: 'Pastel' target: Preferences selector: #yourself arguments: {} balloonText: 'Use standard pastel colors for all windows' translated. + self addActionTitled: 'Gray' target: Preferences selector: #yourself arguments: {} balloonText: 'Use gray backgrounds for all standard windows' translated.! Item was added: + ----- Method: Preferences class>>setWindowColorFor:to: (in category '*51Deprecated-window colors') ----- + setWindowColorFor: modelSymbol to: incomingColor + + | aColor | + self deprecated: 'Configure UI themes directly.'. + aColor := incomingColor asNontranslucentColor. + (aColor = ColorPickerMorph perniciousBorderColor or: [aColor = Color black]) + ifTrue: [^ self]. + UserInterfaceTheme set: #customWindowColor for: modelSymbol to: aColor. ! Item was added: + ----- Method: Preferences class>>uniformWindowColor (in category '*51Deprecated-window colors') ----- + uniformWindowColor + + self deprecated: 'Use Model >> #uniformWindowColor.'. + ^Color veryVeryLightGray! Item was added: + ----- Method: Preferences class>>windowColorFor: (in category '*51Deprecated-window colors') ----- + windowColorFor: aModelClassName + + | classToCheck | + self deprecated: 'Use Model >> #customWindowColor'. + classToCheck := Smalltalk at: aModelClassName. + ^ (UserInterfaceTheme current get: #customWindowColor for: classToCheck) + ifNil: [(UserInterfaceTheme current get: #uniformWindowColor for: classToCheck) + ifNil: [Color veryVeryLightGray]]! Item was added: + ----- Method: Preferences class>>windowColorTable (in category '*51Deprecated-window colors') ----- + windowColorTable + "Answer a list of WindowColorSpec objects, one for each tool to be represented in the window-color panel" + + self deprecated: 'Consult current UI theme.'. + ^ {}! Item was added: + ----- Method: SystemWindow>>setLabelFont: (in category '*51Deprecated') ----- + setLabelFont: aFont + + label ifNil: [^ self]. + label font: aFont. + ! Item was added: + Object subclass: #WindowColorRegistry + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: '51Deprecated-System-Support'! + WindowColorRegistry class + instanceVariableNames: 'registry'! + + !WindowColorRegistry commentStamp: 'hpt 10/9/2005 22:54' prior: 0! + I provide to the applications developer a place where they can register their WindowColorSpecification for their application's windows. + ! + WindowColorRegistry class + instanceVariableNames: 'registry'! Item was added: + ----- Method: WindowColorRegistry class>>initialize (in category 'registry') ----- + initialize + self refresh.! Item was added: + ----- Method: WindowColorRegistry class>>refresh (in category 'registry') ----- + refresh + "This is a one-time only method for bootstraping the new registry. Here we will scan all classes for #windowColorSpecification methods and register those to the registry" + + registry := nil. + ((self systemNavigation allClassesImplementing: #windowColorSpecification) + collect: [:aClass | aClass theNonMetaClass windowColorSpecification]) + do: [:spec | self registerColorSpecification: spec toClassNamed: spec classSymbol ].! Item was added: + ----- Method: WindowColorRegistry class>>registerColorSpecification:toClassNamed: (in category 'registry') ----- + registerColorSpecification: aColorSpec toClassNamed: aClassName + self registry at: aClassName asSymbol put: aColorSpec.! Item was added: + ----- Method: WindowColorRegistry class>>registeredWindowColorSpecFor: (in category 'registry') ----- + registeredWindowColorSpecFor: aClassName + "Return the Window Color Spec for the given class. " + ^self registry at: aClassName asSymbol ifAbsent: []. + ! Item was added: + ----- Method: WindowColorRegistry class>>registeredWindowColorSpecs (in category 'registry') ----- + registeredWindowColorSpecs + ^self registry values! Item was added: + ----- Method: WindowColorRegistry class>>registry (in category 'registry') ----- + registry + ^registry ifNil: [registry := Dictionary new].! Item was added: + ----- Method: WindowColorRegistry class>>unregisterColorSpecificationForClassNamed: (in category 'registry') ----- + unregisterColorSpecificationForClassNamed: aClassName + + self registry removeKey: aClassName asSymbol ! Item was added: + Object subclass: #WindowColorSpec + instanceVariableNames: 'classSymbol wording brightColor pastelColor normalColor helpMessage' + classVariableNames: '' + poolDictionaries: '' + category: '51Deprecated-System-Support'! Item was added: + ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'instance creation') ----- + classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg + "Answer a new instance of the receiver with the given slots filled in" + + ^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg! Item was added: + ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:normalColor:helpMessage: (in category 'instance creation') ----- + classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg + + ^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg! Item was added: + ----- Method: WindowColorSpec>>brightColor (in category 'access') ----- + brightColor + "Answer the brightColor" + + ^ brightColor! Item was added: + ----- Method: WindowColorSpec>>classSymbol (in category 'access') ----- + classSymbol + "Answer the classSymbol" + + ^ classSymbol! Item was added: + ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'initialization') ----- + classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg + "Initialize the receiver's instance variables" + + self + classSymbol: sym + wording: wrd + brightColor: brCol + pastelColor: paCol + normalColor: (Color colorFrom: brCol) duller + helpMessage: hlpMsg! Item was added: + ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:normalColor:helpMessage: (in category 'initialization') ----- + classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg + "Initialize the receiver's instance variables" + + classSymbol := sym. + wording := wrd. + brightColor := brCol. + pastelColor := paCol. + normalColor := noCol. + helpMessage := hlpMsg! Item was added: + ----- Method: WindowColorSpec>>helpMessage (in category 'access') ----- + helpMessage + "Answer the helpMessage" + + ^ helpMessage! Item was added: + ----- Method: WindowColorSpec>>normalColor (in category 'access') ----- + normalColor + + ^ normalColor! Item was added: + ----- Method: WindowColorSpec>>pastelColor (in category 'access') ----- + pastelColor + "Answer the pastelColor" + + ^ pastelColor! Item was added: + ----- Method: WindowColorSpec>>printOn: (in category 'printing') ----- + printOn: aStream + "Print the receiver on a stream" + + super printOn: aStream. + classSymbol printOn: aStream. + aStream nextPutAll: ' bright: ', brightColor printString, ' pastel: ', pastelColor printString, ' normal: ', normalColor printString! Item was added: + ----- Method: WindowColorSpec>>wording (in category 'access') ----- + wording + "Answer the wording" + + ^ wording! Item was added: + (PackageInfo named: '51Deprecated') postscript: 'PBWindowColorPreferenceView unload. + WindowColorRegistry refresh.'!

1 0

The Trunk: Morphic-mt.1208.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.1208.mcz ==================== Summary ==================== Name: Morphic-mt.1208 Author: mt Time: 31 July 2016, 10:27:47.31449 am UUID: e9b6775b-a536-0145-9d2f-ef874b6e84f4 Ancestors: Morphic-mt.1207 *** 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 Morphic-mt.1207 =============== Item was changed: ----- Method: CornerGripMorph class>>activeColor (in category 'handle settings') ----- activeColor <preference: 'Corner Grip highlight color' + category: 'colors' - category: 'window colors' description: 'The highlight-color of window corners' type: #Color> ^(self activeForm colorAt: 24@24) alpha: 1! Item was changed: ----- Method: CornerGripMorph class>>passiveColor (in category 'handle settings') ----- passiveColor <preference: 'Corner Grip color' + category: 'colors' - category: 'window colors' description: 'The default color of window corners' type: #Color> ^(self passiveForm colorAt: 24@24) alpha: 1! Item was changed: ----- Method: Morph>>embeddedInMorphicWindowLabeled: (in category 'e-toy support') ----- embeddedInMorphicWindowLabeled: labelString | window | window := (SystemWindow labelled: labelString) model: nil. + window setStripeColorsFrom: Color white. - window setStripeColorsFrom: nil defaultBackgroundColor. window addMorph: self frame: (0@0 extent: 1@1). ^ window! Item was added: + ----- Method: SystemWindow class>>themeProperties (in category 'preferences') ----- + themeProperties + + ^ super themeProperties, { + { #borderColorModifier. 'Colors'. 'How to derive the borderColor from the window color.' }. + { #borderWidth. 'Borders'. 'Width of the menu''s border.' }. + { #titleFont. 'Fonts'. 'Font of the window title.' }. + + { #unfocusedWindowColorModifier. 'Colors'. 'A block with one argument that modifies a color to look unfocused.' }. + { #unfocusedLabelColor. 'Colors'. 'Window title color when window has no focus.'}. + { #focusedLabelColor. 'Colors'. 'Window title color when window has focus.'}. + }! Item was removed: - ----- Method: SystemWindow>>adoptPaneColor: (in category 'colors') ----- - adoptPaneColor: aPaneColor - - super adoptPaneColor: (self class gradientWindow - ifTrue: [aPaneColor ifNotNil: [:c | c duller]] - ifFalse: [aPaneColor]).! Item was added: + ----- Method: SystemWindow>>applyUserInterfaceTheme (in category 'user interface') ----- + applyUserInterfaceTheme + + super applyUserInterfaceTheme. + + self + setDefaultParameters; + refreshWindowColor. + + self isLookingFocused + ifTrue: [self lookUnfocused; lookFocused] + ifFalse: [self lookFocused; lookUnfocused]. + + self isCollapsed ifTrue: [self setProperty: #applyTheme toValue: true].! Item was changed: ----- Method: SystemWindow>>collapseOrExpand (in category 'resize/collapse') ----- collapseOrExpand "Collapse or expand the window, depending on existing state" | cf | isCollapsed ifTrue: ["Expand -- restore panes to morphics structure" isCollapsed := false. self beKeyWindow. "Bring to frint first" Preferences collapseWindowsInPlace ifTrue: [fullFrame := fullFrame align: fullFrame topLeft with: self getBoundsWithFlex topLeft] ifFalse: [collapsedFrame := self getBoundsWithFlex]. collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse this window' translated]. self setBoundsWithFlex: fullFrame. paneMorphs reverseDo: [:m | self addMorph: m unlock. self world startSteppingSubmorphsOf: m]. + self addPaneSplitters. + (self hasProperty: #applyTheme) ifTrue: [ + self removeProperty: #applyTheme. + self userInterfaceTheme applyTo: self allMorphs]] - self addPaneSplitters] ifFalse: ["Collapse -- remove panes from morphics structure" isCollapsed := true. fullFrame := self getBoundsWithFlex. "First save latest fullFrame" paneMorphs do: [:m | m delete; releaseCachedState]. self removePaneSplitters. self removeCornerGrips. model modelSleep. cf := self getCollapsedFrame. (collapsedFrame isNil and: [Preferences collapseWindowsInPlace not]) ifTrue: [collapsedFrame := cf]. self setBoundsWithFlex: cf. collapseBox ifNotNil: [collapseBox setBalloonText: 'expand this window' translated ]. expandBox ifNotNil: [expandBox setBalloonText: 'expand this window' translated ]. self sendToBack]. self layoutChanged! Item was removed: - ----- Method: SystemWindow>>defaultBorderColor (in category 'initialization') ----- - defaultBorderColor - "answer the default border color/fill style for the receiver" - ^ self defaultColor muchDarker! Item was removed: - ----- Method: SystemWindow>>defaultBorderWidth (in category 'initialization') ----- - defaultBorderWidth - "answer the default border width for the receiver" - ^ 1! Item was removed: - ----- Method: SystemWindow>>defaultColor (in category 'initialization') ----- - defaultColor - "answer the default color/fill style for the receiver" - ^ Preferences uniformWindowColor! Item was changed: ----- Method: SystemWindow>>gradientWithColor: (in category 'colors') ----- gradientWithColor: aColor + | gradient cc | + cc := aColor adjustSaturation: -0.08 brightness: 0.4. - | gradient | gradient := GradientFillStyle ramp: { + 0.0 -> (self isKeyWindow ifTrue: [cc muchLighter] ifFalse: [cc]). + 0.25 -> (aColor mixed: 0.5 with: cc). + 1.0 -> aColor. - 0.0 -> Color white. - 0.2 -> (aColor duller mixed: 0.5 with: (Color gray: 0.9)) lighter. - 1.0 -> aColor duller. }. gradient origin: self topLeft. gradient direction: 0 @ self labelHeight. ^gradient! Item was changed: ----- Method: SystemWindow>>initializeLabelArea (in category 'initialization') ----- initializeLabelArea "Initialize the label area (titlebar) for the window." labelString ifNil: [labelString := 'Untitled Window']. + label := StringMorph new contents: labelString. - label := StringMorph new contents: labelString; - font: Preferences windowTitleFont emphasis: 0. "Add collapse box so #labelHeight will work" collapseBox := self createCollapseBox. stripes := Array with: (RectangleMorph newBounds: bounds) with: (RectangleMorph newBounds: bounds). "see extent:" self addLabelArea. self setLabelWidgetAllowance. self addCloseBox. self class moveMenuButtonRight ifTrue: [self addLabel. self addMenuControl] ifFalse: [self addMenuControl. self addLabel]. self addExpandBox. labelArea addMorphBack: collapseBox. self setFramesForLabelArea. Preferences noviceMode ifTrue: [closeBox ifNotNil: [closeBox setBalloonText: 'close window']. menuBox ifNotNil: [menuBox setBalloonText: 'window menu']. collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse/expand window']]. ! Item was changed: ----- Method: SystemWindow>>lookFocused (in category 'focus') ----- lookFocused "Optimize performance." self isLookingFocused ifTrue: [^ self]. self isLookingFocused: true. + label ifNotNil: [ label color: (self userInterfaceTheme focusedLabelColor ifNil: [Color black]) ]. - label ifNotNil: [ label color: Color black ]. (self isKeyWindow or: [self class windowTitleActiveOnFirstClick]) ifTrue: [self undimWindowButtons]. self paneColorToUse in: [ : col | self setStripeColorsFrom: col ; adoptPaneColor: col].! Item was changed: ----- Method: SystemWindow>>lookUnfocused (in category 'focus') ----- lookUnfocused "Optimize performance." self isLookingFocused ifFalse: [^ self]. self isLookingFocused: false. + label ifNotNil: [ label color: (self userInterfaceTheme unfocusedLabelColor ifNil: [Color darkGray]) ]. - label ifNotNil: [ label color: Color darkGray ]. self dimWindowButtons. self paneColorToUseWhenNotActive in: [ : col | self setStripeColorsFrom: col ; adoptPaneColor: col ]! Item was changed: ----- Method: SystemWindow>>paneColor (in category 'colors') ----- paneColor | cc | (cc := self valueOfProperty: #paneColor) ifNotNil: [^cc]. + model notNil ifTrue: [cc := model windowColorToUse]. + cc ifNil: [cc := paneMorphs isEmptyOrNil ifFalse: [paneMorphs first color]]. + cc ifNil: [cc := self defaultColor]. - Display depth > 2 - ifTrue: - [model ifNotNil: - [model isInMemory - ifTrue: - [cc := Color colorFrom: model defaultBackgroundColor]]. - cc ifNil: [cc := paneMorphs isEmptyOrNil ifFalse: [paneMorphs first color]]]. - cc ifNil: [cc := self defaultBackgroundColor]. self paneColor: cc. ^cc! Item was changed: ----- Method: SystemWindow>>paneColorToUseWhenNotActive (in category 'colors') ----- paneColorToUseWhenNotActive + ^ (self userInterfaceTheme unfocusedWindowColorModifier ifNil: [ [:color | color darker] ]) + value: self paneColorToUse! - ^ self paneColorToUse darker! Item was changed: ----- Method: SystemWindow>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters Preferences menuAppearance3d ifTrue: [ + self addDropShadow. + self hasDropShadow: self isKeyWindow. "maybe turn off again"]. + + self borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]). + label font: (self userInterfaceTheme titleFont ifNil: [TextStyle defaultFont]).! - self hasDropShadow: self isKeyWindow. - - self useSoftDropShadow - ifTrue: [ - self - shadowColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.01); - shadowOffset: (10@8 corner: 10@12)] - ifFalse: [ - self - shadowColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.333); - shadowOffset: 1@1] ]. - self changed.! Item was removed: - ----- Method: SystemWindow>>setLabelFont: (in category 'label') ----- - setLabelFont: aFont - - label ifNil: [^ self]. - label font: aFont. - ! Item was changed: ----- Method: SystemWindow>>setStripeColorsFrom: (in category 'colors') ----- setStripeColorsFrom: paneColor "Set the stripe color based on the given paneColor" labelArea ifNotNil: [labelArea color: Color transparent]. self updateBoxesColor: paneColor. stripes ifNil: [^self]. + self borderColor: ((self userInterfaceTheme borderColorModifier ifNil: [ [:c | c adjustBrightness: -0.3] ]) + value: paneColor). - self borderColor: (paneColor adjustBrightness: -0.3). self class gradientWindow ifTrue: [self fillStyle: (self gradientWithColor: paneColor)] ifFalse: [self color: paneColor].! Item was changed: ----- Method: TheWorldMainDockingBar>>browserMenuItemOn: (in category 'submenu - tools') ----- browserMenuItemOn: menu menu addItem: [ :item | item contents: 'Browser' translated; help: 'Open a browser' translated; + icon: (self colorIcon: Browser basicNew windowColorToUse); - icon: (self colorIcon: Preferences browserWindowColor); target: StandardToolSet; selector: #openClassBrowser ]! Item was changed: ----- Method: TheWorldMainDockingBar>>colorIcon: (in category 'private') ----- colorIcon: aColor "Guess if 'uniform window colors' are used and avoid all icons to be just gray" + (aColor = (UserInterfaceTheme current get: #uniformWindowColor for: Model) or: [Preferences tinyDisplay]) ifTrue: [ ^nil ]. - (aColor = Preferences uniformWindowColor or: [Preferences tinyDisplay]) ifTrue: [ ^nil ]. ^(aColor iconOrThumbnailOfSize: 14) borderWidth: 3 color: MenuMorph menuColor muchDarker; borderWidth: 2 color: Color transparent! Item was changed: ----- Method: TheWorldMainDockingBar>>dualChangeSorterMenuItemOn: (in category 'submenu - tools') ----- dualChangeSorterMenuItemOn: menu menu addItem: [ :item | item contents: 'Dual Change Sorter' translated; help: 'Open a Dual Change Sorter' translated; + icon: (self colorIcon: ChangeSorter basicNew windowColorToUse); - icon: (self colorIcon: ChangeSorter basicNew defaultBackgroundColor); target: DualChangeSorter; selector: #open ]! Item was changed: ----- Method: TheWorldMainDockingBar>>fileListMenuItemOn: (in category 'submenu - tools') ----- fileListMenuItemOn: menu menu addItem: [ :item | item contents: 'File List' translated; help: 'Open a file list' translated; + icon: (self colorIcon: FileList basicNew windowColorToUse); - icon: (self colorIcon: Preferences fileListWindowColor); target: StandardToolSet; selector: #openFileList ]! Item was changed: ----- Method: TheWorldMainDockingBar>>methodFinderMenuItemOn: (in category 'submenu - tools') ----- methodFinderMenuItemOn: menu menu addItem: [:item | item contents: 'Method Finder' translated; help: 'Open the Method Finder' translated; + icon: (self colorIcon: SelectorBrowser basicNew windowColorToUse); - icon: (self colorIcon: Preferences methodFinderWindowColor); target: StandardToolSet; selector: #openSelectorBrowser]! Item was changed: ----- Method: TheWorldMainDockingBar>>monticelloBrowserMenuItemOn: (in category 'submenu - tools') ----- monticelloBrowserMenuItemOn: menu menu addItem: [ :item | item contents: 'Monticello Browser' translated; help: 'Open a Monticello Browser' translated; + icon: (self colorIcon: MCTool basicNew windowColorToUse); - icon: (self colorIcon: MCTool basicNew defaultBackgroundColor); target: MCWorkingCopyBrowser; selector: #open ]! Item was changed: ----- Method: TheWorldMainDockingBar>>monticelloConfigurationsMenuItemOn: (in category 'submenu - tools') ----- monticelloConfigurationsMenuItemOn: menu menu addItem: [ :item | item contents: 'Monticello Configurations' translated; help: 'Open a Monticello Configurations Editor' translated; + icon: (self colorIcon: MCConfigurationBrowser basicNew windowColorToUse); - icon: (self colorIcon: MCConfigurationBrowser basicNew defaultBackgroundColor); target: MCConfigurationBrowser; selector: #open ]! Item was changed: ----- Method: TheWorldMainDockingBar>>preferenceBrowserMenuItemOn: (in category 'submenu - tools') ----- preferenceBrowserMenuItemOn: menu Smalltalk at: #PreferenceBrowser ifPresent:[:pb| menu addItem: [ :item | item contents: 'Preferences' translated; help: 'Open a Preferences Browser' translated; + icon: (self colorIcon: pb basicNew windowColorToUse); - icon: (self colorIcon: pb basicNew defaultBackgroundColor); target: pb; selector: #open ] ].! Item was changed: ----- Method: TheWorldMainDockingBar>>processBrowserMenuItemOn: (in category 'submenu - tools') ----- processBrowserMenuItemOn: menu menu addItem: [ :item | item contents: 'Process Browser' translated; help: 'Open a Process Browser' translated; + icon: (self colorIcon: ProcessBrowser basicNew windowColorToUse); - icon: (self colorIcon: ProcessBrowser basicNew defaultBackgroundColor); target: ProcessBrowser; selector: #open ]! Item was changed: ----- Method: TheWorldMainDockingBar>>simpleChangeSorterMenuItemOn: (in category 'submenu - tools') ----- simpleChangeSorterMenuItemOn: menu menu addItem: [ :item | item contents: 'Simple Change Sorter' translated; help: 'Open a Change Sorter' translated; + icon: (self colorIcon: ChangeSorter basicNew windowColorToUse); - icon: (self colorIcon: ChangeSorter basicNew defaultBackgroundColor); target: ChangeSorter; selector: #open ]! Item was changed: ----- Method: TheWorldMainDockingBar>>testRunnerMenuItemOn: (in category 'submenu - tools') ----- testRunnerMenuItemOn: menu Smalltalk at: #TestRunner ifPresent:[:aClass| menu addItem: [ :item | item contents: 'Test Runner' translated; help: 'Open the Test Runner' translated; + icon: (self colorIcon: aClass basicNew windowColorToUse); - icon: (self colorIcon: aClass basicNew defaultBackgroundColor); target: aClass; selector: #open ] ].! Item was changed: ----- Method: TheWorldMainDockingBar>>transcriptMenuItemOn: (in category 'submenu - tools') ----- transcriptMenuItemOn: menu menu addItem: [ :item | item contents: 'Transcript' translated; help: 'Open the Transcript' translated; + icon: (self colorIcon: Transcript windowColorToUse); - icon: (self colorIcon: Preferences transcriptWindowColor); target: Transcript; selector: #open ]! Item was changed: ----- Method: TheWorldMainDockingBar>>workspaceMenuItemOn: (in category 'submenu - tools') ----- workspaceMenuItemOn: menu menu addItem: [ :item | item contents: 'Workspace' translated; help: 'Open a Workspace' translated; + icon: (self colorIcon: Workspace basicNew windowColorToUse); - icon: (self colorIcon: Preferences workspaceWindowColor); target: StandardToolSet; selector: #openWorkspace ]! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "..."'! - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances.'!

1 0

The Trunk: System-mt.852.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.852.mcz ==================== Summary ==================== Name: System-mt.852 Author: mt Time: 31 July 2016, 10:26:23.47249 am UUID: 2f87dcb0-45b2-4747-a5dc-2968f97a816a Ancestors: System-mt.851 *** 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 System-mt.851 =============== Item was removed: - ----- Method: Object class>>windowColorSpecification (in category '*System-Support-window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference. - This is a backstop for classes that don't otherwise define a preference." - - ^ WindowColorSpec classSymbol: self name - wording: 'Default' brightColor: #veryVeryLightGray - pastelColor: #veryVeryLightGray - normalColor: #veryVeryLightGray - helpMessage: 'Other windows without color preferences.'! Item was removed: - ----- Method: Preferences class>>checkForWindowColors (in category 'prefs - window colors') ----- - checkForWindowColors - (self allPreferences noneSatisfy: [:aPref | aPref name endsWith: 'WindowColor']) - ifTrue: [self installBrightWindowColors].! Item was removed: - ----- Method: Preferences class>>darkenStandardWindowPreferences (in category 'prefs - window colors') ----- - darkenStandardWindowPreferences - "Make all window-color preferences one shade darker" - - (self allPreferences - select: [:aPref | (aPref name endsWith: 'WindowColor') - and: [aPref preferenceValue isColor]]) - do: [:aPref | aPref preferenceValue: aPref preferenceValue darker]. - - "Preferences darkenStandardWindowPreferences" - ! Item was removed: - ----- Method: Preferences class>>installBrightWindowColors (in category 'prefs - window colors') ----- - installBrightWindowColors - "Install the factory-provided default window colors for all tools" - - "Preferences installBrightWindowColors" - - self installWindowColorsVia: [:aSpec | aSpec brightColor]! Item was removed: - ----- Method: Preferences class>>installNormalWindowColors (in category 'prefs - window colors') ----- - installNormalWindowColors - "Install the factory-provided default window colors for all tools" - - "Preferences installNormalWindowColors" - - self installWindowColorsVia: [:aSpec | aSpec normalColor]! Item was removed: - ----- Method: Preferences class>>installPastelWindowColors (in category 'prefs - window colors') ----- - installPastelWindowColors - "Install the factory-provided default pastel window colors for all tools" - - "Preferences installPastelWindowColors" - self installWindowColorsVia: [:aSpec | aSpec pastelColor]! Item was removed: - ----- Method: Preferences class>>installUniformWindowColors (in category 'prefs - window colors') ----- - installUniformWindowColors - "Install the factory-provided uniform window colors for all tools" - - "Preferences installUniformWindowColors" - self installWindowColorsVia: [:aQuad | self uniformWindowColor]! Item was removed: - ----- Method: Preferences class>>installWindowColorsVia: (in category 'prefs - window colors') ----- - installWindowColorsVia: colorSpecBlock - "Install windows colors using colorSpecBlock to deliver the color source for each element; the block is handed a WindowColorSpec object" - "Preferences installBrightWindowColors" - - WindowColorRegistry refresh. - self windowColorTable do: - [:aColorSpec | | color | - color := (Color colorFrom: (colorSpecBlock value: aColorSpec)). - self setWindowColorFor: aColorSpec classSymbol to: color]. - SystemWindow refreshAllWindows. - TheWorldMainDockingBar updateInstances.! Item was removed: - ----- Method: Preferences class>>lightenStandardWindowPreferences (in category 'prefs - window colors') ----- - lightenStandardWindowPreferences - "Make all window-color preferences one shade darker" - - (self allPreferences - select: [:aPref | (aPref name endsWith: 'WindowColor') - and: [aPref preferenceValue isColor]]) - do: [:aPref | aPref preferenceValue: aPref preferenceValue lighter]. - - "Preferences lightenStandardWindowPreferences" - ! Item was removed: - ----- Method: Preferences class>>preferencesPanelWindowColor (in category 'standard queries') ----- - preferencesPanelWindowColor - ^ self - valueOfFlag: #preferencesPanelWindowColor - ifAbsent: - [ Color - r: 0.645 - g: 1.0 - b: 1.0 ]! Item was removed: - ----- Method: Preferences class>>setWindowColorFor:to: (in category 'prefs - window colors') ----- - setWindowColorFor: modelSymbol to: incomingColor - | aColor aPrefSymbol aColorSpec | - aColorSpec := WindowColorRegistry registeredWindowColorSpecFor: modelSymbol. - aColorSpec ifNil: [^self]. - aColor := incomingColor asNontranslucentColor. - (aColor = ColorPickerMorph perniciousBorderColor or: [aColor = Color black]) - ifTrue: [^ self]. - aPrefSymbol := self windowColorPreferenceForClassNamed: aColorSpec classSymbol. - self - addPreference: aPrefSymbol - categories: { #'window colors' } - default: aColor - balloonHelp: aColorSpec helpMessage translated - projectLocal: false - changeInformee: nil - changeSelector: nil - type: #WindowColor! Item was removed: - ----- Method: Preferences class>>uniformWindowColor (in category 'prefs - window colors') ----- - uniformWindowColor - ^Color veryVeryLightGray! Item was removed: - ----- Method: Preferences class>>windowColorFor: (in category 'prefs - window colors') ----- - windowColorFor: aModelClassName - | classToCheck prefSymbol | - self checkForWindowColors. - classToCheck := Smalltalk at: aModelClassName. - prefSymbol := self windowColorPreferenceForClassNamed: classToCheck name. - [(classToCheck ~~ Object) and: [(self preferenceAt: prefSymbol) isNil]] - whileTrue: - [classToCheck := classToCheck superclass. - prefSymbol := self windowColorPreferenceForClassNamed: classToCheck name]. - ^self valueOfPreference: prefSymbol ifAbsent: [self uniformWindowColor].! Item was removed: - ----- Method: Preferences class>>windowColorHelp (in category 'prefs - window colors') ----- - windowColorHelp - "Provide help for the window-color panel" - - | helpString | - helpString := - 'The "Window Colors" panel lets you select colors for many kinds of standard Squeak windows. - - You can change your color preference for any particular tool by clicking on the color swatch and then selecting the desired color from the resulting color-picker. - - The three buttons entitled "Bright", "Pastel", and "Gray" let you revert to any of three different standard color schemes. - - The choices you make in the Window Colors panel only affect the colors of new windows that you open. - - You can make other tools have their colors governed by this panel by simply implementing #windowColorSpecification on the class side of the model -- consult implementors of that method to see examples of how to do this.'. - - (StringHolder new contents: helpString) - openLabel: 'About Window Colors' - - "Preferences windowColorHelp"! Item was removed: - ----- Method: Preferences class>>windowColorPreferenceForClassNamed: (in category 'prefs - window colors') ----- - windowColorPreferenceForClassNamed: aClassName - | aColorSpec wording | - aColorSpec := WindowColorRegistry registeredWindowColorSpecFor: aClassName. - wording := aColorSpec ifNil: [aClassName] ifNotNil: [aColorSpec wording]. - ^(wording, 'WindowColor') asLegalSelector asSymbol.! Item was removed: - ----- Method: Preferences class>>windowColorTable (in category 'prefs - window colors') ----- - windowColorTable - "Answer a list of WindowColorSpec objects, one for each tool to be represented in the window-color panel" - ^ (WindowColorRegistry registeredWindowColorSpecs - asSortedCollection: - [:specOne :specTwo | specOne wording < specTwo wording]) asArray. - - "Preferences windowColorTable"! Item was removed: - ----- Method: StringHolder class>>windowColorSpecification (in category '*System-Support-window colorwindow color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference" - - ^ WindowColorSpec classSymbol: self name wording: 'Workspace' brightColor: #lightYellow pastelColor: #paleYellow helpMessage: 'A place for text in a window.'! Item was removed: - Object subclass: #WindowColorRegistry - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! - WindowColorRegistry class - instanceVariableNames: 'registry'! - - !WindowColorRegistry commentStamp: 'hpt 10/9/2005 22:54' prior: 0! - I provide to the applications developer a place where they can register their WindowColorSpecification for their application's windows. - ! - WindowColorRegistry class - instanceVariableNames: 'registry'! Item was removed: - ----- Method: WindowColorRegistry class>>initialize (in category 'registry') ----- - initialize - self refresh.! Item was removed: - ----- Method: WindowColorRegistry class>>refresh (in category 'registry') ----- - refresh - "This is a one-time only method for bootstraping the new registry. Here we will scan all classes for #windowColorSpecification methods and register those to the registry" - - registry := nil. - ((self systemNavigation allClassesImplementing: #windowColorSpecification) - collect: [:aClass | aClass theNonMetaClass windowColorSpecification]) - do: [:spec | self registerColorSpecification: spec toClassNamed: spec classSymbol ].! Item was removed: - ----- Method: WindowColorRegistry class>>registerColorSpecification:toClassNamed: (in category 'registry') ----- - registerColorSpecification: aColorSpec toClassNamed: aClassName - self registry at: aClassName asSymbol put: aColorSpec.! Item was removed: - ----- Method: WindowColorRegistry class>>registeredWindowColorSpecFor: (in category 'registry') ----- - registeredWindowColorSpecFor: aClassName - "Return the Window Color Spec for the given class. " - ^self registry at: aClassName asSymbol ifAbsent: []. - ! Item was removed: - ----- Method: WindowColorRegistry class>>registeredWindowColorSpecs (in category 'registry') ----- - registeredWindowColorSpecs - ^self registry values! Item was removed: - ----- Method: WindowColorRegistry class>>registry (in category 'registry') ----- - registry - ^registry ifNil: [registry := Dictionary new].! Item was removed: - ----- Method: WindowColorRegistry class>>unregisterColorSpecificationForClassNamed: (in category 'registry') ----- - unregisterColorSpecificationForClassNamed: aClassName - - self registry removeKey: aClassName asSymbol ! Item was removed: - Object subclass: #WindowColorSpec - instanceVariableNames: 'classSymbol wording brightColor pastelColor normalColor helpMessage' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! Item was removed: - ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'instance creation') ----- - classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg - "Answer a new instance of the receiver with the given slots filled in" - - ^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg! Item was removed: - ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:normalColor:helpMessage: (in category 'instance creation') ----- - classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg - - ^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg! Item was removed: - ----- Method: WindowColorSpec>>brightColor (in category 'access') ----- - brightColor - "Answer the brightColor" - - ^ brightColor! Item was removed: - ----- Method: WindowColorSpec>>classSymbol (in category 'access') ----- - classSymbol - "Answer the classSymbol" - - ^ classSymbol! Item was removed: - ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'initialization') ----- - classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg - "Initialize the receiver's instance variables" - - self - classSymbol: sym - wording: wrd - brightColor: brCol - pastelColor: paCol - normalColor: (Color colorFrom: brCol) duller - helpMessage: hlpMsg! Item was removed: - ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:normalColor:helpMessage: (in category 'initialization') ----- - classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg - "Initialize the receiver's instance variables" - - classSymbol := sym. - wording := wrd. - brightColor := brCol. - pastelColor := paCol. - normalColor := noCol. - helpMessage := hlpMsg! Item was removed: - ----- Method: WindowColorSpec>>helpMessage (in category 'access') ----- - helpMessage - "Answer the helpMessage" - - ^ helpMessage! Item was removed: - ----- Method: WindowColorSpec>>normalColor (in category 'access') ----- - normalColor - - ^ normalColor! Item was removed: - ----- Method: WindowColorSpec>>pastelColor (in category 'access') ----- - pastelColor - "Answer the pastelColor" - - ^ pastelColor! Item was removed: - ----- Method: WindowColorSpec>>printOn: (in category 'printing') ----- - printOn: aStream - "Print the receiver on a stream" - - super printOn: aStream. - classSymbol printOn: aStream. - aStream nextPutAll: ' bright: ', brightColor printString, ' pastel: ', pastelColor printString, ' normal: ', normalColor printString! Item was removed: - ----- Method: WindowColorSpec>>wording (in category 'access') ----- - wording - "Answer the wording" - - ^ wording! Item was changed: + (PackageInfo named: 'System') postscript: 'Preferences allPreferences + select: [:ea | ea name endsWith: #WindowColor] + thenDo: [:ea | Preferences removePreference: ea name].'! - (PackageInfo named: 'System') postscript: 'Preferences removePreference: #roundedWindowCorners. - Preferences removePreference: #gradientScrollBars.'!

1 0

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

31 Jul '16

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1034.mcz ==================== Summary ==================== Name: Kernel-mt.1034 Author: mt Time: 31 July 2016, 10:21:08.99049 am UUID: f57f51f9-aa84-5e4e-90cb-a9c6228e3cd4 Ancestors: Kernel-topa.1033 *** 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 Kernel-topa.1033 =============== Item was changed: Object subclass: #Model instanceVariableNames: 'dependents' + classVariableNames: 'UseColorfulWindows WindowActiveOnFirstClick' - classVariableNames: 'WindowActiveOnFirstClick' poolDictionaries: '' category: 'Kernel-Models'! !Model commentStamp: '<historical>' prior: 0! Provides a superclass for classes that function as models. The only behavior provided is fast dependents maintenance, which bypasses the generic DependentsFields mechanism. 1/23/96 sw! Item was added: + ----- Method: Model class>>themeProperties (in category 'preferences') ----- + themeProperties + + ^ { + { #uniformWindowColor. 'Colors'. 'The color to be used when all windows should have the same color' }. + { #customWindowColor. 'Colors'. 'The color to be used when all windows can have their own color' }. + }! Item was added: + ----- Method: Model class>>useColorfulWindows (in category 'preferences') ----- + useColorfulWindows + <preference: 'Use colorful windows' + categoryList: #(Morphic windows) + description: 'When true, windows have colors specific to their kind.' + type: #Boolean> + ^UseColorfulWindows ifNil:[true]! Item was added: + ----- Method: Model class>>useColorfulWindows: (in category 'preferences') ----- + useColorfulWindows: aBoolean + + UseColorfulWindows = aBoolean ifTrue: [^ self]. + UseColorfulWindows := aBoolean. + + (Smalltalk classNamed: #SystemWindow) ifNotNil: [:c | c refreshAllWindows]. + (Smalltalk classNamed: #TheWorldMainDockingBar) ifNotNil: [:c | c updateInstances].! Item was added: + ----- Method: Model>>applyUserInterfaceTheme (in category 'morphic ui') ----- + applyUserInterfaceTheme + + self dependents do: [:ea | + ea isSystemWindow ifTrue: [ + ea refreshWindowColor]].! Item was added: + ----- Method: Model>>canApplyUserInterfaceTheme (in category 'morphic ui') ----- + canApplyUserInterfaceTheme + ^ self dependents notEmpty! Item was added: + ----- Method: Model>>defaultBackgroundColor (in category 'morphic ui') ----- + defaultBackgroundColor + + self flag: #remove. "Use #windowColorToUse" + ^ self windowColorToUse! Item was added: + ----- Method: Model>>defaultWindowColor (in category 'morphic ui') ----- + defaultWindowColor + + ^ self uniformWindowColor! Item was added: + ----- Method: Model>>uniformWindowColor (in category 'morphic ui') ----- + uniformWindowColor + + ^ self userInterfaceTheme uniformWindowColor ifNil: [Color veryVeryLightGray]! Item was added: + ----- Method: Model>>windowColorToUse (in category 'morphic ui') ----- + windowColorToUse + + ^ Color colorFrom: (self class useColorfulWindows + ifTrue: [self userInterfaceTheme customWindowColor ifNil: [self defaultWindowColor]] + ifFalse: [self uniformWindowColor])! Item was removed: - ----- Method: Object>>defaultBackgroundColor (in category 'user interface') ----- - defaultBackgroundColor - "Answer the color to be used as the base window color for a window whose model is an object of the receiver's class" - - ^ Preferences windowColorFor: self class name! Item was added: + ----- Method: StringHolder>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.9 g: 0.9 b: 0.719)!

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2016