Squeak-dev September 2019

squeak-dev@lists.squeakfoundation.org

38 participants
356 discussions

The Trunk: MorphicExtras-mt.260.mcz
by commits＠source.squeak.org 06 Sep '19

06 Sep '19

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.260.mcz ==================== Summary ==================== Name: MorphicExtras-mt.260 Author: mt Time: 6 September 2019, 4:05:04.787193 pm UUID: ecf49e67-c28b-b649-bb7b-3ce5209f0462 Ancestors: MorphicExtras-mt.259 Complements Morphic-mt.1516 =============== Diff against MorphicExtras-mt.259 =============== Item was changed: ----- Method: PasteUpMorph class>>newWorldTesting (in category '*MorphicExtras-project') ----- newWorldTesting | world ex | ex := 500@500. world := PasteUpMorph newWorldForProject: nil. world extent: ex; color: Color orange. world openInWorld. - world viewBox: (0@0 extent: ex). BouncingAtomsMorph new openInWorld: world. "----- | world window | world := PasteUpMorph newWorldForProject: nil. world extent: 300@300; color: Color orange. world viewBox: (0@0 extent: 300@300). window := (SystemWindow labelled: 'the new world') model: world. window color: Color orange. window addMorph: world frame: (0@0 extent: 1.0(a)1.0). window openInWorld. ---" !

1 0

The Trunk: System-mt.1092.mcz
by commits＠source.squeak.org 06 Sep '19

06 Sep '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1092.mcz ==================== Summary ==================== Name: System-mt.1092 Author: mt Time: 6 September 2019, 4:04:24.231193 pm UUID: 19c82643-6bfb-f746-8909-e47982b2445f Ancestors: System-mt.1091 Complements Morphic-mt.1516. =============== Diff against System-mt.1091 =============== Item was added: + ----- Method: Project>>previewImageForm (in category 'displaying') ----- + previewImageForm + + ^ self imageForm! Item was removed: - ----- Method: Project>>setThumbnail: (in category 'accessing') ----- - setThumbnail: aForm - - self flag: #bob. "no longer used??" - thumbnail := aForm! Item was added: + ----- Method: Project>>thumbnail: (in category 'accessing') ----- + thumbnail: aForm + + thumbnail := aForm.!

1 0

The Trunk: Morphic-mt.1516.mcz
by commits＠source.squeak.org 06 Sep '19

06 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1516.mcz ==================== Summary ==================== Name: Morphic-mt.1516 Author: mt Time: 6 September 2019, 4:03:37.533193 pm UUID: 2d90c461-65ef-814d-9169-af6f305d059a Ancestors: Morphic-ct.1515 Correctly initialize a world's viewbox. Drop the paragraph workaround for viewbox updates. Use new #previewImageForm for ProjectViewMorph to get a preview without entering the project. Thanks to Christoph (ct) for the idea! =============== Diff against Morphic-ct.1515 =============== Item was added: + ----- Method: MorphicProject>>previewImageForm (in category 'display') ----- + previewImageForm + + ^ self world imageForm! Item was changed: ----- Method: PasteUpMorph>>initForProject: (in category 'world state') ----- initForProject: aWorldState worldState := aWorldState. + self viewBox: Display boundingBox. - bounds := Display boundingBox. self color: Preferences defaultWorldColor. self addHand: HandMorph new. self setProperty: #automaticPhraseExpansion toValue: true. self setProperty: #optimumExtentFromAuthor toValue: Display extent. self wantsMouseOverHalos: Preferences mouseOverHalos. self borderWidth: 0. model := nil. ! Item was changed: ----- Method: PasteUpMorph>>viewBox: (in category 'project state') ----- viewBox: newViewBox "I am now displayed within newViewBox; react." + self isWorldMorph ifTrue: [ + (self viewBox isNil or: [self viewBox extent ~= newViewBox extent]) + ifTrue: [worldState canvas: nil]. + worldState viewBox: newViewBox]. + - self isWorldMorph - ifTrue: - [(self viewBox isNil or: [self viewBox extent ~= newViewBox extent]) - ifTrue: [worldState canvas: nil]. - worldState viewBox: newViewBox]. super position: newViewBox topLeft. + + fullBounds := bounds := newViewBox.! - fullBounds := bounds := newViewBox. - - "Paragraph problem workaround; clear selections to avoid screen - droppings." - self flag: #arNote. "Probably unnecessary" - self isWorldMorph - ifTrue: - [worldState handsDo: [:hand | hand releaseKeyboardFocus]. - self fullRepaintNeeded]! Item was changed: ----- Method: ProjectViewMorph>>on: (in category 'events') ----- on: aProject project := aProject. self addProjectNameMorphFiller. lastProjectThumbnail := nil. + project thumbnail: project previewImageForm. project thumbnail ifNil: [self extent: 100@80] "more like screen dimensions?" + ifNotNil: [self extent: project thumbnail extent].! - ifNotNil: [self extent: project thumbnail extent]. - ! Item was changed: + ----- Method: TransformMorph>>layoutChanged (in category 'layout') ----- - ----- Method: TransformMorph>>layoutChanged (in category 'geometry') ----- layoutChanged "A submorph could have moved, thus changing my localBounds. Invalidate the cache." localBounds := nil. super layoutChanged.!

1 0

The Inbox: Kernel-ct.1266.mcz
by commits＠source.squeak.org 06 Sep '19

06 Sep '19

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1266.mcz ==================== Summary ==================== Name: Kernel-ct.1266 Author: ct Time: 6 September 2019, 1:16:39.325698 pm UUID: a5b0464f-61cf-4749-9ad3-92e7d8c85341 Ancestors: Kernel-eem.1265 Add shorthands for interval collecting There are enough senders of #timesRepeat: that manually fill a collection, same goes for #to:do: =============== Diff against Kernel-eem.1265 =============== Item was added: + ----- Method: Integer>>timesCollect: (in category 'enumerating') ----- + timesCollect: aBlock + + ^ (1 to: self) collect: [:i | aBlock value]! Item was added: + ----- Method: Number>>to:collect: (in category 'intervals') ----- + to: stop collect: aBlock + "Evaluate aBlock for each element of the interval (self to: stop by: 1) and return the results." + + ^ (self to: stop) collect: aBlock!

2 1

The Inbox: Graphics-ct.411.mcz
by commits＠source.squeak.org 06 Sep '19

06 Sep '19

A new version of Graphics was added to project The Inbox: http://source.squeak.org/inbox/Graphics-ct.411.mcz ==================== Summary ==================== Name: Graphics-ct.411 Author: ct Time: 6 September 2019, 1:02:01.259698 pm UUID: ac0b5286-28f7-614c-adfb-4729ed485475 Ancestors: Graphics-mt.410 Add a the #fullFrame constant to LayoutFrame This is a value used quite often ... =============== Diff against Graphics-mt.410 =============== Item was added: + ----- Method: LayoutFrame class>>fullFrame (in category 'instance creation') ----- + fullFrame + + ^ self fractions: (0 @ 0 corner: 1 @ 1)!

1 0

The Inbox: EToys-ct.354.mcz
by commits＠source.squeak.org 06 Sep '19

06 Sep '19

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-ct.354.mcz ==================== Summary ==================== Name: EToys-ct.354 Author: ct Time: 6 September 2019, 12:55:43.866698 pm UUID: dd3f110c-e574-1549-b382-4848dabda9d9 Ancestors: EToys-pre.353 Simplify help display of FreeCell (Etoys has also depended on ToolBuilder before) =============== Diff against EToys-pre.353 =============== Item was changed: ----- Method: FreeCell>>help (in category 'actions') ----- help + + self helpText editWithLabel: 'FreeCell Help'.! - | window helpMorph | - window := SystemWindow labelled: 'FreeCell Help' translated. - window model: self. - helpMorph := (PluggableTextMorph new editString: self helpText) lock. - window - addMorph: helpMorph - frame: (0 @ 0 extent: 1 @ 1). - window openInWorld!

1 0

The Inbox: MorphicExtras-ct.260.mcz
by commits＠source.squeak.org 06 Sep '19

06 Sep '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.260.mcz ==================== Summary ==================== Name: MorphicExtras-ct.260 Author: ct Time: 4 September 2019, 3:53:54.175698 pm UUID: cab65f78-e646-cc40-9d0f-c16114d1bb44 Ancestors: MorphicExtras-mt.259 Refactor FrameRateMorph: Add accessors for updateInterval and expose measure data. Use TimeStamp instead of Time to avoid clock wrap around. =============== Diff against MorphicExtras-mt.259 =============== Item was changed: StringMorph subclass: #FrameRateMorph + instanceVariableNames: 'lastDisplayTime framesSinceLastDisplay updateInterval mSecsPerFrame framesPerSec' - instanceVariableNames: 'lastDisplayTime framesSinceLastDisplay' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtras-Demo'! Item was added: + ----- Method: FrameRateMorph>>framesPerSec (in category 'accessing') ----- + framesPerSec + + ^ framesPerSec! Item was changed: ----- Method: FrameRateMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" + lastDisplayTime := TimeStamp new. - lastDisplayTime := 0. framesSinceLastDisplay := 0. + self updateInterval: 500 milliSeconds. self font: (Preferences standardMenuFont emphasized: 1). ! Item was added: + ----- Method: FrameRateMorph>>mSecsPerFrame (in category 'accessing') ----- + mSecsPerFrame + + ^ mSecsPerFrame! Item was changed: ----- Method: FrameRateMorph>>step (in category 'stepping and presenter') ----- step "Compute and display (every half second or so) the current framerate" + | now timePassed newContents | - | now mSecs mSecsPerFrame framesPerSec newContents | framesSinceLastDisplay := framesSinceLastDisplay + 1. + now := TimeStamp now. + timePassed := now - lastDisplayTime. + (timePassed > self updateInterval) ifTrue: + [| mSecs | + mSecs := timePassed asMilliSeconds. + mSecsPerFrame := mSecs // framesSinceLastDisplay. - now := Time millisecondClockValue. - mSecs := now - lastDisplayTime. - (mSecs > 500 or: [mSecs < 0 "clock wrap-around"]) ifTrue: - [mSecsPerFrame := mSecs // framesSinceLastDisplay. framesPerSec := (framesSinceLastDisplay * 1000) // mSecs. newContents := mSecsPerFrame printString, ' mSecs (', framesPerSec printString, ' frame', (framesPerSec = 1 ifTrue: [''] ifFalse: ['s']), '/sec)'. self contents: newContents. lastDisplayTime := now. framesSinceLastDisplay := 0] ifFalse: ["Ensure at least one pixel is drawn per frame" Preferences higherPerformance ifTrue: [self invalidRect: (self position extent: 1@1)]]! Item was added: + ----- Method: FrameRateMorph>>updateInterval (in category 'accessing') ----- + updateInterval + + ^ updateInterval! Item was added: + ----- Method: FrameRateMorph>>updateInterval: (in category 'accessing') ----- + updateInterval: aNumber + + updateInterval := aNumber!

4 6

The Trunk: Morphic-ct.1515.mcz
by commits＠source.squeak.org 06 Sep '19

06 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1515.mcz ==================== Summary ==================== Name: Morphic-ct.1515 Author: ct Time: 5 September 2019, 2:48:49.111698 pm UUID: 01f4fd5b-f0a3-5945-86f2-c41d230fde72 Ancestors: Morphic-mt.1514 New attempt to fix the invisible insert key Did I do everything right with the postscript? =============== Diff against Morphic-mt.1514 =============== Item was changed: ----- Method: Editor class>>specialShiftCmdKeys (in category 'keyboard shortcut tables') ----- specialShiftCmdKeys "Private - return array of key codes that represent single keys acting as if shift-command were also being pressed" ^#( 1 "home" 3 "enter" 4 "end" + 5 "insert" 8 "backspace" 11 "page up" 12 "page down" 27 "escape" 28 "left arrow" 29 "right arrow" 30 "up arrow" 31 "down arrow" 127 "delete" )! Item was changed: (PackageInfo named: 'Morphic') postscript: '"Reset contributors." + SystemNavigation cleanUp: true. + Editor withAllSubclasses do: #initialize.'! - SystemNavigation cleanUp: true.'!

1 0

The Trunk: Kernel-eem.1265.mcz
by commits＠source.squeak.org 06 Sep '19

06 Sep '19

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1265.mcz ==================== Summary ==================== Name: Kernel-eem.1265 Author: eem Time: 5 September 2019, 9:44:47.807982 am UUID: 69e1a0f1-43f5-435e-999d-b8e81b52401a Ancestors: Kernel-mt.1264 Fix a regression in COmpiledMethod>>messagesSequence caused by the method not having been correctly commented in the first place. =============== Diff against Kernel-mt.1264 =============== Item was added: + ----- Method: CompiledCode>>messagesSequence (in category 'scanning') ----- + messagesSequence + "Answer a sequence of all the message selectors sent by this method in the order + they are sent. Unlike messages this may include duplicates." + + ^Array streamContents: + [:str| | scanner | + scanner := InstructionStream on: self. + scanner scanFor: + [:x | | selectorOrSelf | + (selectorOrSelf := scanner selectorToSendOrSelf) == scanner ifFalse: + [str nextPut: selectorOrSelf]. + false "keep scanning"]]! Item was removed: - ----- Method: CompiledMethod>>messagesSequence (in category 'scanning') ----- - messagesSequence - - self flag: #todo. "mt: Better change #messages to return an array instead of a set?" - ^ self messages asArray!

2 2

The Inbox: Kernel-mt.1266.mcz
by commits＠source.squeak.org 06 Sep '19

06 Sep '19

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-mt.1266.mcz ==================== Summary ==================== Name: Kernel-mt.1266 Author: mt Time: 6 September 2019, 8:11:10.403526 am UUID: 61361169-2419-8e48-9661-e79017d0c837 Ancestors: Kernel-eem.1265 Make #messagesSequence compatible with SistaV1 and CompiledBlcoks again *and* keep the meaning of #messagesSequence as restored in the previous commit by eem. =============== Diff against Kernel-eem.1265 =============== Item was changed: ----- Method: CompiledCode>>messagesSequence (in category 'scanning') ----- messagesSequence + "Answer a sequence of all the message selectors sent by this method in the order they are sent. Unlike #messages this may include duplicates. Note that both the sources and the decompiled sources might suggest different results. The returned information reflect the actual bytecode." - "Answer a sequence of all the message selectors sent by this method in the order - they are sent. Unlike messages this may include duplicates." + ^ Array streamContents: [:result | + self messagesDo: [:selector | result nextPut: selector]]! - ^Array streamContents: - [:str| | scanner | - scanner := InstructionStream on: self. - scanner scanFor: - [:x | | selectorOrSelf | - (selectorOrSelf := scanner selectorToSendOrSelf) == scanner ifFalse: - [str nextPut: selectorOrSelf]. - false "keep scanning"]]!

1 0

← Newer
1
...
27
28
29
30
31
32
33
...
36
Older →

Jump to page: