Packages September 2019

packages@lists.squeakfoundation.org

1 participants
182 discussions

The Trunk: MorphicExtras-mt.263.mcz
by commits＠source.squeak.org 20 Sep '19

20 Sep '19

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.263.mcz ==================== Summary ==================== Name: MorphicExtras-mt.263 Author: mt Time: 20 September 2019, 7:33:43.513764 pm UUID: c9507d7d-abc0-c148-8457-00597e7cd102 Ancestors: MorphicExtras-mt.262 Complements Morphic-mt.1526 =============== Diff against MorphicExtras-mt.262 =============== Item was changed: ----- Method: TwoWayScrollPane>>totalScrollRange (in category 'geometry') ----- totalScrollRange "Return the entire scrolling range." + ^ ((scroller localSubmorphBounds ifNil: [^nil]) encompass: 0@0) extent - ^ ((scroller localVisibleSubmorphBounds ifNil: [^nil]) encompass: 0@0) extent !

1 0

The Trunk: Morphic-mt.1526.mcz
by commits＠source.squeak.org 20 Sep '19

20 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1526.mcz ==================== Summary ==================== Name: Morphic-mt.1526 Author: mt Time: 20 September 2019, 7:32:57.883764 pm UUID: bc706b68-7e7e-dc44-a2a7-07af99cbb7f8 Ancestors: Morphic-mt.1525 Cleans up methods for scroll-range calculation in scroll panes. =============== Diff against Morphic-mt.1525 =============== Item was removed: - ----- Method: PluggableListMorph>>hExtraScrollRange (in category 'scrolling') ----- - hExtraScrollRange - "Return the amount of extra blank space to include to the right of the scroll content." - ^5 - ! Item was changed: ----- Method: PluggableListMorph>>hUnadjustedScrollRange (in category 'scroll cache') ----- hUnadjustedScrollRange + "Override because our lazy list approximates the width for performance reasons." - "Return the entire scrolling range." self resetHScrollRangeIfNecessary. ^hScrollRangeCache second ! Item was removed: - ----- Method: PluggableListMorph>>vUnadjustedScrollRange (in category 'scrolling') ----- - vUnadjustedScrollRange - "Return the height extent of the receiver's submorphs." - (scroller submorphs size > 0) ifFalse:[ ^0 ]. - ^(scroller submorphs last fullBounds bottom) - ! Item was changed: ----- Method: ScrollPane>>hUnadjustedScrollRange (in category 'geometry ranges') ----- hUnadjustedScrollRange "Return the width extent of the receiver's submorphs." + ^ scroller localSubmorphBounds width! - | submorphBounds | - submorphBounds := scroller localSubmorphBounds ifNil: [^ 0]. - ^ submorphBounds right - ! Item was changed: ----- Method: ScrollPane>>vUnadjustedScrollRange (in category 'geometry ranges') ----- vUnadjustedScrollRange "Return the height extent of the receiver's submorphs." + + ^ scroller localSubmorphBounds height! - | submorphBounds | - submorphBounds := scroller localSubmorphBounds ifNil: [^ 0]. - ^ submorphBounds bottom - ! Item was removed: - ----- Method: SimpleHierarchicalListMorph>>hExtraScrollRange (in category 'scrolling') ----- - hExtraScrollRange - "Return the amount of extra blank space to include below the bottom of the scroll content." - ^5 - ! Item was changed: ----- Method: SimpleHierarchicalListMorph>>hUnadjustedScrollRange (in category 'scrolling') ----- hUnadjustedScrollRange "Return the width of the widest item in the list" | max count | + self flag: #tofix. "mt: What about icons and columns? Do we ever show horizontal scroll bars for such tree views anyway? Maybe just return 0?" + - max := 0. count := 0. scroller submorphsDo: [ :each | | stringW right | stringW := each font widthOfStringOrText: each contents. right := (each toggleRectangle right + stringW + 10). max := max max: right. "NOTE: need to optimize this method by caching list item morph widths (can init that cache most efficiently in the #list: method before the item widths are reset to 9999). For now, just punt on really long lists" ((count := count + 1) > 200) ifTrue:[ ^max * 3]. ]. ^max ! Item was removed: - ----- Method: SimpleHierarchicalListMorph>>vUnadjustedScrollRange (in category 'scrolling') ----- - vUnadjustedScrollRange - "Return the width of the widest item in the list" - - (scroller submorphs size > 0) ifFalse:[ ^0 ]. - ^scroller submorphs last fullBounds bottom - ! Item was changed: ----- Method: TransformMorph>>layoutBounds (in category 'layout') ----- layoutBounds + "Ignore scaling and offset but move to local origin for my children as reference point. Note that we do not have to adapt #submorphBoundsForShrinkWrap because those are already in local coordinates. See #adjustLayoutBounds and #setLayoutBoundsFromLayout:" - "Ignore scaling and offset but move to local origin for my children as reference point. Note that we do not have to adapt #submorphBoundsForShrinkWrap because those are already in local coordinates." ^ super layoutBounds translateBy: self topLeft negated! Item was changed: ----- Method: TransformMorph>>localSubmorphBounds (in category 'geometry') ----- localSubmorphBounds "Answer, in my coordinate system, the bounds of all my submorphs (or nil if no submorphs). We will cache this value for performance. The value is invalidated upon recieving #layoutChanged." + ^ localBounds ifNil: [localBounds := super submorphBounds]! - localBounds ifNil:[ - self submorphsDo:[:m | - localBounds ifNil: [localBounds := m fullBounds] - ifNotNil: [localBounds := localBounds quickMerge: m fullBounds]]. - ]. - - ^ localBounds! Item was removed: - ----- Method: TransformMorph>>localVisibleSubmorphBounds (in category 'geometry') ----- - localVisibleSubmorphBounds - "Answer, in my coordinate system, the bounds of all my visible submorphs (or nil if no visible submorphs)" - | subBounds | - subBounds := nil. - self submorphsDo: [:m | - (m visible) ifTrue: [ - subBounds - ifNil: [subBounds := m fullBounds copy] - ifNotNil: [subBounds := subBounds quickMerge: m fullBounds]] - ]. - ^subBounds! Item was changed: ----- Method: TransformMorph>>submorphBounds (in category 'layout') ----- submorphBounds "Answer, in owner coordinates, the bounds of my visible submorphs, or my bounds" | box | + box := self localSubmorphBounds. - box := self localVisibleSubmorphBounds. ^(box ifNotNil: [ transform localBoundsToGlobal: box ] ifNil: [ self bounds ]) truncated. !

1 0

The Trunk: Tests-ul.418.mcz
by commits＠source.squeak.org 20 Sep '19

20 Sep '19

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.418.mcz ==================== Summary ==================== Name: Tests-ul.418 Author: ul Time: 20 September 2019, 1:50:14.464647 am UUID: 5dd7903f-9ae3-4b29-9d9e-85b879de3049 Ancestors: Tests-mt.417 - updated PackageDependencyTest >> #testMonticello, because Monticello depends on WebClient-Core. =============== Diff against Tests-mt.417 =============== Item was changed: ----- Method: PackageDependencyTest>>testMonticello (in category 'tests') ----- testMonticello self testPackage: #Monticello dependsExactlyOn: #( #'Chronology-Core' Collections Compiler Compression Environments Files Graphics Kernel Morphic Multilingual Network #'PackageInfo-Base' #'Services-Base' System #'ToolBuilder-Kernel' Tools + #'WebClient-Core' ).!

1 0

The Trunk: Monticello-ul.701.mcz
by commits＠source.squeak.org 20 Sep '19

20 Sep '19

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.701.mcz ==================== Summary ==================== Name: Monticello-ul.701 Author: ul Time: 20 September 2019, 1:49:22.872448 am UUID: 6200146e-6bc8-483d-b784-34aeccaaa967 Ancestors: Monticello-pre.700 - assume that WebClient is always present in the image when Monticello is. This makes the Monticello package depend on the WebClient-Core package. - when using the shared WebClient instance during downloads, check if the client is still connected. If the client is not connected, e.g. the image was restarted, force the recreation of its stream by sending #close to the client. - use the same code instead of the HTTPSocket fallback in MCHttpRepository>>httpGet:arguments: when the #useSharedWebClientInstance preference is disabled =============== Diff against Monticello-pre.700 =============== Item was changed: ----- Method: MCHttpRepository class>>useSharedWebClientInstance (in category 'preferences') ----- useSharedWebClientInstance <preference: 'Use shared WebClient instance' category: 'Monticello' description: 'When true, use a shared WebClient instance to speed up downloads from MCHttpRepositories. Requires WebClient to be present.' type: #Boolean> + ^UseSharedWebClientInstance ifNil: [ true ]! - ^UseSharedWebClientInstance ifNil: [ Smalltalk hasClassNamed: #WebClient ]! Item was changed: ----- Method: MCHttpRepository>>httpGet:arguments: (in category 'private') ----- httpGet: url arguments: arguments | progress urlString client response result | - self class useSharedWebClientInstance ifFalse: [ - ^HTTPSocket httpGet: url args: arguments user: self user passwd: self password ]. progress := [ :total :amount | HTTPProgress new total: total; amount: amount; signal: 'Downloading...' ]. urlString := arguments ifNil: [ url ] ifNotNil: [ | queryString | + queryString := WebUtils encodeUrlEncodedForm: arguments. - queryString := (Smalltalk classNamed: #WebUtils) encodeUrlEncodedForm: arguments. (url includes: $?) ifTrue: [ url, '&', queryString ] ifFalse: [ url, '?', queryString ] ]. + self class useSharedWebClientInstance ifTrue: [ + "Acquire webClient by atomically storing it in the client variable and setting its value to nil." + client := webClient. + webClient := nil ]. + client + ifNil: [ client := WebClient new ] + ifNotNil: [ + "Attempt to avoid an error on windows by recreating the underlying stream." + client isConnected ifFalse: [ client close ] ]. - "Acquire webClient by atomically storing it in the client variable and setting its value to nil." - client := webClient. - webClient := nil. - client ifNil: [ client := (Smalltalk classNamed: #WebClient) new ]. response := client username: self user; password: self password; httpGet: urlString do: [ :request | request headerAt: 'Authorization' put: 'Basic ', (self user, ':', self password) base64Encoded; headerAt: 'Connection' put: 'Keep-Alive'; headerAt: 'Accept' put: '*/*' ]. result := (response code between: 200 and: 299) ifFalse: [ response content. "Make sure content is read." nil ] ifTrue: [ (RWBinaryOrTextStream with: (response contentWithProgress: progress)) reset ]. + self class useSharedWebClientInstance + ifTrue: [ + "Save the WebClient instance for reuse, but only if there is no client cached." + webClient + ifNil: [ webClient := client ] + ifNotNil: [ client close ] ] + ifFalse: [ client close ]. + result ifNil: [ NetworkError signal: 'Could not access ', location ]. + ^result! - "Save the WebClient instance for reuse, but only if there is no client cached." - webClient - ifNil: [ webClient := client ] - ifNotNil: [ client close ]. - ^result ifNil: [ - NetworkError signal: 'Could not access ', location. - nil ]!

1 0

The Trunk: Morphic-mt.1525.mcz
by commits＠source.squeak.org 19 Sep '19

19 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1525.mcz ==================== Summary ==================== Name: Morphic-mt.1525 Author: mt Time: 19 September 2019, 5:20:06.518125 pm UUID: a141a369-ecd4-3e4b-a1ad-fe7a82e7d186 Ancestors: Morphic-mt.1524 Allow system windows to override the system-wide "rounded window corners" preference. Used for tests. =============== Diff against Morphic-mt.1524 =============== Item was changed: ----- Method: Morph>>cornerStyle: (in category 'rounding') ----- cornerStyle: aSymbol "This method makes it possible to set up desired corner style. aSymbol has to be one of: #square #rounded" + self setProperty: #cornerStyle toValue: aSymbol. + self changed.! - aSymbol == #square - ifTrue:[self removeProperty: #cornerStyle] - ifFalse:[self setProperty: #cornerStyle toValue: aSymbol]. - self changed! Item was changed: ----- Method: SystemWindow>>wantsRoundedCorners (in category 'drawing') ----- wantsRoundedCorners + + ^ (self hasProperty: #cornerStyle) + ifTrue: [super wantsRoundedCorners] + ifFalse: [self class roundedWindowCorners]! - ^ self class roundedWindowCorners or: [super wantsRoundedCorners]!

1 0

The Trunk: Morphic-mt.1524.mcz
by commits＠source.squeak.org 19 Sep '19

19 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1524.mcz ==================== Summary ==================== Name: Morphic-mt.1524 Author: mt Time: 19 September 2019, 4:47:08.121125 pm UUID: 883ea759-a904-dd42-8549-8f2c64cae163 Ancestors: Morphic-mt.1523 Layout fixes and layout-configuration robustness: - Makes ScrollPane compatible with #shrinkWrap - Adds checks for common layout properties to guard against common mistakes such as "shrinkWrap" vs. "srinkWrap" and "spaceFill" vs. "spaceFIll". - Adds missing #layoutChanged calls to ScrollPane - Better commentary in TransformMorph >> #layoutBounds - Makes the ScrollPane's TransformMorph (i.e. scroller) have the resizing properties (#shrinkWrap/#spaceFill) as applied in ScrollPane >> #doLayoutIn:, which is a custom layout strategy - not a policy. =============== Diff against Morphic-mt.1523 =============== Item was changed: ----- Method: Morph>>cellSpacing: (in category 'layout-properties') ----- cellSpacing: aSymbol "Layout specific. This property describes how the cell size for each element in a list should be computed. #globalRect - globally equal rectangular cells #globalSquare - globally equal square cells #localRect - locally (e.g., per row/column) equal rectangular cells #localSquare - locally (e.g., per row/column) equal square cells #none - cells are sized based on available row/column constraints " + self checkCellSpacingProperty: aSymbol. - self assert: aSymbol isSymbol. "Guard against a common mistake." self assureTableProperties cellSpacing: aSymbol. self layoutChanged.! Item was added: + ----- Method: Morph>>checkCellSpacingProperty: (in category 'layout') ----- + checkCellSpacingProperty: aSymbol + + aSymbol == #none ifTrue: [^ self]. + + aSymbol == #globalRect ifTrue: [^ self]. + aSymbol == #globalSquare ifTrue: [^ self]. + aSymbol == #localRect ifTrue: [^ self]. + aSymbol == #localSquare ifTrue: [^ self]. + + Error signal: 'Invalid cell-spacing property. Use #none, #globalRect, #globalSquare, #localRect, or #localSquare.'.! Item was added: + ----- Method: Morph>>checkListSpacingProperty: (in category 'layout') ----- + checkListSpacingProperty: aSymbol + + aSymbol == #none ifTrue: [^ self]. + aSymbol == #equal ifTrue: [^ self]. + + Error signal: 'Invalid value for list-spacing property. Use #none or #equal.'.! Item was added: + ----- Method: Morph>>checkResizingProperty: (in category 'layout') ----- + checkResizingProperty: aSymbol + + aSymbol == #rigid ifTrue: [^ self]. + aSymbol == #shrinkWrap ifTrue: [^ self]. + aSymbol == #spaceFill ifTrue: [^ self]. + + Error signal: 'Invalid value for resizing property. Use #rigid, #shrinkWrap, or #spaceFill.'.! Item was changed: ----- Method: Morph>>hResizing: (in category 'layout-properties') ----- hResizing: aSymbol "Layout specific. This property describes how the receiver should be resized with respect to its owner and its children. Possible values are: #rigid - do not resize the receiver #spaceFill - resize to fill owner's available space #shrinkWrap - resize to fit children " + self checkResizingProperty: aSymbol. self assureLayoutProperties hResizing: aSymbol. self layoutChanged. ! Item was changed: ----- Method: Morph>>listSpacing: (in category 'layout-properties') ----- listSpacing: aSymbol "Layout specific. This property describes how the heights for different rows in a table layout should be handled. #equal - all rows have the same height #none - all rows may have different heights " + self checkListSpacingProperty: aSymbol. - self assert: aSymbol isSymbol. "Guard against a common mistake." self assureTableProperties listSpacing: aSymbol. self layoutChanged.! Item was changed: ----- Method: Morph>>vResizing: (in category 'layout-properties') ----- vResizing: aSymbol "Layout specific. This property describes how the receiver should be resized with respect to its owner and its children. Possible values are: #rigid - do not resize the receiver #spaceFill - resize to fill owner's available space #shrinkWrap - resize to fit children " + self checkResizingProperty: aSymbol. self assureLayoutProperties vResizing: aSymbol. self layoutChanged. ! Item was changed: ----- Method: ScrollPane>>alwaysShowHScrollBar (in category 'accessing options') ----- alwaysShowHScrollBar self hScrollBarPolicy: #always. - self hHideOrShowScrollBar. ! Item was changed: ----- Method: ScrollPane>>alwaysShowVScrollBar (in category 'accessing options') ----- alwaysShowVScrollBar self vScrollBarPolicy: #always. - self vHideOrShowScrollBar. ! Item was added: + ----- Method: ScrollPane>>checkScrollBarPolicy: (in category 'layout') ----- + checkScrollBarPolicy: aSymbol + + aSymbol == #never ifTrue: [^ self]. + aSymbol == #whenNeeded ifTrue: [^ self]. + aSymbol == #always ifTrue: [^ self]. + + Error signal: 'Invalid value for scrollbar policy. Use #never, #whenNeeded, or #always.'.! Item was changed: ----- Method: ScrollPane>>doLayoutIn: (in category 'layout') ----- doLayoutIn: layoutBounds "Manually layout my submorphs. Maybe we can find a proper layout policy in the future." + "1) Let submorph's #shrinkWrap first if they want to." + self submorphsDo: [:m | m fullBounds]. + self removeProperty: #doLayoutAgain. self updateLayout. + super doLayoutIn: layoutBounds. - - "Do one additional run if required." - (self hasProperty: #doLayoutAgain) - ifTrue: [self updateLayout]. + "Do one additional run if required." + (self hasProperty: #doLayoutAgain) ifTrue: [ + self updateLayout. + super doLayoutIn: layoutBounds].! - super doLayoutIn: layoutBounds.! Item was changed: ----- Method: ScrollPane>>extentToFit (in category 'geometry') ----- extentToFit "Resize scroll pane to exactly fit its contents." | offset | offset := 0@0. (retractableScrollBar not and: [self vScrollBarPolicy == #always]) ifTrue: [offset := (self scrollBarThickness - self borderWidth) @ offset y]. (retractableScrollBar not and: [self hScrollBarPolicy == #always]) ifTrue: [offset := offset x @ (self scrollBarThickness - self borderWidth)]. + ^ scroller submorphBounds extent + offset + (2* (self borderWidth @ self borderWidth))! - ^ scroller submorphBoundsForShrinkWrap extent + offset + (2* (self borderWidth @ self borderWidth))! Item was added: + ----- Method: ScrollPane>>hResizing: (in category 'layout') ----- + hResizing: aSymbol + "Pass #shrinkWrap property to scroller to make this scroll pane's layout work. See #doLayoutIn:." + + super hResizing: aSymbol. + + scroller hResizing: (aSymbol == #shrinkWrap + ifTrue: [#shrinkWrap] + ifFalse: [#spaceFill]).! Item was changed: ----- Method: ScrollPane>>hScrollBarPolicy: (in category 'accessing') ----- hScrollBarPolicy: aSymbol "#always, #never, #whenNeeded" + hScrollBarPolicy = aSymbol ifTrue: [^ self]. + self checkScrollBarPolicy: aSymbol. + + hScrollBarPolicy := aSymbol. + self layoutChanged.! - hScrollBarPolicy := aSymbol.! Item was changed: ----- Method: ScrollPane>>initializeScrollBars (in category 'initialization') ----- initializeScrollBars "Initialize vertical and horizontal scroll bars." (scrollBar := ScrollBar on: self getValue: nil setValue: #vScrollBarValue:) menuSelector: #vScrollBarMenuButtonPressed:; orientation: #vertical; extent: 1@1. (hScrollBar := ScrollBar on: self getValue: nil setValue: #hScrollBarValue:) menuSelector: #hScrollBarMenuButtonPressed:; orientation: #horizontal; extent: 1@1. "" + scroller := TransformMorph new + color: Color transparent; + hResizing: #spaceFill; + vResizing: #spaceFill. - scroller := TransformMorph new color: Color transparent. scroller offset: 0 @ 0. self addMorph: scroller. "" retractableScrollBar ifFalse: [self addMorph: scrollBar; addMorph: hScrollBar]. self updateMinimumExtent.! Item was added: + ----- Method: ScrollPane>>submorphBoundsForShrinkWrap (in category 'layout') ----- + submorphBoundsForShrinkWrap + "No need to consider scrollbars because those are placed outside the #innerBounds like a border. See #resizeScroller." + + ^ scroller bounds! Item was changed: ----- Method: ScrollPane>>updateLayout (in category 'layout') ----- updateLayout "Manually layout my submorphs. Maybe we can find a proper layout policy in the future." + "If the scroller happens to have a layout policy, we should compute its layout before updating the scroll bars" + self resizeScroller. + self scroller fullBounds. + self resizeScrollBars; - resizeScroller; adjustOffset; setScrollDeltas. + + + ! - - "If the scroller happens to have a layout policy, we should compute its layout before any additional run." - self scroller fullBounds.! Item was added: + ----- Method: ScrollPane>>vResizing: (in category 'layout') ----- + vResizing: aSymbol + "Pass #shrinkWrap property to scroller to make this scroll pane's layout work. See #doLayoutIn:." + + super vResizing: aSymbol. + + scroller vResizing: (aSymbol == #shrinkWrap + ifTrue: [#shrinkWrap] + ifFalse: [#spaceFill]).! Item was changed: ----- Method: ScrollPane>>vScrollBarPolicy: (in category 'accessing') ----- vScrollBarPolicy: aSymbol "#always, #never, #whenNeeded" + vScrollBarPolicy = aSymbol ifTrue: [^ self]. + self checkScrollBarPolicy: aSymbol. + + vScrollBarPolicy := aSymbol. + self layoutChanged.! - vScrollBarPolicy := aSymbol.! Item was changed: ----- Method: TransformMorph>>layoutBounds (in category 'layout') ----- layoutBounds + "Ignore scaling and offset but move to local origin for my children as reference point. Note that we do not have to adapt #submorphBoundsForShrinkWrap because those are already in local coordinates." - "Ignore scaling and offset but move to local origin for my children as reference point." ^ super layoutBounds translateBy: self topLeft negated!

1 0

The Trunk: HelpSystem-Core-mt.116.mcz
by commits＠source.squeak.org 19 Sep '19

19 Sep '19

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.116.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.116 Author: mt Time: 19 September 2019, 10:26:04.949528 am UUID: 939aa976-1aea-3b44-a33f-f3373629832d Ancestors: HelpSystem-Core-mt.115 Fixes a regression: make release notes editable in help browser again. =============== Diff against HelpSystem-Core-mt.115 =============== Item was removed: - ----- Method: DirectoryBasedHelpTopic>>editable (in category 'testing') ----- - editable - ^ true! Item was added: + ----- Method: FileBasedHelpTopic>>accept:for: (in category 'editing') ----- + accept: newContents for: subtopic + + FileStream forceNewFileNamed: self fileEntry fullName do: [:strm | + strm nextChunkPutWithStyle: newContents]. + + ! Item was added: + ----- Method: FileBasedHelpTopic>>isEditable (in category 'testing') ----- + isEditable + + ^ true! Item was added: + ----- Method: FileBasedHelpTopic>>refresh (in category 'updating') ----- + refresh + + contents := nil. + self changed: #contents.!

1 0

The Trunk: ReleaseBuilder-mt.198.mcz
by commits＠source.squeak.org 19 Sep '19

19 Sep '19

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.198.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.198 Author: mt Time: 19 September 2019, 10:25:20.191528 am UUID: d9ad83c4-46ac-c44d-92f1-f7d07febea0a Ancestors: ReleaseBuilder-mt.197 Improves readability of changes file-out. Actually file-out the changes between 5.2 release and current Trunk. =============== Diff against ReleaseBuilder-mt.197 =============== Item was changed: ----- Method: ReleaseBuilder class>>changesBetweenReleases (in category 'scripts - support') ----- changesBetweenReleases | repos configs result | + repos :=#(52) collect: [:ea | - repos :=#(51) collect: [:ea | (MCHttpRepository location: 'http://source.squeak.org/squeak', ea user: 'squeak' password: 'squeak')]. configs := repos collect: [:ea | ea description -> (self firstConfigurationIn: ea map: 'update')]. configs := configs, {(self buildRepository description -> self buildConfiguration)}. result := OrderedDictionary new. configs overlappingPairsDo: [:c1 :c2 | result at: c2 key put: (self changesBetween: c1 value and: c2 value)]. ^ result ! Item was changed: ----- Method: ReleaseBuilder class>>fileOutChangesBetweenReleases (in category 'scripts - support') ----- fileOutChangesBetweenReleases "Generate mark-down files with all commit messages by release. To be used to write release notes." | fileNames | fileNames := OrderedCollection new. self changesBetweenReleases keysAndValuesDo: [:location :c | fileNames add: ('commits-{1}.md' format: {(location findTokens: '/') last}). FileStream forceNewFileNamed: fileNames last do: [:strm | c keysAndValuesDo: [:pkg :changes | strm nextPutAll: '# '; nextPutAll: pkg name; cr. changes keysAndValuesDo: [:ver :msg | msg linesDo: [:line | line withBlanksTrimmed ifNotEmpty: [:m | (m first isDigit or: [{$*. $-} includes: m first]) ifTrue: [strm nextPutAll: ' ', m] ifFalse: [strm nextPutAll: ' - ', m]. + strm cr]]. + strm nextPutAll: '------------------'; cr]]]]. - strm cr]]]]]]. self inform: 'Files written:\' withCRs, (fileNames joinSeparatedBy: String cr).!

1 0

The Trunk: ToolBuilder-Kernel-mt.132.mcz
by commits＠source.squeak.org 18 Sep '19

18 Sep '19

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.132.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.132 Author: mt Time: 18 September 2019, 4:54:47.269955 pm UUID: 64a42905-ca5e-3e42-b14f-45fa808ed3fb Ancestors: ToolBuilder-Kernel-mt.131 Also debugger-tools should return their tool window through the ToolBuilder interface. =============== Diff against ToolBuilder-Kernel-mt.131 =============== Item was changed: ----- Method: ToolBuilder>>openDebugger: (in category 'opening') ----- openDebugger: aSpec "Build and open a debugger from the given spec. Answer the widget opened. Subclasses can override this method if opening a debugger has specific requirements different from opening other widgets." + ^ self open: aSpec - self open: aSpec ! Item was changed: ----- Method: ToolBuilder>>openDebugger:label:closing: (in category 'opening') ----- openDebugger: aSpec label: aString closing: topView "Build and open a debugger from the given spec, labeling it appropriately. Answer the widget opened. Subclasses can override this method if opening a debugger has specific requirements different from opening other widgets." self close: topView. + ^ self open: aSpec label: aString - self open: aSpec label: aString !

1 0

The Trunk: MorphicExtras-mt.262.mcz
by commits＠source.squeak.org 18 Sep '19

18 Sep '19

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.262.mcz ==================== Summary ==================== Name: MorphicExtras-mt.262 Author: mt Time: 18 September 2019, 1:18:01.785645 pm UUID: 57e22683-82a2-ba43-b478-2d01cf9b5393 Ancestors: MorphicExtras-mt.261 Fixes thumbnail generation in project-sorter morph. =============== Diff against MorphicExtras-mt.261 =============== Item was changed: ----- Method: ProjectSorterMorph>>addControls (in category 'initialization') ----- addControls "Add the control bar at the top of the tool." | b r partsBinButton newButton aWrapper | + newButton := ImageMorph new image: (Project current makeThumbnail scaledToSize: 48@36). - newButton := ImageMorph new image: (self world project makeThumbnail scaledToSize: 48@36). newButton on: #mouseDown send: #insertNewProject: to: self. newButton setBalloonText: 'Make a new Project' translated. (partsBinButton := UpdatingThreePhaseButtonMorph checkBox) target: self; actionSelector: #togglePartsBinStatus; arguments: #(); getSelector: #getPartsBinStatus. (r := AlignmentMorph newRow) color: Color transparent; borderWidth: 0; layoutInset: 0; cellInset: 10@0; wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #shrinkWrap; vResizing: #shrinkWrap; extent: 5@5. b := SimpleButtonMorph new target: self; color: self defaultColor darker; borderColor: Color black. r addMorphBack: (self wrapperFor: (b label: 'Okay' translated font: ScriptingSystem fontForEToyButtons; actionSelector: #acceptSort)). b := SimpleButtonMorph new target: self; color: self defaultColor darker; borderColor: Color black. r addMorphBack: (self wrapperFor: (b label: 'Cancel' translated font: ScriptingSystem fontForEToyButtons; actionSelector: #delete)); addTransparentSpacerOfSize: 8 @ 0; addMorphBack: (self wrapperFor: (newButton)); addTransparentSpacerOfSize: 8 @ 0. aWrapper := AlignmentMorph newRow beTransparent. aWrapper cellInset: 0; layoutInset: 0; borderWidth: 0. aWrapper addMorphBack: (self wrapperFor: partsBinButton); addMorphBack: (self wrapperFor: (StringMorph contents: 'Parts bin' translated font: ScriptingSystem fontForEToyButtons) lock). r addMorphBack: aWrapper. self addMorphFront: r. !

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
19
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2019