Squeak-dev January 2016

squeak-dev@lists.squeakfoundation.org

40 participants
206 discussions

Live Coding Demonstration Success!
by Jeff Gonis 25 Jan '16

25 Jan '16

Hi Squeakers, I just wanted to write in with a quick report on a recent demonstration I did for my my colleagues at work. At the company I work for we are given one Friday a month to work on any sort of project that interests us, whether or not it is related to the work we do for the company, and so I usually end up playing around with a project in Squeak. As part of the deal, we are asked to occasionally present what we are working on to our peers, in the hopes that they can do some learning from our projects as well. I didn't have any projects ready to demonstrate in a compelling way so I decided to instead just show off Squeak itself and give people kind of an introduction to Smalltalk and what I find so compelling about it. I decided to go ahead and live code a version of the bouncing atoms morph, using submorphs for the atoms, and developing the code as the parent morph "stepped" away on screen, updating its behavior seamlessly. I demonstrated adding variables and method without stopping, changing the methods and debugging them when I made mistakes, changing the entire class of the onscreen morphs as the simulation ran and some of the cool things about the language itself as well, like "build-your-own" if statements and such. Overall I think that I kind of blew a bunch of people's minds, what with our day to day work being in C++ and always being in that edit-compile-run-test cycle. Several people came up to me afterwards to say how much they enjoyed seeing a different view of programming and what it could represent and I hope to put together a few more demonstrations in the coming months. Anyway, I just wanted to let you know that Smalltalk is still surprising people and exceeding their expectations 35 years on, and a large part of it is thanks to all the great work that goes into Squeak from its contributors. Thanks for your efforts! Jeff

8 10

The Trunk: SystemReporter-eem.25.mcz
by commits＠source.squeak.org 25 Jan '16

25 Jan '16

Eliot Miranda uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-eem.25.mcz ==================== Summary ==================== Name: SystemReporter-eem.25 Author: eem Time: 25 January 2016, 9:28:23.158198 pm UUID: 3f5c4a14-93be-4b52-adc1-05e51adf7f5e Ancestors: SystemReporter-mt.24 Update David's lovely reportVMParameters: to reflect reality and a few up-coming features. =============== Diff against SystemReporter-mt.24 =============== Item was changed: ----- Method: SystemReporter>>reportVMParameters: (in category 'reporting') ----- reportVMParameters: aStream + | vmParameters isStack isCog isSpur | - | vmParameters isCog isSpur | self header: 'Virtual Machine Parameters' on: aStream. vmParameters := Smalltalk vm getVMParameters. + isStack := (vmParameters at: 42 ifAbsent: [0]) ~= 0. "42 = number of stack pages available" + isCog := isStack and: [(vmParameters at: 46) ~= 0]. "46 is machine code zone size" + isSpur := isStack and: [(vmParameters at: 41) anyMask: 2r10000]. "41 is imageFormatVersion for the VM; bit 16 is the Spur bit" - isCog := (vmParameters at: 41 ifAbsent: [0]) anyMask: 1. "determine Cog/Stack via bit 0, requires native float order." - isSpur := isCog and: [(vmParameters at: 41 ifAbsent: [0]) anyMask: 2r10000]. "bit 16 is the Spur bit" (isSpur ifFalse: [#( 1 'size of old space' 2 'size of young+old space' + 3 'size of memory' + 4 'allocationCount' + 5 'allocations between GCs' + 6 'survivor count tenuring threshold')] - 3 'size of memory')] ifTrue: [#( 1 'size of old space' 2 'size of new space' 3 'size of heap')]), - (isSpur - ifFalse: - [#( 4 'allocationCount' - 5 'allocations between GCs' - 6 'survivor count tenuring threshold')] - ifTrue: [#()]), #( 7 'full GCs since startup' 8 'total milliseconds in full GCs since startup'), (isSpur ifFalse: [#( 9 'incremental GCs since startup' 10 'total milliseconds in incremental GCs since startup')] ifTrue: [#( 9 'scavenging GCs since startup' 10 'total milliseconds in scavenging GCs since startup')]), #( 11 'tenures of surving objects since startup'), + {12 to: 19. 'specific to the translating VM'}, + #( 20 'utc microseconds at startup (if non-zero)' + 21 'root table size' - (isCog - ifFalse: - [#( 12 'specific to the translating VM' - 13 'specific to the translating VM' - 14 'specific to the translating VM' - 15 'specific to the translating VM' - 16 'specific to the translating VM' - 17 'specific to the translating VM' - 18 'specific to the translating VM' - 19 'specific to the translating VM' - 20 'specific to the translating VM')] - ifTrue: - [{12 to: 20. 'specific to the translating VM'}]), - #( 21 'root table size' 22 'root table overflows since startup' 23 'bytes of extra memory to reserve for VM buffers, plugins, etc.' + 24 'free memory threshold above which object memory will be shrunk' - 24 'memory threshold above which shrinking object memory' 25 'memory headroom when growing object memory'), + (isStack - (isCog ifFalse: + [#( 26 'interruptChecksEveryNms - force an ioProcessEvents every N milliseconds, in case the image is not calling getNextEvent often')] - [#( 26 'interruptChecksEveryNms - force an ioProcessEvents every N milliseconds, in case the image is not calling getNextEvent often')] ifTrue: + [#( 26 'heartbeat period (ms; see #58)')]), - [#( 26 'heartbeat period (ms)')]), (isSpur ifFalse: [#( 27 'number of times mark loop iterated for current IGC/FGC includes ALL marking' 28 'number of times sweep loop iterated for current IGC/FGC' 29 'number of times make forward loop iterated for current IGC/FGC' 30 'number of times compact move loop iterated for current IGC/FGC')] ifTrue: [#()]), #( 31 'number of grow memory requests' 32 'number of shrink memory requests'), (isSpur ifFalse: [#( 33 'number of root table entries used for current IGC/FGC' 34 'number of allocations done before current IGC/FGC' 35 'number of survivor objects after current IGC/FGC' 36 'millisecond clock when current IGC/FGC completed' 37 'number of marked objects for Roots of the world, not including Root Table entries for current IGC/FGC' + 38 'milliseconds taken by current IGC' - 38 'milliseconds taken by current IGC ' 39 'Number of finalization signals for Weak Objects pending when current IGC/FGC completed')] ifTrue: + [#( 33 'number of root table entries at last scavenge' + 35 'number of survivor objects at last scavenge (if non-zero)' + 36 'millisecond clock when current scavenge completed' + 38 'milliseconds taken by current scavenge' - [#( 36 'millisecond clock when current SGC/FGC completed' - 38 'milliseconds taken by current SGC ' 39 'Number of finalization signals for Weak Objects pending when current SGC/FGC completed')]), #( 40 'VM word size - 4 or 8'), + (isStack - (isCog ifTrue: [#( 41 'imageFormatVersion for the VM' + 42 'number of stack pages available' - 42 'number of stack pages in use' 43 'desired number of stack pages (stored in image file header, max 65535)' 44 'size of eden, in bytes' 45 'desired size of eden, in bytes (stored in image file header)' + 46 'machine code zone size, in bytes (0 in Stack VM)' - 46 'machine code zone size, in bytes' 47 'desired machine code zone size (0 => default 1Mb)' 48 'various header flags. See getCogVMFlags.' 49 'max size the image promises to grow the external semaphore table to'), (isSpur ifFalse: [{ 50 to: 54. 'reserved for VM parameters that persist in the image (such as size of eden above)'. 55 to: 56. 'specific to Spur' }] ifTrue: + [{ 50 to: 51. 'reserved for VM parameters that persist in the image (such as size of eden above)' }, + #( 52 'root table capacity' + 53 'number of old space segments' + 54 'total free old space' - [{ 50 to: 53. 'reserved for VM parameters that persist in the image (such as size of eden above)' }, - #( 54 'total free old space' 55 'ratio of growth and image size at or above which a GC will be performed post scavenge')]), #( 56 'number of process switches since startup' 57 'number of ioProcessEvents calls since startup' 58 'number of forceInterruptCheck calls since startup' 59 'number of check event calls since startup' 60 'number of stack page overflows since startup' 61 'number of stack page divorces since startup' + 62 'compiled code compactions since startup'), + (isCog + ifFalse: + [#()] + ifTrue: + [#( 63 'total milliseconds in compiled code compactions since startup' + 64 'the number of methods that currently have jitted machine-code')]), + #( 65 'whether the VM supports MULTIPLE_BYTECODE_SETS or not.' - 62 'compiled code compactions since startup' - 63 'total milliseconds in compiled code compactions since startup' - 64 'the number of methods that currently have jitted machine-code' - 65 'whether the VM supports MULTIPLE_BYTECODE_SETS or not.' 66 'the byte size of a stack page'), + (isSpur + ifFalse: + [{ 67 to: 69. 'reserved for more Cog-related info' }] + ifTrue: + [#( 67 'the maximum allowed size of old space (if zero there is no limit)' + 68 'the average number of live stack pages when scanned by scavenge/gc/become' + 69 'the maximum number of live stack pages when scanned by scavenge/gc/become')]), - { 67 to: 69. 'reserved for more Cog-related info' }, #( 70 'the vmProxyMajorVersion (the interpreterProxy VM_MAJOR_VERSION)' 71 'the vmProxyMinorVersion (the interpreterProxy VM_MINOR_VERSION)')] ifFalse: [#()]) pairsDo: [:idx :desc | | value values | aStream nextPut: $#. idx isInteger ifTrue: [value := vmParameters at: idx. + aStream print: idx; tab: (idx < 10 ifTrue: [2] ifFalse: [1]); nextPutAll: ((value isInteger and: [idx ~= 41]) ifTrue: [value asStringWithCommas] ifFalse: [value printString])] - aStream print: idx; tab; nextPutAll: ((value isInteger and: [idx ~= 41]) ifTrue: [value asStringWithCommas] ifFalse: [value printString])] ifFalse: [value := vmParameters at: idx first. aStream print: idx first; next: 2 put: $.; print: idx last; tab. values := idx collect: [:i| vmParameters at: i]. values asSet size = 1 ifTrue: [aStream print: value] ifFalse: [values do: [:v| aStream print: v] separatedBy: [aStream nextPutAll: ', ']]]. aStream tab; nextPutAll: desc; cr]!

1 0

The Trunk: System-eem.789.mcz
by commits＠source.squeak.org 25 Jan '16

25 Jan '16

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.789.mcz ==================== Summary ==================== Name: System-eem.789 Author: eem Time: 25 January 2016, 7:37:27.08369 pm UUID: b86ef820-368a-49a4-925d-ea983158737f Ancestors: System-mt.788 Fix vmStatisticsReportString given recent clock changes. When available, use vmParameterAt: 20 to get the utc microsecond clock at startup, otherwise defer to the eventMillisecondClock. Remember to nil out LastStats on start-up to eliminate those whacky first queries where LastStats is left over from a prior snapshot. Also don't bother reestablishing event forwarding to Smalltalk unless starting up. =============== Diff against System-mt.788 =============== Item was removed: - ----- Method: SmalltalkImage class>>startUp (in category 'class initialization') ----- - startUp - SystemChangeNotifier uniqueInstance notify: Smalltalk ofAllSystemChangesUsing: #event:! Item was added: + ----- Method: SmalltalkImage class>>startUp: (in category 'class initialization') ----- + startUp: resuming + resuming ifTrue: + [LastStats := nil. + SystemChangeNotifier uniqueInstance notify: Smalltalk ofAllSystemChangesUsing: #event:]! Item was changed: ----- Method: SmalltalkImage>>vmStatisticsReportString (in category 'vm statistics') ----- vmStatisticsReportString "(Workspace new contents: Smalltalk vmStatisticsReportString) openLabel: 'VM Statistics'" "StringHolderView open: (StringHolder new contents: Smalltalk vmStatisticsReportString) label: 'VM Statistics'" + | params oldSpaceEnd youngSpaceEnd memorySize fullGCs fullGCTime incrGCs incrGCTime tenureCount upTime upTime2 fullGCs2 fullGCTime2 incrGCs2 incrGCTime2 tenureCount2 str freeSize youngSize used | - | params onSpur oldSpaceEnd youngSpaceEnd memorySize fullGCs fullGCTime incrGCs incrGCTime tenureCount upTime upTime2 fullGCs2 fullGCTime2 incrGCs2 incrGCTime2 tenureCount2 str freeSize youngSize used | params := self getVMParameters. - onSpur := (params at: 41 ifAbsent: [ 0 ]) anyMask: 16. oldSpaceEnd := params at: 1. youngSpaceEnd := params at: 2. memorySize := params at: 3. fullGCs := params at: 7. fullGCTime := params at: 8. incrGCs := params at: 9. incrGCTime := params at: 10. tenureCount := params at: 11. + upTime := (params at: 20) ~= 0 "utcMicrosecondClock at startupp in later Spur VMs" + ifTrue: [Time utcMicrosecondClock - (params at: 20) + 500 // 1000] + ifFalse: [Time eventMillisecondClock]. "Fall back on old microsecond clock; Good for 47.5 days" - upTime := Time millisecondClockValue. str := WriteStream on: (String new: 700). str nextPutAll: 'uptime '; print: (upTime / 1000 / 60 // 60); nextPut: $h; print: (upTime / 1000 / 60 \\ 60) asInteger; nextPut: $m; print: (upTime / 1000 \\ 60) asInteger; nextPut: $s; cr. str nextPutAll: 'memory '; nextPutAll: memorySize asStringWithCommas; nextPutAll: ' bytes'; cr. str nextPutAll: ' old '; nextPutAll: oldSpaceEnd asStringWithCommas; nextPutAll: ' bytes ('; print: (oldSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. + youngSize := params at: 44. - youngSize := onSpur - ifTrue: [params at: 44 "eden size"] "Spur" - ifFalse: [youngSpaceEnd - oldSpaceEnd]. "Squeak V3" str nextPutAll: ' young '; nextPutAll: youngSize asStringWithCommas; nextPutAll: ' bytes ('; print: youngSize / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. + youngSize := youngSpaceEnd. "used eden" + freeSize := (params at: 54) + (params at: 44) - youngSize. + used := youngSize + oldSpaceEnd - freeSize. - onSpur ifTrue: [youngSize := youngSpaceEnd "used eden"]. - freeSize := onSpur - ifTrue: [(params at: 54) + (params at: 44) - youngSize] "Spur" - ifFalse: [memorySize - youngSpaceEnd] "Squeak V3". - used := onSpur - ifTrue: [youngSize + oldSpaceEnd - freeSize] "Spur" - ifFalse: [youngSpaceEnd]. "Squeak V3" str nextPutAll: ' used '; nextPutAll: used asStringWithCommas; nextPutAll: ' bytes ('; print: used / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: ' free '; nextPutAll: freeSize asStringWithCommas; nextPutAll: ' bytes ('; print: freeSize / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: 'GCs '; nextPutAll: (fullGCs + incrGCs) asStringWithCommas. fullGCs + incrGCs > 0 ifTrue: [ str nextPutAll: ' ('; print: (upTime / (fullGCs + incrGCs)) maxDecimalPlaces: 1; nextPutAll: ' ms between GCs)' ]. str cr. str nextPutAll: ' full '; nextPutAll: fullGCs asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: fullGCTime asStringWithCommas; nextPutAll: ' ms ('; print: (fullGCTime / upTime * 100) maxDecimalPlaces: 1; nextPutAll: '% uptime)'. fullGCs = 0 ifFalse: [str nextPutAll: ', avg '; print: (fullGCTime / fullGCs) maxDecimalPlaces: 1; nextPutAll: ' ms']. str cr. str nextPutAll: ' incr '; nextPutAll: incrGCs asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: incrGCTime asStringWithCommas; nextPutAll: ' ms ('; print: (incrGCTime / upTime * 100) maxDecimalPlaces: 1; nextPutAll: '% uptime), avg '; print: (incrGCTime / incrGCs) maxDecimalPlaces: 1; nextPutAll: ' ms'; cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount asStringWithCommas. tenureCount = 0 ifFalse: [str nextPutAll: ' (avg '; print: incrGCs // tenureCount; nextPutAll: ' GCs/tenure)']. str cr. LastStats ifNil: [LastStats := Array new: 6] ifNotNil: [ upTime2 := upTime - (LastStats at: 1). fullGCs2 := fullGCs - (LastStats at: 2). fullGCTime2 := fullGCTime - (LastStats at: 3). incrGCs2 := incrGCs - (LastStats at: 4). incrGCTime2 := incrGCTime - (LastStats at: 5). tenureCount2 := tenureCount - (LastStats at: 6). str nextPutAll: self textMarkerForShortReport ; nextPutAll: (fullGCs2 + incrGCs2) asStringWithCommas. fullGCs2 + incrGCs2 > 0 ifTrue: [ str nextPutAll: ' ('; print: upTime2 // (fullGCs2 + incrGCs2); nextPutAll: ' ms between GCs)'. ]. str cr. str nextPutAll: ' uptime '; print: (upTime2 / 1000.0) maxDecimalPlaces: 1; nextPutAll: ' s'; cr. str nextPutAll: ' full '; nextPutAll: fullGCs2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: fullGCTime2 asStringWithCommas; nextPutAll: ' ms ('; print: (fullGCTime2 / upTime2 * 100) maxDecimalPlaces: 1; nextPutAll: '% uptime)'. fullGCs2 = 0 ifFalse: [str nextPutAll: ', avg '; print: (fullGCTime2 / fullGCs2) maxDecimalPlaces: 1; nextPutAll: ' ms']. str cr. str nextPutAll: ' incr '; nextPutAll: incrGCs2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: incrGCTime2 asStringWithCommas; nextPutAll: ' ms ('; print: (incrGCTime2 / upTime2 * 100) maxDecimalPlaces: 1; nextPutAll: '% uptime), avg '. incrGCs2 > 0 ifTrue: [ str print: (incrGCTime2 / incrGCs2) maxDecimalPlaces: 1; nextPutAll: ' ms' ]. str cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount2 asStringWithCommas. tenureCount2 = 0 ifFalse: [str nextPutAll: ' (avg '; print: incrGCs2 // tenureCount2; nextPutAll: ' GCs/tenure)']. str cr. ]. LastStats at: 1 put: upTime. LastStats at: 2 put: fullGCs. LastStats at: 3 put: fullGCTime. LastStats at: 4 put: incrGCs. LastStats at: 5 put: incrGCTime. LastStats at: 6 put: tenureCount. ^ str contents !

1 0

Proposal for a 'category browser' method on Browser class
by gettimothy 24 Jan '16

24 Jan '16

Back story. If you browse Category 'Kernel-Methods' class CompiledMethod and right click on 'accessing-pragmas & properties' then select 'browse' a Browser appears showing all the methods in that method category; In some HelpTopic work I am doing, I want to do the same thing within the HelpTopic so the user can do a DoIt and see all the related methods I am discussing. I hunted around for how the system currently does it and Browser->buildMessageCategoryBrowserEditString: aString does the work. I am able to duplicate that with Browser openBrowserView:( (Browser new) selectSystemCategory: #'Kernel-Methods'; selectClass: CompiledMethod; metaClassIndicated: false; selectMessageCategoryNamed: #'accessing-pragmas & properties'; selectMessageNamed: nil; openMessageCatEditString:nil) label: 'Message Category Browser (', #'Kernel-Classes' asString, ')'. While this works, embedding this in a HelpTopic is a bit clunky looking, so I propose adding a wrapper method such as: Browser openCategoryBrowserFor: #'Kernel-Methods' class: CompiledMethod category:#'accessing-pragmas & properties'

2 3

Monticello merge - what does Keep/Reject mean again?
by Chris Cunningham 24 Jan '16

24 Jan '16

So, once again, I am bitten by these button labels. They just don't speak to me. >From back in 2013, there was a description by Nice that explained it thus: "If you say keep, then you accept the incoming version to replace your version. If you say reject, then refuse the incoming version and prefer to keep your own version." Then back in 2015, another discussion about what these values mean with several options thrown out. But it looks like we still have Keep and Reject - which still confuses me. Maybe we could just relabel them the way Nice suggested: Keep -> 'Keep Incoming' Reject -> 'Reject Incoming' ? Maybe also update the balloon help to take Nice's exact words? I'll push a change later tonight/tomorrow to the InBox unless I hear back that this is a horrible idea. Thanks, cbc

8 8

Re: [squeak-dev] The Trunk: Tools-mt.665.mcz
by Chris Muller 24 Jan '16

24 Jan '16

Disable functionality because it might accidently be invoked? Shouldn't the requirement that the one being dragged be pre-selected be requirement enough? That way it won't happen through accidently clicking it, because its already clicked. Especially now that I can no longer refresh the file list by clicking the _already selected_ folder, something taht got broken since 5.0... Now I have to click on a different folder, then back to the folder I wanted to refresh...

5 14

Daily Commit Log
by commits＠source.squeak.org 23 Jan '16

23 Jan '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-January/009276.ht… Name: ToolBuilder-Morphic-mt.156 Ancestors: ToolBuilder-Morphic-kfr.155 Fixes a regression in pluggable trees. Now models can again govern the behavior of double-selections. FileList, for example, uses it to refresh the list of files. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-January/009277.ht… Name: ToolBuilder-Morphic-mt.157 Ancestors: ToolBuilder-Morphic-mt.156 Fixes a bug where text fields did not accept when they agreed to discard their edits silently. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-January/009278.ht… Name: HelpSystem-Core-mt.85 Ancestors: HelpSystem-Core-mt.84 Updates help browser to not consider edits in the search field. Fixes the bug with annoying dialog popups for every search request. =============================================

1 0

The Trunk: HelpSystem-Core-mt.85.mcz
by commits＠source.squeak.org 23 Jan '16

23 Jan '16

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.85.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.85 Author: mt Time: 23 January 2016, 12:10:31.113398 pm UUID: b57d1c05-9c97-4f30-8ca1-ea36ec62e045 Ancestors: HelpSystem-Core-mt.84 Updates help browser to not consider edits in the search field. Fixes the bug with annoying dialog popups for every search request. =============== Diff against HelpSystem-Core-mt.84 =============== Item was changed: ----- Method: HelpBrowser>>buildSearchWith: (in category 'toolbuilder') ----- buildSearchWith: builder ^ builder pluggableInputFieldSpec new model: self; getText: #searchTerm; setText: #searchTerm:; help: 'Search...'; + askBeforeDiscardingEdits: false; + indicateUnacceptedChanges: false; frame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ (Preferences standardDefaultTextFont height * 2))); yourself!

1 0

The Trunk: ToolBuilder-Morphic-mt.157.mcz
by commits＠source.squeak.org 23 Jan '16

23 Jan '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.157.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.157 Author: mt Time: 23 January 2016, 12:08:47.304398 pm UUID: 85c03d29-bbf2-4737-affe-7b1752475575 Ancestors: ToolBuilder-Morphic-mt.156 Fixes a bug where text fields did not accept when they agreed to discard their edits silently. =============== Diff against ToolBuilder-Morphic-mt.156 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableText: (in category 'widgets required') ----- buildPluggableText: aSpec | widget | widget := self textPaneClass new. aSpec stylerClass ifNotNil: [:c | widget styler: (c new view: widget)]. widget on: aSpec model text: aSpec getText accept: aSpec setText readSelection: aSpec selection menu: aSpec menu. aSpec font ifNotNil: [:f | widget font: f]. widget readOnly: aSpec readOnly. widget editTextSelector: aSpec editText. widget wantsFrameAdornments: aSpec indicateUnacceptedChanges. + widget askBeforeDiscardingEdits: aSpec askBeforeDiscardingEdits. + widget setProperty: #alwaysAccept toValue: aSpec askBeforeDiscardingEdits not. aSpec softLineWrap ifNotNil: [:b | widget wrapFlag: b]. widget isAutoFit ifTrue: [widget hideHScrollBarIndefinitely] ifFalse: [widget showHScrollBarOnlyWhenNeeded]. self register: widget id: aSpec name. widget getColorSelector: aSpec color. self buildHelpFor: widget spec: aSpec. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. widget borderColor: Color lightGray. widget color: Color white. ^widget!

1 0

The Trunk: ToolBuilder-Morphic-mt.156.mcz
by commits＠source.squeak.org 23 Jan '16

23 Jan '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.156.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.156 Author: mt Time: 23 January 2016, 11:41:12.364398 am UUID: e35cd3fa-7c53-4b6d-a989-867783958b05 Ancestors: ToolBuilder-Morphic-kfr.155 Fixes a regression in pluggable trees. Now models can again govern the behavior of double-selections. FileList, for example, uses it to refresh the list of files. =============== Diff against ToolBuilder-Morphic-kfr.155 =============== Item was changed: ----- Method: PluggableTreeMorph>>setSelectedMorph: (in category 'selection') ----- setSelectedMorph: aMorph - "Avoid unnecessary model callbacks." - self selectedMorph == aMorph ifTrue: [^ self]. - selectedWrapper := aMorph complexContents. "Let the model now about the selected object, not wrapper." setSelectionSelector ifNotNil: [:symbol | model perform: symbol with: (selectedWrapper ifNotNil: [:w | w item])]. "The model may not have access to the parent object in terms of this tree structure." setSelectedParentSelector ifNotNil: [:symbol | model perform: symbol with: (selectedWrapper ifNotNil: [:w | w parent ifNotNil: [:pw | pw item]])].!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
21
Older →

Jump to page: