Squeak-dev February 2016

squeak-dev@lists.squeakfoundation.org

28 participants
207 discussions

The Trunk: Tools-mt.672.mcz
by commits＠source.squeak.org 15 Feb '16

15 Feb '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.672.mcz ==================== Summary ==================== Name: Tools-mt.672 Author: mt Time: 15 February 2016, 7:49:47.881009 pm UUID: 8138a218-0a8b-441d-8573-43b0f6f65bcf Ancestors: Tools-mt.671 Removes last reference to the obsolete AppRegistry for MorphicTextEditor. In order to remove all Morphic-specific code from the tools' model classes in the future, we should think about using the MorphicToolBuilder for that. The main issue is that we maybe want to design a dynamic graphical interface (hide/show buttons, text fields, images etc.) but tool builders only support a static one via #buildWith:. For example, there used to be a "tiles" view in the system browser. Switching between this tiles view and a text view involved replacing widgets. At the moment, all views in the code browser can re-use the text morph (or text view in MVC) and just switch textual contents. =============== Diff against Tools-mt.671 =============== Item was changed: ----- Method: CodeHolder>>buildMorphicCodePaneWith: (in category 'construction') ----- buildMorphicCodePaneWith: editString "Construct the pane that shows the code. Respect the Preference for standardCodeFont." | codePane | + codePane := PluggableTextMorph - codePane := MorphicTextEditor default on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. codePane font: Preferences standardCodeFont. editString ifNotNil: [codePane editString: editString. codePane hasUnacceptedEdits: true]. ^ codePane!

1 0

The Trunk: Morphic-mt.1080.mcz
by commits＠source.squeak.org 15 Feb '16

15 Feb '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1080.mcz ==================== Summary ==================== Name: Morphic-mt.1080 Author: mt Time: 15 February 2016, 4:58:32.640019 pm UUID: b80fdc10-b798-4648-a016-5ea9a0c45ca5 Ancestors: Morphic-mt.1079 Fixes a regression in Morphic's inter-cycle delay. Hacking during the switch from DST to normal time forced the user to wait one hour. Opening images from different time zones did also show this bug. =============== Diff against Morphic-mt.1079 =============== Item was changed: ----- Method: WorldState>>interCyclePause: (in category 'update cycle') ----- interCyclePause: milliSecs "delay enough that the previous cycle plus the amount of delay will equal milliSecs. If the cycle is already expensive, then no delay occurs. However, if the system is idly waiting for interaction from the user, the method will delay for a proportionally long time and cause the overall CPU usage of Squeak to be low. If the preference #serverMode is enabled, always do a complete delay of 50ms, independant of my argument. This prevents the freezing problem described in Mantis #6581" | millisecondsToWait | millisecondsToWait := Preferences serverMode ifTrue: [ 50 ] ifFalse: [ (lastCycleTime isNil or: [ CanSurrenderToOS == false ]) ifTrue: [ 0 ] ifFalse: [ milliSecs - (Time millisecondsSince: lastCycleTime) ] ]. + (millisecondsToWait > 0 and: [millisecondsToWait <= milliSecs]) ifTrue: [ - millisecondsToWait > 0 ifTrue: [ (interCycleDelay isNil or: [ interCycleDelay beingWaitedOn ]) ifTrue: [ interCycleDelay := Delay forMilliseconds: millisecondsToWait ] ifFalse: [ interCycleDelay delayDuration: millisecondsToWait ]. interCycleDelay wait ]. lastCycleTime := Time millisecondClockValue. CanSurrenderToOS := true.!

1 0

The Trunk: Tools-mt.671.mcz
by commits＠source.squeak.org 15 Feb '16

15 Feb '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.671.mcz ==================== Summary ==================== Name: Tools-mt.671 Author: mt Time: 15 February 2016, 3:38:15.751019 pm UUID: ef07dc4d-2a23-43b9-97a3-04d629998ebb Ancestors: Tools-mt.670 Make all possible entry points in Debugger (via StandardToolSet) consistently use project-prefix dispatch. =============== Diff against Tools-mt.670 =============== Item was changed: ----- Method: Debugger class>>context: (in category 'instance creation') ----- context: aContext "Answer an instance of me for debugging the active process starting with the given context." + ^ Project current + dispatchTo: self + addPrefixAndSend: #Context: + withArguments: { aContext }! - ^ self new - process: Processor activeProcess - controller: - ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess]) - ifTrue: [ScheduledControllers activeController] - ifFalse: [nil]) - context: aContext! Item was changed: + ----- Method: Debugger class>>openContext:label:contents: (in category 'opening') ----- - ----- Method: Debugger class>>openContext:label:contents: (in category 'class initialization') ----- openContext: aContext label: aString contents: contentsStringOrNil "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." + + ^ Project current + dispatchTo: self + addPrefixAndSend: #OpenContext:label:contents: + withArguments: { aContext . aString . contentsStringOrNil }! - <primitive: 19> "Simulation guard" - ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: - [Smalltalk logSqueakError: aString inContext: aContext]. - ErrorRecursion ifTrue:[ - ErrorRecursion := false. - self primitiveError: aString]. - ErrorRecursion := true. - self informExistingDebugger: aContext label: aString. - (Debugger context: aContext) - openNotifierContents: contentsStringOrNil - label: aString. - ErrorRecursion := false. - Processor activeProcess suspend. - ! Item was changed: ----- Method: Debugger class>>openInterrupt:onProcess: (in category 'opening') ----- openInterrupt: aString onProcess: interruptedProcess "Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low." - | debugger | - <primitive: 19> "Simulation guard" - debugger := self new. - debugger - process: interruptedProcess - controller: ((Smalltalk isMorphic not - and: [ScheduledControllers activeControllerProcess == interruptedProcess]) - ifTrue: [ScheduledControllers activeController]) - context: interruptedProcess suspendedContext. - debugger externalInterrupt: true. + ^ Project current + dispatchTo: self + addPrefixAndSend: #OpenInterrupt:onProcess: + withArguments: { aString . interruptedProcess }! - Preferences logDebuggerStackToFile ifTrue: - [(aString includesSubstring: 'Space') & (aString includesSubstring: 'low') - ifTrue: [Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log'] - "logging disabled for 4.3 release, see - http://lists.squeak.org/pipermail/squeak-dev/2011-December/162503.html" - "ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"]. - - Preferences eToyFriendly ifTrue: [World stopRunningAll]. - ^debugger - openNotifierContents: nil label: aString; - yourself - !

1 0

The Trunk: Morphic-mt.1079.mcz
by commits＠source.squeak.org 15 Feb '16

15 Feb '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1079.mcz ==================== Summary ==================== Name: Morphic-mt.1079 Author: mt Time: 15 February 2016, 3:36:54.005019 pm UUID: ead38ca4-1a64-4544-99ff-0a21b21b1fcc Ancestors: Morphic-mt.1078 Make all possible entry points in Debugger (via StandardToolSet) consistently use project-prefix dispatch. =============== Diff against Morphic-mt.1078 =============== Item was added: + ----- Method: Debugger class>>morphicContext: (in category '*Morphic-instance creation') ----- + morphicContext: aContext + "Answer an instance of me for debugging the active process starting with the given context." + + ^ self new + process: Processor activeProcess + controller: nil + context: aContext! Item was added: + ----- Method: Debugger class>>morphicOpenContext:label:contents: (in category '*Morphic-opening') ----- + morphicOpenContext: aContext label: aString contents: contentsStringOrNil + "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." + <primitive: 19> "Simulation guard" + ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: + [Smalltalk logSqueakError: aString inContext: aContext]. + ErrorRecursion ifTrue:[ + ErrorRecursion := false. + self primitiveError: aString]. + ErrorRecursion := true. + self informExistingDebugger: aContext label: aString. + (Debugger morphicContext: aContext) + openNotifierContents: contentsStringOrNil + label: aString. + ErrorRecursion := false. + Processor activeProcess suspend.! Item was added: + ----- Method: Debugger class>>morphicOpenInterrupt:onProcess: (in category '*Morphic-opening') ----- + morphicOpenInterrupt: aString onProcess: interruptedProcess + "Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low." + | debugger | + <primitive: 19> "Simulation guard" + debugger := self new. + debugger + process: interruptedProcess + controller: nil + context: interruptedProcess suspendedContext. + debugger externalInterrupt: true. + + Preferences logDebuggerStackToFile ifTrue: + [(aString includesSubstring: 'Space') & (aString includesSubstring: 'low') + ifTrue: [Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log'] + "logging disabled for 4.3 release, see + http://lists.squeak.org/pipermail/squeak-dev/2011-December/162503.html" + "ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"]. + + Preferences eToyFriendly ifTrue: [World stopRunningAll]. + ^debugger + openNotifierContents: nil label: aString; + yourself + !

1 0

The Trunk: ST80-mt.192.mcz
by commits＠source.squeak.org 15 Feb '16

15 Feb '16

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.192.mcz ==================== Summary ==================== Name: ST80-mt.192 Author: mt Time: 15 February 2016, 3:35:44.419019 pm UUID: 8447768d-961c-4215-9d96-a53d4659d658 Ancestors: ST80-mt.191 Make all possible entry points in Debugger (via StandardToolSet) consistently use project-prefix dispatch. =============== Diff against ST80-mt.191 =============== Item was added: + ----- Method: Debugger class>>mvcContext: (in category '*ST80-instance creation') ----- + mvcContext: aContext + "Answer an instance of me for debugging the active process starting with the given context." + + ^ self new + process: Processor activeProcess + controller: (ScheduledControllers inActiveControllerProcess + ifTrue: [ScheduledControllers activeController] + ifFalse: [nil]) + context: aContext! Item was added: + ----- Method: Debugger class>>mvcOpenContext:label:contents: (in category '*ST80-opening') ----- + mvcOpenContext: aContext label: aString contents: contentsStringOrNil + "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." + <primitive: 19> "Simulation guard" + ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: + [Smalltalk logSqueakError: aString inContext: aContext]. + ErrorRecursion ifTrue:[ + ErrorRecursion := false. + self primitiveError: aString]. + ErrorRecursion := true. + self informExistingDebugger: aContext label: aString. + (Debugger mvcContext: aContext) + openNotifierContents: contentsStringOrNil + label: aString. + ErrorRecursion := false. + Processor activeProcess suspend.! Item was added: + ----- Method: Debugger class>>mvcOpenInterrupt:onProcess: (in category '*ST80-opening') ----- + mvcOpenInterrupt: aString onProcess: interruptedProcess + "Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low." + | debugger | + <primitive: 19> "Simulation guard" + debugger := self new. + debugger + process: interruptedProcess + controller: (ScheduledControllers activeControllerProcess == interruptedProcess + ifTrue: [ScheduledControllers activeController] + ifFalse: [nil]) + context: interruptedProcess suspendedContext. + debugger externalInterrupt: true. + + Preferences logDebuggerStackToFile ifTrue: + [(aString includesSubstring: 'Space') & (aString includesSubstring: 'low') + ifTrue: [Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log'] + "logging disabled for 4.3 release, see + http://lists.squeak.org/pipermail/squeak-dev/2011-December/162503.html" + "ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"]. + + Preferences eToyFriendly ifTrue: [World stopRunningAll]. + ^debugger + openNotifierContents: nil label: aString; + yourself + !

1 0

Minimal Squeak Project
by marcel.taeumel 14 Feb '16

14 Feb '16

Hi, there! Please find attached some code for a minimal Squeak project. For my opinion, we should detach the UserInputEvent class tree from Morphic to have some more object-orented event handling code available (for other projects). Squeash-mt.mcz <http://forum.world.st/file/n4877272/Squeash-mt.mcz> <http://forum.world.st/file/n4877272/minimal-squeak-project-1.gif> Best, Marcel -- View this message in context: http://forum.world.st/Minimal-Squeak-Project-tp4877272.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

6 17

Termination semaphore for Process
by Max Leske 13 Feb '16

13 Feb '16

Hi all, I have a proposal and I’d like to hear your opinion. Right now, when I want to wait for a process to finish I use something like #forkAndWait or I write a block with semaphores myself. This works fine for processes that I spawn and then immediately want to wait for. But what if I spawn a process somewhere else and only later know that I want to wait for its termination? Currently I would construct a polling loop to do that. Here’s a different idea (which I’ve tested): 1. add instance variable “terminationSemaphore” to Process 2. at the end of Process>>terminate #ensure: that all waiting processes are signaled 3. add #waitForTermination message to Process: waitForTermination terminationSemaphore ifNil: [ terminationSemaphore := Semaphore new ]. self resume. terminationSemaphore wait This enables code like the following: result := 0. p := [ result := 2. 2 seconds asDelay wait ] newProcess priority: 20; yourself. “don’t run the new process yet" [ p waitForTermination. result2 := 3. ] forkAt: 30. “p is now running, the second process is waiting" p waitForTermination. “p is still running, two processes are waiting” “because processes waiting on a semaphore are signaled in the order they sent #wait we even achieve ordering (at least with equal process priorities) and so ‘result2’ is not nil but 3” {result. result2} “#(2 3) I wrote this in 10 minutes, so there’s room for polishing. I just want to know if this is something other people might want and if there are potential problems with process termination and semaphores which I am not aware of. Cheers, Max

2 2

Daily Commit Log
by commits＠source.squeak.org 12 Feb '16

12 Feb '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-February/009384.h… Name: Morphic-cmm.1074 Ancestors: Morphic-mt.1073 Remove arbitrary hResizing for horizontal Sliders. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009385.h… Name: Morphic-mt.1075 Ancestors: Morphic-cmm.1074 Add comment to calculated resizing property in sliders. Note that we still have to find a better way to override this in client code. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009386.h… Name: Morphic-mt.1076 Ancestors: Morphic-mt.1075 Adds support for overriding the calculated hReszing and vResizing property in sliders (and scrollbars) via layout properties. Note that sliders do not have layout properties by default. Use #hResizing: or #vResizing: to add them. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009387.h… Name: Morphic-mt.1077 Ancestors: Morphic-mt.1076 Comment added to Slider. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009388.h… Name: ST80-mt.191 Ancestors: ST80-cmm.190 Updates reference to old InputSensor. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009389.h… Name: Morphic-mt.1078 Ancestors: Morphic-mt.1077 We need to spawn the process of the receiver (project), which happens to be the current one. Make it explicit. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-February/009390.h… Name: System-mt.795 Ancestors: System-dtl.794 Add support for projects that do not have a world set. (Note that I need this for a demonstration of a minimal Squeak project to encourage discussions about next steps in the Squeak community.) =============================================

1 0

The Trunk: System-mt.795.mcz
by commits＠source.squeak.org 12 Feb '16

12 Feb '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.795.mcz ==================== Summary ==================== Name: System-mt.795 Author: mt Time: 12 February 2016, 4:38:53.110094 pm UUID: ba0ba866-6fa0-496f-bfa8-23f4116f3e01 Ancestors: System-dtl.794 Add support for projects that do not have a world set. (Note that I need this for a demonstration of a minimal Squeak project to encourage discussions about next steps in the Squeak community.) =============== Diff against System-dtl.794 =============== Item was changed: ----- Method: Project>>okToChange (in category 'release') ----- okToChange "Answer whether the window in which the project is housed can be dismissed -- which is destructive. We never clobber a project without confirmation" | ok is list | self subProjects size >0 ifTrue: [self inform: ('The project {1} contains sub-projects. You must remove these explicitly before removing their parent.' translated format:{self name}). ^ false]. + ok := world isNil or: [world isMorph not and: [world scheduledControllers size <= 1]]. - ok := world isMorph not and: [world scheduledControllers size <= 1]. ok ifFalse: [self isMorphic ifTrue: [self parent == CurrentProject ifFalse: [^ true]]]. "view from elsewhere. just delete it." ok := self confirm: ('Really delete the project {1} and all its windows?' translated format:{self name}). ok ifFalse: [^ false]. world isMorph ifTrue: [Smalltalk at: #WonderlandCameraMorph ifPresent:[:aClass | world submorphs do: "special release for wonderlands" [:m | (m isKindOf: aClass) and: [m getWonderland release]]]. "Remove Player classes and metaclasses owned by project" is := ImageSegment new arrayOfRoots: (Array with: self). (list := is rootsIncludingPlayers) ifNotNil: [list do: [:playerCls | (playerCls respondsTo: #isMeta) ifTrue: [playerCls isMeta ifFalse: [playerCls removeFromSystemUnlogged]]]]]. self removeChangeSetIfPossible. "do this last since it will render project inaccessible to #allProjects and their ilk" ProjectHistory forget: self. Project deletingProject: self. ^ true !

1 0

The Trunk: Morphic-mt.1078.mcz
by commits＠source.squeak.org 12 Feb '16

12 Feb '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1078.mcz ==================== Summary ==================== Name: Morphic-mt.1078 Author: mt Time: 12 February 2016, 4:36:08.847094 pm UUID: 0cd1216e-f8ba-4a08-9e5c-a15c7715e92a Ancestors: Morphic-mt.1077 We need to spawn the process of the receiver (project), which happens to be the current one. Make it explicit. =============== Diff against Morphic-mt.1077 =============== Item was changed: ----- Method: MorphicProject>>scheduleProcessForEnter: (in category 'enter') ----- scheduleProcessForEnter: showZoom "Complete the enter: by launching a new process" self finalEnterActions. world repairEmbeddedWorlds. world triggerEvent: #aboutToEnterWorld. + self spawnNewProcessAndTerminateOld: true.! - Project current spawnNewProcessAndTerminateOld: true - !

1 0

← Newer
1
...
12
13
14
15
16
17
18
...
21
Older →

Jump to page: