Squeak-dev October 2015

squeak-dev@lists.squeakfoundation.org

40 participants
234 discussions

The Trunk: Collections-mt.657.mcz
by commits＠source.squeak.org 07 Oct '15

07 Oct '15

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.657.mcz ==================== Summary ==================== Name: Collections-mt.657 Author: mt Time: 7 October 2015, 1:47:21.191 pm UUID: 48404c29-18ed-9749-93c2-4481deec4180 Ancestors: Collections-eem.656 Removes method that has been deprecated since 3.10 into custom package for consistency. =============== Diff against Collections-eem.656 =============== Item was removed: - ----- Method: String>>findLastOccuranceOfString:startingAt: (in category 'deprecated-3.10') ----- - findLastOccuranceOfString: subString startingAt: start - self deprecated: 'Use instead #findLastOccurrenceOfString:startingAt:'. - ^ self findLastOccurrenceOfString: subString startingAt: start !

1 0

The Trunk: Tools-mt.635.mcz
by commits＠source.squeak.org 07 Oct '15

07 Oct '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.635.mcz ==================== Summary ==================== Name: Tools-mt.635 Author: mt Time: 7 October 2015, 10:19:10.116 am UUID: c85a7669-d4dd-394f-be02-a82c75c011e8 Ancestors: Tools-cmm.634 Restores possibility to edit dropped text files. This feature got lost in Squeak 4.0 with the introduction of services and the use of UIManager as fall-back. =============== Diff against Tools-cmm.634 =============== Item was added: + ----- Method: FileStream class>>edit: (in category '*Tools-Changes') ----- + edit: fullNameOrStream + + ^ (fullNameOrStream isString + ifTrue: [self fileNamed: fullNameOrStream] + ifFalse: [fullNameOrStream]) edit! Item was added: + ----- Method: FileStream class>>serviceEditFile (in category '*Tools-Changes') ----- + serviceEditFile + + ^ SimpleServiceEntry + provider: self + label: 'edit as text file' + selector: #edit: + description: 'edit as text file' + buttonLabel: 'edit'! Item was added: + ----- Method: FileStream class>>serviceEditFileSuffixes (in category '*Tools-Changes') ----- + serviceEditFileSuffixes + + ^ #('*')!

1 0

The Trunk: Files-mt.145.mcz
by commits＠source.squeak.org 07 Oct '15

07 Oct '15

Marcel Taeumel uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-mt.145.mcz ==================== Summary ==================== Name: Files-mt.145 Author: mt Time: 7 October 2015, 10:16:24.866 am UUID: f726696f-12e1-0146-a181-ad701c233a62 Ancestors: Files-cmm.144 Updates service descriptions in FileStream to be extensible by message name pattern. Note: We should discuss this way of extensibility and apply it to other service descriptions in the system if okay. =============== Diff against Files-cmm.144 =============== Item was changed: ----- Method: FileStream class>>fileReaderServicesForFile:suffix: (in category 'file reader services') ----- fileReaderServicesForFile: fullName suffix: suffix "Answer services for the given file" + ^ self servicesWithSuffixes + select: [:spec | spec key anySatisfy: [:pattern | suffix = '*' or: [pattern match: suffix]]] + thenCollect: [:spec | spec value]! - ^ ((self isSourceFileSuffix: suffix) or: [ suffix = '*' ]) - ifTrue: - [{self serviceRemoveLineFeeds. - self serviceFileIn}] - ifFalse: - [#()]! Item was added: + ----- Method: FileStream class>>serviceFileInSuffixes (in category 'file reader services') ----- + serviceFileInSuffixes + + ^ self sourceFileSuffixes! Item was added: + ----- Method: FileStream class>>serviceRemoveLineFeedsSuffixes (in category 'file reader services') ----- + serviceRemoveLineFeedsSuffixes + + ^ self sourceFileSuffixes! Item was changed: ----- Method: FileStream class>>services (in category 'file reader services') ----- services + ^ (((self class selectors copyWithout: #services) + select: [:symbol | symbol beginsWith: #service]) + reject: [:symbol | symbol endsWith: #Suffixes]) + collect: [:selector | self perform: selector]! - ^ Array - with: self serviceRemoveLineFeeds - with: self serviceFileIn - ! Item was added: + ----- Method: FileStream class>>servicesWithSuffixes (in category 'file reader services') ----- + servicesWithSuffixes + + ^ (((self class selectors copyWithout: #services) + select: [:symbol | symbol beginsWith: #service]) + reject: [:symbol | symbol endsWith: #Suffixes]) + collect: [:selector | + (self perform: (selector, #Suffixes) asSymbol) -> (self perform: selector)]!

1 0

Daily Commit Log
by commits＠source.squeak.org 06 Oct '15

06 Oct '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-October/008983.ht… Name: Morphic-mt.1010 Ancestors: Morphic-cmm.1009 Allow morphs to have custom corner radiuses when using the rounded corner style. =============================================

1 0

"callback failed to own the VM"
by Craig Latta 06 Oct '15

06 Oct '15

Hi-- What does it mean when I get "callback failed to own the VM" on stderr from cogspur? thanks again, -C -- Craig Latta netjam.org +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

2 3

The Trunk: Morphic-mt.1010.mcz
by commits＠source.squeak.org 06 Oct '15

06 Oct '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1010.mcz ==================== Summary ==================== Name: Morphic-mt.1010 Author: mt Time: 6 October 2015, 1:49:59.363 pm UUID: 5584d8ee-d8e6-1041-8d6f-076e24462426 Ancestors: Morphic-cmm.1009 Allow morphs to have custom corner radiuses when using the rounded corner style. =============== Diff against Morphic-cmm.1009 =============== Item was changed: ----- Method: Morph>>boundsWithinCorners (in category 'drawing') ----- boundsWithinCorners "Return a single sub-rectangle that lies entirely inside corners that are made by me. Used to identify large regions of window that do not need to be redrawn." ^ self wantsRoundedCorners + ifTrue: [self bounds insetBy: 0@self cornerRadius] - ifTrue: [self bounds insetBy: 0@self class preferredCornerRadius] ifFalse: [self bounds] ! Item was added: + ----- Method: Morph>>cornerRadius (in category 'rounding') ----- + cornerRadius + + ^ self + valueOfProperty: #cornerRadius + ifAbsent: [self class preferredCornerRadius]! Item was added: + ----- Method: Morph>>cornerRadius: (in category 'rounding') ----- + cornerRadius: radius + + self + setProperty: #cornerRadius + toValue: radius. + + self changed.! Item was changed: + ----- Method: Morph>>cornerStyle (in category 'rounding') ----- - ----- Method: Morph>>cornerStyle (in category 'visual properties') ----- cornerStyle "Returns one of the following symbols: #square #rounded according to the current corner style." ^ self valueOfProperty: #cornerStyle ifAbsent: [#square]! Item was changed: ----- Method: Morph>>drawDropHighlightOn: (in category 'drawing') ----- drawDropHighlightOn: aCanvas self highlightedForDrop ifTrue: [ self wantsRoundedCorners + ifTrue: [aCanvas frameRoundRect: self fullBounds radius: self cornerRadius width: 1 color: self dropHighlightColor] - ifTrue: [aCanvas frameRoundRect: self fullBounds radius: self class preferredCornerRadius width: 1 color: self dropHighlightColor] ifFalse: [aCanvas frameRectangle: self fullBounds color: self dropHighlightColor]].! Item was changed: ----- Method: Morph>>drawDropShadowOn: (in category 'drawing') ----- drawDropShadowOn: aCanvas "Rectangular shadow with support for rounded corners." | shadowBounds | shadowBounds := self shadowOffset isRectangle ifTrue: [self bounds outsetBy: self shadowOffset] ifFalse: [self bounds translateBy: (self shadowOffset negated max: 0@0)]. "Only redraw the shadow if the shadow area is affected." + ((aCanvas clipRect intersects: shadowBounds) and: [((self bounds insetBy: (self wantsRoundedCorners ifFalse: [0] ifTrue: [self cornerRadius])) containsRect: aCanvas clipRect) not]) - ((aCanvas clipRect intersects: shadowBounds) and: [((self bounds insetBy: (self wantsRoundedCorners ifFalse: [0] ifTrue: [self class preferredCornerRadius])) containsRect: aCanvas clipRect) not]) ifTrue: [ (self hasProperty: #dropShadow) ifFalse: [self updateDropShadowCache]. aCanvas translucentImage: (self valueOfProperty: #dropShadow) at: shadowBounds topLeft].! Item was changed: ----- Method: Morph>>drawKeyboardFocusIndicationOn: (in category 'drawing') ----- drawKeyboardFocusIndicationOn: aCanvas self wantsRoundedCorners + ifTrue: [aCanvas frameRoundRect: self bounds radius: self cornerRadius width: 3 "self borderStyle width" color: self keyboardFocusColor] - ifTrue: [aCanvas frameRoundRect: self bounds radius: self class preferredCornerRadius width: 3 "self borderStyle width" color: self keyboardFocusColor] ifFalse: [aCanvas frameRectangle: self bounds width: 3 "self borderStyle width" color: self keyboardFocusColor].! Item was changed: ----- Method: Morph>>drawMouseDownHighlightOn: (in category 'drawing') ----- drawMouseDownHighlightOn: aCanvas self highlightedForMouseDown ifTrue: [ self wantsRoundedCorners + ifTrue: [aCanvas frameRoundRect: self fullBounds radius: self cornerRadius width: 1 color: self color darker darker] - ifTrue: [aCanvas frameRoundRect: self fullBounds radius: self class preferredCornerRadius width: 1 color: self color darker darker] ifFalse: [aCanvas frameRectangle: self fullBounds color: self color darker darker]].! Item was changed: ----- Method: Morph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas self wantsRoundedCorners + ifTrue: [aCanvas frameAndFillRoundRect: self bounds radius: self cornerRadius fillStyle: self fillStyle borderWidth: self borderStyle width borderColor: self borderStyle color] - ifTrue: [aCanvas frameAndFillRoundRect: self bounds radius: self class preferredCornerRadius fillStyle: self fillStyle borderWidth: self borderStyle width borderColor: self borderStyle color] ifFalse: [aCanvas fillRectangle: self bounds fillStyle: self fillStyle borderStyle: self borderStyle]. ! Item was changed: ----- Method: Morph>>updateDropShadowCache (in category 'drawing') ----- updateDropShadowCache | shadowBounds offset form canvas drawBlock localBounds mask maskCanvas | shadowBounds := self shadowOffset isRectangle ifTrue: [0@0 corner: (self bounds outsetBy: self shadowOffset) extent] ifFalse: [0@0 corner: self extent + self shadowOffset abs]. offset := self shadowOffset isRectangle ifTrue: [0@0] ifFalse: [self shadowOffset max: 0@0]. localBounds := self shadowOffset isRectangle ifTrue: [self shadowOffset topLeft extent: self extent] ifFalse: [(self shadowOffset negated max: 0@0) extent: self extent]. form := Form extent: shadowBounds extent depth: Display depth. canvas := form getCanvas. drawBlock := self useSoftDropShadow ifFalse: [ [:c | self wantsRoundedCorners + ifTrue: [c fillRoundRect: localBounds radius: self cornerRadius fillStyle: self shadowColor] - ifTrue: [c fillRoundRect: localBounds radius: self class preferredCornerRadius fillStyle: self shadowColor] ifFalse: [c fillRectangle: localBounds fillStyle: self shadowColor]]] ifTrue: [ [:c | self wantsRoundedCorners ifTrue: [0 to: 9 do: [:i | c fillRoundRect: (shadowBounds insetBy: i) + radius: (self cornerRadius max: 20) -i - radius: (self class preferredCornerRadius max: 20) -i fillStyle: (self shadowColor alpha: self shadowColor alpha * (i+1))]] ifFalse: [0 to: 9 do: [:i | c fillRoundRect: (shadowBounds insetBy: i) radius: 20-i fillStyle: (self shadowColor alpha: self shadowColor alpha * (i+1))]]]]. canvas translateBy: offset during: [ :shadowCanvas | drawBlock value: shadowCanvas]. "Support transparent morph colors without having the shadow to shine through.." mask := Form extent: shadowBounds extent depth: Display depth. maskCanvas := mask getCanvas. self wantsRoundedCorners + ifTrue: [maskCanvas fillRoundRect: (localBounds insetBy: self borderWidth) radius: self cornerRadius fillStyle: Color black] - ifTrue: [maskCanvas fillRoundRect: (localBounds insetBy: self borderWidth) radius: self class preferredCornerRadius fillStyle: Color black] ifFalse: [maskCanvas fillRectangle: (localBounds insetBy: self borderWidth) fillStyle: Color black]. mask displayOn: form at: 0@0 rule: Form erase. self setProperty: #dropShadow toValue: form.! Item was changed: ----- Method: NewBalloonMorph>>drawDropShadowOn: (in category 'drawing') ----- drawDropShadowOn: aCanvas aCanvas translateBy: self shadowOffset during: [ :shadowCanvas | (shadowCanvas isVisible: self bubbleBounds) ifTrue: [ self wantsRoundedCorners + ifTrue: [shadowCanvas fillRoundRect: self bubbleBounds radius: self cornerRadius fillStyle: self shadowColor] - ifTrue: [shadowCanvas fillRoundRect: self bubbleBounds radius: self class preferredCornerRadius fillStyle: self shadowColor] ifFalse: [shadowCanvas fillRectangle: self bubbleBounds fillStyle: self shadowColor]]. self hasTail ifTrue: [ shadowCanvas drawPolygon: self verticesForTail fillStyle: self shadowColor]]. ! Item was changed: ----- Method: NewBalloonMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas "Bubble." self wantsRoundedCorners ifTrue: [aCanvas frameAndFillRoundRect: self bubbleBounds + radius: self cornerRadius fillStyle: self fillStyle borderWidth: self borderStyle width borderColor: self borderStyle color] - radius: self class preferredCornerRadius fillStyle: self fillStyle borderWidth: self borderStyle width borderColor: self borderStyle color] ifFalse: [aCanvas fillRectangle: self bubbleBounds fillStyle: self fillStyle borderStyle: self borderStyle]. "Tail." self hasTail ifTrue: [ self verticesForTail in: [:points | | pixelOffset | pixelOffset := points first y < points second y ifFalse: [points first x < points second x ifTrue: [self borderStyle width negated @ self borderStyle width] "bottomLeft" ifFalse: [self borderStyle width @ self borderStyle width]] "bottomRight" ifTrue: [points first x < points second x ifTrue: [self borderStyle width negated @ self borderStyle width negated] "topLeft" ifFalse: [self borderStyle width @ self borderStyle width negated]]. "topRight" aCanvas drawPolygon: points fillStyle: self fillStyle. aCanvas line: points first to: points second + pixelOffset width: self borderStyle width color: self borderStyle color. aCanvas line: points first to: points third + pixelOffset width: self borderStyle width color: self borderStyle color]]! Item was changed: ----- Method: NewBalloonMorph>>verticesForTail (in category 'drawing') ----- verticesForTail | offset factorX factorY tpos bpos | offset := 5 + (self wantsRoundedCorners + ifTrue: [self cornerRadius] - ifTrue: [self class preferredCornerRadius] ifFalse: [0]). tpos := self tailPosition. factorX := tpos x < self center x ifTrue: [1] ifFalse: [-1]. factorY := tpos y > self center y ifTrue: [1] ifFalse: [-1]. bpos := self bubbleBounds perform: self orientation. ^ { tpos. bpos + (((offset + self tailWidth) * factorX) @ (self borderStyle width negated * factorY)). bpos + ((offset * factorX) @ (self borderStyle width negated * factorY)).}! Item was changed: ----- Method: PluggableButtonMorph>>drawBackgroundOn: (in category 'drawing') ----- drawBackgroundOn: aCanvas | cc gradient borderColor fill | cc := self color. cc isTransparent ifTrue:[cc := Color gray: 0.9]. self enabled ifFalse:[cc := Color lightGray]. cc brightness > 0.9 ifTrue:[cc := cc adjustBrightness: 0.9 - cc brightness]. showSelectionFeedback ifTrue:[ borderColor := cc muchDarker. gradient := GradientFillStyle ramp: { 0.0 -> cc muchDarker. 0.1-> (cc adjustBrightness: -0.2). 0.5 -> cc. 0.9-> (cc adjustBrightness: -0.1). 1 -> cc muchDarker}. cc := cc muchDarker. ] ifFalse:[ borderColor := Color lightGray. gradient := GradientFillStyle ramp: { 0.0 -> Color white. 0.1-> (cc adjustBrightness: 0.05). 0.6 -> (cc darker)}. ]. gradient origin: bounds topLeft. gradient direction: 0@self height. PluggableButtonMorph gradientButton ifFalse: [fill := SolidFillStyle color: cc] ifTrue: [fill := gradient]. ^ self wantsRoundedCorners ifTrue: [aCanvas frameAndFillRoundRect: self bounds + radius: self cornerRadius - radius: self class preferredCornerRadius fillStyle: fill borderWidth: 1 borderColor: borderColor] ifFalse: [aCanvas frameAndFillRectangle: self bounds fillColor: fill asColor borderWidth: 1 borderColor: borderColor darker; fillRectangle: self innerBounds fillStyle: fill]! Item was changed: ----- Method: UserDialogBoxMorph>>drawSubmorphsOn: (in category 'drawing') ----- drawSubmorphsOn: aCanvas super drawSubmorphsOn: aCanvas. self wantsRoundedCorners ifTrue: [ "Overdraw lower part of title bar to hide bottom corners." aCanvas + fillRectangle: (self submorphs first "titleRow" bottomLeft - (-1 @ self submorphs first cornerRadius) - fillRectangle: (self submorphs first "titleRow" bottomLeft - (-1 @ Morph preferredCornerRadius) corner: self submorphs first "titleRow" bottomRight - (1@0)) color: self color].! Item was changed: ----- Method: UserDialogBoxMorph>>initialize (in category 'initialization') ----- initialize | titleRow cc | super initialize. self color: Color white. self listDirection: #topToBottom; wrapCentering: #center; hResizing: #shrinkWrap; vResizing: #shrinkWrap. self layoutInset: -1 @ -1; cellInset: 5@5. self borderStyle: BorderStyle thinGray. self setProperty: #indicateKeyboardFocus: toValue: #never. FillInTheBlankMorph roundedDialogCorners ifTrue: [self useRoundedCorners]. self hasDropShadow: Preferences menuAppearance3d. self useSoftDropShadow ifFalse: [ self shadowColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.666); shadowOffset: 1 @ 1] ifTrue: [ self shadowColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.01); shadowOffset: (10@8 corner: 10@12)]. cc := Color gray: 0.8. titleRow := AlignmentMorph newRow. titleRow hResizing: #spaceFill; vResizing: #shrinkWrap. self cornerStyle == #rounded ifTrue: [titleRow useRoundedCorners]. titleRow borderStyle: BorderStyle thinGray. + titleRow layoutInset: (5@5 corner: (2@ (5 + (titleRow cornerStyle == #rounded ifTrue: [titleRow cornerRadius] ifFalse: [0])))). - titleRow layoutInset: (5@5 corner: (2@ (5 + (titleRow cornerStyle == #rounded ifTrue: [Morph preferredCornerRadius] ifFalse: [0])))). titleRow color: cc. titleRow fillStyle: self titleGradient. titleMorph := StringMorph new. titleMorph emphasis: 1. titleRow addMorph: titleMorph. labelMorph := TextMorph new. labelMorph margins: (Preferences standardButtonFont widthOf: $x) * 2 @ 0. labelMorph lock. buttonRow := AlignmentMorph newRow vResizing: #rigid; height: (Preferences standardButtonFont height + 20); hResizing: #spaceFill; layoutInset: (((Preferences standardButtonFont widthOf: $x) * 2 @ 0) corner: ((Preferences standardButtonFont widthOf: $x) * 2 @ 10)); cellInset: (Preferences standardButtonFont widthOf: $x) * 2. buttonRow color: Color transparent. self addMorphBack: titleRow ; addMorphBack: labelMorph ; addMorphBack: buttonRow. keyMap := Dictionary new!

1 0

Thoughts on Xtreams
by Chris Cunnington 06 Oct '15

06 Oct '15

I'm using the Altitude web framework. It is based on Xtreams. I've tied myself into knots and now I have had an epiphany about what the problem is. I don't think I have a working model in my head about what Xtreams is doing or why. I'm going to say a few things here for other people hopefully to have a comment on. My conception of Streams comes from Ch. 10 of "Squeak By Example". This is a very friendly chapter (Thank you Stephane Ducasse), because the examples are short, complete and fit into a Workspace. There are some examples on the Xtreams Google Code page that do fit into a Workspace, but I don't think they help understanding Xtreams, really. There is a bigger picture solution that Xtreams addresses. I can see where it's pointing, I just cannot see how to use it yet. The problem is I keep wanting to see a whole stream at once, to put it into a Workspace. Xtreams does not let you see a whole stream coming over a socket at once. Ever. It's maddening. I want to see what I'm dealing with and then deal with it. All I see are classes piled on top of each other. And then I remembered a conversation I had at an event where someone said," Xtreams are just like the infinite streams described in 'The Structure And Interpretation Of Computer Programs', isn't that cool. You can process an infinite stream." Yes, I nodded. It sure is cool. I made a mental note to look up streams in SICP at a future date. This is that date. And the SICP has some fascinating things to say about streams. From section 3.5: "Stream processing lets us model systems that have state without ever using assignment or mutable data. This has important implications, both theoretical and practical, because we can build models that avoid drawbacks inherent in introducing assignment. On the other hand, the stream framework raises difficulties of its own, and the question of which modelling technique leads to more modular and easily maintained systems remains open." "Unfortunately, if we represent sequences as lists, this elegance is bought at the price of sever inefficiency with respect to both time and space required by our computations. When we represent manipulations on sequences as transformations of lists, our programs must construct and copy data structures (which may be huge) at every step of the process." Our current streams implementation is inefficient because it copies everything whole, which consumes masses of unnecessary memory. With Xtreams we can manage an infinitely long stream, saving resources. But it leads to the problem I've been complaining about which is I cannot see the stream I'm working on. That is something I'm going to have to adapt to. It sounds worth the effort. But as the first passage makes clear, it's modelling the data in a different, dare I say non-object oriented way (functional?). Why do we want Xtreams? It saves resources and allows us to process infinitely. In comparison, our Streams classes are crude and inefficient. What price do we have to pay? We need to mentally conceptualize streams in a different -- perhaps, extremely different -- way. I do not have a mental model for what Xtreams is doing yet. How do other people conceptualize using Xtreams in contrast to the existing Streams implementation? Chris

3 4

Re: [squeak-dev] Thoughts on Xtreams
by mkobetic＠gmail.com 06 Oct '15

06 Oct '15

"Chris Cunnington"<brasspen(a)gmail.com> wrote: > This has a functional feel because you cannot stop and examine things, > because a filter has no state. It's just passing things on. Once it's > composed, you need to wait until the end to see what happened. As such, > it can handle infinite strings, as suggested in the SICP. Debugging streams is definitely an issue that could use attention. To be fair I don't think it's any worse with Xtreams, than it is with the classic streams. Sure if you have an in-memory stream you just dive into the underlying collection, but that's the same with Xtreams. Frameworks like Altitude have very good reasons for not doing that however. Admittedly that doesn't change the fact that it's still challenging to debug those kinds of streams. There are some basic tools that could be used in some circumstances. There's DuplicateRead/WriteStream that can be injected at any point of the stream stack/pipeline to copy whatever flows through it into another destination (Transcript, Stdout, file etc). Problem is, you're usually handed a ready made stack of streams and you shouldn't be making assumptions about its composition. That however is exactly what a competent stream inspector needs to do. Ultimately it needs to break open the encapsulation, carefully step around the internals of whatever stream layer it's digging into without triggering a state change, and excavate whatever relevant bit of info there is. There is a poor man's skeleton of something like that in the printOn:/streamingPrintOn: methods, but it's too bare bones to be useful in many cases. TBH, I'm not convinced that's the right way to go about it either. > I think the word here is chunking. Since HTTP/1.1 came out I imagine > clients have been optimizing for this. Servers? Not so much. I imagine > that servers have never worked very hard to send data with the fine > level of granularity equivalent to what clients can receive. > But I suppose this is really about buffer size and flushing frequency. I > imagine Seaside could chunk its responses, but instead saves every > response into one large buffer and then flushes once. > With Altitude I can put 'self halt' in the middle of a page and watch > half a a page render. The buffer size is set to 1K and flushes when the > buffer is full, which doesn't take long. I'd say it's actually the other way around, it's the servers that care about chunking. The protocol requires that the server either specifies the size of the response in bytes, or it chunks (I'm deliberately ignoring HTTP1.0 zombie). So for any dynamically computed response the server will want to chunk. Otherwise it can't send any bytes until the full response is generated. Note that you may have to actually generate several copies of the content in various stages of transfer encoding in order to get correct final byte size. Stream processing + chunking is really the only sane way to handle that IMO. Browsers actually don't really care whether the response is chunked or not, they will partially render whatever fragment of the page they have as soon as they get it. Granted I'm handwaving over the much more complex reality of today's web pages. Regardless it's the server side where chunking enables sending incomplete response fragments. Martin

1 0

Daily Commit Log
by commits＠source.squeak.org 05 Oct '15

05 Oct '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-October/008980.ht… Name: Tools-cmm.634 Ancestors: Tools-cmm.620, Tools-eem.633 - IDE, please stop forcing a message category selection just because I accepted a method. If I want that, I'll simply press the hot-key, Shift+Command+C. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/008981.ht… Name: Morphic-cmm.1009 Ancestors: Morphic-cmm.1008, Morphic-mt.1007 Merged. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/008982.ht… Name: Morphic-cmm.1008 Ancestors: Morphic-mt.1005 Integrate 'Focus Follows Mouse' and 'Windows Raise On Click' features from X and Gnome. =============================================

1 0

The Trunk: Morphic-cmm.1008.mcz
by commits＠source.squeak.org 05 Oct '15

05 Oct '15

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1008.mcz ==================== Summary ==================== Name: Morphic-cmm.1008 Author: cmm Time: 14 September 2015, 2:27:11.585 pm UUID: 056757ae-538d-4a80-b9d2-0bd93c2b24c9 Ancestors: Morphic-mt.1005 Integrate 'Focus Follows Mouse' and 'Windows Raise On Click' features from X and Gnome. =============== Diff against Morphic-mt.1005 =============== Item was changed: ----- Method: CornerGripMorph>>mouseMove: (in category 'as yet unclassified') ----- mouseMove: anEvent | delta | target ifNil: [^ self]. target fastFramingOn ifTrue: [delta := target doFastWindowReframe: self ptName] ifFalse: [ + delta := lastMouse ifNil: [0@0] ifNotNil: [anEvent cursorPoint - lastMouse]. - delta := anEvent cursorPoint - lastMouse. lastMouse := anEvent cursorPoint. self apply: delta. self bounds: (self bounds origin + delta extent: self bounds extent)].! Item was changed: ----- Method: HandMorph>>handleEvent: (in category 'events-processing') ----- handleEvent: anEvent | evt ofs | owner ifNil:[^self]. evt := anEvent. EventStats ifNil:[EventStats := IdentityDictionary new]. EventStats at: #count put: (EventStats at: #count ifAbsent:[0]) + 1. EventStats at: evt type put: (EventStats at: evt type ifAbsent:[0]) + 1. evt isMouseOver ifTrue:[^self sendMouseEvent: evt]. ShowEvents == true ifTrue:[ + Display fill: (0@0 extent: 300@120) rule: Form over fillColor: Color white. - Display fill: (0@0 extent: 250@120) rule: Form over fillColor: Color white. ofs := (owner hands indexOf: self) - 1 * 60. + evt isKeyboard + ifTrue: [ 'key: ', evt printString displayAt: (0@ofs) + (0@30) ] + ifFalse: [ 'evt: ', evt printString displayAt: (0@ofs) + (0@0) ]. + 'kf: ', self keyboardFocus printString displayAt: (0@ofs)+(0@45). - evt printString displayAt: (0@ofs) + (evt isKeyboard ifTrue:[0@30] ifFalse:[0@0]). - self keyboardFocus printString displayAt: (0@ofs)+(0@45). ]. "Notify listeners" self sendListenEvent: evt to: self eventListeners. evt isWindowEvent ifTrue: [ self sendEvent: evt focus: nil. ^self mouseOverHandler processMouseOver: lastMouseEvent]. evt isKeyboard ifTrue:[ self sendListenEvent: evt to: self keyboardListeners. self sendKeyboardEvent: evt. ^self mouseOverHandler processMouseOver: lastMouseEvent]. evt isDropEvent ifTrue:[ self sendEvent: evt focus: nil. ^self mouseOverHandler processMouseOver: lastMouseEvent]. evt isMouse ifTrue:[ self sendListenEvent: evt to: self mouseListeners. lastMouseEvent := evt]. "Check for pending drag or double click operations." mouseClickState ifNotNil:[ (mouseClickState handleEvent: evt from: self) ifFalse:[ "Possibly dispatched #click: or something and will not re-establish otherwise" ^self mouseOverHandler processMouseOver: lastMouseEvent]]. evt isMove ifTrue:[ self position: evt position. self sendMouseEvent: evt. ] ifFalse:[ "Issue a synthetic move event if we're not at the position of the event" (evt position = self position) ifFalse:[self moveToEvent: evt]. "Drop submorphs on button events" (self hasSubmorphs) ifTrue:[self dropMorphs: evt] ifFalse:[self sendMouseEvent: evt]. ]. + ShowEvents == true ifTrue:['mf: ', self mouseFocus printString displayAt: (0@ofs) + (0@15)]. - ShowEvents == true ifTrue:[self mouseFocus printString displayAt: (0@ofs) + (0@15)]. self mouseOverHandler processMouseOver: lastMouseEvent. "self handleDragOutside: anEvent." ! Item was added: + ----- Method: HandMorph>>windowUnderneath (in category 'accessing') ----- + windowUnderneath + ActiveWorld submorphsDo: + [ : each | (each isSystemWindow and: [ each containsPoint: self position ]) ifTrue: [ ^ each ] ]. + ^ nil! Item was changed: ----- Method: Morph>>handleMouseDown: (in category 'events-processing') ----- handleMouseDown: anEvent "System level event handling." anEvent wasHandled ifTrue:[^self]. "not interested" anEvent hand removePendingBalloonFor: self. anEvent hand removePendingHaloFor: self. anEvent wasHandled: true. (anEvent controlKeyPressed and: [anEvent blueButtonChanged not and: [Preferences cmdGesturesEnabled]]) ifTrue: [^ self invokeMetaMenu: anEvent]. "Make me modal during mouse transitions" anEvent hand newMouseFocus: self event: anEvent. anEvent blueButtonChanged ifTrue:[^self blueButtonDown: anEvent]. "this mouse down could be the start of a gesture, or the end of a gesture focus" (self isGestureStart: anEvent) ifTrue: [^ self gestureStart: anEvent]. + "Filter events sent to the subwidgets of non-MorphicModels in inactive windows, if they are not supposed to receive them due to windowActiveOnFirstClick being set to false. I don't like having this check for owningWindow here, is there another way?" + SystemWindow allWindowsAcceptInput + ifTrue: + [ self owningWindow + ifNil: [ self mouseDown: anEvent ] + ifNotNil: + [ : owningWindow | + (owningWindow canProcessMouseDown: anEvent) + ifTrue: [ self mouseDown: anEvent ] + ifFalse: [ owningWindow activate ] ] ] + ifFalse: [ self mouseDown: anEvent ]. - self mouseDown: anEvent. Preferences maintainHalos ifFalse:[ anEvent hand removeHaloFromClick: anEvent on: self ]. (self handlesMouseStillDown: anEvent) ifTrue:[ self startStepping: #handleMouseStillDown: at: Time millisecondClockValue + self mouseStillDownThreshold arguments: {anEvent copy resetHandlerFields} stepTime: self mouseStillDownStepRate ]. ! Item was changed: ----- Method: Morph>>keyboardFocusChange: (in category 'event handling') ----- + keyboardFocusChange: aBoolean - keyboardFocusChange: aBoolean "The message is sent to a morph when its keyboard focus change. The given argument indicates that the receiver is gaining keyboard focus (versus losing) the keyboard focus. Morphs that accept keystrokes should change their appearance in some way when they are the current keyboard focus." + self eventHandler ifNotNil: + [ : h | h + keyboardFocusChange: aBoolean + fromMorph: self ]. + "Support for 'Focus Follows Mouse'. Want the window to maintain focus even after the pointer moves into its title bar." + self owningWindow ifNotNil: [ : window | window lookFocused: (aBoolean or: [ window containsPoint: ActiveHand position]) ]. + self indicateKeyboardFocus ifTrue: [ self changed ]! - - self eventHandler - ifNotNil: [:h | h keyboardFocusChange: aBoolean fromMorph: self]. - - self indicateKeyboardFocus - ifTrue: [self changed].! Item was added: + ----- Method: Morph>>owningWindow (in category 'private') ----- + owningWindow + self withAllOwnersDo: [ : each | each isSystemWindow ifTrue: [ ^ each ] ]. + ^ nil! Item was added: + ----- Method: MorphicModel>>handleMouseDown: (in category 'events-processing') ----- + handleMouseDown: aMouseEvent + SystemWindow allWindowsAcceptInput ifTrue: + [ "This override is needed so that, when 'Window Active On First Click' is false, clicking on a PluggableListMorph of an inactive window will, correctly, NOT update the selection in the list; it will only activate the window." + aMouseEvent blueButtonChanged ifFalse: + [ self owningWindow ifNotNil: + [ : window | (window canProcessMouseDown: aMouseEvent) ifFalse: [ ^ window activate ]. + Model windowActiveOnFirstClick ifTrue: [ window activate ] ] ] ]. + super handleMouseDown: aMouseEvent! Item was changed: ----- Method: PluggableListMorph>>mouseEnter: (in category 'events') ----- + mouseEnter: event - mouseEnter: event - super mouseEnter: event. + (SystemWindow allWindowsAcceptInput or: [ Preferences mouseOverForKeyboardFocus ]) ifTrue: [ event hand newKeyboardFocus: self ]! - - Preferences mouseOverForKeyboardFocus ifTrue:[ - event hand newKeyboardFocus: self. ]! Item was changed: ----- Method: PluggableListMorph>>mouseLeave: (in category 'events') ----- + mouseLeave: event + "The mouse has left the bounds of the receiver" - mouseLeave: event - "The mouse has left the area of the receiver" - super mouseLeave: event. - self hoverRow: nil. + (SystemWindow allWindowsAcceptInput or: [ Preferences mouseOverForKeyboardFocus ]) ifTrue: [ event hand releaseKeyboardFocus: self ]! - - Preferences mouseOverForKeyboardFocus ifTrue:[ - event hand releaseKeyboardFocus: self].! Item was changed: ----- Method: PluggableTextMorph>>mouseEnter: (in category 'event handling') ----- mouseEnter: event super mouseEnter: event. selectionInterval ifNotNil: [textMorph editor selectInterval: selectionInterval; setEmphasisHere]. textMorph selectionChanged. + (SystemWindow allWindowsAcceptInput or: [ Preferences mouseOverForKeyboardFocus ]) ifTrue:[ - Preferences mouseOverForKeyboardFocus ifTrue:[ event hand newKeyboardFocus: self]! Item was changed: ----- Method: PluggableTextMorph>>mouseLeave: (in category 'event handling') ----- mouseLeave: event + "The mouse has left the bounds of the receiver" - "The mouse has left the area of the receiver" - textMorph ifNotNil: [selectionInterval := textMorph editor selectionInterval]. super mouseLeave: event. + (SystemWindow allWindowsAcceptInput or: [ Preferences mouseOverForKeyboardFocus ]) ifTrue: - Preferences mouseOverForKeyboardFocus ifTrue: [event hand releaseKeyboardFocus: self]! Item was changed: ----- Method: ProportionalSplitterMorph>>proposedCorrectionWouldCauseFocusChange: (in category 'layout') ----- proposedCorrectionWouldCauseFocusChange: correction + ^ (SystemWindow allWindowsAcceptInput or: [ Preferences mouseOverForKeyboardFocus ]) and: - ^ Preferences mouseOverForKeyboardFocus and: [ | edge | splitsTopAndBottom ifTrue: [ edge := correction positive ifTrue: [ self bottom + 3 ] ifFalse: [ self top - 3 ]. ActiveHand position y inRangeOf: edge and: edge + correction ] ifFalse: [ edge := correction positive ifTrue: [ self right ] ifFalse: [ self left ]. ActiveHand position x inRangeOf: edge and: edge + correction ] ]! Item was changed: ----- Method: ScrollPane>>mouseEnter: (in category 'event handling') ----- mouseEnter: event + (SystemWindow allWindowsAcceptInput or: [ Preferences mouseOverForKeyboardFocus ]) ifTrue:[hasFocus := true]. - Preferences mouseOverForKeyboardFocus ifTrue:[hasFocus := true]. (owner isSystemWindow) ifTrue: [owner paneTransition: event]. retractableScrollBar ifTrue:[ self hideOrShowScrollBars ]. ! Item was changed: ----- Method: ScrollPane>>mouseLeave: (in category 'event handling') ----- mouseLeave: event + (SystemWindow allWindowsAcceptInput or: [ Preferences mouseOverForKeyboardFocus ]) ifTrue:[hasFocus := false]. - Preferences mouseOverForKeyboardFocus ifTrue:[hasFocus := false]. retractableScrollBar ifTrue: [self hideScrollBars]. (owner isSystemWindow) ifTrue: [owner paneTransition: event] ! Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseLeave: (in category 'event handling') ----- mouseLeave: aMouseEvent super mouseLeave: aMouseEvent. + (SystemWindow allWindowsAcceptInput or: [ Preferences mouseOverForKeyboardFocus ]) ifTrue: [ aMouseEvent hand releaseKeyboardFocus: self ]! - Preferences mouseOverForKeyboardFocus ifTrue: [ aMouseEvent hand releaseKeyboardFocus: self ]! Item was changed: MorphicModel subclass: #SystemWindow instanceVariableNames: 'labelString stripes label closeBox collapseBox activeOnlyOnTop paneMorphs paneRects collapsedFrame fullFrame isCollapsed menuBox mustNotClose labelWidgetAllowance updatablePanes allowReframeHandles labelArea expandBox' + classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImageFlat CloseBoxImageGradient CollapseBoxImageFlat CollapseBoxImageGradient DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImageFlat ExpandBoxImageGradient FocusFollowsMouse GradientWindow HideExpandButton MenuBoxFrame MenuBoxImageFlat MenuBoxImageGradient ResizeAlongEdges ReuseWindows TopWindow WindowsRaiseOnClick' - classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImageFlat CloseBoxImageGradient CollapseBoxImageFlat CollapseBoxImageGradient DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImageFlat ExpandBoxImageGradient GradientWindow HideExpandButton MenuBoxFrame MenuBoxImageFlat MenuBoxImageGradient ResizeAlongEdges ReuseWindows TopWindow' poolDictionaries: '' category: 'Morphic-Windows'! !SystemWindow commentStamp: '<historical>' prior: 0! SystemWindow is the Morphic equivalent of StandardSystemView -- a labelled container for rectangular views, with iconic facilities for close, collapse/expand, and resizing. The attribute onlyActiveOnTop, if set to true (and any call to activate will set this), determines that only the top member of a collection of such windows on the screen shall be active. To be not active means that a mouse click in any region will only result in bringing the window to the top and then making it active.! Item was added: + ----- Method: SystemWindow class>>allWindowsAcceptInput (in category 'private') ----- + allWindowsAcceptInput + "With either of these two preferences settings, inactive windows will not have their widgets locked. All windows accept input as if they were active." + ^ self focusFollowsMouse or: [ self windowsRaiseOnClick not ]! Item was added: + ----- Method: SystemWindow class>>focusFollowsMouse (in category 'preferences') ----- + focusFollowsMouse + <preference: 'Focus Follows Mouse' + category: 'windows' + description: 'When true, the widget under the hand has keyboard focus.' + type: #Boolean> + ^ FocusFollowsMouse ifNil: [ false ]! Item was added: + ----- Method: SystemWindow class>>focusFollowsMouse: (in category 'preferences') ----- + focusFollowsMouse: aBoolean + (FocusFollowsMouse := aBoolean) == true. + self reconfigureWindowsForFocus! Item was added: + ----- Method: SystemWindow class>>reconfigureWindowsForFocus (in category 'private') ----- + reconfigureWindowsForFocus + self withAllSubclasses do: + [ : eachSubclass | eachSubclass allInstances do: + [ : eachInstance | eachInstance configureFocus ] ]! Item was added: + ----- Method: SystemWindow class>>windowsRaiseOnClick (in category 'preferences') ----- + windowsRaiseOnClick + <preference: 'Windows Raise On Click' + category: 'windows' + description: 'If true, a click anywhere within a window will raise it above all other windows to become the active window. If false, it won''t.' + type: #Boolean> + ^ WindowsRaiseOnClick ifNil: [ true ]! Item was added: + ----- Method: SystemWindow class>>windowsRaiseOnClick: (in category 'preferences') ----- + windowsRaiseOnClick: aBoolean + (WindowsRaiseOnClick := aBoolean == true). + self reconfigureWindowsForFocus! Item was changed: ----- Method: SystemWindow>>activate (in category 'top window') ----- activate "Activate the owner too." |mo mc| mo := self modalOwner. mc := self modalChild. mc isNil ifFalse: [mc owner notNil ifTrue: [ mc activate. ^mc modalChild isNil ifTrue: [mc flash]]]. (isCollapsed not and: [ self paneMorphs size > 1 and: [ self splitters isEmpty ] ]) ifTrue: [ self addPaneSplitters ]. self activateWindow. self rememberedKeyboardFocus ifNil: [(self respondsTo: #navigateFocusForward) ifTrue: [self navigateFocusForward]] ifNotNil: [:m | m world ifNil: [self rememberKeyboardFocus: nil] "deleted" ifNotNil: [:w | m wantsKeyboardFocus ifTrue: [m takeKeyboardFocus] ifFalse: [(self respondsTo: #navigateFocusForward) ifTrue: [self navigateFocusForward]]]]. + (mo notNil and: [mo isSystemWindow]) - (mo notNil and: [mo isKindOf: SystemWindow]) ifTrue: [mo bringBehind: self]! Item was changed: ----- Method: SystemWindow>>activateWindow (in category 'top window') ----- activateWindow "Bring me to the front and make me able to respond to mouse and keyboard. Was #activate (sw 5/18/2001 23:20)" + | oldTop outerMorph sketchEditor pal windowUnderneath | - - | oldTop outerMorph sketchEditor pal | - self hasDropShadow: Preferences menuAppearance3d. - outerMorph := self topRendererOrSelf. outerMorph owner ifNil: [^ self "avoid spurious activate when drop in trash"]. + self hasDropShadow: Preferences menuAppearance3d. oldTop := TopWindow. oldTop = self ifTrue: [^self]. TopWindow := self. oldTop ifNotNil: [oldTop passivate]. outerMorph owner firstSubmorph == outerMorph ifFalse: ["Bring me (with any flex) to the top if not already" outerMorph owner addMorphFront: outerMorph]. + self configureFocus. - self submorphsDo: [:m | m unlock]. - - label ifNotNil: [label color: Color black]. - - self undimWindowButtons. - labelArea ifNotNil: [labelArea submorphsDo: [:m | m unlock; show]]. - self - setStripeColorsFrom: self paneColorToUse; - adoptPaneColor: self paneColorToUse. - self isCollapsed ifFalse: [model modelWakeUpIn: self. self positionSubmorphs. labelArea ifNil: [self adjustBorderUponActivationWhenLabeless]]. - (sketchEditor := self extantSketchEditor) ifNotNil: [sketchEditor comeToFront. (pal := self world findA: PaintBoxMorph) ifNotNil: [pal comeToFront]]. + self updatePaneColors. + "Newly spawned windows are normally active, but if focusFollowsMouse is set, then the focused window can only be the one under the hand." + (self class allWindowsAcceptInput not or: [ (windowUnderneath := ActiveHand windowUnderneath) isNil or: [ windowUnderneath == self ] ]) + ifTrue: [ self lookFocused ] + ifFalse: [ self lookUnfocused ]! - - self updatePaneColors.! Item was added: + ----- Method: SystemWindow>>canProcessMouseDown: (in category 'top window') ----- + canProcessMouseDown: anEvent + "In case 'Focus Follows Mouse' is set, then there are two possibilities for mouse input on a background window: if 'Window Active On First Click' is set, it must be honored and the window must be activated. If it is not set, then the behavior depends on 'Windows Raise On Click' setting. If its true, then just activate the window and DON'T process aMouseEvent. If false, then process the event in any case." + ^ self isActive or: [ Model windowActiveOnFirstClick or: [ SystemWindow windowsRaiseOnClick not ] ]! Item was added: + ----- Method: SystemWindow>>configureFocus (in category 'top window') ----- + configureFocus + "Make me unable to respond to mouse and keyboard unless allWindowsAcceptInput is set or 'Window Active On First Click' is unset. Otherwise, the classic Squeak behavior of Control boxes remaining active, except in novice mode." + self submorphsDo: + [ : each | each lock: + (self isActive not and: + [ each == labelArea + ifTrue: [ self class windowsRaiseOnClick not ] + ifFalse: [ self class allWindowsAcceptInput not ] ]) ]. + labelArea + ifNil: [ "i.e. label area is nil, so we're titleless" + self adjustBorderUponDeactivationWhenLabeless ] + ifNotNil: + [ labelArea submorphsDo: + [ : each | | classicSqueakBehavior | + classicSqueakBehavior := self class allWindowsAcceptInput not. + each lock: + (classicSqueakBehavior + ifTrue: + [ self isActive not and: + [ Preferences noviceMode or: + [ each ~~ closeBox and: [ each ~~ collapseBox ] ] ] ] + ifFalse: + [ self isActive not and: [ Model windowActiveOnFirstClick not ] ]) ] ]! Item was changed: ----- Method: SystemWindow>>handleListenEvent: (in category 'events') ----- handleListenEvent: evt "Make sure we lock our contents after DnD has finished" evt isMouse ifFalse:[^self]. evt hand hasSubmorphs ifTrue:[^self]. "still dragging" + (self isActive and: [ self class allWindowsAcceptInput not ]) ifFalse: [self configureFocus]. - self == TopWindow ifFalse:[self lockInactivePortions]. evt hand removeMouseListener: self.! Item was added: + ----- Method: SystemWindow>>handlesMouseOver: (in category 'events') ----- + handlesMouseOver: anEvent + ^ true! Item was removed: - ----- Method: SystemWindow>>lockInactivePortions (in category 'top window') ----- - lockInactivePortions - "Make me unable to respond to mouse and keyboard. Control boxes remain active, except in novice mode" - - self submorphsDo: [:m | m == labelArea ifFalse: [m lock]]. - self dimWindowButtons. - labelArea ifNotNil: - [labelArea submorphsDo: - [:m | - (Preferences noviceMode or: [m ~~ closeBox and: [m ~~ collapseBox]]) - ifTrue: [m lock]]] - ifNil: "i.e. label area is nil, so we're titleless" - [self adjustBorderUponDeactivationWhenLabeless].! Item was added: + ----- Method: SystemWindow>>lookFocused (in category 'top window') ----- + lookFocused + label ifNotNil: [ label color: Color black ]. + (self isActive or: [Model windowActiveOnFirstClick]) ifTrue: [ self undimWindowButtons ]. + self + updatePaneColors ; + adoptPaneColor: self paneColorToUse! Item was added: + ----- Method: SystemWindow>>lookFocused: (in category 'top window') ----- + lookFocused: aBoolean + aBoolean + ifTrue: [ self lookFocused ] + ifFalse: [ self lookUnfocused ]! Item was added: + ----- Method: SystemWindow>>lookUnfocused (in category 'top window') ----- + lookUnfocused + label ifNotNil: [ label color: Color darkGray ]. + self dimWindowButtons. + self paneColorToUseWhenNotActive in: + [ : color | self + setStripeColorsFrom: color ; + adoptPaneColor: color ]! Item was added: + ----- Method: SystemWindow>>mouseEnter: (in category 'events') ----- + mouseEnter: anEvent + "Handle a mouseEnter event, meaning the mouse just entered my bounds with no button pressed. The default response is to let my eventHandler, if any, handle it." + super mouseEnter: anEvent. + self class allWindowsAcceptInput ifTrue: [ self lookFocused ]! Item was added: + ----- Method: SystemWindow>>mouseLeave: (in category 'events') ----- + mouseLeave: anEvent + "Handle a mouseEnter event, meaning the mouse just entered my bounds with no button pressed. The default response is to let my eventHandler, if any, handle it." + super mouseLeave: anEvent. + self class allWindowsAcceptInput ifTrue: [ self lookUnfocused ]! Item was changed: ----- Method: SystemWindow>>mouseLeaveDragging: (in category 'events') ----- mouseLeaveDragging: evt "lock children after drop operations" + (self isActive and:[evt hand hasSubmorphs and: [self class allWindowsAcceptInput not]]) ifTrue:[ + self configureFocus. - (self ~~ TopWindow and:[evt hand hasSubmorphs]) ifTrue:[ - self lockInactivePortions. evt hand removeMouseListener: self. ].! Item was changed: ----- Method: SystemWindow>>passivate (in category 'top window') ----- passivate + "Lose my drop shadlow and reconfigure my focus according to preferences." + self + hasDropShadow: false ; + configureFocus ; + lookUnfocused. + model modelSleep! - "Make me unable to respond to mouse and keyboard" - - label ifNotNil: [label color: Color darkGray]. - - self hasDropShadow: false. - self paneColorToUseWhenNotActive in: [:c | - self - setStripeColorsFrom: c; - adoptPaneColor: c]. - - model modelSleep. - - self lockInactivePortions - ! Item was changed: ----- Method: SystemWindowButton>>mouseEnter: (in category 'visual properties') ----- + mouseEnter: evt + | classicSqueakBehavior | + classicSqueakBehavior := SystemWindow allWindowsAcceptInput not. + classicSqueakBehavior + ifTrue: [ self highlight ] + ifFalse: + [ self owningWindow ifNotNil: + [ : window | (window isActive or: [ Model windowActiveOnFirstClick ]) ifTrue: [ self highlight ] ] ]! - mouseEnter: evt - - self highlight. - ! Item was changed: ----- Method: TextMorphForEditView>>mouseUp: (in category 'event handling') ----- mouseUp: evt super mouseUp: evt. self stopSteppingSelector: #autoScrollView:. + SystemWindow allWindowsAcceptInput ifFalse: [editView scrollSelectionIntoView: evt]. - editView scrollSelectionIntoView: evt. - self setCompositionWindow. !

1 0

Jump to page: