Squeak-dev September 2011

squeak-dev@lists.squeakfoundation.org

64 participants
208 discussions

The Trunk: NetworkTests-ar.23.mcz
by commits＠source.squeak.org 04 Sep '11

04 Sep '11

Andreas Raab uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ar.23.mcz ==================== Summary ==================== Name: NetworkTests-ar.23 Author: ar Time: 4 September 2011, 3:54:10.746 pm UUID: e2c9e9ca-77a8-974e-ab13-981e381e586b Ancestors: NetworkTests-ar.22 A few more socket tests. =============== Diff against NetworkTests-ar.22 =============== Item was added: + ----- Method: SocketTest>>testReceiveTimeout (in category 'tests') ----- + testReceiveTimeout + "Test data transfer and related methods" + + self testServerAccept. + self assert: (serverSocket receiveDataTimeout: 1) isEmpty.! Item was added: + ----- Method: SocketTest>>testSendTimeout (in category 'tests') ----- + testSendTimeout + "Test data transfer and related methods" + + | buffer | + self testServerAccept. + buffer := ByteArray new: 1000. + [serverSocket sendDone] whileTrue:[ + serverSocket sendSomeData: buffer. + ]. + self should:[serverSocket sendSomeData: buffer startIndex: 1 count: buffer size for: 1] + raise: ConnectionTimedOut. + ! Item was added: + ----- Method: SocketTest>>testSocketReuse (in category 'tests') ----- + testSocketReuse + "Test for SO_REUSEADDR/SO_REUSEPORT" + + | address port udp1 send1 udp2 recv2 sendProc recvProc received | + address := #[255 255 255 255]. "broadcast" + port := 31259. + [ + udp1 := Socket newUDP. + udp1 setOption: 'SO_REUSEADDR' value: 1. + udp1 setOption: 'SO_REUSEPORT' value: 1. + udp1 setPort: port. + udp1 setOption: 'SO_BROADCAST' value: 1. + send1 := UUID new. + + udp2 := Socket newUDP. + udp2 setOption: 'SO_REUSEADDR' value: 1. + udp2 setOption: 'SO_REUSEPORT' value: 1. + udp2 setPort: port. + udp2 setOption: 'SO_BROADCAST' value: 1. + recv2 := UUID new. + + received := 0. + recvProc := [ + [received < 16] whileTrue:[ + received := received + (udp2 receiveDataInto: recv2 startingAt: received + 1). + ] + ] fork. + sendProc := [ + udp1 setPeer: address port: port. + udp1 sendData: send1 count: 16. + ] fork. + (Delay forMilliseconds: 200) wait. + self should: [recvProc isTerminated]. + self should: [sendProc isTerminated]. + self should: [send1 = recv2]. + ] ensure:[ + udp1 destroy. + udp2 destroy. + ]. + ! Item was added: + ----- Method: SocketTest>>testUDP (in category 'tests') ----- + testUDP + "Test udp recv() and send() functionality" + + serverSocket := Socket newUDP. + serverSocket setPort: 54321. + + clientSocket := Socket newUDP. + clientSocket setPeer: NetNameResolver localHostAddress port: serverSocket port. + clientSocket sendData: 'Hello World'. + + (Delay forMilliseconds: 200) wait. + + self assert: (serverSocket dataAvailable). + self assert: (serverSocket receiveData = 'Hello World'). + !

1 0

Pharo compatibility
by Frank Shearar 04 Sep '11

04 Sep '11

As I threatened a while back, I've started up a "Pharo shim" - a package that adds to a Squeak image those messages necessary to get interesting Pharo projects working in Squeak: http://www.squeaksource.com/PharoCompatibility At the moment "interesting projects" means "PetitParser", and so the shim merely contains Symbol >> #isBinary. Going forwards, as I find other bits necessary - my upcoming Helvetia/LanguageBoxes work will no doubt uncover bits and pieces - I'll add to Pharo-Compatibility. I expect some bits to make their way into trunk, and we can regard Pharo-Compatibility as a proving ground of sorts. frank

4 3

initial send
by Bob Wachholder 04 Sep '11

04 Sep '11

new to list

2 1

Daily Commit Log
by commits＠source.squeak.org 03 Sep '11

03 Sep '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-September/004942.… Name: Morphic-nice.572 Ancestors: Morphic-cmm.571 1) Restore ancient behaviour of selecting whole text when clicking twice before first, or twice after last character. 2) avoid mutating the class of an instVar gratuitously in MouseOverHandler>>processMouseOver: enteredMorphs := enteredMorphs contents. The enteredMorphs inst var should be either a Stream or a Collection, but not sometimes a Stream, sometimes a Collection,. The finite state machine coded in MouseOverHandler is already complex enough IMHO. Such tricks are traps on future programmers track and are contributing to the fragility of construction. Unless Stream and Collection become polymorphic of course, but in this case, mutating the class would be quite useless... =============================================

1 0

unrecognized unicode characters
by Gonzalo Romano 02 Sep '11

02 Sep '11

Hi, I'been working on a script to fix some xml files for a web application, and I'm having some trouble with character encoding. Tt seems there are some characters that squeak does not recognize like "..." -> u2026, u2014, that ms word uses on their text files... Could anyone confirm this?, and maybe provide a workaround... thanks in advance! -- Gonzalo, Romano

2 5

The Trunk: Morphic-nice.572.mcz
by commits＠source.squeak.org 02 Sep '11

02 Sep '11

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.572.mcz ==================== Summary ==================== Name: Morphic-nice.572 Author: nice Time: 2 September 2011, 8:36:00.946 pm UUID: 61bf030f-3bd4-416a-9e51-e8b7dba0eaec Ancestors: Morphic-cmm.571 1) Restore ancient behaviour of selecting whole text when clicking twice before first, or twice after last character. 2) avoid mutating the class of an instVar gratuitously in MouseOverHandler>>processMouseOver: enteredMorphs := enteredMorphs contents. The enteredMorphs inst var should be either a Stream or a Collection, but not sometimes a Stream, sometimes a Collection,. The finite state machine coded in MouseOverHandler is already complex enough IMHO. Such tricks are traps on future programmers track and are contributing to the fragility of construction. Unless Stream and Collection become polymorphic of course, but in this case, mutating the class would be quite useless... =============== Diff against Morphic-cmm.571 =============== Item was changed: ----- Method: Editor>>selectWordLeftDelimiters:rightDelimiters: (in category 'new selection') ----- selectWordLeftDelimiters: leftDelimiters rightDelimiters: rightDelimiters "Select delimited text or word--the result of double-clicking." | openDelimiter closeDelimiter direction match level string here hereChar start stop | string := self string. string size < 2 ifTrue: [^self]. + here := self pointIndex. + "Select the whole text when clicking before first or after last character" + (here > string size or: [here < 2]) ifTrue: [^self selectFrom: 1 to: string size]. - here := self pointIndex min: string size max: 2. openDelimiter := string at: here - 1. match := leftDelimiters indexOf: openDelimiter. match > 0 ifTrue: [ "delimiter is on left -- match to the right" start := here. direction := 1. here := here - 1. closeDelimiter := rightDelimiters at: match] ifFalse: [ openDelimiter := string at: here. match := rightDelimiters indexOf: openDelimiter. match > 0 ifTrue: [ "delimiter is on right -- match to the left" stop := here - 1. direction := -1. closeDelimiter := leftDelimiters at: match] ifFalse: [ "no delimiters -- select a token" direction := -1]]. level := 1. [level > 0 and: [direction > 0 ifTrue: [here < string size] ifFalse: [here > 1]]] whileTrue: [ hereChar := string at: (here := here + direction). match = 0 ifTrue: ["token scan goes left, then right" hereChar tokenish ifTrue: [here = 1 ifTrue: [ start := 1. "go right if hit string start" direction := 1]] ifFalse: [ direction < 0 ifTrue: [ start := here + 1. "go right if hit non-token" direction := 1] ifFalse: [level := 0]]] ifFalse: ["bracket match just counts nesting level" hereChar = closeDelimiter ifTrue: [level := level - 1"leaving nest"] ifFalse: [hereChar = openDelimiter ifTrue: [level := level + 1"entering deeper nest"]]]]. level > 0 ifTrue: ["in case ran off string end" here := here + direction]. + ^direction > 0 - direction > 0 ifTrue: [self selectFrom: start to: here - 1] ifFalse: [self selectFrom: here + 1 to: stop]! Item was changed: ----- Method: MouseOverHandler>>processMouseOver: (in category 'event handling') ----- processMouseOver: anEvent "Re-establish the z-order for all morphs wrt the given event" | hand localEvt focus evt | hand := anEvent hand. leftMorphs := mouseOverMorphs asIdentitySet. "Assume some coherence for the number of objects in over list" overMorphs := WriteStream on: (Array new: leftMorphs size). enteredMorphs := WriteStream on: #(). "Now go looking for eventual mouse overs" hand handleEvent: anEvent asMouseOver. "Get out early if there's no change" (leftMorphs isEmpty and: [ enteredMorphs position = 0 ]) ifTrue: [ ^self initializeTrackedMorphs ]. focus := hand mouseFocus. "Send #mouseLeave as appropriate" evt := anEvent asMouseLeave. "Keep the order of the left morphs by recreating it from the mouseOverMorphs" leftMorphs size > 1 + ifTrue: + [leftMorphs := mouseOverMorphs select: [:m | leftMorphs includes: m]]. + leftMorphs do: [ :m | + (m == focus or: [m hasOwner: focus]) + ifFalse: [ overMorphs nextPut: m ] + ifTrue: + [ localEvt := evt transformedBy: (m transformedFrom: hand). + m handleEvent: localEvt ] ]. - ifTrue: [leftMorphs := mouseOverMorphs select: [:m | leftMorphs includes: m]]. - leftMorphs do: [ :m | - (m == focus or: [m hasOwner: focus]) - ifFalse: [ overMorphs nextPut: m ] - ifTrue: [ - localEvt := evt transformedBy: (m transformedFrom: hand). - m handleEvent: localEvt ] ]. enteredMorphs ifNil: [ "inform: was called in handleEvent:" ^self initializeTrackedMorphs ]. "Send #mouseEnter as appropriate" evt := anEvent asMouseEnter. + enteredMorphs contents reverseDo: [ :m | - enteredMorphs := enteredMorphs contents. - enteredMorphs reverseDo: [ :m | (m == focus or: [m hasOwner: focus]) ifTrue: [ localEvt := evt transformedBy: (m transformedFrom: hand). m handleEvent: localEvt ] ]. "And remember the over list" + overMorphs ifNotNil: [ mouseOverMorphs := overMorphs contents ]. - overMorphs ifNotNil: [ - mouseOverMorphs := overMorphs contents ]. self initializeTrackedMorphs!

1 0

Goodie
by Chris Muller 01 Sep '11

01 Sep '11

I've been using and refining this for at least a week and really liking it. With this new preference, "Filterable Lists", when you type inside a list, instead of only navigating to the item that begins with that key-sequence, it will exclude the non-matching items altogether, and even order the front-matching ones to the top. To return the list to unfiltered state, press either the Enter key or Backspace key. I like to type * on the Monticello list to see just my dirty packages. - Chris

1 0

The Inbox: Morphic-cmm.577.mcz
by commits＠source.squeak.org 01 Sep '11

01 Sep '11

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-cmm.577.mcz ==================== Summary ==================== Name: Morphic-cmm.577 Author: cmm Time: 29 August 2011, 9:09:42.052 pm UUID: 5227dddb-7836-46d3-9522-a96776d7035c Ancestors: Morphic-cmm.576 - When using the new list-filtering, if the user's keystroke will cause filtering to an empty list, then flash rather than present an empty list. - Preserve 300ms "slow-keystroke" timing for when the legacy preference is engaged for filterableLists. That way, in case someone wants to press, t -- t -- t to go to the third in the list that starts with 't', they will only have to wait 300ms in between presses. - Order the items with front-matching items at the top of the list, and substring-matches below that. =============== Diff against Morphic-cmm.571 =============== Item was changed: ScrollPane subclass: #PluggableListMorph instanceVariableNames: 'list getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes lastClickTime doubleClickSelector handlesBasicKeys potentialDropRow listMorph hScrollRangeCache keystrokePreviewSelector' + classVariableNames: 'FilterableLists' - classVariableNames: '' poolDictionaries: '' category: 'Morphic-Pluggable Widgets'! + !PluggableListMorph commentStamp: 'cmm 8/21/2011 23:37' prior: 0! + When a PluggableListMorph is in focus, type in a letter (or several letters quickly) to go to the next item that begins with that letter (if FilterableLists is false). - !PluggableListMorph commentStamp: '<historical>' prior: 0! - ... - When a PluggableListMorph is in focus, type in a letter (or several - letters quickly) to go to the next item that begins with that letter. Special keys (up, down, home, etc.) are also supported.! Item was added: + ----- Method: PluggableListMorph class>>filterableLists (in category 'preferences') ----- + filterableLists + <preference: 'Filterable Lists' + category: 'scrolling' + description: 'When true, using the keyboard on a list will filter it rather than scroll. Pressing enter or backspace restores all items to the list.' + type: #Boolean> + ^ FilterableLists ifNil: [ true ]! Item was added: + ----- Method: PluggableListMorph class>>filterableLists: (in category 'preferences') ----- + filterableLists: aBoolean + "When true, using the keyboard on a list will filter it rather than scroll. Pressing enter or backspace restores all items to the list." + FilterableLists := aBoolean! Item was changed: ----- Method: PluggableListMorph>>basicKeyPressed: (in category 'model access') ----- basicKeyPressed: aChar - | milliseconds slowKeyStroke listSize newSelectionIndex oldSelectionIndex startIndex | oldSelectionIndex := newSelectionIndex := self getCurrentSelectionIndex. listSize := self getListSize. milliseconds := Time millisecondClockValue. + slowKeyStroke := (Time + milliseconds: milliseconds + since: lastKeystrokeTime) > (self class filterableLists ifTrue: [500] ifFalse: [ 300 ]). - slowKeyStroke := (Time milliseconds: milliseconds since: lastKeystrokeTime) > 300. lastKeystrokeTime := milliseconds. slowKeyStroke + ifTrue: + [ "forget previous keystrokes and search in following elements" - ifTrue: ["forget previous keystrokes and search in following elements" lastKeystrokes := aChar asLowercase asString. + newSelectionIndex := newSelectionIndex \\ listSize + 1. + self class filterableLists ifTrue: [ list := self getFullList ] ] + ifFalse: [ "append quick keystrokes but don't move selection if it still matches" - newSelectionIndex := newSelectionIndex \\ listSize + 1 ] - ifFalse: ["append quick keystrokes but don't move selection if it still matches" lastKeystrokes := lastKeystrokes , aChar asLowercase asString ]. "No change if model is locked" + model okToChange ifFalse: [ ^ self ]. + self class filterableLists + ifTrue: + [ self + filterList ; + updateList. + newSelectionIndex := self modelIndexFor: 1 ] + ifFalse: + [ startIndex := newSelectionIndex. + listSize := self getListSize. + [ (self getListItem: newSelectionIndex) asString withBlanksTrimmed asLowercase beginsWith: lastKeystrokes ] whileFalse: + [ (newSelectionIndex := newSelectionIndex \\ listSize + 1) = startIndex ifTrue: [ ^ self flash"Not in list." ] ]. + newSelectionIndex = oldSelectionIndex ifTrue: [ ^ self flash ] ]. + (self hasFilter and: [(self getCurrentSelectionIndex = newSelectionIndex) not]) ifTrue: + [self changeModelSelection: newSelectionIndex]! - model okToChange ifFalse: [ ^self ]. - "Get rid of blanks and style used in some lists" - startIndex := newSelectionIndex. - [ - (self getListItem: newSelectionIndex) asString - withBlanksTrimmed asLowercase beginsWith: lastKeystrokes ] - whileFalse: [ - (newSelectionIndex := newSelectionIndex \\ listSize + 1) = startIndex ifTrue: [ - ^self flash. "Not in list." ] ]. - newSelectionIndex = oldSelectionIndex ifTrue: [ ^self flash ]. "Same selection." - ^self changeModelSelection: newSelectionIndex! Item was added: + ----- Method: PluggableListMorph>>filterList (in category 'filtering') ----- + filterList + self hasFilter + ifTrue: + [ | frontMatching substringMatching newList | + self indicateFiltered. + frontMatching := OrderedCollection new. + substringMatching := OrderedCollection new. + list withIndexDo: + [ : each : n | | foundPos | + foundPos := each asString + findString: lastKeystrokes + startingAt: 1 + caseSensitive: false. + foundPos = 1 + ifTrue: [ frontMatching add: each ] + ifFalse: + [ foundPos = 0 ifFalse: [ substringMatching add: each ] ] ]. + newList := frontMatching , substringMatching. + newList + ifEmpty: + [ lastKeystrokes := lastKeystrokes allButLast: 1. + self + flash ; + filterList ] + ifNotEmpty: [ list := newList ] ] + ifFalse: [ self indicateUnfiltered ]! Item was added: + ----- Method: PluggableListMorph>>getFullList (in category 'model access') ----- + getFullList + "The full, unfiltered list." + ^ model perform: getListSelector! Item was changed: ----- Method: PluggableListMorph>>getList (in category 'model access') ----- getList "Answer the list to be displayed. Caches the returned list in the 'list' ivar" + getListSelector == nil ifTrue: [ ^ Array empty ]. + list := self getFullList. + self class filterableLists ifTrue: [ self filterList ]. - getListSelector == nil ifTrue: [ ^ #() ]. - list := model perform: getListSelector. ^ list ifNil: [ Array empty ]! Item was added: + ----- Method: PluggableListMorph>>hasFilter (in category 'filtering') ----- + hasFilter + ^ lastKeystrokes isEmptyOrNil not! Item was added: + ----- Method: PluggableListMorph>>indicateFiltered (in category 'filtering') ----- + indicateFiltered + self color: Color red muchLighter muchLighter! Item was added: + ----- Method: PluggableListMorph>>indicateUnfiltered (in category 'filtering') ----- + indicateUnfiltered + self color: Color white! Item was added: + ----- Method: PluggableListMorph>>modelIndexFor: (in category 'selection') ----- + modelIndexFor: selectionIndex + "The model does not know anything about the receiver's filtering, so if I am filtered, we must determine the correct index by scanning the full list in the model." + ^ (selectionIndex > 0 and: [ self hasFilter ]) + ifTrue: + [ list + ifEmpty: [ 0 ] + ifNotEmpty: [ self getFullList indexOf: (self getListItem: selectionIndex) ] ] + ifFalse: [ selectionIndex ]! Item was changed: ----- Method: PluggableListMorph>>mouseUp: (in category 'events') ----- mouseUp: event "The mouse came up within the list; take appropriate action" | row | row := self rowAtLocation: event position. "aMorph ifNotNil: [aMorph highlightForMouseDown: false]." model okToChange ifFalse: [^ self]. "No change if model is locked" row = self selectionIndex ifTrue: [(autoDeselect ifNil: [true]) ifTrue:[row = 0 ifFalse: [self changeModelSelection: 0] ]] + ifFalse: [self changeModelSelection: (self modelIndexFor: row)]. - ifFalse: [self changeModelSelection: row]. Cursor normal show! Item was added: + ----- Method: PluggableListMorph>>removeFilter (in category 'model access') ----- + removeFilter + lastKeystrokes := String empty. + list := nil! Item was changed: ----- Method: PluggableListMorph>>scrollSelectionIntoView (in category 'selection') ----- scrollSelectionIntoView "make sure that the current selection is visible" | row | + row := self uiIndexFor: self getCurrentSelectionIndex. - row := self getCurrentSelectionIndex. row = 0 ifTrue: [ ^ self ]. self scrollToShow: (self listMorph drawBoundsForRow: row)! Item was changed: ----- Method: PluggableListMorph>>selectedMorph: (in category 'selection') ----- selectedMorph: aMorph "this shouldn't be used any longer" + self isThisEverCalled . - "self isThisEverCalled ." - - Beeper beep. true ifTrue: [^self]! Item was changed: ----- Method: PluggableListMorph>>setSelectedMorph: (in category 'selection') ----- + setSelectedMorph: aMorph + self changeModelSelection: (self modelIndexFor: (scroller submorphs indexOf: aMorph))! - setSelectedMorph: aMorph - self changeModelSelection: (scroller submorphs indexOf: aMorph)! Item was changed: ----- Method: PluggableListMorph>>specialKeyPressed: (in category 'model access') ----- specialKeyPressed: asciiValue "A special key with the given ascii-value was pressed; dispatch it" - | oldSelection nextSelection max howManyItemsShowing | + (#(8 13) includes: asciiValue) ifTrue: + [ "backspace key - clear the filter, restore the list with the selection" + ^ self + removeFilter ; + updateList ]. asciiValue = 27 ifTrue: [" escape key" ^ ActiveEvent shiftPressed ifTrue: [ActiveWorld putUpWorldMenuFromEscapeKey] ifFalse: [self yellowButtonActivity: false]]. max := self maximumSelection. max > 0 ifFalse: [^ self]. + nextSelection := oldSelection := self selectionIndex. - nextSelection := oldSelection := self getCurrentSelectionIndex. asciiValue = 31 ifTrue: [" down arrow" nextSelection := oldSelection + 1. nextSelection > max ifTrue: [nextSelection := 1]]. asciiValue = 30 ifTrue: [" up arrow" nextSelection := oldSelection - 1. nextSelection < 1 ifTrue: [nextSelection := max]]. asciiValue = 1 ifTrue: [" home" nextSelection := 1]. asciiValue = 4 ifTrue: [" end" nextSelection := max]. howManyItemsShowing := self numSelectionsInView. asciiValue = 11 ifTrue: [" page up" nextSelection := 1 max: oldSelection - howManyItemsShowing]. asciiValue = 12 ifTrue: [" page down" nextSelection := oldSelection + howManyItemsShowing min: max]. model okToChange ifFalse: [^ self]. "No change if model is locked" oldSelection = nextSelection ifTrue: [^ self flash]. + ^ self changeModelSelection: (self modelIndexFor: nextSelection)! - ^ self changeModelSelection: nextSelection! Item was removed: - ----- Method: PluggableListMorph>>superDrawOn: (in category 'drawing') ----- - superDrawOn: aCanvas - super drawOn: aCanvas. - ! Item was added: + ----- Method: PluggableListMorph>>uiIndexFor: (in category 'selection') ----- + uiIndexFor: modelIndex + "The model does not know anything about the receiver's filtering. Answer the index in my (possibly filtered) list for modelIndex." + (modelIndex > 0 and: [ self hasFilter ]) + ifTrue: + [ | selectedItem | + selectedItem := self getFullList at: modelIndex. + (list ifNil: [ self getList ]) withIndexDo: + [ : eachMatchingItem : n | eachMatchingItem = selectedItem ifTrue: [ ^ n ] ]. + ^ 0 ] + ifFalse: [ ^ modelIndex ]! Item was changed: ----- Method: PluggableListMorph>>update: (in category 'updating') ----- update: aSymbol "Refer to the comment in View|update:." + aSymbol == getListSelector ifTrue: + [ self updateList. + ^ self ]. - - aSymbol == getListSelector ifTrue: - [self updateList. - ^ self]. aSymbol == getIndexSelector ifTrue: + [ | uiIndex modelIndex | + uiIndex := self uiIndexFor: (modelIndex := self getCurrentSelectionIndex). + self selectionIndex: + (uiIndex = 0 + ifTrue: + [ "The filter is preventing us from selecting the item we want - remove it." + (list notNil and: [list size > 0]) ifTrue: [ self removeFilter ]. + modelIndex ] + ifFalse: [ uiIndex ]). + ^ self ]! - [self selectionIndex: self getCurrentSelectionIndex. - ^ self]. - ! Item was changed: ----- Method: PluggableListMorph>>updateList (in category 'updating') ----- updateList | index | "the list has changed -- update from the model" self listMorph listChanged. self setScrollDeltas. scrollBar setValue: 0.0. index := self getCurrentSelectionIndex. self resetPotentialDropRow. + self selectionIndex: (self uiIndexFor: index). - self selectionIndex: index. ! Item was changed: ----- Method: PluggableListMorph>>verifyContents (in category 'updating') ----- verifyContents "Verify the contents of the receiver, reconstituting if necessary. Called whenever window is reactivated, to react to possible structural changes. Also called periodically in morphic if the smartUpdating preference is true" | newList existingSelection anIndex oldList | oldList := list ifNil: [ #() ]. newList := self getList. oldList = newList ifTrue: [ ^ self ]. existingSelection := self selectionIndex > 0 ifTrue: [ oldList at: self selectionIndex ] ifFalse: [ nil ]. self updateList. + (existingSelection notNil and: [(anIndex := self getFullList indexOf: existingSelection asStringOrText ifAbsent: [nil]) notNil]) - (existingSelection notNil and: [(anIndex := list indexOf: existingSelection asStringOrText ifAbsent: [nil]) notNil]) ifTrue: [model noteSelectionIndex: anIndex for: getListSelector. self selectionIndex: anIndex] ifFalse: [self changeModelSelection: 0]! Item was changed: ----- Method: PluggableListMorphOfMany>>mouseDown: (in category 'event handling') ----- mouseDown: event | oldIndex oldVal row | event yellowButtonPressed ifTrue: [^ self yellowButtonActivity: event shiftPressed]. row := self rowAtLocation: event position. row = 0 ifTrue: [^super mouseDown: event]. model okToChange ifFalse: [^ self]. "No change if model is locked" "Set meaning for subsequent dragging of selection" dragOnOrOff := (self listSelectionAt: row) not. oldIndex := self getCurrentSelectionIndex. oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. "Set or clear new primary selection (listIndex)" dragOnOrOff + ifTrue: [self changeModelSelection: (self modelIndexFor: row)] - ifTrue: [self changeModelSelection: row] ifFalse: [self changeModelSelection: 0]. "Need to restore the old one, due to how model works, and set new one." oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. self listSelectionAt: row put: dragOnOrOff. "event hand releaseMouseFocus: aMorph." "aMorph changed"! Item was changed: ----- Method: PluggableListMorphOfMany>>mouseMove: (in category 'event handling') ----- mouseMove: event "The mouse has moved, as characterized by the event provided. Adjust the scrollbar, and alter the selection as appropriate" | oldIndex oldVal row | event position y < self top ifTrue: [scrollBar scrollUp: 1. row := self rowAtLocation: scroller topLeft + (1 @ 1)] ifFalse: [row := event position y > self bottom ifTrue: [scrollBar scrollDown: 1. self rowAtLocation: scroller bottomLeft + (1 @ -1)] ifFalse: [ self rowAtLocation: event position]]. row = 0 ifTrue: [^super mouseDown: event]. model okToChange ifFalse: [^self]. "No change if model is locked" dragOnOrOff ifNil: ["Was not set at mouse down, which means the mouse must have gone down in an area where there was no list item" dragOnOrOff := (self listSelectionAt: row) not]. "Set meaning for subsequent dragging of selection" oldIndex := self getCurrentSelectionIndex. oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. "Set or clear new primary selection (listIndex)" dragOnOrOff + ifTrue: [self changeModelSelection: (self modelIndexFor: row)] - ifTrue: [self changeModelSelection: row] ifFalse: [self changeModelSelection: 0]. "Need to restore the old one, due to how model works, and set new one." oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. self listSelectionAt: row put: dragOnOrOff. row changed!

1 0

Jump to page: