Squeak-dev May 2016

squeak-dev@lists.squeakfoundation.org

45 participants
258 discussions

The Trunk: ST80-mt.208.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.208.mcz ==================== Summary ==================== Name: ST80-mt.208 Author: mt Time: 4 May 2016, 3:44:43.013971 pm UUID: f7c73b93-4d3e-2841-af17-ba6d70a046c6 Ancestors: ST80-mt.207 Until we find a better way, let projects provide generic means of composing DisplayText into a Form. Used, for example, for our emergency debugger. =============== Diff against ST80-mt.207 =============== Item was added: + ----- Method: MVCProject>>composeDisplayTextIntoForm: (in category 'utilities') ----- + composeDisplayTextIntoForm: displayText + + ^ displayText asParagraph asForm!

1 0

The Trunk: Morphic-mt.1133.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1133.mcz ==================== Summary ==================== Name: Morphic-mt.1133 Author: mt Time: 4 May 2016, 3:43:34.666971 pm UUID: 3b022579-b00b-c84b-90be-1b1534c5586f Ancestors: Morphic-nice.1132 Until we find a better way, let projects provide generic means of composing DisplayText into a Form. Used, for example, for our emergency debugger. =============== Diff against Morphic-nice.1132 =============== Item was removed: - ----- Method: DisplayText>>composeForm (in category '*Morphic-Text') ----- - composeForm - "For the TT strings in MVC widgets in a Morphic world such as a progress bar, the form is created by Morphic machinery." - | canvas tmpText | - Smalltalk isMorphic - ifTrue: - [tmpText := TextMorph new contentsAsIs: text deepCopy. - foreColor ifNotNil: [tmpText text addAttribute: (TextColor color: foreColor)]. - backColor ifNotNil: [tmpText backgroundColor: backColor]. - tmpText setTextStyle: textStyle. - canvas := FormCanvas on: (Form extent: tmpText extent depth: 32). - tmpText drawOn: canvas. - form := canvas form. - ] - ifFalse: [form := self asParagraph asForm]! Item was added: + ----- Method: MorphicProject>>composeDisplayTextIntoForm: (in category 'utilities') ----- + composeDisplayTextIntoForm: displayText + + | tmpText canvas | + tmpText := TextMorph new contentsAsIs: displayText text deepCopy. + displayText foregroundColor ifNotNil: [:color | + tmpText text addAttribute: (TextColor color: color)]. + displayText backgroundColor ifNotNil: [:color | + tmpText backgroundColor: color]. + tmpText setTextStyle: displayText textStyle. + canvas := FormCanvas on: (Form extent: tmpText extent depth: 32). + tmpText drawOn: canvas. + ^ canvas form!

1 0

The Trunk: System-mt.822.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.822.mcz ==================== Summary ==================== Name: System-mt.822 Author: mt Time: 4 May 2016, 3:41:22.823971 pm UUID: 303d3668-90ba-ac46-b7d4-847e945efeb8 Ancestors: System-dtl.821 Until we find a better way, let projects provide generic means of composing DisplayText into a Form. Used, for example, for our emergency debugger. =============== Diff against System-dtl.821 =============== Item was added: + ----- Method: Project>>composeDisplayTextIntoForm: (in category 'utilities') ----- + composeDisplayTextIntoForm: displayText + "Compose the given display text into a form. This is at project level so that UI-specific mechanisms can be used. We may want to make this independent from Morphic or MVC in the future. Good-looking text rendering is good for any user interface." + + | port form font width height lines | + font := displayText textStyle defaultFont. + lines := displayText string lines. + + width := lines + ifEmpty: [1] + ifNotEmpty: [(lines collect: [:line | font widthOfString: line]) max]. + height := font height * lines size. + + form := Form extent: width@height depth: 32. + port := BitBlt toForm: form. + + "1) Fill background." + port + fill: form boundingBox + fillColor: displayText backgroundColor + rule: Form over. + + "2) Draw text lines." + port combinationRule: Form paint. + font + installOn: port + foregroundColor: displayText foregroundColor + backgroundColor: Color transparent. + + lines withIndexDo: [:line :index | + font + displayString: line + on: port + from: 1 + to: line size + at: 0@((index-1) * font height) + kern: 0]. + + ^ form!

1 0

The Trunk: ST80-mt.207.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.207.mcz ==================== Summary ==================== Name: ST80-mt.207 Author: mt Time: 4 May 2016, 2:30:01.391971 pm UUID: 5acb8b03-a5ea-614c-ab2e-b8151e67ff80 Ancestors: ST80-mt.206 Ensure string representation of items in MVC item views. Useful in general for erroneous models and in specific for tree view fall-back in MVC tool builder. =============== Diff against ST80-mt.206 =============== Item was added: + ----- Method: PluggableListViewByItem>>getList (in category 'as yet unclassified') ----- + getList + "Ensure that there are only strings in that list." + + ^ super getList collect: [:ea | ea asString]!

1 0

The Trunk: Tools-mt.696.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.696.mcz ==================== Summary ==================== Name: Tools-mt.696 Author: mt Time: 4 May 2016, 1:41:03.85699 pm UUID: 00c31901-2039-724b-b287-7e04e0b277c4 Ancestors: Tools-cmm.695 Makes inspector/explorer switch-button work in both MVC and Morphic. =============== Diff against Tools-cmm.695 =============== Item was changed: ----- Method: Inspector>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "Inspector openOn: SystemOrganization" + | windowSpec specs buttonOffset | - | windowSpec specs buttonOffset wantsExploreButton | - wantsExploreButton := Smalltalk isMorphic. buttonOffset := (Preferences standardButtonFont widthOfString: 'explore') * 3/2. - self flag: #mvc. "mt: We can remove this if we can build trees in MVC and thus have a working object explorer there." specs := { (0@0 corner: 0.3(a)0.71) -> [self buildFieldListWith: builder]. + (0.3(a)0.0corner: 1(a)0.71) -> [self buildValuePaneWith: builder]. + (LayoutFrame fractions: (0(a)0.71 corner: 1@1) offsets: (0@0 corner: buttonOffset negated@0)) -> [self buildCodePaneWith: builder]. + (LayoutFrame fractions: (1(a)0.71 corner: 1@1) offsets: (buttonOffset negated@0 corner: 0 @ 0)) -> [self buildExploreButtonWith: builder] + }. - (0.3(a)0.0corner: 1(a)0.71) -> [self buildValuePaneWith: builder]}, - (wantsExploreButton - ifTrue: [{ - (LayoutFrame fractions: (0(a)0.71 corner: 1@1) offsets: (0@0 corner: buttonOffset negated@0)) -> [self buildCodePaneWith: builder]. - (LayoutFrame fractions: (1(a)0.71 corner: 1@1) offsets: (buttonOffset negated@0 corner: 0 @ 0)) -> [self buildExploreButtonWith: builder].}] - ifFalse: [{(0.0(a)0.71 corner: 1@1) -> [self buildCodePaneWith: builder]}]). windowSpec := self buildWindowWith: builder specs: specs. windowSpec extent: self initialExtent. ^builder build: windowSpec! Item was changed: ----- Method: Inspector>>exploreObject (in category 'toolbuilder') ----- exploreObject "Switch to an explorer tool." + | window currentBounds | + currentBounds := ToolBuilder findDefault getBoundsForWindow: self containingWindow. + + "Close first because MVC fiddles around with processes." + self changed: #close. + - | window model | window := self object explore. - model := window model. + "---- In MVC, the lines after this will not be executed ---" + + window model setExpression: self expression. + ToolBuilder findDefault setBoundsForWindow: window to: currentBounds.! - model setExpression: self expression. - window bounds: self containingWindow bounds. - self changed: #close.! Item was changed: ----- Method: ObjectExplorer>>inspectObject (in category 'toolbuilder') ----- inspectObject "Switch to an inspector tool." + | window currentBounds | + currentBounds := ToolBuilder findDefault getBoundsForWindow: self containingWindow. + + "Close first because MVC fiddles around with processes." + self changed: #close. + - | window model | window := self rootObject inspect. - model := window model. + "---- In MVC, the lines after this will not be executed ---" + + window model setExpression: self expression. + ToolBuilder findDefault setBoundsForWindow: window to: currentBounds.! - model setExpression: self expression. - window bounds: self containingWindow bounds. - self changed: #close.!

1 0

The Trunk: ToolBuilder-Morphic-mt.162.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.162.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.162 Author: mt Time: 4 May 2016, 1:39:13.19299 pm UUID: 70119ca1-7c50-a44c-a598-7c4401b952b6 Ancestors: ToolBuilder-Morphic-mt.161 Implement hook to retrieve window bounds. =============== Diff against ToolBuilder-Morphic-mt.161 =============== Item was added: + ----- Method: MorphicToolBuilder class>>getBoundsForWindow: (in category 'services') ----- + getBoundsForWindow: morph + + ^ morph bounds! Item was added: + ----- Method: MorphicToolBuilder class>>setBoundsForWindow:to: (in category 'services') ----- + setBoundsForWindow: morph to: rectangle + + ^ morph bounds: rectangle!

1 0

The Trunk: ToolBuilder-MVC-mt.45.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-mt.45.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-mt.45 Author: mt Time: 4 May 2016, 1:38:11.47599 pm UUID: 38fdc832-d60a-c449-bb47-47197faa4cd1 Ancestors: ToolBuilder-MVC-mt.44 Implement hook to retrieve window bounds. Add list-fallback for tree specs. Do not raise an error anymore. Makes ObjectExplorer basically work in MVC. =============== Diff against ToolBuilder-MVC-mt.44 =============== Item was added: + ----- Method: MVCToolBuilder class>>getBoundsForWindow: (in category 'services') ----- + getBoundsForWindow: view + + ^ view displayBox! Item was added: + ----- Method: MVCToolBuilder class>>setBoundsForWindow:to: (in category 'services') ----- + setBoundsForWindow: standardSystemView to: rectangle + + ^ standardSystemView resizeTo: rectangle! Item was changed: ----- Method: MVCToolBuilder>>buildPluggableTree: (in category 'widgets required') ----- buildPluggableTree: aSpec + "Fall-back to list view. Just show the roots." + + | widget listClass getIndex setIndex | + listClass := PluggableListViewByItem. + getIndex := aSpec getSelected. + setIndex := aSpec setSelected. + widget := PluggableListViewByItem on: aSpec model + list: aSpec roots + selected: aSpec getSelected + changeSelected: aSpec setSelected + menu: aSpec menu + keystroke: aSpec keyPress. + self register: widget id: aSpec name. + self setFrame: aSpec frame in: widget. + parent ifNotNil:[parent addSubView: widget]. + panes ifNotNil:[ + aSpec roots ifNotNil:[panes add: aSpec roots]. + ]. + ^widget! - self shouldBeImplemented.!

1 0

The Trunk: ToolBuilder-Kernel-mt.96.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.96.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.96 Author: mt Time: 4 May 2016, 1:36:48.21799 pm UUID: 9c962b8d-8449-834d-9f5c-82e7b851768a Ancestors: ToolBuilder-Kernel-mt.95 Add a general hook to retrieve bounds for a window. =============== Diff against ToolBuilder-Kernel-mt.95 =============== Item was added: + ----- Method: ToolBuilder class>>getBoundsForWindow: (in category 'services') ----- + getBoundsForWindow: window + "Return the bounds for the given window." + + self subclassResponsibility.! Item was added: + ----- Method: ToolBuilder class>>setBoundsForWindow:to: (in category 'services') ----- + setBoundsForWindow: window to: rectangle + "Set the bounds for the given window." + + self subclassResponsibility.!

1 0

The Trunk: ST80-mt.206.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.206.mcz ==================== Summary ==================== Name: ST80-mt.206 Author: mt Time: 4 May 2016, 1:35:41.04699 pm UUID: 69676c6d-8920-3746-a21f-d63502700535 Ancestors: ST80-dtl.205 Consistently with Morphic's system windows, allow models to close windows also in MVC. =============== Diff against ST80-dtl.205 =============== Item was changed: ----- Method: StandardSystemView>>update: (in category 'updating') ----- update: aSymbol aSymbol = #relabel ifTrue: [^ self setLabelTo: model labelString]. + aSymbol = #close + ifTrue: [^ self controller closeAndUnscheduleNoTerminate]. + ^ super update: aSymbol!

1 0

The Trunk: Kernel-nice.1017.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1017.mcz ==================== Summary ==================== Name: Kernel-nice.1017 Author: nice Time: 4 May 2016, 11:38:09.824683 am UUID: 1ffcd709-05e7-2947-b002-099b73ad8920 Ancestors: Kernel-mt.1016 Fix slip in floorLog: fallback, 10 was hardcoded instead of radix parameter =============== Diff against Kernel-mt.1016 =============== Item was changed: ----- Method: Fraction>>floorLog: (in category 'mathematical functions') ----- floorLog: radix "Unlike super, this version is exact when radix is integer" | d n | + radix isInteger ifFalse: [^super floorLog: radix]. - radix isInteger ifFalse: [^super floorLog: 10]. n := numerator floorLog: radix. d := denominator floorLog: radix. ^(numerator * (radix raisedTo: d)) < (denominator * (radix raisedTo: n)) ifTrue: [n - d - 1] ifFalse: [n - d]! Item was changed: ----- Method: Integer>>floorLog: (in category 'mathematical functions') ----- floorLog: radix "Unlike super, this version is exact when radix is integer" + radix isInteger ifFalse: [^super floorLog: radix]. - radix isInteger ifFalse: [^super floorLog: 10]. self <= 0 ifTrue: [^DomainError signal: 'floorLog: is only defined for x > 0.0']. ^(self numberOfDigitsInBase: radix) - 1!

1 0

Jump to page: