Squeak-dev May 2019

squeak-dev@lists.squeakfoundation.org

36 participants
153 discussions

The Trunk: Collections-mt.834.mcz
by commits＠source.squeak.org 21 May '19

21 May '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.834.mcz ==================== Summary ==================== Name: Collections-mt.834 Author: mt Time: 21 May 2019, 10:47:25.375822 am UUID: 505856e5-ecbf-cf41-ab6d-ef0b7b3dd45b Ancestors: Collections-mt.833 Replace the few sends to #valueWithPossibleArgument: with #cull: because there is no need to expect blocks with more than one argument to be filled with nils. Updates comments. =============== Diff against Collections-mt.833 =============== Item was changed: ----- Method: Collection>>ifEmpty: (in category 'testing') ----- ifEmpty: aBlock + "Evaluate aBlock if I'm empty, return myself otherwise." - "Evaluate the block if I'm empty" + self isEmpty ifTrue: [^ aBlock value].! - self isEmpty ifTrue: [ ^aBlock value ]! Item was changed: ----- Method: Collection>>ifEmpty:ifNotEmpty: (in category 'testing') ----- ifEmpty: emptyBlock ifNotEmpty: notEmptyBlock + "Evaluate emptyBlock if I'm empty, notEmptyBlock otherwise. If the notEmptyBlock has an argument, evalualte it with myself as its argument. See also #ifEmpty:ifNotEmptyDo:." - "Evaluate emptyBlock if I'm empty, notEmptyBlock otherwise" - " If the notEmptyBlock has an argument, eval with the receiver as its argument" + self isEmpty ifTrue: [^ emptyBlock value]. + ^ notEmptyBlock cull: self! - self isEmpty ifTrue: [ ^emptyBlock value ]. - ^notEmptyBlock valueWithPossibleArgument: self! Item was changed: ----- Method: Collection>>ifNotEmpty: (in category 'testing') ----- ifNotEmpty: aBlock + "Evaluate aBlock if I'm not empty, return myself otherwise. If aBlock has an argument, evaluate it with myself as its argument. See also #ifNotEmptyDo:." - "Evaluate the given block unless the receiver is empty. + self isEmpty ifFalse: [^ aBlock cull: self].! - If the block has an argument, eval with the receiver as its argument, - but it might be better to use ifNotEmptyDo: to make the code easier to - understand" - - self isEmpty ifFalse: [^ aBlock valueWithPossibleArgument: self]. - ! Item was changed: ----- Method: Collection>>ifNotEmpty:ifEmpty: (in category 'testing') ----- ifNotEmpty: notEmptyBlock ifEmpty: emptyBlock + "Evaluate emptyBlock if I'm empty, notEmptyBlock otherwise. If the notEmptyBlock has an argument, evaluate it with myself as its argument. See also #ifNotEmptyDo:ifEmpty:." - "Evaluate emptyBlock if I'm empty, notEmptyBlock otherwise - If the notEmptyBlock has an argument, eval with the receiver as its argument" + self isEmpty ifFalse: [^notEmptyBlock cull: self]. + ^ emptyBlock value! - self isEmpty ifFalse: [ ^notEmptyBlock valueWithPossibleArgument: self ]. - ^emptyBlock value!

1 0

satisfying:do:ifAbsent: (for msg 7 of Re: Squeak-dev Digest, Vol 197, Issue 25))
by Jim Sawyer 21 May '19

21 May '19

#findLast: is a bit of a misnomer for this. An intention revealing selector might be #satisfying:do:ifAbsent: or (even longer) #elementsSatisfying:do:ifAbsent:. with usage for your case last := collection elementsSatisfying: discriminator do: a1block ifAbsent: [nil]. any := last notNil. and implemented something like >>elementsSatisfying: discriminator do: a1block ifAbsent: exceptional | last | self do: [:each| (discriminator value: each) ifTrue: [a1block value: (last := each)] ]. ^last orIfNil: [exceptional value] -Jim On 5/16/2019 8:13 AM, squeak-dev-request(a)lists.squeakfoundation.org wrote: > Send Squeak-dev mailing list submissions to > squeak-dev(a)lists.squeakfoundation.org > > To subscribe or unsubscribe via the World Wide Web, visit > http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/squeak-dev > or, via email, send a message with subject or body 'help' to > squeak-dev-request(a)lists.squeakfoundation.org > > You can reach the person managing the list at > squeak-dev-owner(a)lists.squeakfoundation.org > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of Squeak-dev digest..." > > > Today's Topics: > > 1. Re: The Inbox: Graphics-nice.407.mcz (Nicolas Cellier) > 2. Re: The Inbox: Graphics-nice.407.mcz (Marcel Taeumel) > 3. The Inbox: Graphics-nice.408.mcz (commits(a)source.squeak.org) > 4. Re: The Inbox: Graphics-nice.407.mcz (Nicolas Cellier) > 5. Re: The Inbox: Graphics-nice.407.mcz (Stéphane Rollandin) > 6. Re: The Inbox: Graphics-nice.407.mcz (Stéphane Rollandin) > 7. Re: Boolean whenTrue:whenFalse: (Torge Husfeldt) > 8. Re: Boolean whenTrue:whenFalse: (Nicolas Cellier) > 9. Re: Boolean whenTrue:whenFalse: (Torge Husfeldt) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Thu, 16 May 2019 14:19:16 +0200 > From: Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> > To: The general-purpose Squeak developers list > <squeak-dev(a)lists.squeakfoundation.org> > Subject: Re: [squeak-dev] The Inbox: Graphics-nice.407.mcz > Message-ID: > <CAKnRiT6r8T6YG3TOUmRdWru9aTje2zQJqd8W99qQ7vzi4FttBA(a)mail.gmail.com> > Content-Type: text/plain; charset="utf-8" > > Le jeu. 16 mai 2019 à 13:54, Marcel Taeumel <marcel.taeumel(a)hpi.de> a > écrit : > >> Hi Nicolas, >> >> it would be nice to see more named colors in the image. The user-interface >> themes introduce color names for Monokai and Solarized etc. I sneaked some >> crayons into Color itself. I think that "Color crayon blueberry" would be >> acceptable to hide a factory or something similar. >> >> However: >> >> [Color fromString: '#99FFFF'] bench '481,000 per second. 2.08 microseconds >> per run.' >> [Color r: 102/255 g: 1.0 b: 1.0] bench '2,520,000 per second. 397 >> nanoseconds per run.' >> >> ;-) >> >> Best, >> Marcel >> > Yes, > I also forgot two conflicts > > (Color colorNames reject: [:sym | (Color perform: sym) name = sym]) > collect: [:sym | sym -> (Color perform: sym) name]. > {#cantaloupe->#lightOrange . #maraschino->#red} > > For having more colorNames, it's better to change ColorName>>#name strategy > first > > Am 16.05.2019 13:02:44 schrieb commits(a)source.squeak.org < >> commits(a)source.squeak.org>: >> Nicolas Cellier uploaded a new version of Graphics to project The Inbox: >> http://source.squeak.org/inbox/Graphics-nice.407.mcz >> >> ==================== Summary ==================== >> >> Name: Graphics-nice.407 >> Author: nice >> Time: 16 May 2019, 1:01:07.687487 pm >> UUID: 0c370e95-c3cf-5e44-9eb5-b81fb1ebf424 >> Ancestors: Graphics-mt.406 >> >> I see that Marcel used something like >> https://gist.github.com/haggen/c91ed87700e5971f6fc6 >> >> I propose to reduce crayon shades overlapping by adopting different >> references >> >> blueberry >> (Encycolorpedia) https://encycolorpedia.com/4f86f7 >> (Crayola) https://en.wikipedia.org/wiki/List_of_Crayola_crayon_colors >> ice (Corel ice blue) https://en.wikipedia.org/wiki/Shades_of_blue#Ice_blue >> lemon >> (Encycolorpedia lemon) https://encycolorpedia.com/fff700 >> (Encycolorpedia lemon yellow) >> https://en.wikipedia.org/wiki/Lemon_(color)#Lemon_yellow >> (Crayola lemon) https://en.wikipedia.org/wiki/Shades_of_yellow#Lemon >> licorice (Crayola-Encycolorpedia) >> https://en.wikipedia.org/wiki/Shades_of_black#Licorice >> snow >> (Encycolorpedia) https://encycolorpedia.com/fffafa >> (X11) https://en.wikipedia.org/wiki/Shades_of_white#Snow >> spring (X11 spring green) https://en.wikipedia.org/wiki/Spring_green >> turquoise (X11-Encycolorpedia) >> https://en.wikipedia.org/wiki/Shades_of_cyan#Turquoise >> >> Or should we have sort of factories? >> (Color x11 turquoise vs Color macCrayon turquoise) >> >> Of course, it opens some sort of big can: >> https://encycolorpedia.com/named >> https://en.wikipedia.org/wiki/X11_color_names >> https://en.wikipedia.org/wiki/List_of_colors_(compact) >> >> =============== Diff against Graphics-mt.406 =============== >> >> Item was changed: >> ----- Method: Color class>>blueberry (in category 'named colors - >> crayons') ----- >> blueberry >> >> + ^ Color fromString: '#4F86F7'! >> - ^ Color r: 0.0 g: 0.0 b: 1.0! >> >> Item was changed: >> ----- Method: Color class>>ice (in category 'named colors - crayons') ----- >> ice >> >> + ^ Color fromString: '#99FFFF'! >> - ^ Color r: 102/255 g: 1.0 b: 1.0! >> >> Item was changed: >> ----- Method: Color class>>lemon (in category 'named colors - crayons') >> ----- >> lemon >> >> + ^ Color fromString: '#FFF700'! >> - ^ Color r: 1.0 g: 1.0 b: 0.0! >> >> Item was changed: >> ----- Method: Color class>>licorice (in category 'named colors - crayons') >> ----- >> licorice >> >> + ^ Color fromString: '#1A1110'! >> - ^ Color r: 0.0 g: 0.0 b: 0.0! >> >> Item was changed: >> ----- Method: Color class>>snow (in category 'named colors - crayons') >> ----- >> snow >> >> + ^ self fromString: '#FFFAFA'! >> - ^ Color r: 1.0 g: 1.0 b: 1.0! >> >> Item was changed: >> ----- Method: Color class>>spring (in category 'named colors - crayons') >> ----- >> spring >> >> + ^ self fromString: '#00FF7F'! >> - ^ Color r: 0.0 g: 1.0 b: 0.0! >> >> Item was changed: >> ----- Method: Color class>>turquoise (in category 'named colors - >> crayons') ----- >> turquoise >> >> + ^ self fromString: '#40E0D0'! >> - ^ Color r: 0.0 g: 1.0 b: 1.0! >> >> >> >> >

1 0

Running Squeak fro ma unix shell script file with #! squeak...
by tim Rowledge 21 May '19

21 May '19

I'm sure I remember someone making this work but can't spot any info right now. One should be able to make it so that a .st file could be made executable, start it with something akin to #! squeak my.image and continue with | t f | t:= [f := 4784969 fastDoublingFib asString] timeToRun. FileStream stdout nextPutAll: 'fib(4784969) = '; nextPutAll: f; cr; nextPutAll: 'time = '; nextPutAll: t asString; nextPutAll: ' mS'; cr To effectively filein the remainder of the file contents. Shouldn't we? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: IAM: Increase Amperage Above Maximum

6 25

The Inbox: Graphics-nice.408.mcz
by commits＠source.squeak.org 20 May '19

20 May '19

Nicolas Cellier uploaded a new version of Graphics to project The Inbox: http://source.squeak.org/inbox/Graphics-nice.408.mcz ==================== Summary ==================== Name: Graphics-nice.408 Author: nice Time: 16 May 2019, 3:12:54.000487 pm UUID: cc271e8f-330d-d649-a848-128e2d849f03 Ancestors: Graphics-mt.406 Use a map rgb->#names rather than iterating thru/performing all known colorNames. This is especially useful if we intend to add more color names. Note that names do not need to be unique. The first appearing name in colorNames will be used. Color colorNames collect: [:sym | Color perform: sym]. (Color colorNames reject: [:sym | (Color perform: sym) name = sym]) collect: [:sym | sym -> (Color perform: sym) name]. The new class variable is initialized in postscript. It must be re-initialized each time we change the definition of a named Color. The rgb code has been used as key rather than the Color itself. This is because it is unique and cheap (SmallInteger). =============== Diff against Graphics-mt.406 =============== Item was changed: Object subclass: #Color instanceVariableNames: 'rgb cachedDepth cachedBitPattern' + classVariableNames: 'Black Blue BlueShift Brown CachedColormaps ColorChart ColorNames ComponentMask ComponentMax Cyan DarkGray Gray GrayToIndexMap Green GreenShift HalfComponentMask HighLightBitmaps IndexedColors LightBlue LightBrown LightCyan LightGray LightGreen LightMagenta LightOrange LightRed LightYellow Magenta MaskingMap Orange PaleBlue PaleBuff PaleGreen PaleMagenta PaleOrange PalePeach PaleRed PaleTan PaleYellow PantonePurpleU PureBlue PureCyan PureGreen PureMagenta PureRed PureYellow RGBToNames RandomStream Red RedShift TranslucentPatterns Transparent VeryDarkGray VeryLightGray VeryPaleRed VeryVeryDarkGray VeryVeryLightGray White Yellow' - classVariableNames: 'Black Blue BlueShift Brown CachedColormaps ColorChart ColorNames ComponentMask ComponentMax Cyan DarkGray Gray GrayToIndexMap Green GreenShift HalfComponentMask HighLightBitmaps IndexedColors LightBlue LightBrown LightCyan LightGray LightGreen LightMagenta LightOrange LightRed LightYellow Magenta MaskingMap Orange PaleBlue PaleBuff PaleGreen PaleMagenta PaleOrange PalePeach PaleRed PaleTan PaleYellow PantonePurpleU PureBlue PureCyan PureGreen PureMagenta PureRed PureYellow RandomStream Red RedShift TranslucentPatterns Transparent VeryDarkGray VeryLightGray VeryPaleRed VeryVeryDarkGray VeryVeryLightGray White Yellow' poolDictionaries: '' category: 'Graphics-Primitives'! !Color commentStamp: '<historical>' prior: 0! This class represents abstract color, regardless of the depth of bitmap it will be shown in. At the very last moment a Color is converted to a pixelValue that depends on the depth of the actual Bitmap inside the Form it will be used with. The supported depths (in bits) are 1, 2, 4, 8, 16, and 32. The number of actual colors at these depths are: 2, 4, 16, 256, 32768, and 16 million. (See comment in BitBlt.) To change the depth of the Display and set how many colors you can see, execute: (Display newDepth: 8). (See comment in DisplayMedium) Color is represented as the amount of light in red, green, and blue. White is (1.0, 1.0, 1.0) and black is (0, 0, 0). Pure red is (1.0, 0, 0). These colors are "additive". Think of Color's instance variables as: r amount of red, a Float between 0.0 and 1.0. g amount of green, a Float between 0.0 and 1.0. b amount of blue, a Float between 0.0 and 1.0. (But, in fact, the three are encoded as values from 0 to 1023 and combined in a single integer, rgb. The user does not need to know this.) Many colors are named. You find a color by name by sending a message to class Color, for example (Color lightBlue). Also, (Color red: 0.2 green: 0.6 blue: 1.0) or (Color r: 0.2 g: 0.6 b: 1.0) creates a color. (see below) A color is essentially immutable. Once you set red, green, and blue, you cannot change them. Instead, create a new Color and use it. Applications such as contour maps and bar graphs will want to display one of a set of shades based on a number. Convert the range of this number to an integer from 1 to N. Then call (Color green lightShades: N) to get an Array of colors from white to green. Use the Array messages at:, atPin:, or atWrap: to pull out the correct color from the array. atPin: gives the first (or last) color if the index is out of range. atWrap: wraps around to the other end if the index is out of range. Here are some fun things to run in when your screen has color: Pen new mandala: 30 diameter: Display height-100. Pen new web "Draw with the mouse, opt-click to end" Display fillWhite. Pen new hilberts: 5. Form toothpaste: 30 "Draw with mouse, opt-click to end" You might also want to try the comment in Form>class>examples>tinyText... Messages: mixed: proportion with: aColor Answer this color mixed with the given color additively. The proportion, a number between 0.0 and 1.0, determines what what fraction of the receiver to use in the mix. + add two colors - subtract two colors * multiply the values of r, g, b by a number or an Array of factors. ((Color named: #white) * 0.3) gives a darkish gray. (aColor * #(0 0 0.9)) gives a color with slightly less blue. / divide a color by a factor or an array of three factors. errorForDepth: d How close the nearest color at this depth is to this abstract color. Sum of the squares of the RGB differences, square rooted and normalized to 1.0. Multiply by 100 to get percent. hue Returns the hue of the color. On a wheel from 0 to 360 with pure red at 0 and again at 360. saturation Returns the saturation of the color. 0.0 to 1.0 brightness Returns the brightness of the color. 0.0 to 1.0 name Look to see if this Color has a name. display Show a swatch of this color tracking the cursor. lightShades: thisMany An array of thisMany colors from white to the receiver. darkShades: thisMany An array of thisMany colors from black to the receiver. Array is of length num. mix: color2 shades: thisMany An array of thisMany colors from the receiver to color2. wheel: thisMany An array of thisMany colors around the color wheel starting and ending at the receiver. pixelValueForDepth: d Returns the bits that appear be in a Bitmap of this depth for this color. Represents the nearest available color at this depth. Normal users do not need to know which pixelValue is used for which color. Messages to Class Color. red: r green: g blue: b Return a color with the given r, g, and b components. r: g: b: Same as above, for fast typing. hue: h saturation: s brightness: b Create a color with the given hue, saturation, and brightness. pink blue red ... Many colors have messages that return an instance of Color. canUnderstand: #brown Returns true if #brown is a defined color. names An OrderedCollection of the names of the colors. named: #notAllThatGray put: aColor Add a new color to the list and create an access message and a class variable for it. fromUser Shows the palette of colors available at this display depth. Click anywhere to return the color you clicked on. hotColdShades: thisMany An array of thisMany colors showing temperature from blue to red to white hot. stdColorsForDepth: d An Array of colors available at this depth. For 16 bit and 32 bits, returns a ColorGenerator. It responds to at: with a Color for that index, simulating a very big Array. colorFromPixelValue: value depth: d Returns a Color whose bit pattern (inside a Bitmap) at this depth is the number specified. Normal users do not need to use this. (See also comments in these classes: Form, Bitmap, BitBlt, Pattern, MaskedForm.)! Item was changed: ----- Method: Color class>>initializeNames (in category 'class initialization') ----- initializeNames "Name some colors." "Color initializeNames" ColorNames := Set new. self named: #black put: (Color r: 0 g: 0 b: 0). self named: #veryVeryDarkGray put: (Color r: 0.125 g: 0.125 b: 0.125). self named: #veryDarkGray put: (Color r: 0.25 g: 0.25 b: 0.25). self named: #darkGray put: (Color r: 0.375 g: 0.375 b: 0.375). self named: #gray put: (Color r: 0.5 g: 0.5 b: 0.5). self named: #lightGray put: (Color r: 0.625 g: 0.625 b: 0.625). self named: #veryLightGray put: (Color r: 0.75 g: 0.75 b: 0.75). self named: #veryVeryLightGray put: (Color r: 0.875 g: 0.875 b: 0.875). self named: #white put: (Color r: 1.0 g: 1.0 b: 1.0). self named: #red put: (Color r: 1.0 g: 0 b: 0). self named: #yellow put: (Color r: 1.0 g: 1.0 b: 0). self named: #green put: (Color r: 0 g: 1.0 b: 0). self named: #cyan put: (Color r: 0 g: 1.0 b: 1.0). self named: #blue put: (Color r: 0 g: 0 b: 1.0). self named: #magenta put: (Color r: 1.0 g: 0 b: 1.0). self named: #brown put: (Color r: 0.6 g: 0.2 b: 0). self named: #orange put: (Color r: 1.0 g: 0.6 b: 0). self named: #lightRed put: (Color r: 1.0 g: 0.8 b: 0.8). self named: #lightYellow put: (Color r: 1.0 g: 1.0 b: 0.8). self named: #lightGreen put: (Color r: 0.8 g: 1.0 b: 0.6). self named: #lightCyan put: (Color r: 0.4 g: 1.0 b: 1.0). self named: #lightBlue put: (Color r: 0.8 g: 1.0 b: 1.0). self named: #lightMagenta put: (Color r: 1.0 g: 0.8 b: 1.0). self named: #lightBrown put: (Color r: 1.0 g: 0.6 b: 0.2). self named: #lightOrange put: (Color r: 1.0 g: 0.8 b: 0.4). self named: #transparent put: (TranslucentColor new alpha: 0.0). self named: #paleBuff put: (Color r: 254 g: 250 b: 235 range: 255). self named: #paleBlue put: (Color r: 222 g: 249 b: 254 range: 255). self named: #paleYellow put: (Color r: 255 g: 255 b: 217 range: 255). self named: #paleGreen put: (Color r: 223 g: 255 b: 213 range: 255). self named: #paleRed put: (Color r: 255 g: 230 b: 230 range: 255). self named: #veryPaleRed put: (Color r: 255 g: 242 b: 242 range: 255). self named: #paleTan put: (Color r: 235 g: 224 b: 199 range: 255). self named: #paleMagenta put: (Color r: 255 g: 230 b: 255 range: 255). self named: #paleOrange put: (Color r: 253 g: 237 b: 215 range: 255). self named: #palePeach put: (Color r: 255 g: 237 b: 213 range: 255). self named: #pantonePurpleU put: (Color r: 193 g: 81 b: 184 range: 255). + self initializeNamesMap ! Item was added: + ----- Method: Color class>>initializeNamesMap (in category 'class initialization') ----- + initializeNamesMap + "enable mapping a color to its name" + "Color initializeNamesMap" + + RGBToNames := Dictionary new. + self colorNames do: [:sym | (self perform: sym) addName: sym]! Item was added: + ----- Method: Color>>addName: (in category 'other') ----- + addName: aSymbol + "private - associate a name to this color." + + | knownNames | + [(self class respondsTo: aSymbol) and: [(self class perform: aSymbol) = self]] assert. + knownNames := RGBToNames at: rgb ifAbsent: [#()]. + (knownNames includes: aSymbol) + ifFalse: [ RGBToNames at: rgb put: (knownNames copyWith: aSymbol)]! Item was changed: ----- Method: Color>>name (in category 'other') ----- name + "Return this color's name, or nil if it has no name." - "Return this color's name, or nil if it has no name. Only returns a name if it exactly matches the named color." + ^ (RGBToNames at: rgb ifAbsent: [nil]) ifNotNil: [:names | names at: 1 ifAbsent: [nil]]! - ^ self class colorNames detect: [ :name | (Color perform: name) = self ] ifNone: [ nil ]! Item was added: + ----- Method: TranslucentColor>>addName: (in category 'other') ----- + addName: aSymbol + "private - associate a name to this color. + Don't do it, Translucent colors are not uniquely identified by their rgb components" + + ^self! Item was added: + ----- Method: TranslucentColor>>name (in category 'other') ----- + name + self = Color transparent ifTrue: [^#transparent]. + ^nil! Item was changed: (PackageInfo named: 'Graphics') postscript: ' + "Initialize RGBToName dictionary" + Color initializeNamesMap.'! - " Reset DejaVu to current version " - StrikeFont initialize.'!

5 6

#valueWithPossibleArgument: vs. #cull:
by Marcel Taeumel 20 May '19

20 May '19

Hi, there. I think that all (6) sends in Trunk to #valueWithPossibleArgument: can be replaced with #cull:, which is more flexible. Does anyone recall the story of #cull:? Maybe we should just implement #valueWithPossibleArgument: on MessageSend (and maybe Symbol) to make it more consistent? For context, here is how I stumbled on it: #(1 2 3) collect: #even. "Works." 1 ifNotNil: #even. "Works." #(1) ifNotEmpty: #first. "Does not work." Please note that this question is not about "#(1 2 3) collect: #even" versus "#(1 2 3) collect: [:ea | ea even]". ;-) This is more like a case of surprising inconsistency... Best, Marcel

3 3

The Trunk: ToolBuilder-Kernel-mt.124.mcz
by commits＠source.squeak.org 20 May '19

20 May '19

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.124.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.124 Author: mt Time: 20 May 2019, 10:33:57.693766 am UUID: 0adfbe96-f81f-8a43-aba5-c3ab5a25dac3 Ancestors: ToolBuilder-Kernel-pre.123 Remove default font from text spec: 1) Existing tool builders only pass fonts to widgets if not nil. 2) Existing widgets consider default fonts outside the tool-builder framework anyway. Thanks to Subbu for this! =============== Diff against ToolBuilder-Kernel-pre.123 =============== Item was changed: ----- Method: PluggableTextSpec>>font (in category 'accessing') ----- font + ^ font! - ^ font ifNil: [Preferences standardDefaultTextFont]!

3 2

Help: fonts in PluggableTextSpec
by K K Subbu 20 May '19

20 May '19

Hi, PluggableTextSpec>>font returns a default font if font is not specified. This results in default font overriding any fonts in the plugged textmorphs :-( as in the case of Help->FontSizeSummary. The exact font to be used to render text should be determined lazily by textMorph and not in pluggable text spec. My proposed fix has a wide ranging effect, so I am posting it here for a critique before finalizing a patch to Inbox. Thanks and Regards .. Subbu

2 3

does anybody remember a video tutorial about how to make a spell checker / autocompleter in squeak?
by Davide Della Casa 20 May '19

20 May '19

Hi, Several years ago I remember I saw a video about how to make a spell-checker/autocompleter in squeak (using Morphic if I remember well, so it was post-MVC). It worked by hovering a list of text options over/below the text/cursor, and the user could pick an element of the list and voila’ the correction/completion would happen. I remember I was quite impressed by that video – as it would live-code the feature in realtime. Now, it’s been years I’ve been trying to find that video again, to no avail… Do you remember such video, and would you happen to have a link to the channel/it? Cheers, Davide Della Casa

2 2

The Trunk: ToolBuilder-Kernel-mt.124.mcz
by commits＠source.squeak.org 20 May '19

20 May '19

1 0

The Inbox: Chronology-Core-cmm.46.mcz
by commits＠source.squeak.org 20 May '19

20 May '19

Chris Muller uploaded a new version of Chronology-Core to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-cmm.46.mcz ==================== Summary ==================== Name: Chronology-Core-cmm.46 Author: cmm Time: 18 May 2019, 4:29:08.749118 pm UUID: 174774f6-20e5-4476-8f42-7a9eb71c6b5a Ancestors: Chronology-Core-nice.44 - Make #utcOffset: match the prior behavior. - Move Duration convenience constructors, String-to-date converting methods, and benching API to this package. =============== Diff against Chronology-Core-nice.44 =============== Item was added: + ----- Method: BlockClosure>>bench (in category '*chronology-core') ----- + bench + "See how many times I can value in 5 seconds. I'll answer a meaningful description." + + ^self benchFor: 5 seconds! Item was added: + ----- Method: BlockClosure>>benchFor: (in category '*chronology-core') ----- + benchFor: aDuration + "See how many times I can value within the given duration. I'll answer a meaningful description." + + | startTime shouldRun count elapsedTime roundTo3Digits delay | + roundTo3Digits := [:num | + | rounded lowDigit | + rounded := (num * 1000) rounded. "round to 1/1000" + lowDigit := (rounded numberOfDigitsInBase: 10) - 3. "keep only first 3 digits" + rounded := rounded roundTo:(10 raisedTo: lowDigit). + (lowDigit >= 3 or: [rounded \\ 1000 = 0]) "display fractional part only when needed" + ifTrue: [(rounded // 1000) asStringWithCommas] + ifFalse: [(rounded / 1000.0) printString]]. + delay := aDuration asDelay. + count := 0. + shouldRun := true. + [ delay wait. shouldRun := false ] forkAt: Processor timingPriority - 1. + startTime := Time millisecondClockValue. + [ shouldRun ] whileTrue: [ + self value. + count := count + 1 ]. + elapsedTime := Time millisecondsSince: startTime. + ^(roundTo3Digits value: count * 1000 / elapsedTime) , ' per second.', (( + #( + (1e-3 'seconds') + (1 'milliseconds') + (1e3 'microseconds') + (1e6 'nanoseconds') + ) + detect: [ :pair | elapsedTime * pair first >= count ] + ifNone: [ #(1e9 'picoseconds') ]) + in: [ :pair | + ' {1} {2} per run.' format: { + (roundTo3Digits value: elapsedTime * pair first / count). + pair second } ])! Item was added: + ----- Method: BlockClosure>>durationToRun (in category '*chronology-core') ----- + durationToRun + "Answer the duration taken before this block returns." + + ^ Time durationToRun: self + ! Item was added: + ----- Method: BlockClosure>>timeToRun (in category '*chronology-core') ----- + timeToRun + "Answer the number of milliseconds taken to execute this block." + + ^ Time millisecondsToRun: self + ! Item was added: + ----- Method: BlockClosure>>timeToRunWithoutGC (in category '*chronology-core') ----- + timeToRunWithoutGC + "Answer the number of milliseconds taken to execute this block without GC time." + + ^(Smalltalk vmParameterAt: 8) + + (Smalltalk vmParameterAt: 10) + + self timeToRun - + (Smalltalk vmParameterAt: 8) - + (Smalltalk vmParameterAt: 10) + ! Item was added: + ----- Method: BlockClosure>>valueWithin:onTimeout: (in category '*chronology-core') ----- + valueWithin: aDuration onTimeout: timeoutBlock + "Evaluate the receiver. + If the evaluation does not complete in less than aDuration evaluate the timeoutBlock instead" + + | theProcess delay watchdog tag | + + aDuration <= Duration zero ifTrue: [^ timeoutBlock value ]. + + "the block will be executed in the current process" + theProcess := Processor activeProcess. + delay := aDuration asDelay. + tag := self. + + "make a watchdog process" + watchdog := [ + delay wait. "wait for timeout or completion" + theProcess ifNotNil:[ theProcess signalException: (TimedOut new tag: tag)] + ] newProcess. + + "Watchdog needs to run at high priority to do its job (but not at timing priority)" + watchdog priority: Processor timingPriority-1. + + "catch the timeout signal" + ^ [ watchdog resume. "start up the watchdog" + self ensure:[ "evaluate the receiver" + theProcess := nil. "it has completed, so ..." + delay delaySemaphore signal. "arrange for the watchdog to exit" + ]] on: TimedOut do: [ :e | + e tag == tag + ifTrue:[ timeoutBlock value ] + ifFalse:[ e pass]].! Item was changed: ----- Method: DateAndTime>>utcOffset: (in category 'squeak protocol') ----- + utcOffset: anOffset + "Answer a DateAndTime equivalent to the receiver but offset from UTC by anOffset" + ^ self class + utcMicroseconds: utcMicroseconds + offset: anOffset asDuration asSeconds! - utcOffset: anOffset - - "Answer a <DateAndTime> equivalent to the receiver but offset from UTC by anOffset" - - self flag: #FIXME. "check the definition of this and of #offset:" - ^self utcMicroseconds: utcMicroseconds offset: anOffset asDuration asSeconds - ! Item was added: + ----- Method: Duration class>>microSeconds: (in category 'squeak protocol') ----- + microSeconds: anInteger + ^ self + seconds: (anInteger quo: 1e6) + nanoSeconds: (anInteger rem: 1000) * 1000! Item was added: + ----- Method: Integer>>asYear (in category '*chronology-core') ----- + asYear + + ^ Year year: self + ! Item was added: + ----- Method: Number>>asDuration (in category '*chronology-core') ----- + asDuration + + ^ Duration nanoSeconds: self asInteger + ! Item was added: + ----- Method: Number>>day (in category '*chronology-core') ----- + day + + ^ self sign days! Item was added: + ----- Method: Number>>days (in category '*chronology-core') ----- + days + + ^ Duration days: self! Item was added: + ----- Method: Number>>hour (in category '*chronology-core') ----- + hour + + ^ self sign hours + ! Item was added: + ----- Method: Number>>hours (in category '*chronology-core') ----- + hours + + ^ Duration hours: self! Item was added: + ----- Method: Number>>microSecond (in category '*chronology-core') ----- + microSecond + ^ self sign microSeconds! Item was added: + ----- Method: Number>>microSeconds (in category '*chronology-core') ----- + microSeconds + ^ Duration microSeconds: self! Item was added: + ----- Method: Number>>milliSecond (in category '*chronology-core') ----- + milliSecond + + ^ self sign milliSeconds + ! Item was added: + ----- Method: Number>>milliSeconds (in category '*chronology-core') ----- + milliSeconds + + ^ Duration milliSeconds: self + ! Item was added: + ----- Method: Number>>minute (in category '*chronology-core') ----- + minute + + ^ self sign minutes + ! Item was added: + ----- Method: Number>>minutes (in category '*chronology-core') ----- + minutes + + ^ Duration minutes: self! Item was added: + ----- Method: Number>>nanoSecond (in category '*chronology-core') ----- + nanoSecond + + ^ self sign nanoSeconds + ! Item was added: + ----- Method: Number>>nanoSeconds (in category '*chronology-core') ----- + nanoSeconds + + ^ Duration nanoSeconds: self.! Item was added: + ----- Method: Number>>second (in category '*chronology-core') ----- + second + + ^ self sign seconds + ! Item was added: + ----- Method: Number>>seconds (in category '*chronology-core') ----- + seconds + + ^ Duration seconds: self! Item was added: + ----- Method: Number>>week (in category '*chronology-core') ----- + week + + ^ self sign weeks + ! Item was added: + ----- Method: Number>>weeks (in category '*chronology-core') ----- + weeks + + ^ Duration weeks: self! Item was added: + ----- Method: String>>asDate (in category '*chronology-core') ----- + asDate + "Many allowed forms, see Date>>#readFrom:" + + ^ Date fromString: self! Item was added: + ----- Method: String>>asDateAndTime (in category '*chronology-core') ----- + asDateAndTime + + "Convert from UTC format" ^ DateAndTime fromString: self! Item was added: + ----- Method: String>>asDuration (in category '*chronology-core') ----- + asDuration + "convert from [nnnd]hh:mm:ss[.nanos] format. [] implies optional elements" + + ^ Duration fromString: self + !

4 3

← Newer
1
...
4
5
6
7
8
9
10
...
16
Older →

Jump to page: