Packages August 2014

packages@lists.squeakfoundation.org

2 participants
105 discussions

The Trunk: Morphic-cmm.743.mcz
by commits＠source.squeak.org 24 Aug '14

24 Aug '14

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.743.mcz ==================== Summary ==================== Name: Morphic-cmm.743 Author: cmm Time: 24 August 2014, 12:03:20.922 pm UUID: 611b10f4-9e97-48ef-8954-19edfab83531 Ancestors: Morphic-cmm.740 Forgot to resave as the highest number dammit. =============== Diff against Morphic-cmm.740 ===============

1 0

The Trunk: Morphic-cmm.743.mcz
by commits＠source.squeak.org 24 Aug '14

24 Aug '14

1 0

The Trunk: Morphic-cmm.743.mcz
by commits＠source.squeak.org 24 Aug '14

24 Aug '14

1 0

The Trunk: Morphic-cmm.740.mcz
by commits＠source.squeak.org 24 Aug '14

24 Aug '14

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.740.mcz ==================== Summary ==================== Name: Morphic-cmm.740 Author: cmm Time: 24 August 2014, 12:01:36.047 pm UUID: 7d546524-daff-4d6f-b92c-f7d794c0de5c Ancestors: Morphic-cmm.738 Re-fixed the Morphic ancestry mess. Please do not re-adopt anything from kfr.732 to mt.742. All changes which didn't break something have already been manually included. It's too bad we lost the historical record for those changes, but its better than a broken trunk. =============== Diff against Morphic-cmm.738 =============== Item was changed: ----- Method: AlternatePluggableListMorphOfMany>>mouseUp: (in category 'event handling') ----- mouseUp: event + + event hand newKeyboardFocus: self. + hasFocus := true. + ^self! - "Not needed. Overridden to do nothing."! Item was changed: ----- Method: Morph>>addAllMorphs: (in category 'submorphs-add/remove') ----- addAllMorphs: aCollection + ^self addAllMorphsBack: aCollection! - ^self privateAddAllMorphs: aCollection atIndex: submorphs size! Item was changed: ----- Method: Morph>>addAllMorphs:after: (in category 'submorphs-add/remove') ----- addAllMorphs: aCollection after: anotherMorph + ^self addAllMorphs: aCollection behind: anotherMorph! - ^self privateAddAllMorphs: aCollection - atIndex: (submorphs indexOf: anotherMorph ifAbsent: [submorphs size])! Item was added: + ----- Method: Morph>>addAllMorphs:behind: (in category 'submorphs-add/remove') ----- + addAllMorphs: aCollection behind: anotherMorph + ^self privateAddAllMorphs: aCollection + atIndex: (submorphs indexOf: anotherMorph) + 1! Item was added: + ----- Method: Morph>>addAllMorphs:inFrontOf: (in category 'submorphs-add/remove') ----- + addAllMorphs: aCollection inFrontOf: anotherMorph + ^self privateAddAllMorphs: aCollection + atIndex: ((submorphs indexOf: anotherMorph) max: 1)! Item was added: + ----- Method: Morph>>addAllMorphsBack: (in category 'submorphs-add/remove') ----- + addAllMorphsBack: aCollection + ^self privateAddAllMorphs: aCollection atIndex: submorphs size + 1! Item was added: + ----- Method: Morph>>addAllMorphsFront: (in category 'submorphs-add/remove') ----- + addAllMorphsFront: aCollection + ^self privateAddAllMorphs: aCollection atIndex: 1! Item was changed: ----- Method: Morph>>addMorph:after: (in category 'submorphs-add/remove') ----- addMorph: newMorph after: aMorph + ^self addMorph: newMorph behind: aMorph! - "Add the given morph as one of my submorphs, inserting it after anotherMorph" - ^self privateAddMorph: newMorph atIndex: (submorphs indexOf: aMorph)+1! Item was changed: ----- Method: Morph>>privateAddAllMorphs:atIndex: (in category 'private') ----- privateAddAllMorphs: aCollection atIndex: index "Private. Add aCollection of morphs to the receiver" + | myWorld otherSubmorphs offset | + (index between: 1 and: submorphs size+1) + ifFalse: [^ self error: 'index out of range']. - | myWorld otherSubmorphs | myWorld := self world. otherSubmorphs := submorphs copyWithoutAll: aCollection. + offset := aCollection count: [:m | (submorphs indexOf: m) between: 1 and: index - 1]. + submorphs := otherSubmorphs copyReplaceFrom: index-offset to: index-offset-1 with: aCollection. - (index between: 0 and: otherSubmorphs size) - ifFalse: [^ self error: 'index out of range']. - index = 0 - ifTrue:[ submorphs := aCollection asArray, otherSubmorphs] - ifFalse:[ index = otherSubmorphs size - ifTrue:[ submorphs := otherSubmorphs, aCollection] - ifFalse:[ submorphs := otherSubmorphs copyReplaceFrom: index + 1 to: index with: aCollection ]]. aCollection do: [:m | | itsOwner itsWorld | itsOwner := m owner. itsOwner ifNotNil: [ itsWorld := m world. (itsWorld == myWorld) ifFalse: [ itsWorld ifNotNil: [self privateInvalidateMorph: m]. m outOfWorld: itsWorld]. (itsOwner ~~ self) ifTrue: [ m owner privateRemove: m. m owner removedMorph: m ]]. m privateOwner: self. myWorld ifNotNil: [self privateInvalidateMorph: m]. (myWorld == itsWorld) ifFalse: [m intoWorld: myWorld]. itsOwner == self ifFalse: [ self addedMorph: m. m noteNewOwner: self ]. ]. self layoutChanged. ! Item was added: + ScrollPane subclass: #PluggableScrollPane + instanceVariableNames: 'morph morphClass' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Pluggable Widgets'! Item was added: + ----- Method: PluggableScrollPane class>>on: (in category 'instance creation') ----- + on: morph + + ^ self new + morph: morph; + yourself! Item was added: + ----- Method: PluggableScrollPane class>>onClass: (in category 'instance creation') ----- + onClass: morphClass + + ^ self new + morphClass: morphClass; + updateMorph; + yourself! Item was added: + ----- Method: PluggableScrollPane>>morph (in category 'accessing') ----- + morph + + ^ morph ifNil: [ + self morph: self morphClass new. + morph]! Item was added: + ----- Method: PluggableScrollPane>>morph: (in category 'accessing') ----- + morph: morphToScroll + + morphToScroll topLeft: 0@0. + morph := morphToScroll. + morphClass := morphToScroll class. + + self scroller + removeAllMorphs; + addMorph: morph. + + self updateMorph.! Item was added: + ----- Method: PluggableScrollPane>>morphClass (in category 'accessing') ----- + morphClass + + ^ morphClass ifNil: [Morph]! Item was added: + ----- Method: PluggableScrollPane>>morphClass: (in category 'accessing') ----- + morphClass: aMorphClass + + morphClass := aMorphClass.! Item was added: + ----- Method: PluggableScrollPane>>updateMorph (in category 'updating') ----- + updateMorph + + self morph fullBounds. + self setScrollDeltas. + + scrollBar setValue: 0.0. + hScrollBar setValue: 0.0.! Item was changed: ----- Method: TextMorphForEditView>>mouseDown: (in category 'event handling') ----- mouseDown: event event yellowButtonPressed ifTrue: [ + (self editor yellowButtonDown: event) ifTrue:[^self]. - (editor yellowButtonDown: event) ifTrue:[^self]. ^ editView yellowButtonActivity: event shiftPressed]. ^ super mouseDown: event !

1 0

The Trunk: Morphic-cmm.740.mcz
by commits＠source.squeak.org 24 Aug '14

24 Aug '14

1 0

The Trunk: Morphic-cmm.740.mcz
by commits＠source.squeak.org 24 Aug '14

24 Aug '14

1 0

The Trunk: Network-ul.152.mcz
by commits＠source.squeak.org 15 Aug '14

15 Aug '14

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.152.mcz ==================== Summary ==================== Name: Network-ul.152 Author: ul Time: 15 August 2014, 4:25:21.446 am UUID: 3af235fb-434f-4941-a044-fd0d71c5d46f Ancestors: Network-nice.151 Patched all methods of Socket which wait for the readSemaphore the same way #waitForDataIfClosed: was patched. Created a new preference for the maximum timeout, because in some real-time applications it's better to use less than 500ms. This fixes some random long waits/unexpected behavior for the users of SocketStream (e.g. WebClient, RFB, etc). =============== Diff against Network-nice.151 =============== Item was changed: Object subclass: #Socket instanceVariableNames: 'semaphore socketHandle readSemaphore writeSemaphore' + classVariableNames: 'Connected DeadServer InvalidSocket MaximumReadSemaphoreWaitTimeout OtherEndClosed Registry RegistryThreshold TCPSocketType ThisEndClosed UDPSocketType Unconnected WaitingForConnection' - classVariableNames: 'Connected DeadServer InvalidSocket OtherEndClosed Registry RegistryThreshold TCPSocketType ThisEndClosed UDPSocketType Unconnected WaitingForConnection' poolDictionaries: '' category: 'Network-Kernel'! !Socket commentStamp: 'gk 12/13/2005 00:43' prior: 0! A Socket represents a network connection point. Current sockets are designed to support the TCP/IP and UDP protocols. Sockets are the lowest level of networking object in Squeak and are not normally used directly. SocketStream is a higher level object wrapping a Socket in a stream like protocol. ProtocolClient and subclasses are in turn wrappers around a SocketStream to provide support for specific network protocols such as POP, NNTP, HTTP, and FTP.! Item was added: + ----- Method: Socket class>>maximumReadSemaphoreWaitTimeout (in category 'preferences') ----- + maximumReadSemaphoreWaitTimeout + + <preference: 'Maximum readSemaphore wait timeout.' + category: 'general' + description: 'The number of milliseconds for which we''ll wait for the readSemaphore of a Socket to signal. This is used by a workaround for a VM bug. Lower values use more CPU, but result in less delay in extremal cases.' + type: #Number> + ^MaximumReadSemaphoreWaitTimeout ifNil: [ 500 ]! Item was added: + ----- Method: Socket class>>maximumReadSemaphoreWaitTimeout: (in category 'preferences') ----- + maximumReadSemaphoreWaitTimeout: anInteger + "The number of milliseconds for which we'll wait for the readSemaphore to signal. This is used by a workaround for a VM bug." + + MaximumReadSemaphoreWaitTimeout := anInteger! Item was changed: ----- Method: Socket>>waitForDataFor:ifClosed:ifTimedOut: (in category 'waiting') ----- waitForDataFor: timeout ifClosed: closedBlock ifTimedOut: timedOutBlock "Wait for the given nr of seconds for data to arrive." | startTime msecsDelta | startTime := Time millisecondClockValue. msecsDelta := (timeout * 1000) truncated. [(Time millisecondsSince: startTime) < msecsDelta] whileTrue: [ (self primSocketReceiveDataAvailable: socketHandle) ifTrue: [^self]. self isConnected ifFalse: [^closedBlock value]. + "Providing a maximum for the time for waiting is a workaround for a VM bug which causes sockets waiting for data forever in some rare cases, because the semaphore doesn't get signaled. Remove the ""min: self class maximumReadSemaphoreWaitTimeout"" part when the bug is fixed." self readSemaphore waitTimeoutMSecs: + ((msecsDelta - (Time millisecondsSince: startTime) max: 0) min: self class maximumReadSemaphoreWaitTimeout). - (msecsDelta - (Time millisecondsSince: startTime) max: 0). ]. (self primSocketReceiveDataAvailable: socketHandle) ifFalse: [ self isConnected ifTrue: [^timedOutBlock value] ifFalse: [^closedBlock value]].! Item was changed: ----- Method: Socket>>waitForDataIfClosed: (in category 'waiting') ----- waitForDataIfClosed: closedBlock "Wait indefinitely for data to arrive. This method will block until data is available or the socket is closed." [ (self primSocketReceiveDataAvailable: socketHandle) ifTrue: [^self]. self isConnected ifFalse: [^closedBlock value]. + "Providing a maximum for the time for waiting is a workaround for a VM bug which causes sockets waiting for data forever in some rare cases, because the semaphore doesn't get signaled. Replace the ""waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout"" part with ""wait"" when the bug is fixed." + self readSemaphore waitTimeoutMSecs: self class maximumReadSemaphoreWaitTimeout ] repeat - "This 500 ms waiting is a workaround for a VM bug which causes sockets waiting for data forever randomly, because the semaphore doesn't get signaled. Revert to ""self readSemaphore wait"" when the bug is fixed." - self readSemaphore waitTimeoutMSecs: 500 ] repeat ! Item was changed: ----- Method: Socket>>waitForDisconnectionFor: (in category 'waiting') ----- waitForDisconnectionFor: timeout "Wait for the given nr of seconds for the connection to be broken. Return true if it is broken by the deadline, false if not. The client should know the connection is really going to be closed (e.g., because he has called 'close' to send a close request to the other end) before calling this method." | startTime msecsDelta status | startTime := Time millisecondClockValue. msecsDelta := (timeout * 1000) truncated. status := self primSocketConnectionStatus: socketHandle. [((status == Connected) or: [(status == ThisEndClosed)]) and: [(Time millisecondsSince: startTime) < msecsDelta]] whileTrue: [ self discardReceivedData. + "Providing a maximum for the time for waiting is a workaround for a VM bug which causes sockets waiting for data forever in some rare cases, because the semaphore doesn't get signaled. Remove the ""min: self class maximumReadSemaphoreWaitTimeout"" part when the bug is fixed." self readSemaphore waitTimeoutMSecs: + ((msecsDelta - (Time millisecondsSince: startTime) max: 0) min: self class maximumReadSemaphoreWaitTimeout). - (msecsDelta - (Time millisecondsSince: startTime) max: 0). status := self primSocketConnectionStatus: socketHandle]. ^ status ~= Connected!

1 0

The Trunk: Network-ul.152.mcz
by commits＠source.squeak.org 15 Aug '14

15 Aug '14

1 0

The Trunk: Network-ul.152.mcz
by commits＠source.squeak.org 15 Aug '14

15 Aug '14

1 0

The Trunk: Multilingual-ul.200.mcz
by commits＠source.squeak.org 15 Aug '14

15 Aug '14

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.200.mcz ==================== Summary ==================== Name: Multilingual-ul.200 Author: ul Time: 15 August 2014, 4:11:35.855 am UUID: 7fac98fd-9abf-4f69-a21f-3e16b5710480 Ancestors: Multilingual-ul.199 Fix the startup of various file streams. - ensure that MultiByteFileStream's default line end convention is initialized at startup, and only at startup - don't initialize the stdioFiles more than once at startup =============== Diff against Multilingual-ul.199 =============== Item was removed: - ----- Method: MultiByteFileStream class>>startUp (in category 'class initialization') ----- - startUp - - self guessDefaultLineEndConvention. - ! Item was added: + ----- Method: MultiByteFileStream class>>startUp: (in category 'class initialization') ----- + startUp: resuming + + resuming ifTrue: [ self guessDefaultLineEndConvention ] + ! Item was changed: + (PackageInfo named: 'Multilingual') postscript: '"Remove CrLfFileStream from the startupList" + (Smalltalk classNamed: ''CrLfFileStream'') ifNotNil: [ :class | + Smalltalk removeFromStartUpList: class ]'! - (PackageInfo named: 'Multilingual') postscript: '"Initialize the value of wantsLineEndConversion in all MultiByteFileStreams" - MultiByteFileStream allSubInstancesDo: [ :each | - (each instVarNamed: #wantsLineEndConversion) ifNil: [ - each instVarNamed: #wantsLineEndConversion put: false ] ]'!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2014