Squeak-dev May 2016

squeak-dev@lists.squeakfoundation.org

45 participants
258 discussions

The Object>>recurse: Method
by Kjell Godo 31 May '16

31 May '16

Object>>recurse: aZeroInputValuable"ThatReturnsATwoInputValuable" ^( aZeroInputValuable value ) value:( self )value:[ :anObject | anObject recurse: aZeroInputValuable ] "Object>>recurse: does for recursion what >>do: does for iteration it enables any Object O to do recursion Without writing a new recursive method in the Class of O It does this even if the BlockClosures in this version of Smalltalk being used Can only do tail recursion accurately Like in Dolphin Smalltalk 6 You call it like ( anObject recurse:[[ :anobject :recurse | ( anobject someChildren collect:[ :child | ( something something ). ( ( recurse value:( child something ) ) something ) ] ) asSomeObjectSomething ]] ) ok So i haven't actually tried it yet so i do not actually know if it actually works so it's too hot off the presses for that because I'm more into a math major than physics i guess i always like math way better and so i have a tendency to say that has already been shown but i can't see how it can fail So i am putting it out there right now without testing it first each recursion creates a new twoInputValuable and the >>recurse: method keeps getting called from inside of itself so i think it works but i guess you have to try it to find out if you can figure an easier way or why it can't work then please show it i have been trying to do this for a long time and it shocks me that it's so small must be something wrong in there so if you easily find a better way or that it's no way at all then i missed it and I'm too early and I'm semi mal informed ie stupeid and I'm a baaad scientrist cepting I'm not one et all not quite easily done Kjell E Godo"

4 4

The Trunk: Morphic-ul.1153.mcz
by commits＠source.squeak.org 31 May '16

31 May '16

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1153.mcz ==================== Summary ==================== Name: Morphic-ul.1153 Author: ul Time: 31 May 2016, 1:34:24.714285 am UUID: d9b6d326-3f36-44a7-9810-974b46978e89 Ancestors: Morphic-ul.1152 Make MorphicAlarmQueue not be a subclass of Heap. Use encapsulation instead. Part #3. =============== Diff against Morphic-ul.1152 =============== Item was removed: - ----- Method: MorphicAlarmQueue>>detect:ifNone: (in category 'migration') ----- - detect: aBlock ifNone: noneBlock - - ^heap detect: aBlock ifNone: noneBlock! Item was removed: - ----- Method: MorphicAlarmQueue>>do: (in category 'migration') ----- - do: aBlock - - ^heap do: aBlock! Item was removed: - ----- Method: MorphicAlarmQueue>>first (in category 'migration') ----- - first - - ^heap first! Item was removed: - ----- Method: MorphicAlarmQueue>>isEmpty (in category 'migration') ----- - isEmpty - - ^heap isEmpty! Item was changed: ----- Method: MorphicAlarmQueue>>postCopy (in category 'copying') ----- postCopy super postCopy. + mutex := Mutex new. heap := heap copy! Item was removed: - ----- Method: MorphicAlarmQueue>>remove: (in category 'migration') ----- - remove: anObject - - ^heap remove: anObject! Item was changed: ----- Method: MorphicAlarmQueue>>removeAlarmWithReceiver:selector: (in category 'removing') ----- removeAlarmWithReceiver: receiver selector: selector + ^heap - heap detect: [ :each | each receiver == receiver and: [ each selector == selector ] ] ifFound: [ :found | heap remove: found ] ifNone: [ ]! Item was removed: - ----- Method: MorphicAlarmQueue>>removeFirst (in category 'migration') ----- - removeFirst - - ^heap removeFirst!

1 0

The Trunk: Morphic-ul.1152.mcz
by commits＠source.squeak.org 31 May '16

31 May '16

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1152.mcz ==================== Summary ==================== Name: Morphic-ul.1152 Author: ul Time: 31 May 2016, 1:32:25.341018 am UUID: a2bb9c46-93c3-4586-84e3-7dff9fec4bd0 Ancestors: Morphic-ul.1151 Make MorphicAlarmQueue not be a subclass of Heap. Use encapsulation instead. Part #2. =============== Diff against Morphic-ul.1151 =============== Item was changed: + Object subclass: #MorphicAlarmQueue - Heap subclass: #MorphicAlarmQueue instanceVariableNames: 'mutex sequenceNumber heap' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Events'! !MorphicAlarmQueue commentStamp: 'jcg 1/9/2010 13:34' prior: 0! MorphicAlarmQueue is a specialized Heap. The main change is to stamp each added MorphicAlarm with a sequence number to ensure that alarms scheduled for the same time are executed in the order that they were added.! Item was changed: ----- Method: MorphicAlarmQueue>>add: (in category 'adding') ----- add: aMorphicAlarm + aMorphicAlarm sequenceNumber: self nextSequenceNumber. + ^heap add: aMorphicAlarm! - heap ifNotNil: [ - aMorphicAlarm sequenceNumber: self nextSequenceNumber. - ^heap add: aMorphicAlarm ]. - (sequenceNumber := sequenceNumber + 1) = 16r3FFFFFFF ifTrue: [ - "Sequence number overflow... reassign sequence numbers starting at 0." - | alarmList | - alarmList := self asArray sort: [:msg1 :msg2 | - msg1 sequenceNumber < msg2 sequenceNumber - ]. - alarmList withIndexDo: [:msg :ind | msg sequenceNumber: ind-1]. - "The #bitAnd: for the unlikely event that we have > 16r3FFFFFF messages in the queue." - sequenceNumber := alarmList last sequenceNumber + 1 bitAnd: 16r3FFFFFFF. - ]. - aMorphicAlarm sequenceNumber: sequenceNumber. - super add: aMorphicAlarm. - - "If we doubt our sanity..." - false ifTrue: [ - self isValidHeap ifFalse: [self error: 'not a valid heap!!!!!!']. - ]. - ^aMorphicAlarm! Item was added: + ----- Method: MorphicAlarmQueue>>alarmsDoSafely: (in category 'enumeration') ----- + alarmsDoSafely: aBlock + + heap asArray do: aBlock! Item was changed: ----- Method: MorphicAlarmQueue>>detect:ifNone: (in category 'migration') ----- detect: aBlock ifNone: noneBlock - heap ifNil: [ ^super detect: aBlock ifNone: noneBlock ]. ^heap detect: aBlock ifNone: noneBlock! Item was changed: ----- Method: MorphicAlarmQueue>>do: (in category 'migration') ----- do: aBlock - heap ifNil: [ ^super do: aBlock ]. ^heap do: aBlock! Item was changed: ----- Method: MorphicAlarmQueue>>first (in category 'migration') ----- first - heap ifNil: [ ^super first ]. ^heap first! Item was added: + ----- Method: MorphicAlarmQueue>>incrementScheduledTimesBy: (in category 'accessing') ----- + incrementScheduledTimesBy: anInteger + + heap do: [ :each | each scheduledTime: each scheduledTime + anInteger ]! Item was changed: ----- Method: MorphicAlarmQueue>>initialize (in category 'initialize') ----- initialize super initialize. + mutex := Mutex new. sequenceNumber := 0. heap := Heap sortBlock: [ :alarmA :alarmB | alarmA scheduledTime = alarmB scheduledTime ifFalse: [ alarmA scheduledTime < alarmB scheduledTime ] ifTrue: [ alarmA sequenceNumber = alarmB sequenceNumber ifFalse: [ alarmA sequenceNumber < alarmB sequenceNumber ] ifTrue: [ self error: 'These alarms run at the same time' ] ] ]! Item was changed: ----- Method: MorphicAlarmQueue>>isEmpty (in category 'migration') ----- isEmpty - heap ifNil: [ ^super isEmpty ]. ^heap isEmpty! Item was removed: - ----- Method: MorphicAlarmQueue>>isValidHeap (in category 'private') ----- - isValidHeap - "Verify the correctness of the heap" - 2 to: tally do:[:i| - (self sorts: (array at: i // 2) before: (array at: i)) ifFalse:[^false]. - ]. - ^true! Item was removed: - ----- Method: MorphicAlarmQueue>>migrate (in category 'migration') ----- - migrate - - heap ifNotNil: [ ^self ]. - heap := Heap withAll: self asArray sortBlock: [ :alarmA :alarmB | - alarmA scheduledTime = alarmB scheduledTime - ifFalse: [ alarmA scheduledTime < alarmB scheduledTime ] - ifTrue: [ - alarmA sequenceNumber = alarmB sequenceNumber - ifFalse: [ alarmA sequenceNumber < alarmB sequenceNumber ] - ifTrue: [ self error: 'These alarms run at the same time' ] ] ]! Item was changed: ----- Method: MorphicAlarmQueue>>mutex (in category 'accessing') ----- mutex + + ^mutex! - ^mutex ifNil: [mutex := Mutex new]! Item was changed: ----- Method: MorphicAlarmQueue>>nextSequenceNumber (in category 'private') ----- nextSequenceNumber (sequenceNumber := sequenceNumber + 1) = 16r3FFFFFFF ifTrue: [ "Sequence number overflow... reassign sequence numbers starting at 1." + heap fullySort. + 1 to: heap size do: [ :index | + (heap at: index) sequenceNumber: index ]. + sequenceNumber := heap size + 1 ]. - | alarmList | - alarmList := heap fullySort asArray. - alarmList withIndexDo: [ :alarm :index | - alarm sequenceNumber: index ]. - sequenceNumber := alarmList size + 1 ]. ^sequenceNumber! Item was changed: + ----- Method: MorphicAlarmQueue>>postCopy (in category 'copying') ----- - ----- Method: MorphicAlarmQueue>>postCopy (in category 'as yet unclassified') ----- postCopy super postCopy. heap := heap copy! Item was changed: ----- Method: MorphicAlarmQueue>>remove: (in category 'migration') ----- remove: anObject - heap ifNil: [ ^super remove: anObject ]. ^heap remove: anObject! Item was added: + ----- Method: MorphicAlarmQueue>>removeAlarmWithReceiver:selector: (in category 'removing') ----- + removeAlarmWithReceiver: receiver selector: selector + + heap + detect: [ :each | each receiver == receiver and: [ each selector == selector ] ] + ifFound: [ :found | heap remove: found ] + ifNone: [ ]! Item was added: + ----- Method: MorphicAlarmQueue>>removeAllAlarmsBefore: (in category 'removing') ----- + removeAllAlarmsBefore: nowTime + + ^Array new: 10 streamContents: [ :stream | + [ heap notEmpty and: [ heap first scheduledTime < nowTime ] ] + whileTrue: [ stream nextPut: heap removeFirst ] ]! Item was changed: ----- Method: MorphicAlarmQueue>>removeFirst (in category 'migration') ----- removeFirst - heap ifNil: [ ^super removeFirst ]. ^heap removeFirst! Item was removed: - ----- Method: MorphicAlarmQueue>>sorts:before: (in category 'comparing') ----- - sorts: alarmA before: alarmB - alarmA scheduledTime = alarmB scheduledTime - ifFalse:[^alarmA scheduledTime < alarmB scheduledTime]. - alarmA sequenceNumber = alarmB sequenceNumber - ifFalse:[^alarmA sequenceNumber < alarmB sequenceNumber]. - ^self error: 'These alarms run at the same time'! Item was changed: ----- Method: WorldState>>adjustAlarmTimes: (in category 'alarms') ----- adjustAlarmTimes: nowTime "Adjust the alarm times after some clock weirdness (such as roll-over, image-startup etc)" + | deltaTime | + (deltaTime := nowTime - lastAlarmTime) = 0 ifTrue: [ ^self ]. + self lockAlarmsDuring: [ :locked | locked incrementScheduledTimesBy: deltaTime ]! - deltaTime := nowTime - lastAlarmTime. - self lockAlarmsDuring: [:locked | - locked do:[:alarm| alarm scheduledTime: alarm scheduledTime + deltaTime]. - ]! Item was changed: ----- Method: WorldState>>cleanseStepListForWorld: (in category 'stepping') ----- cleanseStepListForWorld: aWorld "Remove morphs from the step list that are not in this World. Often were in a flap that has moved on to another world." + | deletions | - | deletions morphToStep | deletions := nil. stepList do: [:entry | + entry receiver world == aWorld ifFalse: [ + (deletions ifNil: [ deletions := OrderedCollection new ]) + addLast: entry ] ]. - morphToStep := entry receiver. - morphToStep world == aWorld ifFalse:[ - deletions ifNil: [deletions := OrderedCollection new]. - deletions addLast: entry]]. deletions ifNotNil:[ deletions do: [:entry| self stopStepping: entry receiver]]. self lockAlarmsDuring: [:locked | + locked alarmsDoSafely: [ :entry | + | morphToStep | - locked copy do: [:entry | morphToStep := entry receiver. + (morphToStep isMorph and: [morphToStep world == aWorld]) ifFalse: [ + locked removeAlarmWithReceiver: entry receiver selector: entry selector ] ] ]! - (morphToStep isMorph and:[morphToStep world == aWorld]) - ifFalse:[self removeAlarm: entry selector for: entry receiver]] - ].! Item was changed: ----- Method: WorldState>>removeAlarm:for: (in category 'alarms') ----- removeAlarm: aSelector for: aTarget "Remove the alarm with the given selector" self lockAlarmsDuring: [:locked | + locked removeAlarmWithReceiver: aTarget selector: aSelector ]! - | alarm | - alarm := locked - detect: [:any | any receiver == aTarget and: [any selector == aSelector]] - ifNone: [nil]. - alarm ifNotNil: [locked remove: alarm] - ]. - ! Item was changed: ----- Method: WorldState>>triggerAlarmsBefore: (in category 'alarms') ----- triggerAlarmsBefore: nowTime "Trigger all pending alarms that are to be executed before nowTime." | triggered | lastAlarmTime ifNil:[lastAlarmTime := nowTime]. (nowTime < lastAlarmTime or:[nowTime - lastAlarmTime > 10000]) ifTrue:[self adjustAlarmTimes: nowTime]. + triggered := self lockAlarmsDuring: [:pending | + pending removeAllAlarmsBefore: nowTime ]. - triggered := OrderedCollection new. - self lockAlarmsDuring: [:pending | - [pending isEmpty not and: [pending first scheduledTime < nowTime]] - whileTrue: [triggered add: pending removeFirst]]. triggered do: [:alarm | alarm value: nowTime]. lastAlarmTime := nowTime.!

1 0

The Trunk: Morphic-ul.1151.mcz
by commits＠source.squeak.org 31 May '16

31 May '16

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1151.mcz ==================== Summary ==================== Name: Morphic-ul.1151 Author: ul Time: 31 May 2016, 1:05:09.648151 am UUID: 88bc6d22-477b-477f-8aa9-b324ff0dbcd0 Ancestors: Morphic-mt.1150 Make MorphicAlarmQueue not be a subclass of Heap. Use encapsulation instead. Part #1. =============== Diff against Morphic-mt.1150 =============== Item was changed: Heap subclass: #MorphicAlarmQueue + instanceVariableNames: 'mutex sequenceNumber heap' - instanceVariableNames: 'mutex sequenceNumber' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Events'! !MorphicAlarmQueue commentStamp: 'jcg 1/9/2010 13:34' prior: 0! MorphicAlarmQueue is a specialized Heap. The main change is to stamp each added MorphicAlarm with a sequence number to ensure that alarms scheduled for the same time are executed in the order that they were added.! Item was changed: ----- Method: MorphicAlarmQueue>>add: (in category 'adding') ----- add: aMorphicAlarm + + heap ifNotNil: [ + aMorphicAlarm sequenceNumber: self nextSequenceNumber. + ^heap add: aMorphicAlarm ]. (sequenceNumber := sequenceNumber + 1) = 16r3FFFFFFF ifTrue: [ "Sequence number overflow... reassign sequence numbers starting at 0." | alarmList | alarmList := self asArray sort: [:msg1 :msg2 | msg1 sequenceNumber < msg2 sequenceNumber ]. alarmList withIndexDo: [:msg :ind | msg sequenceNumber: ind-1]. "The #bitAnd: for the unlikely event that we have > 16r3FFFFFF messages in the queue." sequenceNumber := alarmList last sequenceNumber + 1 bitAnd: 16r3FFFFFFF. ]. aMorphicAlarm sequenceNumber: sequenceNumber. super add: aMorphicAlarm. "If we doubt our sanity..." false ifTrue: [ self isValidHeap ifFalse: [self error: 'not a valid heap!!!!!!']. ]. ^aMorphicAlarm! Item was added: + ----- Method: MorphicAlarmQueue>>detect:ifNone: (in category 'migration') ----- + detect: aBlock ifNone: noneBlock + + heap ifNil: [ ^super detect: aBlock ifNone: noneBlock ]. + ^heap detect: aBlock ifNone: noneBlock! Item was added: + ----- Method: MorphicAlarmQueue>>do: (in category 'migration') ----- + do: aBlock + + heap ifNil: [ ^super do: aBlock ]. + ^heap do: aBlock! Item was added: + ----- Method: MorphicAlarmQueue>>first (in category 'migration') ----- + first + + heap ifNil: [ ^super first ]. + ^heap first! Item was changed: ----- Method: MorphicAlarmQueue>>initialize (in category 'initialize') ----- initialize + super initialize. + sequenceNumber := 0. + heap := Heap sortBlock: [ :alarmA :alarmB | + alarmA scheduledTime = alarmB scheduledTime + ifFalse: [ alarmA scheduledTime < alarmB scheduledTime ] + ifTrue: [ + alarmA sequenceNumber = alarmB sequenceNumber + ifFalse: [ alarmA sequenceNumber < alarmB sequenceNumber ] + ifTrue: [ self error: 'These alarms run at the same time' ] ] ]! - sequenceNumber := 0.! Item was added: + ----- Method: MorphicAlarmQueue>>isEmpty (in category 'migration') ----- + isEmpty + + heap ifNil: [ ^super isEmpty ]. + ^heap isEmpty! Item was added: + ----- Method: MorphicAlarmQueue>>migrate (in category 'migration') ----- + migrate + + heap ifNotNil: [ ^self ]. + heap := Heap withAll: self asArray sortBlock: [ :alarmA :alarmB | + alarmA scheduledTime = alarmB scheduledTime + ifFalse: [ alarmA scheduledTime < alarmB scheduledTime ] + ifTrue: [ + alarmA sequenceNumber = alarmB sequenceNumber + ifFalse: [ alarmA sequenceNumber < alarmB sequenceNumber ] + ifTrue: [ self error: 'These alarms run at the same time' ] ] ]! Item was added: + ----- Method: MorphicAlarmQueue>>nextSequenceNumber (in category 'private') ----- + nextSequenceNumber + + (sequenceNumber := sequenceNumber + 1) = 16r3FFFFFFF ifTrue: [ + "Sequence number overflow... reassign sequence numbers starting at 1." + | alarmList | + alarmList := heap fullySort asArray. + alarmList withIndexDo: [ :alarm :index | + alarm sequenceNumber: index ]. + sequenceNumber := alarmList size + 1 ]. + ^sequenceNumber! Item was added: + ----- Method: MorphicAlarmQueue>>postCopy (in category 'as yet unclassified') ----- + postCopy + + super postCopy. + heap := heap copy! Item was added: + ----- Method: MorphicAlarmQueue>>remove: (in category 'migration') ----- + remove: anObject + + heap ifNil: [ ^super remove: anObject ]. + ^heap remove: anObject! Item was added: + ----- Method: MorphicAlarmQueue>>removeFirst (in category 'migration') ----- + removeFirst + + heap ifNil: [ ^super removeFirst ]. + ^heap removeFirst! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'MorphicAlarmQueue allInstancesDo: #migrate'! - (PackageInfo named: 'Morphic') postscript: 'SystemWindow reconfigureWindowsForFocus.'!

1 0

Morphic layout issues Linux 64x64 squeak.cog.spur
by gettimothy 30 May '16

30 May '16

I posted a pic here: https://timmydosmalltalk.wordpress.com/2016/05/29/linux-64x64-squeak-cog-sp… Debugger and inspectors do not show some morphic panes correctly. I don't know how to begin to track this down. I will be happy to try if somebody will tell me where to start. cheers. tty

2 2

Add the "do" menu to world main docking bar
by marcel.taeumel 29 May '16

29 May '16

Hi, there. We have a convenient mini-script-shortcut feature: the "do..." menu, accessible via the world menu. Very easy to modify. What about adding it to the docking bar? Here is a change set that does that: do-menu.cs <http://forum.world.st/file/n4894792/do-menu.cs> You need to rebuild the menus after that. ("Extras" -> "Rebuild menus"). Best, Marcel -- View this message in context: http://forum.world.st/Add-the-do-menu-to-world-main-docking-bar-tp4894792.h… Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 4

Event filters for user input events (i.e. mouse clicks etc.)
by marcel.taeumel 29 May '16

29 May '16

Hi, there. Here is a change set that adds event filters to Squeak: event-filters.cs <http://forum.world.st/file/n4895521/event-filters.cs> It is implemented like event listeners but with a spearation between global event filters in the HandMorph and local event filters in any other Morph. Both event filters and event listeners do only work on event copies to not interfere with regular event dispatching. Such bugs would be quite challenging to hunt down. Here is a usage example: m := ActiveWorld submorphs third. "some system window" filter := PluggableEventFilter new on: [:evt :target | Transcript showln: evt printString. false]. m addEventFilter: filter. m removeEventFilter: filter. m addKeyboardFilter: filter. Just like event listeners, there are generic event filters, mouse event filters, and keyboard event filters. All filter objects are weakly referenced - just like event filters. Where to use event filters? - Processing global keyboard shortcuts and avoiding some other Morph to handle the same key - Temporarily disable specific events for a morph from the outside The general idea is based on the Qt framework: http://doc.qt.io/qt-5/eventsandfilters.html#event-filters Do we want that in the Trunk? Best, Marcel -- View this message in context: http://forum.world.st/Event-filters-for-user-input-events-i-e-mouse-clicks-… Sent from the Squeak - Dev mailing list archive at Nabble.com.

6 17

Daily Commit Log
by commits＠source.squeak.org 27 May '16

27 May '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-May/068152.html Name: Monticello-kfr.633 Ancestors: Monticello-mt.632 When a class only has instance variable changes MCMergeBrowser does not offer a menu option to access a browser =============================================

1 0

International text input on X11
by Yoshiki Ohshima 27 May '16

27 May '16

Hello, As some people aware, we have a problem with Japanese text input into Squeak on X11, especially with NuScratch. I've been punting to work on this but now Manabu Sugiura volunteered and I decided to just do what it takes to help him. I wrote some code to support Japanese text input works on X11 when OLPC XO time, but things diverged since then. My understanding is that porting the code from that branch into the later branch(es), most notably the VM that NuScratch uses; But I am pretty sure there are more differences I am not aware of. Please let us know if there are some foreseeable issues. And please consider incorporating patches Manabu (and I) will produce when it is ready. Thanks! -- -- Yoshiki

7 92

FYI Squeak5.0 latest update: #15987
by gettimothy 27 May '16

27 May '16

FYI Just upgraded to check out Patrick Rein's Terse Guide addition. Squeak5.0 latest update: #15987 After upgrade, opening the Help kicked in that "CR to enter an emergency evaluator" window. The DNU exception was thrown in SimpleHierarchicalListMorph >> drawLinesOn: aCanvas ..... ifTrue: [submorph drawLinesOn: clippedCanvas lineColor: lColor]]] submorph in this case was an instance of IndentingListItemMorph where In that class I added the missing method that invokes an existing and similar method with a default value of 1. drawLinesOn: aCanvas lineColor: lineColor self drawLinesOn: aCanvas lineColor: lineColor indentThreshold: 1. Help browser now opens with no errors. tty

2 2

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

Jump to page: