Squeak-dev March 2020

squeak-dev@lists.squeakfoundation.org

38 participants
319 discussions

The Trunk: System-mt.1142.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1142.mcz ==================== Summary ==================== Name: System-mt.1142 Author: mt Time: 5 March 2020, 1:17:57.313611 pm UUID: c0bcbaf5-9833-b641-ae8a-8e03d89bb84c Ancestors: System-mt.1141 Adds support for setting a value in the current UI theme similar to retrieving it like this: self userInterfaceTheme myBackgroundColor: Color black. =============== Diff against System-mt.1141 =============== Item was changed: ----- Method: UserInterfaceThemeRequest>>doesNotUnderstand: (in category 'lookup') ----- doesNotUnderstand: aMessage "Look up the visual attribute specified by aMessage's #selector in the current theme for the current target object." aMessage numArgs = 0 ifTrue: [ ^ (self theme get: self target class -> aMessage selector) ifNil: [(self theme respondsTo: aMessage selector) ifTrue: [self theme perform: aMessage selector] ifFalse: [nil "unset property"]]]. + aMessage numArgs = 1 ifTrue: [ + ^ self theme + set: self target class -> aMessage selector asSimpleGetter + to: aMessage arguments first]. + ^ self theme perform: aMessage selector withArguments: aMessage arguments.!

1 0

The Trunk: Tools-nice.725.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.725.mcz ==================== Summary ==================== Name: Tools-nice.725 Author: nice Time: 4 September 2016, 9:31:23.175175 pm UUID: 7009e733-b45e-403a-9469-6106ad6f747a Ancestors: Tools-tfel.724 Recognize Cuis #classDefinition: when scanning a cuis change file. =============== Diff against Tools-tfel.724 =============== Item was changed: ----- Method: ChangeList>>scanCategory (in category 'scanning') ----- scanCategory "Scan anything that involves more than one chunk; method name is historical only" + | itemPosition item tokens stamp anIndex class meta | - | itemPosition item tokens stamp anIndex | itemPosition := file position. item := file nextChunk. ((item includesSubstring: 'commentStamp:') or: [(item includesSubstring: 'methodsFor:') + or: [(item includesSubstring: 'classDefinition:') + or: [item endsWith: 'reorganize']]]) ifFalse: - or: [item endsWith: 'reorganize']]) ifFalse: ["Maybe a preamble, but not one we recognize; bail out with the preamble trick" ^ self addItem: (ChangeRecord new file: file position: itemPosition type: #preamble) text: ('preamble: ' , item contractTo: 50)]. tokens := Scanner new scanTokens: item. tokens size >= 3 ifTrue: [stamp := ''. anIndex := tokens indexOf: #stamp: ifAbsent: [nil]. anIndex ifNotNil: [stamp := tokens at: (anIndex + 1)]. tokens second == #methodsFor: ifTrue: [^ self scanCategory: tokens third class: tokens first meta: false stamp: stamp]. tokens third == #methodsFor: ifTrue: [^ self scanCategory: tokens fourth class: tokens first meta: true stamp: stamp]]. tokens second == #commentStamp: ifTrue: [stamp := tokens third. self addItem: (ChangeRecord new file: file position: file position type: #classComment class: tokens first category: nil meta: false stamp: stamp) text: 'class comment for ' , tokens first, (stamp isEmpty ifTrue: [''] ifFalse: ['; ' , stamp]). file nextChunk. ^ file skipStyleChunk]. + + tokens first == #classDefinition: + ifTrue: + [class := tokens second. + meta := tokens size >= 3 and: [tokens third = 'class']. + stamp := ''. + self addItem: + (ChangeRecord new file: file position: file position type: #classDefinition + class: class category: nil meta: meta stamp: stamp) + text: 'class definition for ' , class, + (stamp isEmpty ifTrue: [''] ifFalse: ['; ' , stamp]). + file nextChunk. + ^ file skipStyleChunk]. self assert: tokens last == #reorganize. self addItem: (ChangeRecord new file: file position: file position type: #reorganize class: tokens first category: nil meta: false stamp: stamp) text: 'organization for ' , tokens first, (tokens second == #class ifTrue: [' class'] ifFalse: ['']). file nextChunk!

1 0

The Trunk: Tools-jr.929.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-jr.929.mcz ==================== Summary ==================== Name: Tools-jr.929 Author: jr Time: 30 December 2019, 3:20:08.513977 pm UUID: 0a4d62fd-022e-1844-b6bc-db1502ab2466 Ancestors: Tools-cmm.928 Show browsed environment in Browser title if it is not the default environment. =============== Diff against Tools-cmm.928 =============== Item was changed: ----- Method: Browser>>defaultBrowserTitle (in category 'initialize-release') ----- defaultBrowserTitle + | title | + title := 'System Browser'. + ^ environment = self class environment + ifTrue: [title] + ifFalse: [title, ' on environment ', environment asString]! - ^ 'System Browser'!

1 0

The Trunk: Tools-kfr.930.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-kfr.930.mcz ==================== Summary ==================== Name: Tools-kfr.930 Author: kfr Time: 9 February 2020, 9:02:29.519512 pm UUID: 5ba34f14-47a5-3d41-b77a-e043dad99316 Ancestors: Tools-mt.929 Form preview was displaying wrong colors. Convert preview form to screen depth to make colors display correctly =============== Diff against Tools-mt.929 =============== Item was changed: ----- Method: FileList>>readGraphicContents (in category 'private') ----- readGraphicContents | form maxExtent ext | + form := (Form fromFileNamed: self fullName) asFormOfDepth: Display depth. - form := Form fromFileNamed: self fullName. maxExtent := lastGraphicsExtent := self availableGraphicsExtent. ext := form extent. (maxExtent notNil and: [form extent <= maxExtent]) ifFalse: [ form := form magnify: form boundingBox by: (maxExtent x / form width min: maxExtent y / form height) asPoint smoothing: 3]. contents := ('Image extent: ', ext printString) asText, (String with: Character cr), (Text string: ' ' attribute: (TextFontReference toFont: (FormSetFont new fromFormArray: (Array with: form) asciiStart: Character space asInteger ascent: form height))). brevityState := #graphic. ^contents!

1 0

The Trunk: Tools-ct.941.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.941.mcz ==================== Summary ==================== Name: Tools-ct.941 Author: ct Time: 16 February 2020, 4:48:20.368878 pm UUID: 152d52a8-5a34-e545-a638-a80249453a58 Ancestors: Tools-mt.939 Fixes a small bug when reusing a MessageNames window. To reproduce: Preferences setFlag: #(SystemWindow >> reuseWindows) join asSymbol toValue: true during: [ ToolSet browseMessageNames: 'someFictiveMessageName'; browseMessageNames: 'someOtherFictiveMessageName']. =============== Diff against Tools-mt.939 =============== Item was added: + ----- Method: MessageNames>>postAcceptBrowseFor: (in category 'morphic ui') ----- + postAcceptBrowseFor: anotherModel + + self searchString: anotherModel searchString.!

1 0

The Trunk: Tools-ct.945.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.945.mcz ==================== Summary ==================== Name: Tools-ct.945 Author: ct Time: 24 February 2020, 1:56:51.392323 pm UUID: cc577466-ca48-484b-9454-11ae7ffde0b2 Ancestors: Tools-mt.940 Fixes a bug/unnecessary limitation in VersionsBrowser class >> #browseMethod: that raised an error when browsing a method that had been removed from the system. You can also reproduce it via: thisContext method browse "on a fresh image". This commit replaces Tools-ct.944, which has been refactored again to reuse the return carat according to Kent Beck ("Format conditionals so their value is used where it clearly expresses the intent of the method"). Thanks to Chris for the reminder! =============== Diff against Tools-mt.940 =============== Item was changed: ----- Method: VersionsBrowser class>>browseMethod: (in category 'instance creation') ----- browseMethod: aCompiledMethod + ^ (self browseVersionsOf: aCompiledMethod) + ifNotNil: [:browser | + browser selectMethod: aCompiledMethod]; - ^ (self browseVersionsForClass: aCompiledMethod methodClass selector: aCompiledMethod selector) - selectMethod: aCompiledMethod; yourself! Item was added: + ----- Method: VersionsBrowser class>>browseVersionsOf: (in category 'instance creation') ----- + browseVersionsOf: aCompiledMethod + + | methodClass methodSelector | + methodClass := aCompiledMethod methodClass. + methodSelector := aCompiledMethod selector. + ^ self + browseVersionsOf: aCompiledMethod + class: methodClass + meta: methodClass isMeta + category: (methodClass organization categoryOfElement: methodSelector) + selector: methodSelector!

1 0

The Trunk: Tools-ct.952.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.952.mcz ==================== Summary ==================== Name: Tools-ct.952 Author: ct Time: 2 March 2020, 2:52:00.705976 pm UUID: 3497b3a9-fd0d-d447-8ddf-31b89d99f92a Ancestors: Tools-mt.940 Fixes an invalidation bug in the debugger's stack list display optimization For the full bug report, see http://forum.world.st/BUG-in-Debugger-gt-gt-newStack-optimization-td5112726…. Please review! =============== Diff against Tools-mt.940 =============== Item was changed: ----- Method: Debugger>>newStack: (in category 'private') ----- newStack: stack | oldStack diff | oldStack := contextStack. contextStack := stack. (oldStack == nil or: [oldStack last ~~ stack last]) ifTrue: [contextStackList := contextStack collect: [:ctx | ctx printString]. ^ self]. "May be able to re-use some of previous list" diff := stack size - oldStack size. contextStackList := diff <= 0 ifTrue: [contextStackList copyFrom: 1-diff to: oldStack size] + ifFalse: [(diff = 1 and: [stack second == oldStack first]) + ifTrue: [contextStackList copyWithFirst: stack first printString] + ifFalse: [contextStack collect: [:ctx | ctx printString]]]! - ifFalse: [diff > 1 - ifTrue: [contextStack collect: [:ctx | ctx printString]] - ifFalse: [(Array with: stack first printString) , contextStackList]]!

1 0

The Trunk: MorphicExtras-mt.272.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.272.mcz ==================== Summary ==================== Name: MorphicExtras-mt.272 Author: mt Time: 5 March 2020, 9:08:23.933327 am UUID: 9405455d-b08e-8747-97f3-7a3e3614ed26 Ancestors: MorphicExtras-mt.271 Removes more deprecated message sends. =============== Diff against MorphicExtras-mt.271 =============== Item was changed: ----- Method: BookPageSorterMorph>>book:morphsToSort: (in category 'initialization') ----- book: aBookMorph morphsToSort: morphList | innerBounds scrollPane newHeight | book := aBookMorph. newHeight := self currentWorld height. pageHolder removeAllMorphs. pageHolder addAllMorphs: morphList. pageHolder extent: pageHolder width@pageHolder fullBounds height. innerBounds := Rectangle merging: (morphList collect: [:m | m bounds]). pageHolder extent: innerBounds extent + pageHolder borderWidth + 6. (pageHolder height > newHeight) ifTrue: [ scrollPane := ScrollPane new. self height: newHeight. scrollPane model: pageHolder. scrollPane extent: pageHolder width@(newHeight - aBookMorph submorphs first height - 28). self addMorph: scrollPane inFrontOf: pageHolder. scrollPane scroller addMorph: pageHolder. scrollPane scrollBarOnLeft: false. scrollPane retractable: false. + scrollPane hScrollBarPolicy: #never. - scrollPane hideHScrollBarIndefinitely: true. scrollPane borderWidth: 1; borderColor: Color gray. ]. !

1 0

The Trunk: EToys-mt.385.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.385.mcz ==================== Summary ==================== Name: EToys-mt.385 Author: mt Time: 5 March 2020, 9:07:20.219327 am UUID: 940d62a0-8c84-a642-b6ff-b449e679723c Ancestors: EToys-nice.384 Removes more deprecated message sends. =============== Diff against EToys-nice.384 =============== Item was changed: ----- Method: EventRollMorph>>formulate (in category 'processing') ----- formulate "Given that all my relevant inst vars are now filled,build the structures that constitute the tool." "Replace the parts of the tool that change" | outer scrollAreaWidth | submorphs size > 1 ifFalse: [scrollAreaWidth := 600] ifTrue: [scrollAreaWidth := submorphs second width]. [submorphs size > 1] whileTrue: [submorphs last delete]. actualRoll := EventTimeline new extent: ( (self totalDuration / millisecondsPerPixel) @ 160). actualRoll color: Color yellow muchLighter. actualRoll beSticky. outer := ScrollPane new extent: scrollAreaWidth @ 160. outer model: self. outer useRoundedCorners. outer scrollBarOnLeft: false. outer scroller addMorph: actualRoll. outer retractable: false. + outer vScrollBarPolicy: #never. + outer hScrollBarPolicy: #always. - outer hideVScrollBarIndefinitely: true. - outer alwaysShowHScrollBar: true. self addMorphBack: outer. self setMouseEventMorphs. self setKeyboardEventMorphs. self setMediaEventMorphs. self setTimeIndicators. actualRoll addMorphFront: eventPlaybackCursor. eventPlaybackCursor bounds: (actualRoll topLeft extent: (2 @ actualRoll height)). self setVerticalGrid: (1000/millisecondsPerPixel) rounded backgroundColor: Color blue veryMuchLighter lineColor: Color gray darker. self updateScrollbar!

1 0

The Trunk: ST80Tools-mt.12.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of ST80Tools to project The Trunk: http://source.squeak.org/trunk/ST80Tools-mt.12.mcz ==================== Summary ==================== Name: ST80Tools-mt.12 Author: mt Time: 5 March 2020, 9:05:58.968327 am UUID: 05db32d3-3285-2d4a-bb84-a2c466af4e01 Ancestors: ST80Tools-mt.11 Removes more deprecated message sends. =============== Diff against ST80Tools-mt.11 =============== Item was changed: ----- Method: FileList class>>openInMVC (in category '*ST80Tools-instance creation') ----- openInMVC "Open a view of an instance of me on the default directory." | dir aFileList topView volListView templateView fileListView fileContentsView underPane pHeight | dir := FileDirectory default. aFileList := self new directory: dir. topView := StandardSystemView new. topView model: aFileList; label: dir pathName; minimumSize: 200@200. topView borderWidth: 1. volListView := PluggableListView on: aFileList list: #volumeList selected: #volumeListIndex changeSelected: #volumeListIndex: menu: #volumeMenu:. volListView autoDeselect: false. volListView window: (0@0 extent: 80@45). topView addSubView: volListView. templateView := PluggableTextView on: aFileList text: #pattern accept: #pattern:. templateView askBeforeDiscardingEdits: false. templateView window: (0@0 extent: 80@15). topView addSubView: templateView below: volListView. aFileList wantsOptionalButtons ifTrue: [underPane := aFileList optionalButtonViewForMVC. underPane isNil ifTrue: [pHeight := 60] ifFalse: [ topView addSubView: underPane toRightOf: volListView. + pHeight := 60 - 10 "optionalButtonHeight"]] - pHeight := 60 - aFileList optionalButtonHeight]] ifFalse: [underPane := nil. pHeight := 60]. fileListView := PluggableListView on: aFileList list: #fileList selected: #fileListIndex changeSelected: #fileListIndex: menu: #fileListMenu:. fileListView window: (0@0 extent: 120@pHeight). underPane isNil ifTrue: [topView addSubView: fileListView toRightOf: volListView] ifFalse: [topView addSubView: fileListView below: underPane]. fileListView controller terminateDuringSelect: true. "Pane to left may change under scrollbar" fileContentsView := PluggableTextView on: aFileList text: #contents accept: #put: readSelection: #contentsSelection menu: #fileContentsMenu:shifted:. fileContentsView window: (0@0 extent: 200@140). topView addSubView: fileContentsView below: templateView. topView controller open! Item was changed: ----- Method: FileList>>optionalButtonViewForMVC (in category '*ST80Tools-initialization') ----- optionalButtonViewForMVC "Answer a view of optional buttons" | aView bHeight windowWidth offset previousView aButtonView wid services sel allServices | aView := View new model: self. + bHeight := 10. "optionalButtonHeight". - bHeight := self optionalButtonHeight. windowWidth := 120. aView window: (0 @ 0 extent: windowWidth @ bHeight). offset := 0. allServices := self universalButtonServices. services := allServices copyFrom: 1 to: (allServices size min: 5). previousView := nil. services do: [:service | sel := service selector. aButtonView := sel asString numArgs = 0 ifTrue: [PluggableButtonView on: service provider getState: (service extraSelector == #none ifFalse: [service extraSelector]) action: sel] ifFalse: [PluggableButtonView on: service provider getState: (service extraSelector == #none ifFalse: [service extraSelector]) action: sel getArguments: #fullName from: self]. service selector = services last selector ifTrue: [wid := windowWidth - offset] ifFalse: [aButtonView borderWidthLeft: 0 right: 1 top: 0 bottom: 0. wid := windowWidth // services size - 2]. aButtonView label: service buttonLabel asParagraph; window: (offset @ 0 extent: wid @ bHeight). offset := offset + wid. service selector = services first selector ifTrue: [aView addSubView: aButtonView] ifFalse: [aView addSubView: aButtonView toRightOf: previousView]. previousView := aButtonView]. ^ aView!

1 0

← Newer
1
...
23
24
25
26
27
28
29
...
32
Older →

Jump to page: