Squeak-dev May 2016

squeak-dev@lists.squeakfoundation.org

45 participants
258 discussions

The Trunk: HelpSystem-Core-nice.86.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Nicolas Cellier uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-nice.86.mcz ==================== Summary ==================== Name: HelpSystem-Core-nice.86 Author: nice Time: 4 May 2016, 11:48:13.917235 pm UUID: 1f4b56c6-5b30-4c68-b0cd-792223bd2057 Ancestors: HelpSystem-Core-mt.85 Move #representsSameBrowseeAs: out of Morphic =============== Diff against HelpSystem-Core-mt.85 =============== Item was added: + ----- Method: HelpBrowser>>representsSameBrowseeAs: (in category 'ui') ----- + representsSameBrowseeAs: anotherModel + ^ self hasUnacceptedEdits not and: + [ (toplevelTopics collect: + [ : e | e title ]) = + (anotherModel toplevelTopics collect: + [ : e | e title ]) ]!

1 0

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

04 May '16

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.697.mcz ==================== Summary ==================== Name: Tools-nice.697 Author: nice Time: 4 May 2016, 11:43:43.009175 pm UUID: 1d1b24ec-1ccd-4a62-af56-90db017c5eda Ancestors: Tools-mt.630, Tools-mt.696 Move #representsSameBrowseeAs: and #postAcceptBrowseFor: out of Morphic =============== Diff against Tools-mt.696 =============== Item was added: + ----- Method: HierarchyBrowser>>postAcceptBrowseFor: (in category 'morphic ui') ----- + postAcceptBrowseFor: aHierarchyBrowser + (aHierarchyBrowser selectedClass ~= self selectedClass or: [ aHierarchyBrowser selectedMessageName notNil ]) ifTrue: [ self selectMessageCategoryNamed: nil ]. + aHierarchyBrowser instanceMessagesIndicated + ifTrue: [ self indicateInstanceMessages ] + ifFalse: [ self indicateClassMessages ]. + self + selectClass: aHierarchyBrowser selectedClass ; + selectedMessageName: aHierarchyBrowser selectedMessageName ; + showHomeCategory! Item was added: + ----- Method: HierarchyBrowser>>representsSameBrowseeAs: (in category 'morphic ui') ----- + representsSameBrowseeAs: anotherModel + ^ self hasUnacceptedEdits not + and: [ classDisplayList size = anotherModel classList size + and: [ classDisplayList includesAllOf: anotherModel classList ] ]! Item was added: + ----- Method: Inspector>>representsSameBrowseeAs: (in category 'morphic ui') ----- + representsSameBrowseeAs: anotherInspector + ^ self object == anotherInspector object! Item was added: + ----- Method: MessageSet>>representsSameBrowseeAs: (in category 'morphic ui') ----- + representsSameBrowseeAs: anotherModel + ^ self hasUnacceptedEdits not + and: [ messageList = anotherModel messageList ]! Item was changed: + ----- Method: MessageSet>>request:initialAnswer: (in category 'user interface') ----- - ----- Method: MessageSet>>request:initialAnswer: (in category 'as yet unclassified') ----- request: prompt initialAnswer: initialAnswer ^ UIManager default request: prompt initialAnswer: initialAnswer!

1 0

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

04 May '16

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.1135.mcz ==================== Summary ==================== Name: Morphic-nice.1135 Author: nice Time: 4 May 2016, 11:19:13.406192 pm UUID: 2efd252e-effa-4796-82fb-aa2db0644bba Ancestors: Morphic-nice.1133, Morphic-mt.1133 Merge =============== Diff against Morphic-nice.1133 =============== 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: Graphics-nice.331.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.331.mcz ==================== Summary ==================== Name: Graphics-nice.331 Author: nice Time: 4 May 2016, 11:11:51.598676 pm UUID: a7db03ab-33da-44a8-a167-3a6aaccc7865 Ancestors: Graphics-nice.330, Graphics-mt.330 Merge =============== Diff against Graphics-nice.330 =============== Item was added: + ----- Method: DisplayText>>composeForm (in category 'private') ----- + composeForm + + form := Project current composeDisplayTextIntoForm: self.!

1 0

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

04 May '16

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.330.mcz ==================== Summary ==================== Name: Graphics-nice.330 Author: nice Time: 3 May 2016, 11:43:21.9999 pm UUID: 123836bb-88cf-4378-8cd9-9f8e044d7e62 Ancestors: Graphics-mt.329 Avoid dependency on Morphic just because some examples use Morphic. =============== Diff against Graphics-mt.329 =============== Item was removed: - ----- Method: Form class>>exampleColorSees (in category 'examples') ----- - exampleColorSees - "Form exampleColorSees" - "First column as above shows the sneaky red/yellow pirate sneaking up on the blue/peach galleon. - Second column shows the 1bpp made from the red/yellow/transparent - white -> ignore this, black -> test this - Third shows the hit area - where red touches blue - superimposed on the original scene. - Fourth column is the tally of hits via the old algorithm - Last column shows the tally of hits via the new prim" - - |formA formB maskA offset tally map intersection left top dCanvas sensitiveColor soughtColor index| - formA := formB := maskA := offset := tally := map := intersection := nil. "just to shut up the compiler when testing" - ActiveWorld restoreMorphicDisplay; doOneCycle. - - sensitiveColor := Color red. - soughtColor := Color blue. - - top := 50. - dCanvas := FormCanvas on: Display. - -50 to: 80 by: 10 do:[:p| - offset:= p@0. "vary this to check different states" - left := 10. - - formA := (Form extent: 100@50 depth: 32) asFormOfDepth: 16 "so we can try original forms of other depths". - formB := Form extent: 100@50 depth: 32. - - "make a red square in the middle of the form" - (FormCanvas on: formA) fillRectangle: (25@25 extent: 50@5) fillStyle: sensitiveColor. - (FormCanvas on: formA) fillRectangle: (25@30 extent: 50@5) fillStyle: Color transparent. - (FormCanvas on: formA) fillRectangle: (25@35 extent: 50@50) fillStyle: Color yellow. - "formA displayOn: Display at: left@top rule: Form paint. - dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. - left := left + 150." - - "make a blue block on the right half of the form" - (FormCanvas on: formB) fillRectangle: (50@0 extent: 50@100) fillStyle: soughtColor. - (FormCanvas on: formB) fillRectangle: (60@0 extent: 10@100) fillStyle: Color palePeach. - "formB displayOn: Display at: left@top rule: Form paint. - dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. - left := left + 150." - - intersection := (formA boundingBox translateBy: offset) intersect: (formB boundingBox). - - formB displayOn: Display at: left@top rule: Form paint. - formA displayOn: Display at: (left@top) + offset rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. - left := left + 150. - - maskA := Form extent: intersection extent depth: 1. - - map := Bitmap new: (1 bitShift: (formA depth min: 15)). - map at: (index := sensitiveColor indexInMap: map) put: 1. - - maskA copyBits: (intersection translateBy: offset negated) from: formA at: 0@0 colorMap: map. - formB displayOn: Display at: left@top rule: Form paint. - formA displayOn: Display at: (left@top) + offset rule: Form paint. - maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. left := left + 150. - - "intersect world pixels of the color we're looking for with sensitive pixels mask" - map at: index put: 0. "clear map and reuse it" - map at: (soughtColor indexInMap: map) put: 1. - - maskA - copyBits: intersection - from: formB at: 0@0 clippingBox: formB boundingBox - rule: Form and - fillColor: nil - map: map. - - formB displayOn: Display at: left@top rule: Form paint. - formA displayOn: Display at: (left@top) + offset rule: Form paint. - maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. - left := left + 170. - - (maskA tallyPixelValues at: 2) asString asDisplayText displayOn: Display at: left@(top +20). - left := left + 70. - - "now try using the new primitive" - tally := (BitBlt - destForm: formB - sourceForm: formA - fillColor: nil - combinationRule: 3 "really ought to work with nil but prim code checks" - destOrigin: intersection origin - sourceOrigin: (offset negated max: 0@0) - extent: intersection extent - clipRect: intersection) - primCompareColor: ((sensitiveColor pixelValueForDepth: formA depth) ) to: ((soughtColor pixelValueForDepth: formB depth) ) test: (Form compareMatchColor bitOr: Form compareTallyFlag). - tally asString asDisplayText displayOn: Display at: left@(top +20). - top:= top + 60] - - ! Item was removed: - ----- Method: Form class>>exampleTouchTest (in category 'examples') ----- - exampleTouchTest - "Form exampleTouchTest" - "Demonstrate the algorithm used in Scratch code to determine if a sprite's non-transparent pixels touch a - non-transparent pixel of the background upon which it is displayed. - First column shows a form with a red block in the midst of transparent area sneaking up on a form with a transparent LHS and blue RHS. The green frame shows the intersection area. - Second column shows in grey the part of the red that is within the intersection. - Third column shows in black the blue that is within the intersection. - Fourth column shows just the A touching B area. - Fifth column is the tally of hits via the old algorithm - Last column shows the tally of hits via the new prim" - |formA formB maskA maskB offset tally map intersection left top dCanvas| - formA := formB := maskA := maskB := offset := tally := map := intersection := nil. "just to shut up the compiler when testing" - - ActiveWorld restoreMorphicDisplay; doOneCycle. - - top := 50. - dCanvas := FormCanvas on: Display. - -50 to: 80 by: 10 do:[:p| - offset:= p@0. "vary this to check different states" - left := 10. - - formA := Form extent: 100@50 depth: 32. - formB := Form extent: 100@50 depth: 16. - - "make a red square in the middle of the form" - (FormCanvas on: formA) fillRectangle: (25@25 extent: 50@5) fillStyle: Color yellow. - (FormCanvas on: formA) fillRectangle: (25@30 extent: 50@5) fillStyle: Color transparent. - (FormCanvas on: formA) fillRectangle: (25@35 extent: 50@50) fillStyle: Color red. - "formA displayOn: Display at: left@top rule: Form paint. - dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. - left := left + 150." - - "make a blue block on the right half of the form" - (FormCanvas on: formB) fillRectangle: (50@0 extent: 50@100) fillStyle: Color blue. - (FormCanvas on: formB) fillRectangle: (60@0 extent: 10@100) fillStyle: Color palePeach. - "formB displayOn: Display at: left@top rule: Form paint. - dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. - left := left + 150." - - intersection := (formA boundingBox translateBy: offset) intersect: (formB boundingBox). - - formB displayOn: Display at: left@top rule: Form paint. - formA displayOn: Display at: (left@top) + offset rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. - left := left + 150. - - maskA := Form extent: intersection extent depth: 2. - formA displayOn: maskA at: offset - intersection origin rule: Form paint. - formB displayOn: Display at: left@top rule: Form paint. - formA displayOn: Display at: (left@top) + offset rule: Form paint. - maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. - left := left + 150. - - maskB := Form extent: intersection extent depth: 2. - formB displayOn: maskB at: intersection origin negated rule: Form paint. - formB displayOn: Display at: left@top rule: Form paint. - formA displayOn: Display at: (left@top) + offset rule: Form paint. - maskB displayOn: Display at: (left@top) + intersection origin rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. - left := left + 150. - - map := Bitmap new: 4 withAll: 1. - map at: 1 put: 0. "transparent" - - maskA copyBits: maskA boundingBox from: maskA at: 0@0 colorMap: map. - "maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. - left := left + 150." - - maskB copyBits: maskB boundingBox from: maskB at: 0@0 colorMap: map. - "maskB displayOn: Display at: (left@top) + intersection origin rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. - left := left + 150." - - maskB displayOn: maskA at: 0@0 rule: Form and. - maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. - left := left + 170. - - (maskA boundingBox area -( maskA tallyPixelValues at: 1)) asString asDisplayText displayOn: Display at: left@(top +20). - left := left + 70. - - "now try using the new primitive" - tally := (BitBlt - destForm: formB - sourceForm: formA - fillColor: nil - combinationRule: 3 "really ought to work with nil but prim code checks" - destOrigin: intersection origin - sourceOrigin: (offset negated max: 0@0) - extent: intersection extent - clipRect: intersection) - primCompareColor: ((Color transparent pixelValueForDepth: formA depth) bitAnd: 16rFFFFFF) to: ((Color transparent pixelValueForDepth: formB depth) bitAnd: 16rFFFFFF) test: (Form compareNotColorANotColorB bitOr: Form compareTallyFlag). - tally asString asDisplayText displayOn: Display at: left@(top +20). - top:= top + 60] - - - ! Item was removed: - ----- Method: Form class>>exampleTouchingColor (in category 'examples') ----- - exampleTouchingColor - "Form exampleTouchingColor" - "Demonstrate the algorithm used in Scratch code to determine if a sprite's non-transparent pixels touch a - particular color pixel of the background upon which it is displayed. - First column as above shows the sneaky red/yellow pirate sneaking up on the blue/peach galleon. - Second column shows the 1bpp made from the red/yellow/transparent - white -> ignore this, black -> test this - Third shows the hit area (black) superimposed on the original scene - Fourth column is the tally of hits via the old algorithm - Last column shows the tally of hits via the new prim" - |formA formB maskA offset tally map intersection left top dCanvas ignoreColor soughtColor| - formA := formB := maskA := offset := tally := map := intersection := nil. "just to shut up the compiler when testing" - ActiveWorld restoreMorphicDisplay; doOneCycle. - - ignoreColor := Color transparent. - soughtColor := Color blue. - - top := 50. - dCanvas := FormCanvas on: Display. - -50 to: 80 by: 10 do:[:p| - offset:= p@0. "vary this to check different states" - left := 10. - - formA := (Form extent: 100@50 depth: 32) asFormOfDepth: 16 "so we can try original forms of other depths". - formB := Form extent: 100@50 depth: 32. - - "make a red square in the middle of the form" - (FormCanvas on: formA) fillRectangle: (25@25 extent: 50@5) fillStyle: Color red. - (FormCanvas on: formA) fillRectangle: (25@30 extent: 50@5) fillStyle: Color transparent. - (FormCanvas on: formA) fillRectangle: (25@35 extent: 50@50) fillStyle: Color yellow. - "formA displayOn: Display at: left@top rule: Form paint. - dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. - left := left + 150." - - "make a blue block on the right half of the form" - (FormCanvas on: formB) fillRectangle: (50@0 extent: 50@100) fillStyle: soughtColor. - (FormCanvas on: formB) fillRectangle: (60@0 extent: 10@100) fillStyle: Color palePeach. - "formB displayOn: Display at: left@top rule: Form paint. - dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. - left := left + 150." - - intersection := (formA boundingBox translateBy: offset) intersect: (formB boundingBox). - - formB displayOn: Display at: left@top rule: Form paint. - formA displayOn: Display at: (left@top) + offset rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. - left := left + 150. - - maskA := Form extent: intersection extent depth: 1. - - map := Bitmap new: (1 bitShift: (formA depth min: 15)). - map atAllPut: 1. - map at: ( ignoreColor indexInMap: map) put: 0. - - maskA copyBits: (intersection translateBy: offset negated) from: formA at: 0@0 colorMap: map. - formB displayOn: Display at: left@top rule: Form paint. - formA displayOn: Display at: (left@top) + offset rule: Form paint. - maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. left := left + 150. - - "intersect world pixels of the color we're looking for with sensitive pixels mask" - map atAllPut: 0. "clear map and reuse it" - map at: (soughtColor indexInMap: map) put: 1. - - maskA - copyBits: intersection - from: formB at: 0@0 clippingBox: formB boundingBox - rule: Form and - fillColor: nil - map: map. - - formB displayOn: Display at: left@top rule: Form paint. - formA displayOn: Display at: (left@top) + offset rule: Form paint. - maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. - dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. - left := left + 170. - - (maskA tallyPixelValues at: 2) asString asDisplayText displayOn: Display at: left@(top +20). - left := left + 70. - - "now try using the new primitive" - tally := (BitBlt - destForm: formB - sourceForm: formA - fillColor: nil - combinationRule: 3 "really ought to work with nil but prim code checks" - destOrigin: intersection origin - sourceOrigin: (offset negated max: 0@0) - extent: intersection extent - clipRect: intersection) - primCompareColor: ((ignoreColor pixelValueForDepth: formA depth) bitAnd: 16rFFFFFF) to: ((soughtColor pixelValueForDepth: formB depth) bitAnd: 16rFFFFFF) test: (Form compareNotColorAMatchColorB bitOr: Form compareTallyFlag). - tally asString asDisplayText displayOn: Display at: left@(top +20). - top:= top + 60] - !

1 0

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

04 May '16

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.1133.mcz ==================== Summary ==================== Name: Morphic-nice.1133 Author: nice Time: 3 May 2016, 11:50:28.750899 pm UUID: 7ee79d7c-f8fb-49ec-8e3b-06d13bc034ee Ancestors: Morphic-nice.1132 Avoid dependency of Graphics on Morphic just because some Form examples use Morphic. Couldn't these examples find their place in some kind of Help? =============== Diff against Morphic-nice.1132 =============== Item was added: + ----- Method: Form class>>exampleColorSees (in category '*Morphic-examples') ----- + exampleColorSees + "Form exampleColorSees" + "First column as above shows the sneaky red/yellow pirate sneaking up on the blue/peach galleon. + Second column shows the 1bpp made from the red/yellow/transparent - white -> ignore this, black -> test this + Third shows the hit area - where red touches blue - superimposed on the original scene. + Fourth column is the tally of hits via the old algorithm + Last column shows the tally of hits via the new prim" + + |formA formB maskA offset tally map intersection left top dCanvas sensitiveColor soughtColor index| + formA := formB := maskA := offset := tally := map := intersection := nil. "just to shut up the compiler when testing" + ActiveWorld restoreMorphicDisplay; doOneCycle. + + sensitiveColor := Color red. + soughtColor := Color blue. + + top := 50. + dCanvas := FormCanvas on: Display. + -50 to: 80 by: 10 do:[:p| + offset:= p@0. "vary this to check different states" + left := 10. + + formA := (Form extent: 100@50 depth: 32) asFormOfDepth: 16 "so we can try original forms of other depths". + formB := Form extent: 100@50 depth: 32. + + "make a red square in the middle of the form" + (FormCanvas on: formA) fillRectangle: (25@25 extent: 50@5) fillStyle: sensitiveColor. + (FormCanvas on: formA) fillRectangle: (25@30 extent: 50@5) fillStyle: Color transparent. + (FormCanvas on: formA) fillRectangle: (25@35 extent: 50@50) fillStyle: Color yellow. + "formA displayOn: Display at: left@top rule: Form paint. + dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. + left := left + 150." + + "make a blue block on the right half of the form" + (FormCanvas on: formB) fillRectangle: (50@0 extent: 50@100) fillStyle: soughtColor. + (FormCanvas on: formB) fillRectangle: (60@0 extent: 10@100) fillStyle: Color palePeach. + "formB displayOn: Display at: left@top rule: Form paint. + dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. + left := left + 150." + + intersection := (formA boundingBox translateBy: offset) intersect: (formB boundingBox). + + formB displayOn: Display at: left@top rule: Form paint. + formA displayOn: Display at: (left@top) + offset rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. + left := left + 150. + + maskA := Form extent: intersection extent depth: 1. + + map := Bitmap new: (1 bitShift: (formA depth min: 15)). + map at: (index := sensitiveColor indexInMap: map) put: 1. + + maskA copyBits: (intersection translateBy: offset negated) from: formA at: 0@0 colorMap: map. + formB displayOn: Display at: left@top rule: Form paint. + formA displayOn: Display at: (left@top) + offset rule: Form paint. + maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. left := left + 150. + + "intersect world pixels of the color we're looking for with sensitive pixels mask" + map at: index put: 0. "clear map and reuse it" + map at: (soughtColor indexInMap: map) put: 1. + + maskA + copyBits: intersection + from: formB at: 0@0 clippingBox: formB boundingBox + rule: Form and + fillColor: nil + map: map. + + formB displayOn: Display at: left@top rule: Form paint. + formA displayOn: Display at: (left@top) + offset rule: Form paint. + maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. + left := left + 170. + + (maskA tallyPixelValues at: 2) asString asDisplayText displayOn: Display at: left@(top +20). + left := left + 70. + + "now try using the new primitive" + tally := (BitBlt + destForm: formB + sourceForm: formA + fillColor: nil + combinationRule: 3 "really ought to work with nil but prim code checks" + destOrigin: intersection origin + sourceOrigin: (offset negated max: 0@0) + extent: intersection extent + clipRect: intersection) + primCompareColor: ((sensitiveColor pixelValueForDepth: formA depth) ) to: ((soughtColor pixelValueForDepth: formB depth) ) test: (Form compareMatchColor bitOr: Form compareTallyFlag). + tally asString asDisplayText displayOn: Display at: left@(top +20). + top:= top + 60] + + ! Item was added: + ----- Method: Form class>>exampleTouchTest (in category '*Morphic-examples') ----- + exampleTouchTest + "Form exampleTouchTest" + "Demonstrate the algorithm used in Scratch code to determine if a sprite's non-transparent pixels touch a + non-transparent pixel of the background upon which it is displayed. + First column shows a form with a red block in the midst of transparent area sneaking up on a form with a transparent LHS and blue RHS. The green frame shows the intersection area. + Second column shows in grey the part of the red that is within the intersection. + Third column shows in black the blue that is within the intersection. + Fourth column shows just the A touching B area. + Fifth column is the tally of hits via the old algorithm + Last column shows the tally of hits via the new prim" + |formA formB maskA maskB offset tally map intersection left top dCanvas| + formA := formB := maskA := maskB := offset := tally := map := intersection := nil. "just to shut up the compiler when testing" + + ActiveWorld restoreMorphicDisplay; doOneCycle. + + top := 50. + dCanvas := FormCanvas on: Display. + -50 to: 80 by: 10 do:[:p| + offset:= p@0. "vary this to check different states" + left := 10. + + formA := Form extent: 100@50 depth: 32. + formB := Form extent: 100@50 depth: 16. + + "make a red square in the middle of the form" + (FormCanvas on: formA) fillRectangle: (25@25 extent: 50@5) fillStyle: Color yellow. + (FormCanvas on: formA) fillRectangle: (25@30 extent: 50@5) fillStyle: Color transparent. + (FormCanvas on: formA) fillRectangle: (25@35 extent: 50@50) fillStyle: Color red. + "formA displayOn: Display at: left@top rule: Form paint. + dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. + left := left + 150." + + "make a blue block on the right half of the form" + (FormCanvas on: formB) fillRectangle: (50@0 extent: 50@100) fillStyle: Color blue. + (FormCanvas on: formB) fillRectangle: (60@0 extent: 10@100) fillStyle: Color palePeach. + "formB displayOn: Display at: left@top rule: Form paint. + dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. + left := left + 150." + + intersection := (formA boundingBox translateBy: offset) intersect: (formB boundingBox). + + formB displayOn: Display at: left@top rule: Form paint. + formA displayOn: Display at: (left@top) + offset rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. + left := left + 150. + + maskA := Form extent: intersection extent depth: 2. + formA displayOn: maskA at: offset - intersection origin rule: Form paint. + formB displayOn: Display at: left@top rule: Form paint. + formA displayOn: Display at: (left@top) + offset rule: Form paint. + maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. + left := left + 150. + + maskB := Form extent: intersection extent depth: 2. + formB displayOn: maskB at: intersection origin negated rule: Form paint. + formB displayOn: Display at: left@top rule: Form paint. + formA displayOn: Display at: (left@top) + offset rule: Form paint. + maskB displayOn: Display at: (left@top) + intersection origin rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. + left := left + 150. + + map := Bitmap new: 4 withAll: 1. + map at: 1 put: 0. "transparent" + + maskA copyBits: maskA boundingBox from: maskA at: 0@0 colorMap: map. + "maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. + left := left + 150." + + maskB copyBits: maskB boundingBox from: maskB at: 0@0 colorMap: map. + "maskB displayOn: Display at: (left@top) + intersection origin rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. + left := left + 150." + + maskB displayOn: maskA at: 0@0 rule: Form and. + maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. + left := left + 170. + + (maskA boundingBox area -( maskA tallyPixelValues at: 1)) asString asDisplayText displayOn: Display at: left@(top +20). + left := left + 70. + + "now try using the new primitive" + tally := (BitBlt + destForm: formB + sourceForm: formA + fillColor: nil + combinationRule: 3 "really ought to work with nil but prim code checks" + destOrigin: intersection origin + sourceOrigin: (offset negated max: 0@0) + extent: intersection extent + clipRect: intersection) + primCompareColor: ((Color transparent pixelValueForDepth: formA depth) bitAnd: 16rFFFFFF) to: ((Color transparent pixelValueForDepth: formB depth) bitAnd: 16rFFFFFF) test: (Form compareNotColorANotColorB bitOr: Form compareTallyFlag). + tally asString asDisplayText displayOn: Display at: left@(top +20). + top:= top + 60] + + + ! Item was added: + ----- Method: Form class>>exampleTouchingColor (in category '*Morphic-examples') ----- + exampleTouchingColor + "Form exampleTouchingColor" + "Demonstrate the algorithm used in Scratch code to determine if a sprite's non-transparent pixels touch a + particular color pixel of the background upon which it is displayed. + First column as above shows the sneaky red/yellow pirate sneaking up on the blue/peach galleon. + Second column shows the 1bpp made from the red/yellow/transparent - white -> ignore this, black -> test this + Third shows the hit area (black) superimposed on the original scene + Fourth column is the tally of hits via the old algorithm + Last column shows the tally of hits via the new prim" + |formA formB maskA offset tally map intersection left top dCanvas ignoreColor soughtColor| + formA := formB := maskA := offset := tally := map := intersection := nil. "just to shut up the compiler when testing" + ActiveWorld restoreMorphicDisplay; doOneCycle. + + ignoreColor := Color transparent. + soughtColor := Color blue. + + top := 50. + dCanvas := FormCanvas on: Display. + -50 to: 80 by: 10 do:[:p| + offset:= p@0. "vary this to check different states" + left := 10. + + formA := (Form extent: 100@50 depth: 32) asFormOfDepth: 16 "so we can try original forms of other depths". + formB := Form extent: 100@50 depth: 32. + + "make a red square in the middle of the form" + (FormCanvas on: formA) fillRectangle: (25@25 extent: 50@5) fillStyle: Color red. + (FormCanvas on: formA) fillRectangle: (25@30 extent: 50@5) fillStyle: Color transparent. + (FormCanvas on: formA) fillRectangle: (25@35 extent: 50@50) fillStyle: Color yellow. + "formA displayOn: Display at: left@top rule: Form paint. + dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. + left := left + 150." + + "make a blue block on the right half of the form" + (FormCanvas on: formB) fillRectangle: (50@0 extent: 50@100) fillStyle: soughtColor. + (FormCanvas on: formB) fillRectangle: (60@0 extent: 10@100) fillStyle: Color palePeach. + "formB displayOn: Display at: left@top rule: Form paint. + dCanvas frameRectangle: (left@top extent: formA extent) width:2 color: Color green. + left := left + 150." + + intersection := (formA boundingBox translateBy: offset) intersect: (formB boundingBox). + + formB displayOn: Display at: left@top rule: Form paint. + formA displayOn: Display at: (left@top) + offset rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. + left := left + 150. + + maskA := Form extent: intersection extent depth: 1. + + map := Bitmap new: (1 bitShift: (formA depth min: 15)). + map atAllPut: 1. + map at: ( ignoreColor indexInMap: map) put: 0. + + maskA copyBits: (intersection translateBy: offset negated) from: formA at: 0@0 colorMap: map. + formB displayOn: Display at: left@top rule: Form paint. + formA displayOn: Display at: (left@top) + offset rule: Form paint. + maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. left := left + 150. + + "intersect world pixels of the color we're looking for with sensitive pixels mask" + map atAllPut: 0. "clear map and reuse it" + map at: (soughtColor indexInMap: map) put: 1. + + maskA + copyBits: intersection + from: formB at: 0@0 clippingBox: formB boundingBox + rule: Form and + fillColor: nil + map: map. + + formB displayOn: Display at: left@top rule: Form paint. + formA displayOn: Display at: (left@top) + offset rule: Form paint. + maskA displayOn: Display at: (left@top) + intersection origin rule: Form paint. + dCanvas frameRectangle: (intersection translateBy: left@top) width:2 color: Color green. + left := left + 170. + + (maskA tallyPixelValues at: 2) asString asDisplayText displayOn: Display at: left@(top +20). + left := left + 70. + + "now try using the new primitive" + tally := (BitBlt + destForm: formB + sourceForm: formA + fillColor: nil + combinationRule: 3 "really ought to work with nil but prim code checks" + destOrigin: intersection origin + sourceOrigin: (offset negated max: 0@0) + extent: intersection extent + clipRect: intersection) + primCompareColor: ((ignoreColor pixelValueForDepth: formA depth) bitAnd: 16rFFFFFF) to: ((soughtColor pixelValueForDepth: formB depth) bitAnd: 16rFFFFFF) test: (Form compareNotColorAMatchColorB bitOr: Form compareTallyFlag). + tally asString asDisplayText displayOn: Display at: left@(top +20). + top:= top + 60] + !

1 0

Re: [squeak-dev] The Trunk: Morphic-mt.842.mcz
by Nicolas Cellier 04 May '16

04 May '16

2015-04-08 20:26 GMT+02:00 <commits(a)source.squeak.org>: > Marcel Taeumel uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-mt.842.mcz > > ==================== Summary ==================== > > Name: Morphic-mt.842 > Author: mt > Time: 8 April 2015, 8:26:35.712 pm > UUID: 69b4e9ef-0563-9748-a5bf-fe69528f37b8 > Ancestors: Morphic-mt.841 > > Made Slider more pluggable and thus removed PluggableSliderMorph from the > system. The code that was not moved upwards into Slider was moved downwards > into its sole subclass: BracketSliderMorph. > > It was verified that the "new color picker morph", which is the sole user > of that BracketSliderMorph, stays functional. > > Why? The Slider should support custom min/max values whenever the default > (floats with 0.0 to 1.0) is not appropriate. Truncation is supported, too. > Everything was already present in the (removed) PluggableSliderMorph, but > we need that behavior in ScrollBar. > > Note: There is still the SimpleSliderMorph, which duplicates some behavior > of Slider but is a base class of slider. E-Toys uses it. We may want to > remove that duplicated code later. > > =============== Diff against Morphic-mt.841 =============== > > Item was changed: > + Slider subclass: #BracketSliderMorph > + instanceVariableNames: 'getEnabledSelector enabled' > - PluggableSliderMorph subclass: #BracketSliderMorph > - instanceVariableNames: '' > classVariableNames: '' > poolDictionaries: '' > category: 'Morphic-Widgets'! > > !BracketSliderMorph commentStamp: 'gvc 5/18/2007 13:39' prior: 0! > Abstract superclass for morphs that are used to select a component (R, > G, B or A) of a colour.! > > Item was added: > + ----- Method: BracketSliderMorph>>adoptPaneColor: (in category > 'accessing - ui') ----- > + adoptPaneColor: paneColor > + "Pass on to the border too." > + super adoptPaneColor: paneColor. > + paneColor ifNil: [ ^ self ]. > + self > + fillStyle: self fillStyleToUse ; > + borderStyle: > + (BorderStyle inset > + width: 1 ; > + baseColor: self color twiceDarker) ; > + sliderColor: > + (self enabled > + ifTrue: [ paneColor twiceDarker ] > + ifFalse: [ self paneColor twiceDarker > paler ])! > > Item was added: > + ----- Method: BracketSliderMorph>>borderStyleToUse (in category > 'accessing - ui') ----- > + borderStyleToUse > + "Answer the borderStyle that should be used for the receiver." > + > + ^self enabled > + ifTrue: [self theme sliderNormalBorderStyleFor: self] > + ifFalse: [self theme sliderDisabledBorderStyleFor: self]! > > Hi Marcel, theme? There's no theme (yet) in Squeak... Is it something that leaked from some other framework?

2 1

The Inbox: Morphic-nice.1134.mcz
by commits＠source.squeak.org 04 May '16

04 May '16

Nicolas Cellier uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-nice.1134.mcz ==================== Summary ==================== Name: Morphic-nice.1134 Author: nice Time: 4 May 2016, 6:12:01.818683 pm UUID: 4b4eeafc-76a9-ae40-9016-6cf1372bd7d6 Ancestors: Morphic-mt.1133 Pick the GrowlMorph from Pharo (unthemed). It is a nice way to display bits of information without requesting user acknowledge actions (like pressing an OK button) =============== Diff against Morphic-mt.1133 =============== Item was added: + TextMorph subclass: #GrowlMorph + instanceVariableNames: 'dismissHandle vanishTime alpha actionBlock vanishDelay attr labelAttr contentsAttr labelColor contentsColor' + classVariableNames: 'DefaultBackgroundColor Position' + poolDictionaries: '' + category: 'Morphic-Windows'! + + !GrowlMorph commentStamp: 'StephanEggermont 9/5/2014 12:12' prior: 0! + A GrowlMorph is a little Morph to announce event happening. Freely inspired from the MIT Snarl developed by Tony Garnock-Jones. + + GrowlMorph new openInWorld. + + 10 timesRepeat: [ + (GrowlMorph openWithLabel: 'The time' contents: DateAndTime now) + " vanishDelay: 1000; + resetVanishTimer". + World doOneCycle ]. + + (GrowlMorph openWithLabel: 'The time' contents: DateAndTime now) + actionBlock: [Transcript open].! Item was added: + ----- Method: GrowlMorph class>>contents: (in category 'instance creation') ----- + contents: contentString + + ^ self new + label: '' contents: contentString; + yourself! Item was added: + ----- Method: GrowlMorph class>>growlPositionChoices (in category 'settings') ----- + growlPositionChoices + + ^#(topRight 'top right' + bottomLeft 'bottom left' + bottomRight 'bottom right' + topLeft 'topLeft') pairsCollect: [:a :b | b -> a]! Item was added: + ----- Method: GrowlMorph class>>growlSettingsOn: (in category 'settings') ----- + growlSettingsOn: aBuilder + <systemsettings> + (aBuilder group: #growl) + label: 'Popup notifiaction' translated; + parent: #appearance; + description: 'All settings concerned with the notifications popup look''n feel' translated; + with: [ + (aBuilder pickOne: #position) + label: 'Popup position' translated; + target: self; + default: #topRight; + order: 1; + domainValues: self growlPositionChoices.]! Item was added: + ----- Method: GrowlMorph class>>label:contents: (in category 'instance creation') ----- + label: aString contents: contentString + + ^ self new + label: aString contents: contentString; + yourself! Item was added: + ----- Method: GrowlMorph class>>openWithContents: (in category 'instance creation') ----- + openWithContents: contentString + + ^ (self contents: contentString) openInWorld! Item was added: + ----- Method: GrowlMorph class>>openWithLabel:contents: (in category 'instance creation') ----- + openWithLabel: aString contents: contentString + + ^ (self label: aString contents: contentString) openInWorld! Item was added: + ----- Method: GrowlMorph class>>openWithLabel:contents:backgroundColor:labelColor: (in category 'instance creation') ----- + openWithLabel: aString contents: contentString backgroundColor: aColor labelColor: aLabelColor + + ^ (self label: aString contents: contentString) + backgroundColor: aColor; + labelColor: aLabelColor; + contentsColor: aLabelColor; + openInWorld! Item was added: + ----- Method: GrowlMorph class>>openWithLabel:contents:color: (in category 'instance creation') ----- + openWithLabel: aString contents: contentString color: aColor + + ^ (self label: aString contents: contentString) + backgroundColor: aColor; + openInWorld! Item was added: + ----- Method: GrowlMorph class>>position (in category 'position') ----- + position + + ^ Position ifNil: [ Position := #topRight ]! Item was added: + ----- Method: GrowlMorph class>>position: (in category 'position') ----- + position: aSymbol + + (self possiblePositions includes: aSymbol) ifFalse: [ ^ self ]. + + Position := aSymbol! Item was added: + ----- Method: GrowlMorph class>>possiblePositions (in category 'position') ----- + possiblePositions + + ^ #( bottomRight bottomLeft topRight topLeft )! Item was added: + ----- Method: GrowlMorph>>actionBlock: (in category 'building') ----- + actionBlock: aBlock + + actionBlock := aBlock! Item was added: + ----- Method: GrowlMorph>>activeGrowlMorphs (in category 'internal') ----- + activeGrowlMorphs + + ^World submorphs select: [ :morph | morph isKindOf: GrowlMorph ].! Item was added: + ----- Method: GrowlMorph>>alpha (in category 'accessing') ----- + alpha + ^ alpha + ! Item was added: + ----- Method: GrowlMorph>>alpha: (in category 'accessing') ----- + alpha: newAlpha + + "self alpha = newAlpha ifTrue: [^ self]." + alpha := newAlpha. + labelAttr color: (self labelColor alpha: alpha). + contentsAttr color: (self contentsColor alpha: alpha). + self backgroundColor: (self nextColorStep: self backgroundColor). + self allMorphsDo: [:m | + m borderColor: (self nextColorStep: m borderColor). + m color: (self nextColorStep: m color)]. + self borderColor isTransparent ifTrue: [self delete].! Item was added: + ----- Method: GrowlMorph>>backgroundColor (in category 'accessing') ----- + backgroundColor + + ^ backgroundColor ifNil: [ backgroundColor := self defaultBackgroundColor ]! Item was added: + ----- Method: GrowlMorph>>contents: (in category 'building') ----- + contents: contentsString + + self streamDo: [ :w | + w withAttributes: self contentsAttributes do: [w nextPutAll: contentsString asString]].! Item was added: + ----- Method: GrowlMorph>>contentsAttributes (in category 'initialization') ----- + contentsAttributes + ^ { contentsAttr. TextAlignment centered. TextFontChange font2. }! Item was added: + ----- Method: GrowlMorph>>contentsColor (in category 'accessing') ----- + contentsColor + ^ contentsColor ifNil: [ contentsColor := self highlightColor ] + ! Item was added: + ----- Method: GrowlMorph>>contentsColor: (in category 'accessing') ----- + contentsColor: aColor + "when you set this contentsColor, it takes precedence over theme one. In certain case (such as for green as in SUnit) it is needed, normally you do not need it." + contentsColor := aColor. + contentsAttr color: aColor. + ! Item was added: + ----- Method: GrowlMorph>>createDismissHandle (in category 'initialization') ----- + createDismissHandle + | handle form image | + form := SystemWindow closeBoxImage. + image := ImageMorph new. + image image: form. + image color: Color yellow. + handle := image. + handle on: #mouseUp send: #delete to: self. + ^ handle! Item was added: + ----- Method: GrowlMorph>>defaultTextStyle (in category 'default') ----- + defaultTextStyle + ^ TextStyle actualTextStyles at: #Accuny! Item was added: + ----- Method: GrowlMorph>>defaultVanishDelay (in category 'default') ----- + defaultVanishDelay + + ^ 1 seconds! Item was added: + ----- Method: GrowlMorph>>enabled (in category 'stepping') ----- + enabled + + ^ false! Item was added: + ----- Method: GrowlMorph>>handlesMouseDown: (in category 'interaction') ----- + handlesMouseDown: evt + ^ actionBlock notNil or: [super handlesMouseDown: evt]! Item was added: + ----- Method: GrowlMorph>>initialize (in category 'initialization') ----- + initialize + super initialize. + self borderStyle: BorderStyle thinGray. + + self setProperty: #autoFitContents toValue: false. + + self initializeLabelAttributes. + self initializeContentsAttributes. + self vanishDelay: self defaultVanishDelay. + self label: 'A cool title' contents: 'Here an important message'. + dismissHandle := self createDismissHandle. + self addMorph: dismissHandle! Item was added: + ----- Method: GrowlMorph>>initializeContentsAttributes (in category 'initialization') ----- + initializeContentsAttributes + contentsAttr := TextColor color: self contentsColor. + ! Item was added: + ----- Method: GrowlMorph>>initializeLabelAttributes (in category 'initialization') ----- + initializeLabelAttributes + labelAttr := TextColor color: self labelColor. + ! Item was added: + ----- Method: GrowlMorph>>is:saneWithRespectTo: (in category 'internal') ----- + is: rect saneWithRespectTo: morphs + + ^(morphs anySatisfy: [ :morph | morph owner isNil not and: [morph bounds intersects: rect]]) not + ! Item was added: + ----- Method: GrowlMorph>>label:contents: (in category 'building') ----- + label: labelString contents: contentsString + + self streamDo: [ :w | + w withAttributes: self labelAttributes do: [w nextPutAll: labelString asString; cr]. + w withAttributes: self contentsAttributes do: [w nextPutAll: contentsString asString]. + ].! Item was added: + ----- Method: GrowlMorph>>labelAttributes (in category 'initialization') ----- + labelAttributes + ^ { labelAttr. TextAlignment centered. TextFontChange font4. TextEmphasis bold. }! Item was added: + ----- Method: GrowlMorph>>labelColor (in category 'accessing') ----- + labelColor + ^ labelColor ifNil: [ labelColor := self highlightColor ]! Item was added: + ----- Method: GrowlMorph>>labelColor: (in category 'accessing') ----- + labelColor: aColor + "when you set this labelColor, it takes precedence over theme one. In certain case (such as for green as in SUnit) it is needed, normally you do not need it." + labelColor := aColor. + labelAttr color: self labelColor.! Item was added: + ----- Method: GrowlMorph>>minimumExtent (in category 'default') ----- + minimumExtent + ^ 256@38! Item was added: + ----- Method: GrowlMorph>>mouseDown: (in category 'interaction') ----- + mouseDown: evt + super mouseDown: evt. + evt yellowButtonPressed ifTrue: [^ self]. + actionBlock ifNotNil: [actionBlock valueWithPossibleArgs: { self }].! Item was added: + ----- Method: GrowlMorph>>nextColorStep: (in category 'initialization') ----- + nextColorStep: aColor + ^ aColor alpha: self alpha! Item was added: + ----- Method: GrowlMorph>>openInWorld (in category 'internal') ----- + openInWorld + + self position: self unoccupiedPosition. + super openInWorld! Item was added: + ----- Method: GrowlMorph>>resetAlpha (in category 'internal') ----- + resetAlpha + ^ self alpha: 0.9! Item was added: + ----- Method: GrowlMorph>>resetVanishTimer (in category 'internal') ----- + resetVanishTimer + + vanishTime := DateAndTime now + self vanishDelay. + self resetAlpha.! Item was added: + ----- Method: GrowlMorph>>step (in category 'stepping') ----- + step + + (self containsPoint: ActiveHand position) ifTrue: [ + self resetAlpha. + ^ self]. + vanishTime ifNotNil: [DateAndTime now < vanishTime ifTrue: [^self]]. + self alpha: self alpha - 0.05.! Item was added: + ----- Method: GrowlMorph>>stepTime (in category 'stepping') ----- + stepTime + ^ 100! Item was added: + ----- Method: GrowlMorph>>streamDo: (in category 'internal') ----- + streamDo: aBlock + + self contentsWrapped: (Text streamContents: aBlock). + self extent: self minimumExtent. + self height: (paragraph extent y + (self borderWidth * 2) + (margins ifNil: [0] ifNotNil: [margins top + margins bottom]) + 2). + + self vanishDelay: ((((self contents size /50)seconds)+1 seconds) max: self defaultVanishDelay).! Item was added: + ----- Method: GrowlMorph>>unoccupiedPosition (in category 'position') ----- + unoccupiedPosition + + self class position = #bottomLeft + ifTrue: [ ^ self unoccupiedPositionBottomLeft ]. + self class position = #topRight + ifTrue: [ ^ self unoccupiedPositionTopRight ]. + self class position = #bottomRight + ifTrue: [ ^ self unoccupiedPositionBottomRight ]. + self class position = #topLeft + ifTrue: [ ^ self unoccupiedPositionTopLeft ]. + ^ 0@0 + ! Item was added: + ----- Method: GrowlMorph>>unoccupiedPositionBottomLeft (in category 'position') ----- + unoccupiedPositionBottomLeft + + | startPos area rect morphs | + + startPos := 10 negated @ (self height + 10). + area := World clearArea. + rect := (area bottomLeft - startPos) extent: self extent. + + morphs := self activeGrowlMorphs. + [self is: rect saneWithRespectTo: morphs] whileFalse: [ + rect := rect translateBy: 0@(-10). + rect top < 0 ifTrue: [^ area bottomLeft - startPos] + ]. + ^ rect origin! Item was added: + ----- Method: GrowlMorph>>unoccupiedPositionBottomRight (in category 'position') ----- + unoccupiedPositionBottomRight + + | startPos area rect morphs | + + startPos := (self width + 10 ) @ (self height + 10). + area := World clearArea. + rect := (area bottomRight - startPos) extent: self extent. + + morphs := self activeGrowlMorphs. + [self is: rect saneWithRespectTo: morphs] whileFalse: [ + rect := rect translateBy: 0@(-10). + rect top < 0 ifTrue: [^ area bottomRight - startPos ] + ]. + ^ rect origin! Item was added: + ----- Method: GrowlMorph>>unoccupiedPositionTopLeft (in category 'position') ----- + unoccupiedPositionTopLeft + + | startPos area rect morphs | + + startPos := 10@10. + area := World clearArea. + rect := area topLeft + (startPos) extent: self extent. + + morphs := self activeGrowlMorphs. + [self is: rect saneWithRespectTo: morphs] whileFalse: [ + rect := rect translateBy: 0@10. + rect bottom > area height ifTrue: [^ area topLeft + startPos ] + ]. + ^ rect origin! Item was added: + ----- Method: GrowlMorph>>unoccupiedPositionTopRight (in category 'position') ----- + unoccupiedPositionTopRight + + | startPos area rect morphs | + + startPos := (self width + 10 @ 10 negated). + area := World clearArea. + rect := (area topRight - startPos) extent: self extent. + + morphs := self activeGrowlMorphs. + [self is: rect saneWithRespectTo: morphs] whileFalse: [ + rect := rect translateBy: 0@10. + rect bottom > area height ifTrue: [^ (area topRight - startPos) ] + ]. + + ^ rect origin! Item was added: + ----- Method: GrowlMorph>>vanishDelay (in category 'accessing') ----- + vanishDelay + + ^ vanishDelay! Item was added: + ----- Method: GrowlMorph>>vanishDelay: (in category 'accessing') ----- + vanishDelay: aDuration + + vanishDelay := aDuration. + self resetVanishTimer! Item was added: + ----- Method: GrowlMorph>>wantsSteps (in category 'stepping') ----- + wantsSteps + ^ true!

1 0

Having issues getting Maui to work in current trunk 5.0
by Chris Cunningham 04 May '16

04 May '16

Hi. I haven't (yet) used Maui, but have a project that I think it would work nicely for, and am trying to get it to work. It loads fine from the Squeak Map into the latest updated trunk image. I can create a Maui morph. But any time I attempt to drag an accesser over to the morph, I get a stylized text box popping up stating: "Hello. Instance methods can only be dragged onto instances of objects, not the desktop." Any idea what is going on? I'd really like to use this. Thanks, cbc

3 5

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

04 May '16

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.330.mcz ==================== Summary ==================== Name: Graphics-mt.330 Author: mt Time: 4 May 2016, 3:45:51.954971 pm UUID: 0124a0a6-dfc0-264d-867c-96e10cd5e7d4 Ancestors: Graphics-mt.329 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 Graphics-mt.329 =============== Item was added: + ----- Method: DisplayText>>composeForm (in category 'private') ----- + composeForm + + form := Project current composeDisplayTextIntoForm: self.!

1 0

Jump to page: