Squeak-dev August 2015

squeak-dev@lists.squeakfoundation.org

50 participants
218 discussions

Re: The Trunk: System-topa.764.mcz
by marcel.taeumel 28 Aug '15

28 Aug '15

Not good for old projects... :-/ Anyway, we might get rid of this DNU trick completely... Best, Marcel -- View this message in context: http://forum.world.st/The-Trunk-System-topa-764-mcz-tp4846445p4846519.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 1

ObjectExplorer bug -- "Assertion failed"
by Chris Muller 28 Aug '15

28 Aug '15

I think we have a bug for when trying to spawn a Hierarchy browser or System browser from the ObjectExplorer -- its failing one of its own assertions. If I comment out the assertion, it opens browser on the parent object instead of the selected object. To reproduce: Simply explore the 'preferencesDictionary' class-inst var of Preferences, and then select one of the PragmaPreferences, then press Command+h. Boom.

1 0

#initialize to superclass [was Re: [squeak-dev] The Trunk: Tests-mt.329.mcz]
by Chris Cunningham 28 Aug '15

28 Aug '15

Hi Levente, On Thu, Aug 27, 2015 at 5:14 AM, Levente Uzonyi <leves(a)elte.hu> wrote: > Unless you have a very good reason to send #initialize to the superclass, > you shouldn't do it. > > So, I have two questions: 1 - why should we not do this? 2 - if we shouldn't do it, then why does the system ALWAYS bug us about not overriding #initialize when adding that method to the class side? I am in the habit of adding it - because the message pops up, and I suppose the system has a good reason for us to not override it. Maybe just a bad habit on my part. thanks, cbc > Levente > > > On Thu, 27 Aug 2015, commits(a)source.squeak.org wrote: > > Marcel Taeumel uploaded a new version of Tests to project The Trunk: >> http://source.squeak.org/trunk/Tests-mt.329.mcz >> >> ==================== Summary ==================== >> >> Name: Tests-mt.329 >> Author: mt >> Time: 27 August 2015, 11:12:04.169 am >> UUID: 2665a1ed-6312-1845-8181-d83c588cd161 >> Ancestors: Tests-mt.328 >> >> Fixes initialization problem with test preferences. >> >> =============== Diff against Tests-mt.328 =============== >> >> Item was added: >> + ----- Method: PreferencesTestPreferences class>>initialize (in category >> 'class initialization') ----- >> + initialize >> + >> + super initialize. >> + self initializeDictionaryOfPreferences.! >> >> >> >> >

4 3

Re: [squeak-dev] The Trunk: PreferenceBrowser-mt.54.mcz
by karl ramberg 28 Aug '15

28 Aug '15

Hi, While you are working on the preferences, it would be great if you could look at this change http://source.squeak.org/inbox/EToys-kfr.127.mcz It adds access to change color and border style for menus (and buttons) in the preference browser (these methods should really not be in the Etoys category) Karl On Thu, Aug 27, 2015 at 10:56 AM, <commits(a)source.squeak.org> wrote: > Marcel Taeumel uploaded a new version of PreferenceBrowser to project The > Trunk: > http://source.squeak.org/trunk/PreferenceBrowser-mt.54.mcz > > ==================== Summary ==================== > > Name: PreferenceBrowser-mt.54 > Author: mt > Time: 27 August 2015, 10:56:18.032 am > UUID: 10b11ae8-a6bd-a445-a977-b30028b9e507 > Ancestors: PreferenceBrowser-mt.53 > > Some adjustments for cleaned-up preferences interface. > > =============== Diff against PreferenceBrowser-mt.53 =============== > > Item was changed: > ----- Method: PreferenceBrowser>>allPreferences (in category > 'accessing') ----- > allPreferences > + ^ preferences allPreferences asSortedCollection: > - ^ preferences allPreferenceObjects asSortedCollection: > [:pref1 :pref2 | > pref1 viewRegistry viewOrder <pref2 viewRegistry > viewOrder or: > [pref1 viewRegistry viewOrder > =pref2 viewRegistry viewOrder > &(pref1 name <pref2 > name)]]! > > Item was changed: > ----- Method: PreferenceBrowser>>categoryList (in category 'accessing') > ----- > categoryList > ^OrderedCollection new > add: self allCategoryLabel; > + addAll: preferences categoryList asSortedCollection; > - addAll: preferences categoryNames asSortedCollection; > add: self searchResultsCategoryLabel; > yourself. > > ! > > Item was changed: > ----- Method: PreferenceBrowser>>findCategoryFromPreference: (in > category 'find') ----- > findCategoryFromPreference: prefSymbol > "Find all categories in which the preference occurs" > > | aMenu| > aMenu := MenuMorph new defaultTarget: self. > + (preferences categoryListOfPreference: prefSymbol) do: > - (preferences categoriesContainingPreference: prefSymbol) do: > [:aCategory | aMenu add: aCategory target: self selector: > #selectedCategory: argument: aCategory]. > aMenu popUpInWorld! > > Item was changed: > ----- Method: PreferenceBrowser>>preferencesInCategory: (in category > 'accessing') ----- > preferencesInCategory: aCategory > + ^(preferences preferencesInCategory: aCategory) asSortedCollection: > - ^(preferences preferenceObjectsInCategory: aCategory) > asSortedCollection: > [:pref1 :pref2 | > pref1 viewRegistry viewOrder <pref2 > viewRegistry viewOrder or: > [pref1 viewRegistry > viewOrder =pref2 viewRegistry viewOrder > &(pref1 name > <pref2 name)]]! > > >

2 3

The Trunk: Regex-Core-ul.44.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Levente Uzonyi uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ul.44.mcz ==================== Summary ==================== Name: Regex-Core-ul.44 Author: ul Time: 28 August 2015, 2:21:49.191 pm UUID: eb190b36-cf56-4381-97cb-58ef044c6416 Ancestors: Regex-Core-ul.43 RxMatcher: - updated class comment - renamed two class variables - added some speedups for those regular expressions which don't have any subexpressions - #resetMarkerPositions is now clearly something extracted from #tryMatch - use the fact that the stream is a stream of characters, so when #next returns nil, then we have found the end of the stream. =============== Diff against Regex-Core-ul.43 =============== Item was changed: Object subclass: #RxMatcher + instanceVariableNames: 'matcher ignoreCase startOptimizer stream markerPositions previousMarkerPositions markerCount lastResult firstTryMatch' - instanceVariableNames: 'matcher ignoreCase startOptimizer stream markerPositions markerCount lastResult oldMarkerPositions firstTry' classVariableNames: 'Cr Lf' poolDictionaries: '' category: 'Regex-Core'! + !RxMatcher commentStamp: 'ul 8/28/2015 14:18' prior: 0! - !RxMatcher commentStamp: 'Tbn 11/12/2010 23:13' prior: 0! -- Regular Expression Matcher v 1.1 (C) 1996, 1999 Vassili Bykov -- This is a recursive regex matcher. Not strikingly efficient, but simple. Also, keeps track of matched subexpressions. The life cycle goes as follows: 1. Initialization. Accepts a syntax tree (presumably produced by RxParser) and compiles it into a matcher built of other classes in this category. 2. Matching. Accepts a stream or a string and returns a boolean indicating whether the whole stream or its prefix -- depending on the message sent -- matches the regex. 3. Subexpression query. After a successful match, and before any other match, the matcher may be queried about the range of specific stream (string) positions that matched to certain parenthesized subexpressions of the original expression. Any number of queries may follow a successful match, and any number or matches may follow a successful initialization. Note that `matcher' is actually a sort of a misnomer. The actual matcher is a web of Rxm* instances built by RxMatcher during initialization. RxMatcher is just the interface facade of this network. It is also a builder of it, and also provides a stream-like protocol to easily access the stream being matched. Instance variables: + matcher <RxmLink> The entry point into the actual matcher. + igoreCase <Boolean> Whether the matching algorithm should be case sensitive or not. + startOptimizer <RxMatchOptimizer> An object which can quickly decide whether the next character can be the prefix of a match or not. + stream <Stream> The stream currently being matched against. + markerPositions <Array of: nil | Integer | OrderedCollection> Positions of markers' matches. + previousMarkerPositions <Array of: nil | Integer | OrderedCollection> Positions of markers from the previous #tryMatch send. + markerCount <Integer> Number of markers. + lastResult <Boolean> Whether the latest match attempt succeeded or not. + firtTryMatch <Boolean> True if there hasn't been any send of #tryMatch during the current matching.! - matcher <RxmLink> The entry point into the actual matcher. - stream <Stream> The stream currently being matched against. - markerPositions <Array of: Integer> Positions of markers' matches. - markerCount <Integer> Number of markers. - lastResult <Boolean> Whether the latest match attempt succeeded or not. - lastChar <Character | nil> character last seen in the matcher stream! Item was changed: ----- Method: RxMatcher>>copyStream:to:replacingMatchesWith: (in category 'match enumeration') ----- copyStream: aStream to: writeStream replacingMatchesWith: aString "Copy the contents of <aStream> on the <writeStream>, except for the matches. Replace each match with <aString>." | searchStart matchStart matchEnd | stream := aStream. + firstTryMatch := true. - self resetMarkerPositions. [searchStart := aStream position. self proceedSearchingStream: aStream] whileTrue: [matchStart := (self subBeginning: 1) last. matchEnd := (self subEnd: 1) last. aStream position: searchStart. searchStart to: matchStart - 1 do: [:ignoredPos | writeStream nextPut: aStream next]. writeStream nextPutAll: aString. aStream position: matchEnd. "Be extra careful about successful matches which consume no input. After those, make sure to advance or finish if already at end." matchEnd = searchStart ifTrue: [aStream atEnd ifTrue: [^self "rest after end of whileTrue: block is a no-op if atEnd"] ifFalse: [writeStream nextPut: aStream next]]]. aStream position: searchStart. [aStream atEnd] whileFalse: [writeStream nextPut: aStream next]! Item was changed: ----- Method: RxMatcher>>copyStream:to:translatingMatchesUsing: (in category 'match enumeration') ----- copyStream: aStream to: writeStream translatingMatchesUsing: aBlock "Copy the contents of <aStream> on the <writeStream>, except for the matches. For each match, evaluate <aBlock> passing the matched substring as the argument. Expect the block to answer a String, and write the answer to <writeStream> in place of the match." | searchStart matchStart matchEnd match | stream := aStream. + firstTryMatch := true. - self resetMarkerPositions. [searchStart := aStream position. self proceedSearchingStream: aStream] whileTrue: [matchStart := (self subBeginning: 1) last. matchEnd := (self subEnd: 1) last. aStream position: searchStart. searchStart to: matchStart - 1 do: [:ignoredPos | writeStream nextPut: aStream next]. match := (String new: matchEnd - matchStart + 1) writeStream. matchStart to: matchEnd - 1 do: [:ignoredPos | match nextPut: aStream next]. writeStream nextPutAll: (aBlock value: match contents). "Be extra careful about successful matches which consume no input. After those, make sure to advance or finish if already at end." matchEnd = searchStart ifTrue: [aStream atEnd ifTrue: [^self "rest after end of whileTrue: block is a no-op if atEnd"] ifFalse: [writeStream nextPut: aStream next]]]. aStream position: searchStart. [aStream atEnd] whileFalse: [writeStream nextPut: aStream next]! Item was changed: ----- Method: RxMatcher>>initialize:ignoreCase: (in category 'initialize-release') ----- initialize: syntaxTreeRoot ignoreCase: aBoolean "Compile thyself for the regex with the specified syntax tree. See comment and `building' protocol in this class and #dispatchTo: methods in syntax tree components for details on double-dispatch building. The argument is supposedly a RxsRegex." ignoreCase := aBoolean. self buildFrom: syntaxTreeRoot. + self initializeMarkerPositions. startOptimizer := RxMatchOptimizer new initialize: syntaxTreeRoot ignoreCase: aBoolean! Item was added: + ----- Method: RxMatcher>>initializeMarkerPositions (in category 'initialize-release') ----- + initializeMarkerPositions + + markerPositions := Array new: markerCount. + previousMarkerPositions := Array new: markerCount.. + 3 to: markerCount do: [ :index | + markerPositions at: index put: (OrderedCollection new: 1). + previousMarkerPositions at: index put: (OrderedCollection new: 1) ].! Item was changed: ----- Method: RxMatcher>>isWordChar: (in category 'private') ----- isWordChar: aCharacterOrNil "Answer whether the argument is a word constituent character: alphanumeric or _." + aCharacterOrNil ifNil: [ ^false ]. + ^aCharacterOrNil isAlphaNumeric! - ^aCharacterOrNil ~~ nil - and: [aCharacterOrNil isAlphaNumeric]! Item was changed: ----- Method: RxMatcher>>markerPositionAt:add: (in category 'privileged') ----- + markerPositionAt: index add: position - markerPositionAt: anIndex add: position "Remember position of another instance of the given marker." + index <= 2 ifTrue: [ + markerPositions at: index put: position. + ^self ]. + (markerPositions at: index) addLast: position! - (markerPositions at: anIndex) addLast: position! Item was changed: ----- Method: RxMatcher>>matchesStreamPrefix: (in category 'accessing') ----- matchesStreamPrefix: theStream "Match thyself against a positionable stream." stream := theStream. + firstTryMatch := true. - self resetMarkerPositions. ^self tryMatch! Item was changed: ----- Method: RxMatcher>>proceedSearchingStream: (in category 'private') ----- proceedSearchingStream: aStream | position | + [ + position := aStream position. + self tryMatch ifTrue: [ ^true ]. + (aStream position: position; next) ifNil: [ + "Try match at the very stream end too!!" + ^self tryMatch ] ] repeat! - position := aStream position. - [aStream atEnd] whileFalse: - [self tryMatch ifTrue: [^true]. - aStream position: position; next. - position := aStream position]. - "Try match at the very stream end too!!" - self tryMatch ifTrue: [^true]. - ^false! Item was changed: ----- Method: RxMatcher>>resetMarkerPositions (in category 'private') ----- resetMarkerPositions + "Reset the marker positions. This method should only be sent from #tryMatch. When this is after the first #tryMatch send, then the marker positions must be swapped." - "This method should be sent before the first #tryMatch send." + firstTryMatch + ifTrue: [ firstTryMatch := false ] + ifFalse: [ + | temp | + temp := previousMarkerPositions. + previousMarkerPositions := markerPositions. + markerPositions := temp ]. + markerPositions + at: 1 put: nil; + at: 2 put: nil. + 3 to: markerCount do: [ :index | + (markerPositions at: index) resetTo: 1 ]! - firstTry := true. - markerPositions ifNotNil: [ - markerPositions do: [ :each | each resetTo: 1 ] ]! Item was changed: ----- Method: RxMatcher>>searchStream: (in category 'accessing') ----- searchStream: aStream "Search the stream for occurrence of something matching myself. After the search has occurred, stop positioned after the end of the matched substring. Answer a Boolean indicating success." | position | stream := aStream. position := aStream position. + firstTryMatch := true. - self resetMarkerPositions. [aStream atEnd] whileFalse: [self tryMatch ifTrue: [^true]. aStream position: position; next. position := aStream position]. "Try match at the very stream end too!!" ^self tryMatch! Item was changed: ----- Method: RxMatcher>>subBeginning: (in category 'accessing') ----- subBeginning: subIndex + subIndex = 1 ifTrue: [ + (markerPositions at: 1) + ifNil: [ ^#()] + ifNotNil: [ :mp | ^{ mp } ] ]. ^markerPositions at: subIndex * 2 - 1! Item was changed: ----- Method: RxMatcher>>subEnd: (in category 'accessing') ----- subEnd: subIndex + subIndex = 1 ifTrue: [ + (markerPositions at: 2) + ifNil: [ ^#()] + ifNotNil: [ :mp | ^{ mp } ] ]. ^markerPositions at: subIndex * 2! Item was changed: ----- Method: RxMatcher>>tryMatch (in category 'private') ----- tryMatch "Match thyself against the current stream." + | wasFirstTryMatch | + wasFirstTryMatch := firstTryMatch. + self resetMarkerPositions. - | newMarkerPositions wasFirstTry | - wasFirstTry := firstTry. - firstTry := false. - newMarkerPositions := oldMarkerPositions. - oldMarkerPositions := markerPositions. - markerPositions := newMarkerPositions. - markerPositions - ifNil: [ - markerPositions := Array new: markerCount. - 1 to: markerCount do: [ :i | - "There are usually 0 or 1 objects to store." - markerPositions at: i put: (OrderedCollection new: 2) ] ] - ifNotNil: [ - 1 to: markerCount do: [ :i | - (markerPositions at: i) resetTo: 1 ] ]. lastResult := startOptimizer + ifNil: [ matcher matchAgainst: self ] - ifNil: [ matcher matchAgainst: self] ifNotNil: [ (startOptimizer canStartMatch: stream peek in: self) and: [ matcher matchAgainst: self ] ]. "check for duplicates" lastResult ifFalse: [ ^false ]. + wasFirstTryMatch ifTrue: [ ^true ]. + (previousMarkerPositions hasEqualElements: markerPositions) ifFalse: [ ^true ]. - wasFirstTry ifTrue: [ ^true ]. - (oldMarkerPositions hasEqualElements: markerPositions) ifFalse: [ ^true ]. "this is a duplicate match" ^ lastResult := false!

1 0

The Trunk: PreferenceBrowser-mt.56.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.56.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.56 Author: mt Time: 28 August 2015, 10:42:09.726 am UUID: 653323a1-a37f-f047-9a58-06ceac3598e8 Ancestors: PreferenceBrowser-mt.55 Fixes menu pop-up for color preferences. =============== Diff against PreferenceBrowser-mt.55 =============== Item was changed: ----- Method: PBColorPreferenceView>>borderStyleMenu (in category 'user interface') ----- borderStyleMenu "Add border-style menu items" | aMenu | aMenu := MenuMorph new defaultTarget: self. aMenu addStayUpItemSpecial. aMenu add: 'border color...' translated target: self selector:#changeColor: argument: button. aMenu addLine. BorderStyle borderStyleChoices do: [:sym | (aMenu borderStyleForSymbol: sym) ifNotNil: [aMenu add: sym translated target: self selector: #setBorderStyle: argument: sym]]. + ^aMenu popUpInWorld - ^aMenu openNear: ActiveHand bounds. ! Item was changed: ----- Method: PBColorPreferenceView>>fillStyleMenu (in category 'user interface') ----- fillStyleMenu "Add the items for changing the current fill style of the Morph" | aMenu | "self canHaveFillStyles ifFalse:[^aMenu add: 'change color...' translated target: self action: #changeColor]." aMenu := MenuMorph new defaultTarget: self. "self preference preferenceValue addFillStyleMenuItems: aMenu hand: nil from: self." aMenu add: 'change color...' translated target: self selector:#changeColor: argument: button. aMenu addLine. aMenu add: 'solid fill' translated action: #useSolidFill. "aMenu add: 'gradient fill' translated action: #useGradientFill. aMenu add: 'bitmap fill' translated action: #useBitmapFill. aMenu add: 'default fill' translated action: #useDefaultFill." + ^aMenu popUpInWorld - ^aMenu openNear: ActiveHand bounds. !

1 0

The Trunk: PreferenceBrowser-mt.55.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.55.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.55 Author: mt Time: 28 August 2015, 10:39:02.545 am UUID: 7a5295ca-614d-3a44-b69e-c8a9b69ec92b Ancestors: PreferenceBrowser-mt.54 Adds color preference views (moved from EToys package). =============== Diff against PreferenceBrowser-mt.54 =============== Item was added: + PBPreferenceView subclass: #PBColorPreferenceView + instanceVariableNames: 'button' + classVariableNames: '' + poolDictionaries: '' + category: 'PreferenceBrowser'! Item was added: + ----- Method: PBColorPreferenceView class>>initialize (in category 'class initialization') ----- + initialize + PreferenceViewRegistry ofColorPreferences register: self.! Item was added: + ----- Method: PBColorPreferenceView class>>unload (in category 'class initialization') ----- + unload + "Unload order is not guaranteed so guard against failure" + [PreferenceViewRegistry ofColorPreferences unregister: self] on: Error do:[]! Item was added: + ----- Method: PBColorPreferenceView>>adjustLabelColor (in category 'user interface') ----- + adjustLabelColor + | textColor | + (self preference preferenceValue luminance < 0.5) + ifTrue:[ textColor := Color white] + ifFalse:[ textColor := Color black]. + button allMorphsDo: [:m | (m isKindOf: StringMorph) ifTrue: [ m color: textColor]]. ! Item was added: + ----- Method: PBColorPreferenceView>>borderStyleMenu (in category 'user interface') ----- + borderStyleMenu + "Add border-style menu items" + + | aMenu | + aMenu := MenuMorph new defaultTarget: self. + + aMenu addStayUpItemSpecial. + aMenu add: 'border color...' translated target: self selector:#changeColor: argument: button. + aMenu addLine. + BorderStyle borderStyleChoices do: + [:sym | (aMenu borderStyleForSymbol: sym) + ifNotNil: + [aMenu add: sym translated target: self selector: #setBorderStyle: argument: sym]]. + ^aMenu openNear: ActiveHand bounds. + ! Item was added: + ----- Method: PBColorPreferenceView>>changeColor: (in category 'user interface') ----- + changeColor: aButton + aButton changeColor. + self preference preferenceValue: aButton fillStyle. + button label: self preference preferenceValue asString. + self adjustLabelColor ! Item was added: + ----- Method: PBColorPreferenceView>>colorMenuButton (in category 'user interface') ----- + colorMenuButton + | selector name | + name := self preference name. + (name includesSubstring: 'border' caseSensitive: false) + ifTrue: [ selector := #borderStyleMenu] + ifFalse:[ selector := #fillStyleMenu]. + button := SimpleButtonMorph new + label: self preference preferenceValue asString; + actionSelector: selector; + target: self. + name = #menuBorderColor + ifTrue:[ ^button borderColor: MenuMorph menuBorderColor; borderWidth: MenuMorph menuBorderWidth]. + name = #menuTitleBorderColor + ifTrue:[ ^button borderColor: MenuMorph menuTitleBorderColor; borderWidth: MenuMorph menuTitleBorderWidth]. + self adjustLabelColor. + ^button color: self preference preferenceValue + + + "UpdatingRectangleMorph new + target: self preference; + getSelector: #preferenceValue; + putSelector: #preferenceValue:; + extent: 22@22; + setBalloonText: 'click here to change the color' translated; + yourself."! Item was added: + ----- Method: PBColorPreferenceView>>colorSwatch (in category 'user interface') ----- + colorSwatch + ^UpdatingRectangleMorph new + target: self preference; + getSelector: #preferenceValue; + putSelector: #preferenceValue:; + extent: 22@22; + setBalloonText: 'click here to change the color' translated; + yourself.! Item was added: + ----- Method: PBColorPreferenceView>>fillStyleMenu (in category 'user interface') ----- + fillStyleMenu + "Add the items for changing the current fill style of the Morph" + | aMenu | + "self canHaveFillStyles ifFalse:[^aMenu add: 'change color...' translated target: self action: #changeColor]." + aMenu := MenuMorph new defaultTarget: self. + "self preference preferenceValue addFillStyleMenuItems: aMenu hand: nil from: self." + aMenu add: 'change color...' translated target: self selector:#changeColor: argument: button. + aMenu addLine. + aMenu add: 'solid fill' translated action: #useSolidFill. + "aMenu add: 'gradient fill' translated action: #useGradientFill. + aMenu add: 'bitmap fill' translated action: #useBitmapFill. + aMenu add: 'default fill' translated action: #useDefaultFill." + ^aMenu openNear: ActiveHand bounds. + ! Item was added: + ----- Method: PBColorPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- + representativeButtonWithColor: aColor inPanel: aPreferenceBrowser + ^self horizontalPanel + layoutInset: 2; + color: aColor; + cellInset: 20; + cellPositioning: #center; + addMorphBack: (StringMorph contents: self preference name); + addMorphBack: self horizontalFiller; + addMorphBack: self colorMenuButton; + yourself! Item was added: + ----- Method: PBColorPreferenceView>>setBorderStyle: (in category 'user interface') ----- + setBorderStyle: aBorderStyle + self preference name = #menuBorderColor + ifTrue: [button color: MenuMorph menuColor; + borderWidth: MenuMorph menuBorderWidth]. + self preference name = #menuTitleBorderColor + ifTrue: [button color: MenuMorph menuTitleColor; + borderWidth: MenuMorph menuTitleBorderWidth]. + self preference preferenceValue: aBorderStyle. + button label: self preference preferenceValue asString; + borderColor: aBorderStyle. + ! Item was added: + ----- Method: PBColorPreferenceView>>useGradientFill (in category 'user interface') ----- + useGradientFill + + "Make receiver use a solid fill style (e.g., a simple color)" + + + | color1 color2 fill | + self preference preferenceValue isGradientFill ifTrue:[^self]. "Already done" + color1 := Color white darker. + color2 := self preference preferenceValue asColor. + fill := GradientFillStyle ramp: {0.0 -> color1. 1.0 -> color2}. + fill origin: ActiveWorld topLeft. + fill direction: 0 @ ActiveWorld bounds extent y. + fill normal: ActiveWorld bounds extent x @ 0. + fill radial: false. + self preference preferenceValue: fill. + button label: self preference preferenceValue asString; + color: self preference preferenceValue! Item was added: + ----- Method: PBColorPreferenceView>>useSolidFill (in category 'user interface') ----- + useSolidFill + "Make receiver use a solid fill style (e.g., a simple color)" + self preference preferenceValue isSolidFill ifTrue:[^self]. "Already done" + self preference preferenceValue: self preference preferenceValue asColor. "Try minimizing changes" + + button label: self preference preferenceValue asString; + color: self preference preferenceValue + ! Item was added: + PBColorPreferenceView subclass: #PBWindowColorPreferenceView + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: '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: #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.!

1 0

The Trunk: EToys-mt.129.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.129.mcz ==================== Summary ==================== Name: EToys-mt.129 Author: mt Time: 28 August 2015, 10:38:10.951 am UUID: 67137285-c25a-4646-949c-ee0e7cdd37a2 Ancestors: EToys-mt.128 Removes color preference views (to regular PreferenceBrowser package). =============== Diff against EToys-mt.128 =============== Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! SystemOrganization addCategory: #'Etoys-Outliner'! - SystemOrganization addCategory: #'Etoys-PreferenceBrowser'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Support'! SystemOrganization addCategory: #'Etoys-Tests'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Widgets'! Item was removed: - PBPreferenceView subclass: #PBColorPreferenceView - instanceVariableNames: 'button' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-PreferenceBrowser'! Item was removed: - ----- Method: PBColorPreferenceView class>>initialize (in category 'class initialization') ----- - initialize - PreferenceViewRegistry ofColorPreferences register: self.! Item was removed: - ----- Method: PBColorPreferenceView class>>unload (in category 'class initialization') ----- - unload - "Unload order is not guaranteed so guard against failure" - [PreferenceViewRegistry ofColorPreferences unregister: self] on: Error do:[]! Item was removed: - ----- Method: PBColorPreferenceView>>adjustLabelColor (in category 'user interface') ----- - adjustLabelColor - | textColor | - (self preference preferenceValue luminance < 0.5) - ifTrue:[ textColor := Color white] - ifFalse:[ textColor := Color black]. - button allMorphsDo: [:m | (m isKindOf: StringMorph) ifTrue: [ m color: textColor]]. ! Item was removed: - ----- Method: PBColorPreferenceView>>borderStyleMenu (in category 'user interface') ----- - borderStyleMenu - "Add border-style menu items" - - | aMenu | - aMenu := MenuMorph new defaultTarget: self. - - aMenu addStayUpItemSpecial. - aMenu add: 'border color...' translated target: self selector:#changeColor: argument: button. - aMenu addLine. - BorderStyle borderStyleChoices do: - [:sym | (aMenu borderStyleForSymbol: sym) - ifNotNil: - [aMenu add: sym translated target: self selector: #setBorderStyle: argument: sym]]. - ^aMenu openNear: ActiveHand bounds. - ! Item was removed: - ----- Method: PBColorPreferenceView>>changeColor: (in category 'user interface') ----- - changeColor: aButton - aButton changeColor. - self preference preferenceValue: aButton fillStyle. - button label: self preference preferenceValue asString. - self adjustLabelColor ! Item was removed: - ----- Method: PBColorPreferenceView>>colorMenuButton (in category 'user interface') ----- - colorMenuButton - | selector name | - name := self preference name. - (name includesSubstring: 'border' caseSensitive: false) - ifTrue: [ selector := #borderStyleMenu] - ifFalse:[ selector := #fillStyleMenu]. - button := SimpleButtonMorph new - label: self preference preferenceValue asString; - actionSelector: selector; - target: self. - name = #menuBorderColor - ifTrue:[ ^button borderColor: MenuMorph menuBorderColor; borderWidth: MenuMorph menuBorderWidth]. - name = #menuTitleBorderColor - ifTrue:[ ^button borderColor: MenuMorph menuTitleBorderColor; borderWidth: MenuMorph menuTitleBorderWidth]. - self adjustLabelColor. - ^button color: self preference preferenceValue - - - "UpdatingRectangleMorph new - target: self preference; - getSelector: #preferenceValue; - putSelector: #preferenceValue:; - extent: 22@22; - setBalloonText: 'click here to change the color' translated; - yourself."! Item was removed: - ----- Method: PBColorPreferenceView>>colorSwatch (in category 'user interface') ----- - colorSwatch - ^UpdatingRectangleMorph new - target: self preference; - getSelector: #preferenceValue; - putSelector: #preferenceValue:; - extent: 22@22; - setBalloonText: 'click here to change the color' translated; - yourself.! Item was removed: - ----- Method: PBColorPreferenceView>>fillStyleMenu (in category 'user interface') ----- - fillStyleMenu - "Add the items for changing the current fill style of the Morph" - | aMenu | - "self canHaveFillStyles ifFalse:[^aMenu add: 'change color...' translated target: self action: #changeColor]." - aMenu := MenuMorph new defaultTarget: self. - "self preference preferenceValue addFillStyleMenuItems: aMenu hand: nil from: self." - aMenu add: 'change color...' translated target: self selector:#changeColor: argument: button. - aMenu addLine. - aMenu add: 'solid fill' translated action: #useSolidFill. - "aMenu add: 'gradient fill' translated action: #useGradientFill. - aMenu add: 'bitmap fill' translated action: #useBitmapFill. - aMenu add: 'default fill' translated action: #useDefaultFill." - ^aMenu openNear: ActiveHand bounds. - ! Item was removed: - ----- Method: PBColorPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- - representativeButtonWithColor: aColor inPanel: aPreferenceBrowser - ^self horizontalPanel - layoutInset: 2; - color: aColor; - cellInset: 20; - cellPositioning: #center; - addMorphBack: (StringMorph contents: self preference name); - addMorphBack: self horizontalFiller; - addMorphBack: self colorMenuButton; - yourself! Item was removed: - ----- Method: PBColorPreferenceView>>setBorderStyle: (in category 'user interface') ----- - setBorderStyle: aBorderStyle - self preference name = #menuBorderColor - ifTrue: [button color: MenuMorph menuColor; - borderWidth: MenuMorph menuBorderWidth]. - self preference name = #menuTitleBorderColor - ifTrue: [button color: MenuMorph menuTitleColor; - borderWidth: MenuMorph menuTitleBorderWidth]. - self preference preferenceValue: aBorderStyle. - button label: self preference preferenceValue asString; - borderColor: aBorderStyle. - ! Item was removed: - ----- Method: PBColorPreferenceView>>useGradientFill (in category 'user interface') ----- - useGradientFill - - "Make receiver use a solid fill style (e.g., a simple color)" - - - | color1 color2 fill | - self preference preferenceValue isGradientFill ifTrue:[^self]. "Already done" - color1 := Color white darker. - color2 := self preference preferenceValue asColor. - fill := GradientFillStyle ramp: {0.0 -> color1. 1.0 -> color2}. - fill origin: ActiveWorld topLeft. - fill direction: 0 @ ActiveWorld bounds extent y. - fill normal: ActiveWorld bounds extent x @ 0. - fill radial: false. - self preference preferenceValue: fill. - button label: self preference preferenceValue asString; - color: self preference preferenceValue! Item was removed: - ----- Method: PBColorPreferenceView>>useSolidFill (in category 'user interface') ----- - useSolidFill - "Make receiver use a solid fill style (e.g., a simple color)" - self preference preferenceValue isSolidFill ifTrue:[^self]. "Already done" - self preference preferenceValue: self preference preferenceValue asColor. "Try minimizing changes" - - button label: self preference preferenceValue asString; - color: self preference preferenceValue - ! Item was removed: - PBColorPreferenceView subclass: #PBWindowColorPreferenceView - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-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.!

1 0

The Trunk: EToys-mt.128.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.128.mcz ==================== Summary ==================== Name: EToys-mt.128 Author: mt Time: 28 August 2015, 10:36:06.065 am UUID: 2d230745-ba1d-6941-aeac-de15f18bbfbf Ancestors: EToys-ul.127, EToys-kfr.127 Merge additions to color preferences from kfr. =============== Diff against EToys-ul.127 =============== Item was changed: PBPreferenceView subclass: #PBColorPreferenceView + instanceVariableNames: 'button' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Etoys-PreferenceBrowser'! Item was added: + ----- Method: PBColorPreferenceView>>adjustLabelColor (in category 'user interface') ----- + adjustLabelColor + | textColor | + (self preference preferenceValue luminance < 0.5) + ifTrue:[ textColor := Color white] + ifFalse:[ textColor := Color black]. + button allMorphsDo: [:m | (m isKindOf: StringMorph) ifTrue: [ m color: textColor]]. ! Item was added: + ----- Method: PBColorPreferenceView>>borderStyleMenu (in category 'user interface') ----- + borderStyleMenu + "Add border-style menu items" + + | aMenu | + aMenu := MenuMorph new defaultTarget: self. + + aMenu addStayUpItemSpecial. + aMenu add: 'border color...' translated target: self selector:#changeColor: argument: button. + aMenu addLine. + BorderStyle borderStyleChoices do: + [:sym | (aMenu borderStyleForSymbol: sym) + ifNotNil: + [aMenu add: sym translated target: self selector: #setBorderStyle: argument: sym]]. + ^aMenu openNear: ActiveHand bounds. + ! Item was added: + ----- Method: PBColorPreferenceView>>changeColor: (in category 'user interface') ----- + changeColor: aButton + aButton changeColor. + self preference preferenceValue: aButton fillStyle. + button label: self preference preferenceValue asString. + self adjustLabelColor ! Item was added: + ----- Method: PBColorPreferenceView>>colorMenuButton (in category 'user interface') ----- + colorMenuButton + | selector name | + name := self preference name. + (name includesSubstring: 'border' caseSensitive: false) + ifTrue: [ selector := #borderStyleMenu] + ifFalse:[ selector := #fillStyleMenu]. + button := SimpleButtonMorph new + label: self preference preferenceValue asString; + actionSelector: selector; + target: self. + name = #menuBorderColor + ifTrue:[ ^button borderColor: MenuMorph menuBorderColor; borderWidth: MenuMorph menuBorderWidth]. + name = #menuTitleBorderColor + ifTrue:[ ^button borderColor: MenuMorph menuTitleBorderColor; borderWidth: MenuMorph menuTitleBorderWidth]. + self adjustLabelColor. + ^button color: self preference preferenceValue + + + "UpdatingRectangleMorph new + target: self preference; + getSelector: #preferenceValue; + putSelector: #preferenceValue:; + extent: 22@22; + setBalloonText: 'click here to change the color' translated; + yourself."! Item was added: + ----- Method: PBColorPreferenceView>>fillStyleMenu (in category 'user interface') ----- + fillStyleMenu + "Add the items for changing the current fill style of the Morph" + | aMenu | + "self canHaveFillStyles ifFalse:[^aMenu add: 'change color...' translated target: self action: #changeColor]." + aMenu := MenuMorph new defaultTarget: self. + "self preference preferenceValue addFillStyleMenuItems: aMenu hand: nil from: self." + aMenu add: 'change color...' translated target: self selector:#changeColor: argument: button. + aMenu addLine. + aMenu add: 'solid fill' translated action: #useSolidFill. + "aMenu add: 'gradient fill' translated action: #useGradientFill. + aMenu add: 'bitmap fill' translated action: #useBitmapFill. + aMenu add: 'default fill' translated action: #useDefaultFill." + ^aMenu openNear: ActiveHand bounds. + ! Item was changed: ----- Method: PBColorPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferenceBrowser ^self horizontalPanel layoutInset: 2; color: aColor; cellInset: 20; cellPositioning: #center; addMorphBack: (StringMorph contents: self preference name); addMorphBack: self horizontalFiller; + addMorphBack: self colorMenuButton; - addMorphBack: self colorSwatch; yourself! Item was added: + ----- Method: PBColorPreferenceView>>setBorderStyle: (in category 'user interface') ----- + setBorderStyle: aBorderStyle + self preference name = #menuBorderColor + ifTrue: [button color: MenuMorph menuColor; + borderWidth: MenuMorph menuBorderWidth]. + self preference name = #menuTitleBorderColor + ifTrue: [button color: MenuMorph menuTitleColor; + borderWidth: MenuMorph menuTitleBorderWidth]. + self preference preferenceValue: aBorderStyle. + button label: self preference preferenceValue asString; + borderColor: aBorderStyle. + ! Item was added: + ----- Method: PBColorPreferenceView>>useGradientFill (in category 'user interface') ----- + useGradientFill + + "Make receiver use a solid fill style (e.g., a simple color)" + + + | color1 color2 fill | + self preference preferenceValue isGradientFill ifTrue:[^self]. "Already done" + color1 := Color white darker. + color2 := self preference preferenceValue asColor. + fill := GradientFillStyle ramp: {0.0 -> color1. 1.0 -> color2}. + fill origin: ActiveWorld topLeft. + fill direction: 0 @ ActiveWorld bounds extent y. + fill normal: ActiveWorld bounds extent x @ 0. + fill radial: false. + self preference preferenceValue: fill. + button label: self preference preferenceValue asString; + color: self preference preferenceValue! Item was added: + ----- Method: PBColorPreferenceView>>useSolidFill (in category 'user interface') ----- + useSolidFill + "Make receiver use a solid fill style (e.g., a simple color)" + self preference preferenceValue isSolidFill ifTrue:[^self]. "Already done" + self preference preferenceValue: self preference preferenceValue asColor. "Try minimizing changes" + + button label: self preference preferenceValue asString; + color: self preference preferenceValue + !

1 0

The Trunk: EToys-kfr.127.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-kfr.127.mcz ==================== Summary ==================== Name: EToys-kfr.127 Author: kfr Time: 6 May 2015, 8:58:58.372 pm UUID: 78d9ce0c-9ee9-0c40-85cf-3fc29198913c Ancestors: EToys-kfr.126 Enhance color settings in PreferenceBrowser towards using more fillstyles for color and borders than just solid fill. =============== Diff against EToys-kfr.126 =============== Item was changed: PBPreferenceView subclass: #PBColorPreferenceView + instanceVariableNames: 'button' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Etoys-PreferenceBrowser'! Item was added: + ----- Method: PBColorPreferenceView>>adjustLabelColor (in category 'user interface') ----- + adjustLabelColor + | textColor | + (self preference preferenceValue luminance < 0.5) + ifTrue:[ textColor := Color white] + ifFalse:[ textColor := Color black]. + button allMorphsDo: [:m | (m isKindOf: StringMorph) ifTrue: [ m color: textColor]]. ! Item was added: + ----- Method: PBColorPreferenceView>>borderStyleMenu (in category 'user interface') ----- + borderStyleMenu + "Add border-style menu items" + + | aMenu | + aMenu := MenuMorph new defaultTarget: self. + + aMenu addStayUpItemSpecial. + aMenu add: 'border color...' translated target: self selector:#changeColor: argument: button. + aMenu addLine. + BorderStyle borderStyleChoices do: + [:sym | (aMenu borderStyleForSymbol: sym) + ifNotNil: + [aMenu add: sym translated target: self selector: #setBorderStyle: argument: sym]]. + ^aMenu openNear: ActiveHand bounds. + ! Item was added: + ----- Method: PBColorPreferenceView>>changeColor: (in category 'user interface') ----- + changeColor: aButton + aButton changeColor. + self preference preferenceValue: aButton fillStyle. + button label: self preference preferenceValue asString. + self adjustLabelColor ! Item was added: + ----- Method: PBColorPreferenceView>>colorMenuButton (in category 'user interface') ----- + colorMenuButton + | selector name | + name := self preference name. + (name includesSubstring: 'border' caseSensitive: false) + ifTrue: [ selector := #borderStyleMenu] + ifFalse:[ selector := #fillStyleMenu]. + button := SimpleButtonMorph new + label: self preference preferenceValue asString; + actionSelector: selector; + target: self. + name = #menuBorderColor + ifTrue:[ ^button borderColor: MenuMorph menuBorderColor; borderWidth: MenuMorph menuBorderWidth]. + name = #menuTitleBorderColor + ifTrue:[ ^button borderColor: MenuMorph menuTitleBorderColor; borderWidth: MenuMorph menuTitleBorderWidth]. + self adjustLabelColor. + ^button color: (self preference provider perform: (self preference selectors first)). + + + "UpdatingRectangleMorph new + target: self preference; + getSelector: #preferenceValue; + putSelector: #preferenceValue:; + extent: 22@22; + setBalloonText: 'click here to change the color' translated; + yourself."! Item was added: + ----- Method: PBColorPreferenceView>>fillStyleMenu (in category 'user interface') ----- + fillStyleMenu + "Add the items for changing the current fill style of the Morph" + | aMenu | + "self canHaveFillStyles ifFalse:[^aMenu add: 'change color...' translated target: self action: #changeColor]." + aMenu := MenuMorph new defaultTarget: self. + "self preference preferenceValue addFillStyleMenuItems: aMenu hand: nil from: self." + aMenu add: 'change color...' translated target: self selector:#changeColor: argument: button. + aMenu addLine. + aMenu add: 'solid fill' translated action: #useSolidFill. + "aMenu add: 'gradient fill' translated action: #useGradientFill. + aMenu add: 'bitmap fill' translated action: #useBitmapFill. + aMenu add: 'default fill' translated action: #useDefaultFill." + ^aMenu openNear: ActiveHand bounds. + ! Item was changed: ----- Method: PBColorPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferenceBrowser ^self horizontalPanel layoutInset: 2; color: aColor; cellInset: 20; cellPositioning: #center; addMorphBack: (StringMorph contents: self preference name); addMorphBack: self horizontalFiller; + addMorphBack: self colorMenuButton; - addMorphBack: self colorSwatch; yourself! Item was added: + ----- Method: PBColorPreferenceView>>setBorderStyle: (in category 'user interface') ----- + setBorderStyle: aBorderStyle + self preference name = #menuBorderColor + ifTrue: [button color: MenuMorph menuColor; + borderWidth: MenuMorph menuBorderWidth]. + self preference name = #menuTitleBorderColor + ifTrue: [button color: MenuMorph menuTitleColor; + borderWidth: MenuMorph menuTitleBorderWidth]. + self preference preferenceValue: aBorderStyle. + button label: self preference preferenceValue asString; + borderColor: aBorderStyle. + ! Item was added: + ----- Method: PBColorPreferenceView>>useGradientFill (in category 'user interface') ----- + useGradientFill + + "Make receiver use a solid fill style (e.g., a simple color)" + + + | color1 color2 fill | + self preference preferenceValue isGradientFill ifTrue:[^self]. "Already done" + color1 := Color white darker. + color2 := self preference preferenceValue asColor. + fill := GradientFillStyle ramp: {0.0 -> color1. 1.0 -> color2}. + fill origin: ActiveWorld topLeft. + fill direction: 0 @ ActiveWorld bounds extent y. + fill normal: ActiveWorld bounds extent x @ 0. + fill radial: false. + self preference preferenceValue: fill. + button label: self preference preferenceValue asString; + color: self preference preferenceValue! Item was added: + ----- Method: PBColorPreferenceView>>useSolidFill (in category 'user interface') ----- + useSolidFill + "Make receiver use a solid fill style (e.g., a simple color)" + self preference preferenceValue isSolidFill ifTrue:[^self]. "Already done" + self preference preferenceValue: self preference preferenceValue asColor. "Try minimizing changes" + + button label: self preference preferenceValue asString; + color: self preference preferenceValue + !

1 0

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

Jump to page: