Squeak-dev February 2016

squeak-dev@lists.squeakfoundation.org

28 participants
207 discussions

Re: [squeak-dev] The Trunk: Tools-mt.668.mcz
by Chris Muller 01 Feb '16

01 Feb '16

Wouldn't it be better to just silently refresh it FOR the user in that case, rather than bother them with a pop up? On Mon, Feb 1, 2016 at 3:45 AM, <commits(a)source.squeak.org> wrote: > Marcel Taeumel uploaded a new version of Tools to project The Trunk: > http://source.squeak.org/trunk/Tools-mt.668.mcz > > ==================== Summary ==================== > > Name: Tools-mt.668 > Author: mt > Time: 1 February 2016, 10:44:38.861285 am > UUID: 88b24b27-f952-4e86-9bd5-be64c8e309e2 > Ancestors: Tools-mt.667 > > Adds support for selective refreshing to object explorer. Just re-select the current selection to refresh it. Item will get highlighted just like automatic monitor refresh to indicate inconsistency of displayed information. > > Make the still existing deficiency with volatile object state more descriptive with a pop-up instead of a generic assert error. Now that we support selective refreshing, the user is actually able to refresh and THEN invoke the context menu again. > > =============== Diff against Tools-mt.667 =============== > > Item was changed: > ----- Method: ObjectExplorer>>currentSelection: (in category 'accessing') ----- > currentSelection: anObject > > + self currentSelection == anObject ifTrue: [ > + self changed: #objectChanged with: anObject. > + ^ self]. > + > - self currentSelection == anObject ifTrue: [^ self]. > currentSelection := anObject. > > self changed: #currentSelection. > self changed: #style.! > > Item was changed: > ----- Method: ObjectExplorer>>explorerKey:from:event: (in category 'menus') ----- > explorerKey: aChar from: view event: event > > event anyModifierKeyPressed ifFalse: [^ false]. > > currentSelection ifNotNil: [ > + self updateInspectorForSelection ifFalse: [^ true]. > - self updateInspectorForSelection. > > aChar == $i ifTrue: [self inspector inspectSelection. ^ true]. > aChar == $I ifTrue: [self inspector exploreSelection. ^ true]. > > aChar == $b ifTrue: [self inspector browseMethodFull. ^ true]. > aChar == $h ifTrue: [self inspector classHierarchy. ^ true]. > aChar == $c ifTrue: [Clipboard clipboardText: self currentSelection key. ^ true]. > aChar == $p ifTrue: [self inspector browseFullProtocol. ^ true]. > aChar == $N ifTrue: [self inspector browseClassRefs. ^ true]. > aChar == $t ifTrue: [self inspector tearOffTile. ^ true]. > aChar == $v ifTrue: [self inspector viewerForValue. ^ true]]. > > ^ false! > > Item was changed: > ----- Method: ObjectExplorer>>genericMenu: (in category 'menus') ----- > genericMenu: aMenu > "Borrow a menu from my inspector" > > currentSelection > ifNil: [ > aMenu > add: '*nothing selected*' > target: self > selector: #yourself] > ifNotNil: [ > + self updateInspectorForSelection ifFalse: [^ aMenu]. > - self updateInspectorForSelection. > aMenu defaultTarget: self inspector. > self inspector fieldListMenu: aMenu. > > aMenu addLine; > add: 'monitor changes' > target: self > selector: #monitor: > argument: currentSelection]. > monitorList isEmptyOrNil > ifFalse: [aMenu addLine; > add: 'stop monitoring all' > target: self > selector: #stopMonitoring]. > ^ aMenu! > > Item was changed: > ----- Method: ObjectExplorer>>updateInspectorForSelection (in category 'accessing - other') ----- > updateInspectorForSelection > "Reuse the inspector for some callbacks." > > self inspector inspect: (self parentObject ifNil: [self object]). > > self parentObject > ifNil: [self inspector toggleIndex: 1. "self"] > ifNotNil: [ > self inspector toggleIndex: (self inspector fieldList indexOf: self currentSelection key)]. > + > + self inspector selection == self object > + ifTrue: [ > + ^ true] > + ifFalse: [ > + self inform: 'Object has changed. Please refresh\before invoking the context menu.' withCRs. > + ^ false].! > - self assert: self inspector selection == self object.! > >

5 4

Re: The Trunk: Tools-mt.668.mcz
by marcel.taeumel 01 Feb '16

01 Feb '16

<http://forum.world.st/file/n4875140/squeak-explorer-refresh.png> Best, Marcel -- View this message in context: http://forum.world.st/The-Trunk-Tools-mt-668-mcz-tp4875137p4875140.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 1

Squeak Board 2016 Candidates wanted
by Ron Teitelbaum 01 Feb '16

01 Feb '16

Hi all, We currently have 7 candidates for 7 board seats. By order of announcement: Tim Rowledge Marcel Taeumel Craig Latta Bert Freudenberg Chris Muller David T. Lewis Edgar J. De Cleene That is great but it would be nice to have more candidates! You have until Monday to announce your candidacy. If you are going to run now is the time! Also please remember that it is important to VOTE! Even if we have 7 candidates and 7 seats please VOTE! I have heard from some of you that you feel very well represented by your board, which is great! Voting is one way to tell them you support them! You can follow the details of this election here: http://wiki.squeak.org/squeak/6346 All the best, Ron Teitelbaum Head Of Engineering 3D Immersive Collaboration Consulting <mailto:ron@3Dicc.com> ron(a)3Dicc.com Follow Me On Twitter: <https://twitter.com/RonTeitelbaum> @RonTeitelbaum <http://www.3Dicc.com> www.3Dicc.com <https://www.google.com/+3Dicc> https://www.google.com/+3Dicc

2 1

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

01 Feb '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.668.mcz ==================== Summary ==================== Name: Tools-mt.668 Author: mt Time: 1 February 2016, 10:44:38.861285 am UUID: 88b24b27-f952-4e86-9bd5-be64c8e309e2 Ancestors: Tools-mt.667 Adds support for selective refreshing to object explorer. Just re-select the current selection to refresh it. Item will get highlighted just like automatic monitor refresh to indicate inconsistency of displayed information. Make the still existing deficiency with volatile object state more descriptive with a pop-up instead of a generic assert error. Now that we support selective refreshing, the user is actually able to refresh and THEN invoke the context menu again. =============== Diff against Tools-mt.667 =============== Item was changed: ----- Method: ObjectExplorer>>currentSelection: (in category 'accessing') ----- currentSelection: anObject + self currentSelection == anObject ifTrue: [ + self changed: #objectChanged with: anObject. + ^ self]. + - self currentSelection == anObject ifTrue: [^ self]. currentSelection := anObject. self changed: #currentSelection. self changed: #style.! Item was changed: ----- Method: ObjectExplorer>>explorerKey:from:event: (in category 'menus') ----- explorerKey: aChar from: view event: event event anyModifierKeyPressed ifFalse: [^ false]. currentSelection ifNotNil: [ + self updateInspectorForSelection ifFalse: [^ true]. - self updateInspectorForSelection. aChar == $i ifTrue: [self inspector inspectSelection. ^ true]. aChar == $I ifTrue: [self inspector exploreSelection. ^ true]. aChar == $b ifTrue: [self inspector browseMethodFull. ^ true]. aChar == $h ifTrue: [self inspector classHierarchy. ^ true]. aChar == $c ifTrue: [Clipboard clipboardText: self currentSelection key. ^ true]. aChar == $p ifTrue: [self inspector browseFullProtocol. ^ true]. aChar == $N ifTrue: [self inspector browseClassRefs. ^ true]. aChar == $t ifTrue: [self inspector tearOffTile. ^ true]. aChar == $v ifTrue: [self inspector viewerForValue. ^ true]]. ^ false! Item was changed: ----- Method: ObjectExplorer>>genericMenu: (in category 'menus') ----- genericMenu: aMenu "Borrow a menu from my inspector" currentSelection ifNil: [ aMenu add: '*nothing selected*' target: self selector: #yourself] ifNotNil: [ + self updateInspectorForSelection ifFalse: [^ aMenu]. - self updateInspectorForSelection. aMenu defaultTarget: self inspector. self inspector fieldListMenu: aMenu. aMenu addLine; add: 'monitor changes' target: self selector: #monitor: argument: currentSelection]. monitorList isEmptyOrNil ifFalse: [aMenu addLine; add: 'stop monitoring all' target: self selector: #stopMonitoring]. ^ aMenu! Item was changed: ----- Method: ObjectExplorer>>updateInspectorForSelection (in category 'accessing - other') ----- updateInspectorForSelection "Reuse the inspector for some callbacks." self inspector inspect: (self parentObject ifNil: [self object]). self parentObject ifNil: [self inspector toggleIndex: 1. "self"] ifNotNil: [ self inspector toggleIndex: (self inspector fieldList indexOf: self currentSelection key)]. + + self inspector selection == self object + ifTrue: [ + ^ true] + ifFalse: [ + self inform: 'Object has changed. Please refresh\before invoking the context menu.' withCRs. + ^ false].! - self assert: self inspector selection == self object.!

1 0

The Trunk: ToolBuilder-Morphic-mt.158.mcz
by commits＠source.squeak.org 01 Feb '16

01 Feb '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.158.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.158 Author: mt Time: 1 February 2016, 10:29:47.512285 am UUID: 6aa4ffd8-7313-4369-a342-7b7a64f3cc63 Ancestors: ToolBuilder-Morphic-mt.157 Adds support for selective refreshing in pluggable tree morphs that make use of the generic PluggableTreeItemNode. To use, send "self changed: #objectChanged with: anObject" in the tool's model. See ObjectExplorer >> #step for an example. Note that ObjectExplorer uses the customized ObjectExplorerWrapper instead of the PluggableTreeItemNode. However, this does not affect the basic idea behind #objectChanged. =============== Diff against ToolBuilder-Morphic-mt.157 =============== Item was changed: ListItemWrapper subclass: #PluggableTreeItemNode + instanceVariableNames: 'parent index' - instanceVariableNames: 'parent' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Morphic'! + !PluggableTreeItemNode commentStamp: 'mt 2/1/2016 10:24' prior: 0! + Tree item for PluggableTreeMorph. My model is the tree morph. I keep track of my parent item and the index in my parent's list of children to support selective refreshing.! - !PluggableTreeItemNode commentStamp: 'mt 3/7/2015 09:15' prior: 0! - Tree item for PluggableTreeMorph. My model is the tree morph.! Item was added: + ----- Method: PluggableTreeItemNode>>index (in category 'accessing') ----- + index + + ^ index! Item was added: + ----- Method: PluggableTreeItemNode>>index: (in category 'accessing') ----- + index: anInteger + + index := anInteger.! Item was changed: ----- Method: PluggableTreeItemNode>>refresh (in category 'as yet unclassified') ----- refresh + + self setItem: (self parent contents + at: self index + ifAbsent: [self error: 'No support for changed child count yet!!']) + item.! - "Todo. See ObjectExplorerWrapper >> #refresh."! Item was changed: ----- Method: PluggableTreeMorph>>contentsOfNode: (in category 'node access') ----- contentsOfNode: node | children | getChildrenSelector ifNil:[^#()]. children := model perform: getChildrenSelector with: node item. + ^children collectWithIndex: [:item :index | + (self nodeClass with: item model: self) + index: index; + parent: node]! - ^children collect: [:item| - (self nodeClass with: item model: self) parent: node]!

1 0

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

01 Feb '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1070.mcz ==================== Summary ==================== Name: Morphic-mt.1070 Author: mt Time: 1 February 2016, 10:22:48.528285 am UUID: 820409c5-06df-43bb-aae0-ee27057ead43 Ancestors: Morphic-tpr.1069 Fixes bounds issue regarding refreshed items in object explorer and other tree applications. Thanks to Karl Ramberg for the idea. =============== Diff against Morphic-tpr.1069 =============== Item was changed: ----- Method: IndentingListItemMorph>>refresh (in category 'initialization') ----- refresh self contents: self getLabel. icon := self getIcon. + self width: container preferredSubmorphWidth. (self valueOfProperty: #wasRefreshed ifAbsent: [false]) ifFalse: [ self setProperty: #wasRefreshed toValue: true. self color: Color yellow. "Indicate refresh operation."].! Item was changed: ----- Method: SimpleHierarchicalListMorph>>adjustSubmorphPositions (in category 'private') ----- adjustSubmorphPositions | p | p := 0@0. scroller submorphsDo: [ :each | | h | each visible ifTrue: [ h := each height. + each privateBounds: (p extent: self preferredSubmorphWidth@h). - each privateBounds: (p extent: 9999@h). p := p + (0@h) ]]. self changed; layoutChanged; setScrollDeltas. ! Item was added: + ----- Method: SimpleHierarchicalListMorph>>preferredSubmorphWidth (in category 'private') ----- + preferredSubmorphWidth + + ^ 9999!

1 0

The Trunk: Graphics-dtl.322.mcz
by commits＠source.squeak.org 01 Feb '16

01 Feb '16

David T. Lewis uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-dtl.322.mcz ==================== Summary ==================== Name: Graphics-dtl.322 Author: dtl Time: 1 February 2016, 8:30:11.24536 pm UUID: 72d5d729-f6ef-47f3-b637-1271b82fe528 Ancestors: Graphics-eem.321 Move #testJoystick: to EventSensor because InputSensor will be removed. =============== Diff against Graphics-eem.321 =============== Item was added: + ----- Method: EventSensor>>testJoystick: (in category '*Graphics-KernelExtensions') ----- + testJoystick: index + "Sensor testJoystick: 3" + + | f pt buttons status | + f := Form extent: 110@50. + [Sensor anyButtonPressed] whileFalse: [ + pt := Sensor joystickXY: index. + buttons := Sensor joystickButtons: index. + status := + 'xy: ', pt printString, ' + buttons: ', buttons printStringHex. + f fillWhite. + status displayOn: f at: 10@10. + f displayOn: Display at: 10@10. + ]. + ! Item was removed: - ----- Method: InputSensor>>testJoystick: (in category '*Graphics-KernelExtensions') ----- - testJoystick: index - "Sensor testJoystick: 3" - - | f pt buttons status | - f := Form extent: 110@50. - [Sensor anyButtonPressed] whileFalse: [ - pt := Sensor joystickXY: index. - buttons := Sensor joystickButtons: index. - status := - 'xy: ', pt printString, ' - buttons: ', buttons printStringHex. - f fillWhite. - status displayOn: f at: 10@10. - f displayOn: Display at: 10@10. - ]. - !

1 0

Jump to page: