Squeak-dev May 2021

squeak-dev@lists.squeakfoundation.org

32 participants
344 discussions

The Trunk: Tests-nice.458.mcz
by commits＠source.squeak.org 02 May '21

02 May '21

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.458.mcz ==================== Summary ==================== Name: Tests-nice.458 Author: nice Time: 28 April 2021, 6:11:51.033213 pm UUID: 13fec56a-805e-754e-bd02-8cbaa015e102 Ancestors: Tests-jr.457 Document the fact that becomeForward: does NOT forward identityHash of receiver anymore (since Collections-eem.885 April 2020) See #elementsForwardIdentityTo: vs #elementsForwardIdentityAndHashTo: See also http://forum.world.st/How-to-become-immediate-objects-td5114931.html =============== Diff against Tests-jr.457 =============== Item was changed: ----- Method: BecomeTest>>testBecomeForward (in category 'tests') ----- testBecomeForward "Test the forward become." | a b c d | a := 'ab' copy. b := 'cd' copy. + c := Array with: a. - c := a. d := b. a becomeForward: b. self assert: a = 'cd'; assert: b = 'cd'; + assert: a == b; + assert: c first == b; + assert: d == b. - assert: c = 'cd'; - assert: d = 'cd'. - ! Item was added: + ----- Method: BecomeTest>>testBecomeForwardCopyIdentityHash (in category 'tests') ----- + testBecomeForwardCopyIdentityHash + "Check that + 1. the argument to becomeForward: is modified to have the receiver's identity hash. + 2. the receiver's identity hash is unchanged." + + | a b ha | + + a := 'ab' copy. + b := 'cd' copy. + ha := a identityHash. + + a becomeForward: b copyHash: true. + + self + assert: a identityHash = ha; + assert: b identityHash = ha. + + ! Item was changed: ----- Method: BecomeTest>>testBecomeForwardDontCopyIdentityHash (in category 'tests') ----- testBecomeForwardDontCopyIdentityHash "Check that 1. the argument to becomeForward: is NOT modified to have the receiver's identity hash. + 2. the receiver's identity hash is changed." - 2. the receiver's identity hash is unchanged." | a b hb | a := 'ab' copy. b := 'cd' copy. hb := b identityHash. a becomeForward: b copyHash: false. self assert: a identityHash = hb; assert: b identityHash = hb. ! Item was changed: ----- Method: BecomeTest>>testBecomeForwardIdentityHash (in category 'tests') ----- testBecomeForwardIdentityHash + "Document that the receiver hash is changed, but the argument hash is unchanged. + (a becomeForward: b) has thus same effect as (a becomeForward: b copyHash: false)" - "Check that - 1. the argument to becomeForward: is modified to have the receiver's identity hash. - 2. the receiver's identity hash is unchanged." + | a b hb | - | a b ha | a := 'ab' copy. b := 'cd' copy. + hb := b identityHash. - ha := a identityHash. a becomeForward: b. self + assert: a identityHash = hb; + assert: b identityHash = hb. - assert: a identityHash = ha; - assert: b identityHash = ha. !

5 8

The Inbox: Compiler-ct.459.mcz
by commits＠source.squeak.org 02 May '21

02 May '21

A new version of Compiler was added to project The Inbox: http://source.squeak.org/inbox/Compiler-ct.459.mcz ==================== Summary ==================== Name: Compiler-ct.459 Author: ct Time: 1 May 2021, 2:01:39.875973 pm UUID: be6611f2-9aec-cd49-91be-43ac1fec67ca Ancestors: Compiler-nice.458 Recategorizes OutOfScopeNotification>>#defaultAction =============== Diff against Compiler-nice.458 =============== Item was changed: + ----- Method: OutOfScopeNotification>>defaultAction (in category 'priv handling') ----- - ----- Method: OutOfScopeNotification>>defaultAction (in category 'as yet unclassified') ----- defaultAction ^false!

3 2

The Inbox: Kernel-nice.1391.mcz
by commits＠source.squeak.org 02 May '21

02 May '21

Nicolas Cellier uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-nice.1391.mcz ==================== Summary ==================== Name: Kernel-nice.1391 Author: nice Time: 23 April 2021, 10:58:48.925778 am UUID: bde1d6d3-e3ba-48ad-b432-3ac5a1531880 Ancestors: Kernel-nice.1390 Remove the questionable ifCurtailed: block that did reactivate the handler in handleSignal:, and make the handling symetric, whether the handlerAction explicitily use exception return or not. Document the mysterious tempAt:/tempAt:put: intention by using proper method names as requested by Marcel. The slowdown shall be marginal, and system understanding should be improved. Provide messages to selectively reactivate some handler contexts. For gurus: handle with care! =============== Diff against Kernel-nice.1390 =============== Item was changed: ----- Method: Context>>canHandleSignal: (in category 'private-exceptions') ----- canHandleSignal: exception "Sent to handler (on:do:) contexts only. If my exception class (first arg) handles exception then return true, otherwise forward this message to the next handler context. If none left, return false (see nil>>canHandleSignal:)" + ^ (self willHandleSignal: exception) - ^ (((self tempAt: 1) handles: exception) and: [self tempAt: 3]) or: [self nextHandlerContext canHandleSignal: exception]. ! Item was added: + ----- Method: Context>>deactivateHandler (in category 'private-exceptions') ----- + deactivateHandler + "Private - sent to exception handler context only (on:do:)" + + stackp >= 3 ifTrue: [self tempAt: 3 put: false] "this is temporary handlerActive in #on:do:"! Item was added: + ----- Method: Context>>fireHandlerActionWith: (in category 'private-exceptions') ----- + fireHandlerActionWith: exception + "Sent to handler (on:do:) contexts only. + Perform the second argument, which is the handler action" + + ^(self tempAt: 2) cull: exception! Item was changed: ----- Method: Context>>handleSignal: (in category 'private-exceptions') ----- handleSignal: exception "Sent to handler (on:do:) contexts only. If my exception class (first arg) handles exception and the handler is active then execute my handle block (second arg), otherwise forward this message to the next handler context. If none left, execute exception's defaultAction (see nil>>handleSignal:)." + | val | + (self willHandleSignal: exception) ifFalse: + [self deactivateHandler. - | handlerActive val | - "If the context has been returned from the handlerActive temp var may not be accessible." - handlerActive := stackp >= 3 and: [(self tempAt: 3) == true]. - (((self tempAt: 1) handles: exception) and: [handlerActive]) ifFalse: - [stackp >= 3 ifTrue: [self tempAt: 3 put: false]. ^self nextHandlerContext handleSignal: exception]. exception privHandlerContext: self contextTag. + self deactivateHandler. "disable self while executing handle block" + val := self fireHandlerActionWith: exception. - self tempAt: 3 put: false. "disable self while executing handle block" - val := [(self tempAt: 2) cull: exception] - ifCurtailed: [self tempAt: 3 put: true]. self return: val "return from self if not otherwise directed in handle block" ! Item was added: + ----- Method: Context>>isHandlerActive (in category 'private-exceptions') ----- + isHandlerActive + "Private - sent to exception handler context only (on:do:)" + + ^stackp >= 3 and: [(self tempAt: 3) == true] "this is temporary handlerActive in #on:do:"! Item was added: + ----- Method: Context>>reactivateHandler (in category 'private-exceptions') ----- + reactivateHandler + "Private - sent to exception handler context only (on:do:)" + + stackp >= 3 ifTrue: [self tempAt: 3 put: true] "this is temporary handlerActive in #on:do:"! Item was changed: ----- Method: Context>>reactivateHandlers (in category 'private-exceptions') ----- reactivateHandlers "Private - sent to exception handler context only (on:do:). Reactivate all the handlers into the chain" + self reactivateHandler. - self tempAt: 3 put: true. "this is temporary handlerActive in #on:do:" self nextHandlerContext reactivateHandlers! Item was added: + ----- Method: Context>>reactivateHandlersUpTo: (in category 'private-exceptions') ----- + reactivateHandlersUpTo: aHandlerContext + "Private - sent to exception handler context only (on:do:). + Reactivate the inner handlers into the chain, up to, but not including, aHandlerContext" + + self == aHandlerContext ifTrue: [^self]. + self reactivateHandler. + self nextHandlerContext reactivateHandlersUpTo: aHandlerContext! Item was added: + ----- Method: Context>>reactivateHandlersWhich:upTo: (in category 'private-exceptions') ----- + reactivateHandlersWhich: selectBlock upTo: aHandlerContext + "Private - sent to exception handler context only (on:do:). + Reactivate the inner handlers into the chain, up to, but not including, aHandlerContext, that satisfy the selectBlock predicate" + + self == aHandlerContext ifTrue: [^self]. + (selectBlock value: self) ifTrue: [self reactivateHandler]. + self nextHandlerContext reactivateHandlersWhich: selectBlock upTo: aHandlerContext! Item was changed: ----- Method: Context>>rearmHandlerDuring: (in category 'private-exceptions') ----- rearmHandlerDuring: aBlock "Sent to handler (on:do:) contexts only. Makes me re-entrant for the duration of aBlock. Only works in a closure-enabled image" + ^ [self reactivateHandler. aBlock value] + ensure: [self deactivateHandler]! - ^ [self tempAt: 3 put: true. aBlock value] - ensure: [self tempAt: 3 put: false]! Item was added: + ----- Method: Context>>willHandleSignal: (in category 'private-exceptions') ----- + willHandleSignal: exception + "Sent to handler (on:do:) contexts only." + + ^self isHandlerActive and: [(self tempAt: 1) handles: exception] + ! Item was added: + ----- Method: Exception>>reactivateHandlersUpTo: (in category 'priv handling') ----- + reactivateHandlersUpTo: aHandlerContext + "reactivate all the exception handlers in the context chain" + self canSearchForSignalerContext + ifTrue: [signalContext nextHandlerContext reactivateHandlersUpTo: aHandlerContext]! Item was added: + ----- Method: UndefinedObject>>reactivateHandlersUpTo: (in category 'bottom context') ----- + reactivateHandlersUpTo: aHandlerContext + + ^ self! Item was added: + ----- Method: UndefinedObject>>reactivateHandlersWhich:upTo: (in category 'bottom context') ----- + reactivateHandlersWhich: selectBlock upTo: aHandlerContext + + ^ self!

3 4

The Inbox: Kernel-jar.1398.mcz
by commits＠source.squeak.org 02 May '21

02 May '21

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-jar.1398.mcz ==================== Summary ==================== Name: Kernel-jar.1398 Author: jar Time: 2 May 2021, 2:56:26.972089 pm UUID: 9398993d-726c-8747-bde6-506318c4f898 Ancestors: Kernel-nice.1397 Fix a bug in #resignalAs causing an incorrect evaluation of resignalAs in combination with #outer. Complemented with a test in Tests-jar.461 (Inbox) To illustrate the bug try: | x | x:=''. [ [1/0. x:=x,'1'] on: ZeroDivide do: [:ex | ex outer. x:=x,'2']. x:=x,'3' ] on: ZeroDivide do: [:ex | ex resignalAs: Notification]. x answers: ---> '2' currently - incorrect ---> '13' after the fix =============== Diff against Kernel-nice.1397 =============== Item was changed: ----- Method: Exception>>resignalAs: (in category 'handling') ----- resignalAs: replacementException + "Signal an alternative exception in place of the receiver. + Unwind to signalContext before signalling the replacement exception" - "Signal an alternative exception in place of the receiver." + signalContext resumeEvaluating: [replacementException signal]! - self resumeEvaluating: [replacementException signal]!

1 0

The Inbox: Tests-jar.461.mcz
by commits＠source.squeak.org 02 May '21

02 May '21

A new version of Tests was added to project The Inbox: http://source.squeak.org/inbox/Tests-jar.461.mcz ==================== Summary ==================== Name: Tests-jar.461 Author: jar Time: 2 May 2021, 2:51:16.847089 pm UUID: 651bce1b-31e0-aa41-8178-47c312752c8b Ancestors: Tests-nice.460 Test #outer in combination with #resignalAs =============== Diff against Tests-nice.460 =============== Item was added: + ----- Method: ExceptionTester>>doubleOuterResignalAsTest (in category 'tests') ----- + doubleOuterResignalAsTest + "ExceptionTester new doubleOuterResignalAsTest" + + [[self doSomething. + MyResumableTestError signal. + self doYetAnotherThing] + on: MyResumableTestError + do: [:ex | ex outer. self doSomethingExceptional]. self doSomethingElse] + on: MyResumableTestError + do: [:ex | ex resignalAs: MyTestNotification] + ! Item was added: + ----- Method: ExceptionTester>>doubleOuterResignalAsTestResults (in category 'tests') ----- + doubleOuterResignalAsTestResults + + ^OrderedCollection new + add: self doSomethingString; + add: self doYetAnotherThingString; + add: self doSomethingElseString; + yourself! Item was added: + ----- Method: ExceptionTests>>testDoubleOuterResignalAs (in category 'tests - ExceptionTester') ----- + testDoubleOuterResignalAs + self assertSuccess: (ExceptionTester new runTest: #doubleOuterResignalAsTest ) !

1 0

The Trunk: EToys-mt.445.mcz
by commits＠source.squeak.org 01 May '21

01 May '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.445.mcz ==================== Summary ==================== Name: EToys-mt.445 Author: mt Time: 29 April 2021, 11:00:13.160891 am UUID: 52e9dd0f-9312-b14c-9c5e-e70fe689d457 Ancestors: EToys-mt.444 Move BroomMorphs to the "Connectors" project ... where they already are! :-O So, resolve conflicts between Connectors and Etoys when loading Connectors into Squeak. =============== Diff against EToys-mt.444 =============== Item was removed: - Morph subclass: #BroomMorph - instanceVariableNames: 'centered drawBroomIcon filter hotspot lastHotspot moved span start transient unmoved width' - classVariableNames: 'BroomIcon' - poolDictionaries: '' - category: 'Etoys-Squeakland-BroomMorphs-Base'! - - !BroomMorph commentStamp: 'nk 7/24/2003 15:15' prior: 0! - This is a Morph (actually a family of Morphs) that do alignment of other morphs. - - BroomMorphs become: an object of one of their subclasses when dragged far enough. - - Drag a BroomMorph in some direction and it becomes a broom that can align the Morphs it touches. - - This idea is borrowed from the GEF framework (http://gef.tigris.org) - - If you want to pick up a BroomMorph, you can use the Shift key. - - Hitting the ESC key will re-position all moved Morphs to their original position. - - BroomMorph newTransient will give you a BroomMorph that will delete itself on mouse up. - - unmoved the set of Morphs that I won't move - moved the set of Morphs that I might move - start my first hotspot - span how wide to make (each half of) my bar initially - width the width of the main lines - hotspot my active position - lastHotspot my last active position - drawBroomIcon true if I look like a broom while idle (false=look like a +) - transient if true, then I delete myself on mouse-up - ! Item was removed: - ----- Method: BroomMorph class>>broomIcon (in category 'icons') ----- - broomIcon - "BroomMorph broomIcon openAsMorph" - ^BroomIcon ifNil: [ BroomIcon := ((ColorForm - extent: 48@48 - depth: 8 - fromArray: #( 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294965235 2123104255 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294289468 792571391 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4250474910 4268775935 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4281003980 4040445339 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 3558577510 3456013868 3305111551 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4119016581 1223753318 1509949439 4294967295 429 4967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294325096 1601695446 905969663 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294953525 2688143356 2354708479 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967163 1386041086 3779953919 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967294 730230149 4272828159 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4280259150 3556661084 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4284369021 1626460469 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294927207 1420492426 1308622847 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4 294967295 4294967295 4294937190 2120285430 1165885439 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294957119 1936237296 3090939903 4294967295 4294967295 4294967295 1314410239 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 980114393 4199311359 4294967295 4294967295 4294922751 3468260930 1409286143 4294967295 4294967295 4294967295 4294967295 4294967295 1985634676 4278069247 4294967295 4294967295 822072038 4259577561 1764753407 4294967295 4294967295 4294967295 4294967295 4294967295 3629150295 2650507588 4294967295 4294915958 3355115262 4143841013 4272170751 4294967295 4294967295 4294967295 4294967295 4294967295 4294926694 1526660645 2147418111 811775466 4278123248 4110024186 4209802495 4294967295 4294967295 4294967295 4294967295 4294967295 4291518587 1401683663 331415327 2949970174 4142920702 4261016571 4278113279 4294967295 4294967295 4294967295 4294967295 4294967295 4294967126 2521018110 1564595145 4177130745 4 177394940 4226481918 3875468850 4294967295 4294967295 4294967295 4294967295 4294967295 4294966641 1818781950 4128018932 4227464691 4260888054 4193844470 4278022746 4294967295 4294967295 4294967295 4294967295 4294967295 4294957251 1082604973 4103079930 4227659000 4260949757 4260625918 4151583689 4294967295 4294967295 4294967295 4294967295 4294967295 4294966523 2254399056 4275306750 4259969533 4126735860 4160027632 1714067961 4294967295 4294967295 4294967295 4294967295 4294967295 3774129236 3427224966 2232244218 4009623029 4143840757 4227709222 1704204739 4294967295 4294967295 4294967295 4294967295 4294967281 3329305219 4274147615 459535614 4261278453 4260753150 4270732152 2132872703 4294967295 4294967295 4294967295 4294967295 4294966951 995344887 3891984632 4244567550 4260690427 4076796361 1799391336 17564460 4294967295 4294967295 4294967295 4294967295 4274153014 2180382453 4261084157 4175822318 4059954686 4277316954 1602381320 643309831 4294967295 4294967295 4294967295 4294967282 28 23377603 3942511613 4142661107 4260624381 4261016062 4052699741 2049901056 391839597 4294967295 4294967295 4294967295 4294894196 747109878 4260689915 4210947065 4260953586 4177395136 1851158651 553648145 1599406079 4294967295 4294967295 4294967295 4256715083 3203923193 4177133041 4210883322 4244305914 4244547905 1487161345 330496 2227240959 4294967295 4294967295 4294967295 4280716212 4160615158 4244110584 4261214970 4261280247 4135604607 2017591306 728003705 1908998143 4294967295 4294967295 4294967257 2301731170 4093376766 4277467390 4259968509 3959291337 1415802972 571015178 360829128 4294967295 4294967295 4294967295 4294967254 1790591001 4244501995 4093310961 4160159230 4126914352 2004436244 50331652 659736575 4294967295 4294967295 4294967295 4294967238 1761476611 2144730878 4160683517 4143772670 4203101036 1849950720 34150400 1526726655 4294967295 4294967295 4294967295 4294967245 1806603524 512422141 4177326578 4261346478 1567853403 419430418 27790 2499805183 4294967295 429496729 5 4294967295 4294967295 2251944828 416179 4143369424 4142962521 2121937418 218103943 3075177727 4294967295 4294967295 4294967295 4294967295 4294967295 4030225866 2973499918 708410107 3394655628 1595344640 292229396 3218276351 4294967295 4294967295 4294967295 4294967295 3741319167 4292174133 2024384681 2646072943 1099787826 335808768 24831321 1996488703 4294967295 4294967295 4294967295 4294967295 4294967295 4294960585 1731939648 1162880122 2488537608 262165 842649087 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967246 4257768094 2930289509 420675584 173165056 1442840575 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4291847681 17632000 100663398 1027537151 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4290903836 152109071 5575935 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294954239 1392579628 436207615 4294967295 4294967295 42949672 95 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295 4294967295) - offset: 0@0) - colorsFromArray: #(#(0.0 0.0 0.0) #(0.004 0.004 0.004) #(0.008 0.008 0.008) #(0.012 0.012 0.012) #(0.016 0.016 0.016) #(0.02 0.02 0.02) #(0.023 0.023 0.023) #(0.027 0.027 0.027) #(0.031 0.031 0.031) #(0.035 0.035 0.035) #(0.039 0.039 0.039) #(0.043 0.043 0.043) #(0.047 0.047 0.047) #(0.051 0.051 0.051) #(0.055 0.055 0.055) #(0.059 0.059 0.059) #(0.063 0.063 0.063) #(0.066 0.066 0.066) #(0.07 0.07 0.07) #(0.074 0.074 0.074) #(0.078 0.078 0.078) #(0.082 0.082 0.082) #(0.086 0.086 0.086) #(0.09 0.09 0.09) #(0.094 0.094 0.094) #(0.098 0.098 0.098) #(0.102 0.102 0.102) #(0.106 0.106 0.106) #(0.109 0.109 0.109) #(0.113 0.113 0.113) #(0.117 0.117 0.117) #(0.121 0.121 0.121) #(0.125 0.125 0.125) #(0.129 0.129 0.129) #(0.133 0.133 0.133) #(0.137 0.137 0.137) #(0.141 0.141 0.141) #(0.145 0.145 0.145) #(0.149 0.149 0.149) #(0.152 0.152 0.152) #(0.156 0.156 0.156) #(0.16 0.16 0.16) #(0.164 0.164 0.164) #(0.168 0.168 0.168) #(0.172 0.172 0.172) #(0.176 0.176 0.176) #(0.18 0.18 0.18) #(0.184 0. 184 0.184) #(0.188 0.188 0.188) #(0.192 0.192 0.192) #(0.196 0.196 0.196) #(0.199 0.199 0.199) #(0.203 0.203 0.203) #(0.207 0.207 0.207) #(0.211 0.211 0.211) #(0.215 0.215 0.215) #(0.219 0.219 0.219) #(0.223 0.223 0.223) #(0.227 0.227 0.227) #(0.231 0.231 0.231) #(0.235 0.235 0.235) #(0.239 0.239 0.239) #(0.242 0.242 0.242) #(0.246 0.246 0.246) #(0.25 0.25 0.25) #(0.254 0.254 0.254) #(0.258 0.258 0.258) #(0.262 0.262 0.262) #(0.266 0.266 0.266) #(0.27 0.27 0.27) #(0.274 0.274 0.274) #(0.278 0.278 0.278) #(0.282 0.282 0.282) #(0.285 0.285 0.285) #(0.289 0.289 0.289) #(0.293 0.293 0.293) #(0.297 0.297 0.297) #(0.301 0.301 0.301) #(0.305 0.305 0.305) #(0.309 0.309 0.309) #(0.313 0.313 0.313) #(0.317 0.317 0.317) #(0.321 0.321 0.321) #(0.325 0.325 0.325) #(0.328 0.328 0.328) #(0.333 0.333 0.333) #(0.337 0.337 0.337) #(0.341 0.341 0.341) #(0.345 0.345 0.345) #(0.349 0.349 0.349) #(0.353 0.353 0.353) #(0.357 0.357 0.357) #(0.361 0.361 0.361) #(0.365 0.365 0.365) #(0.369 0.369 0.369) #(0.3 72 0.372 0.372) #(0.376 0.376 0.376) #(0.38 0.38 0.38) #(0.384 0.384 0.384) #(0.388 0.388 0.388) #(0.392 0.392 0.392) #(0.396 0.396 0.396) #(0.4 0.4 0.4) #(0.404 0.404 0.404) #(0.408 0.408 0.408) #(0.412 0.412 0.412) #(0.415 0.415 0.415) #(0.419 0.419 0.419) #(0.423 0.423 0.423) #(0.427 0.427 0.427) #(0.431 0.431 0.431) #(0.435 0.435 0.435) #(0.439 0.439 0.439) #(0.443 0.443 0.443) #(0.447 0.447 0.447) #(0.451 0.451 0.451) #(0.455 0.455 0.455) #(0.458 0.458 0.458) #(0.462 0.462 0.462) #(0.466 0.466 0.466) #(0.47 0.47 0.47) #(0.474 0.474 0.474) #(0.478 0.478 0.478) #(0.482 0.482 0.482) #(0.486 0.486 0.486) #(0.49 0.49 0.49) #(0.494 0.494 0.494) #(0.498 0.498 0.498) #(0.501 0.501 0.501) #(0.505 0.505 0.505) #(0.509 0.509 0.509) #(0.513 0.513 0.513) #(0.517 0.517 0.517) #(0.521 0.521 0.521) #(0.525 0.525 0.525) #(0.529 0.529 0.529) #(0.533 0.533 0.533) #(0.537 0.537 0.537) #(0.541 0.541 0.541) #(0.544 0.544 0.544) #(0.548 0.548 0.548) #(0.552 0.552 0.552) #(0.556 0.556 0.556) #(0.56 0. 56 0.56) #(0.564 0.564 0.564) #(0.568 0.568 0.568) #(0.572 0.572 0.572) #(0.576 0.576 0.576) #(0.58 0.58 0.58) #(0.584 0.584 0.584) #(0.587 0.587 0.587) #(0.591 0.591 0.591) #(0.595 0.595 0.595) #(0.599 0.599 0.599) #(0.603 0.603 0.603) #(0.607 0.607 0.607) #(0.611 0.611 0.611) #(0.615 0.615 0.615) #(0.619 0.619 0.619) #(0.623 0.623 0.623) #(0.627 0.627 0.627) #(0.63 0.63 0.63) #(0.634 0.634 0.634) #(0.638 0.638 0.638) #(0.642 0.642 0.642) #(0.646 0.646 0.646) #(0.65 0.65 0.65) #(0.654 0.654 0.654) #(0.658 0.658 0.658) #(0.662 0.662 0.662) #(0.667 0.667 0.667) #(0.671 0.671 0.671) #(0.674 0.674 0.674) #(0.678 0.678 0.678) #(0.682 0.682 0.682) #(0.686 0.686 0.686) #(0.69 0.69 0.69) #(0.694 0.694 0.694) #(0.698 0.698 0.698) #(0.702 0.702 0.702) #(0.706 0.706 0.706) #(0.71 0.71 0.71) #(0.714 0.714 0.714) #(0.717 0.717 0.717) #(0.721 0.721 0.721) #(0.725 0.725 0.725) #(0.729 0.729 0.729) #(0.733 0.733 0.733) #(0.737 0.737 0.737) #(0.741 0.741 0.741) #(0.745 0.745 0.745) #(0.749 0.749 0. 749) #(0.753 0.753 0.753) #(0.757 0.757 0.757) #(0.761 0.761 0.761) #(0.764 0.764 0.764) #(0.768 0.768 0.768) #(0.772 0.772 0.772) #(0.776 0.776 0.776) #(0.78 0.78 0.78) #(0.784 0.784 0.784) #(0.788 0.788 0.788) #(0.792 0.792 0.792) #(0.796 0.796 0.796) #(0.8 0.8 0.8) #(0.804 0.804 0.804) #(0.807 0.807 0.807) #(0.811 0.811 0.811) #(0.815 0.815 0.815) #(0.819 0.819 0.819) #(0.823 0.823 0.823) #(0.827 0.827 0.827) #(0.831 0.831 0.831) #(0.835 0.835 0.835) #(0.839 0.839 0.839) #(0.843 0.843 0.843) #(0.847 0.847 0.847) #(0.85 0.85 0.85) #(0.854 0.854 0.854) #(0.858 0.858 0.858) #(0.862 0.862 0.862) #(0.866 0.866 0.866) #(0.87 0.87 0.87) #(0.874 0.874 0.874) #(0.878 0.878 0.878) #(0.882 0.882 0.882) #(0.886 0.886 0.886) #(0.89 0.89 0.89) #(0.893 0.893 0.893) #(0.897 0.897 0.897) #(0.901 0.901 0.901) #(0.905 0.905 0.905) #(0.909 0.909 0.909) #(0.913 0.913 0.913) #(0.917 0.917 0.917) #(0.921 0.921 0.921) #(0.925 0.925 0.925) #(0.929 0.929 0.929) #(0.933 0.933 0.933) #(0.936 0.936 0.936) #( 0.94 0.94 0.94) #(0.944 0.944 0.944) #(0.948 0.948 0.948) #(0.952 0.952 0.952) #(0.956 0.956 0.956) #(0.96 0.96 0.96) #(0.964 0.964 0.964) #(0.968 0.968 0.968) #(0.972 0.972 0.972) #(0.976 0.976 0.976) #(0.979 0.979 0.979) #(0.983 0.983 0.983) #(0.987 0.987 0.987) #(0.991 0.991 0.991) #(0.995 0.995 0.995) #( ) )) ]! Item was removed: - ----- Method: BroomMorph class>>descriptionForPartsBin (in category 'parts bin') ----- - descriptionForPartsBin - ^ self partName: 'Broom' translatedNoop - categories: {'Graphics' translatedNoop} - documentation: 'A broom to align Morphs with' translatedNoop! Item was removed: - ----- Method: BroomMorph class>>newCentered (in category 'instance creation') ----- - newCentered - "return a BroomMorph that will align Morph centers" - "BroomMorph newCentered openInHand" - ^(self new) centered: true! Item was removed: - ----- Method: BroomMorph class>>newTransient (in category 'instance creation') ----- - newTransient - "return a BroomMorph that will delete itself on mouse-up" - - "BroomMorph newTransient openInHand" - - ^self new transient: true! Item was removed: - ----- Method: BroomMorph class>>newTransientInHand (in category 'instance creation') ----- - newTransientInHand - - "return a BroomMorph that will delete itself on mouse-up" - - "BroomMorph newTransientInHand" - - ^self newTransient openInHand! Item was removed: - ----- Method: BroomMorph>>affectedMorphs (in category 'private') ----- - affectedMorphs - "Answer all the morphs that I should be moving" - ^ #()! Item was removed: - ----- Method: BroomMorph>>basicClass (in category 'private') ----- - basicClass - ^BroomMorph! Item was removed: - ----- Method: BroomMorph>>centered: (in category 'accessing') ----- - centered: aBoolean - "If aBoolean is true, I align morphs on their H or V centerlines" - centered := aBoolean.! Item was removed: - ----- Method: BroomMorph>>drawBroomIcon: (in category 'accessing') ----- - drawBroomIcon: aBoolean - "If aBoolean is true, then I draw a cute broom icon; otherwise I draw a cross" - drawBroomIcon := aBoolean. - self changed.! Item was removed: - ----- Method: BroomMorph>>drawOn: (in category 'drawing') ----- - drawOn: aCanvas - drawBroomIcon - ifTrue: [ aCanvas paintImage: self class broomIcon at: self position ] - ifFalse: [ self drawPlusOn: aCanvas ]. - ! Item was removed: - ----- Method: BroomMorph>>drawPlusOn: (in category 'drawing') ----- - drawPlusOn: aCanvas - | halfWidth | - halfWidth := width + 1 // 2. - aCanvas line: bounds leftCenter + (halfWidth@0) to: bounds rightCenter + (halfWidth negated@0) width: width color: self color. - aCanvas line: bounds topCenter + (0@halfWidth) to: bounds bottomCenter + (0@halfWidth negated) width: width color: self color. - ! Item was removed: - ----- Method: BroomMorph>>filter: (in category 'accessing') ----- - filter: aBlock - "Set my acceptance filter. aBlock should return true for all Morphs to be moved" - filter := aBlock! Item was removed: - ----- Method: BroomMorph>>handlesKeyboard: (in category 'event handling') ----- - handlesKeyboard: evt - ^true! Item was removed: - ----- Method: BroomMorph>>handlesMouseDown: (in category 'event handling') ----- - handlesMouseDown: evt - ^evt shiftPressed not! Item was removed: - ----- Method: BroomMorph>>handlesMouseStillDown: (in category 'event handling') ----- - handlesMouseStillDown: evt - ^true.! Item was removed: - ----- Method: BroomMorph>>hotspot (in category 'accessing') ----- - hotspot - ^hotspot! Item was removed: - ----- Method: BroomMorph>>hotspot: (in category 'private') ----- - hotspot: aPoint - lastHotspot := hotspot. - hotspot := aPoint. - ^self center: aPoint! Item was removed: - ----- Method: BroomMorph>>initialize (in category 'initialization') ----- - initialize - super initialize. - width := 5. - span := 100. - hotspot := self center. - self reset. - self color: Color blue muchDarker. - self setBalloonText: 'Drag me to align other Morphs. Drag with the Shift key to move me without affecting other Morphs. Drag me with the second mouse button to align centers.' translated. - drawBroomIcon := true. - transient := false. - centered := false. - ! Item was removed: - ----- Method: BroomMorph>>justDroppedInto:event: (in category 'dropping/grabbing') ----- - justDroppedInto: aMorph event: anEvent - super justDroppedInto: aMorph event: anEvent. - aMorph isPlayfieldLike ifFalse: [ ^self delete ]. - self centered: anEvent hand lastEvent yellowButtonPressed. - self transient ifFalse: [ ^self ]. - self reset. - self hotspot: (start := anEvent position). - anEvent hand newMouseFocus: self. - anEvent hand newKeyboardFocus: self. - "Cursor blank show."! Item was removed: - ----- Method: BroomMorph>>keyStroke: (in category 'event handling') ----- - keyStroke: evt - evt keyCharacter ~= Character escape ifTrue: [ ^self ]. - evt hand releaseMouseFocus: self. - evt hand releaseKeyboardFocus: self. - Cursor normal show. - moved keysAndValuesDo: [ :m :b | m bounds: b ]. - transient ifTrue: [ ^self delete ]. - self resetClass. - self reset. - self hotspot: start. - ! Item was removed: - ----- Method: BroomMorph>>lineWidth (in category 'accessing') ----- - lineWidth - ^width! Item was removed: - ----- Method: BroomMorph>>lineWidth: (in category 'accessing') ----- - lineWidth: aNumber - width := aNumber. - self changed! Item was removed: - ----- Method: BroomMorph>>morphIfNecessary: (in category 'stepping and presenter') ----- - morphIfNecessary: yellowButtonPressed - | pt delta threshold cls center | - center := yellowButtonPressed | centered. - pt := self center. - threshold := self width / 2. - delta := pt - start. - cls := delta x > threshold - ifTrue: [center - ifTrue: [CenterBroomMorphRight] - ifFalse: [BroomMorphRight]] - ifFalse: [delta x < threshold negated - ifTrue: [center - ifTrue: [CenterBroomMorphLeft] - ifFalse: [BroomMorphLeft]] - ifFalse: [delta y > threshold - ifTrue: [center - ifTrue: [CenterBroomMorphDown] - ifFalse: [BroomMorphDown]] - ifFalse: [delta y < threshold negated - ifTrue: [center - ifTrue: [CenterBroomMorphUp] - ifFalse: [BroomMorphUp]]]]]. - cls - ifNotNil: [self - become: (self as: cls). - self reset. - self resetFilter. - unmoved addAll: self affectedMorphs]! Item was removed: - ----- Method: BroomMorph>>mouseDown: (in category 'event handling') ----- - mouseDown: evt - self reset. - self resetFilter. - self hotspot: (start := evt position). - evt hand newMouseFocus: self. - evt hand newKeyboardFocus: self. - "Cursor blank show."! Item was removed: - ----- Method: BroomMorph>>mouseMove: (in category 'event handling') ----- - mouseMove: evt - self hotspot: evt position. - self moveMorphs: evt yellowButtonPressed! Item was removed: - ----- Method: BroomMorph>>mouseStillDown: (in category 'event handling') ----- - mouseStillDown: evt - self hotspot: evt position. - self moveMorphs: evt yellowButtonPressed! Item was removed: - ----- Method: BroomMorph>>mouseUp: (in category 'event handling') ----- - mouseUp: evt - evt hand releaseMouseFocus: self. - Cursor normal show. - self rememberCommand: self undoCommand. - transient ifTrue: [ ^self delete ]. - self resetClass. - self reset. - self hotspot: start.! Item was removed: - ----- Method: BroomMorph>>moveMorphs: (in category 'stepping and presenter') ----- - moveMorphs: yellowButtonPressed - "Move all the newly affected morphs and the ones I'm already moving." - self class == self basicClass - ifTrue: [^ self morphIfNecessary: yellowButtonPressed ]. - (((self affectedMorphs - reject: [:m | unmoved includes: m]) - reject: [:m | moved includesKey: m]) - select: filter) - do: [:m | moved at: m put: m bounds]. - moved - keysAndValuesDo: [:m :b | self positionMorph: m originalBounds: b]! Item was removed: - ----- Method: BroomMorph>>openCenteredInHand (in category 'initialization') ----- - openCenteredInHand - "BroomMorph new openCenteredInHand" - "NCBroomMorph new openCenteredInHand" - self centered: true. - self openInHand.! Item was removed: - ----- Method: BroomMorph>>openTransientCenteredInHand (in category 'initialization') ----- - openTransientCenteredInHand - "BroomMorph new openTransientCenteredInHand" - self transient: true. - self centered: true. - self openInHand.! Item was removed: - ----- Method: BroomMorph>>openTransientInHand (in category 'initialization') ----- - openTransientInHand - "BroomMorph new openTransientInHand" - self transient: true. - self openInHand.! Item was removed: - ----- Method: BroomMorph>>reset (in category 'initialization') ----- - reset - moved := IdentityDictionary new. "morph -> original bounds" - unmoved := IdentitySet new. - self resetExtent. - filter := nil. - ! Item was removed: - ----- Method: BroomMorph>>resetClass (in category 'initialization') ----- - resetClass - self become: (self as: self basicClass)! Item was removed: - ----- Method: BroomMorph>>resetExtent (in category 'initialization') ----- - resetExtent - super extent: self class broomIcon extent. - hotspot := lastHotspot := self center.! Item was removed: - ----- Method: BroomMorph>>resetFilter (in category 'initialization') ----- - resetFilter - - self filter: [ :m | true ]. - ! Item was removed: - ----- Method: BroomMorph>>span (in category 'accessing') ----- - span - ^span! Item was removed: - ----- Method: BroomMorph>>span: (in category 'accessing') ----- - span: aNumber - span := aNumber. - self hotspot: self hotspot. - self changed.! Item was removed: - ----- Method: BroomMorph>>transient (in category 'accessing') ----- - transient - ^transient! Item was removed: - ----- Method: BroomMorph>>transient: (in category 'accessing') ----- - transient: aBoolean - "if aBoolean is true, then I delete myself on mouse-up" - transient := aBoolean! Item was removed: - ----- Method: BroomMorph>>undoCommand (in category 'undo') ----- - undoCommand - | cmd args | - cmd := Command new cmdWording: 'align morphs'. - args := OrderedCollection new. - moved keysAndValuesDo: [ :m :b | - args add: { m. b. m bounds. m owner. m owner morphPreceding: m } - ]. - cmd undoTarget: self selector: #undoMove:redo:args: arguments: { cmd. false. args }. - ^cmd! Item was removed: - ----- Method: BroomMorph>>undoMove:redo:args: (in category 'undo') ----- - undoMove: cmd redo: redo args: args - "morph oldbounds newbounds oldowner oldpredecessor" - cmd redoTarget: self selector: #undoMove:redo:args: arguments: { cmd. true. args }. - args do: [ :a | | morph oldbounds newbounds oldowner oldpredecessor | - morph := a at: 1. - oldbounds := a at: 2. - newbounds := a at: 3. - oldowner := a at: 4. - oldpredecessor := a at: 5. - oldowner ifNotNil: [ oldpredecessor ifNil: [ oldowner addMorphFront: morph ] - ifNotNil: [ oldowner addMorph: morph after: oldpredecessor ]]. - morph bounds: (redo ifTrue: [ newbounds ] ifFalse: [ oldbounds ]). - (morph isKindOf: SystemWindow) ifTrue: [ morph activate ]. - ].! Item was removed: - BroomMorph subclass: #BroomMorphDown - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-BroomMorphs-Base'! - - !BroomMorphDown commentStamp: '<historical>' prior: 0! - I am a BroomMorph that pushes morphs down.! Item was removed: - ----- Method: BroomMorphDown>>affectedMorphs (in category 'private') ----- - affectedMorphs - "Answer all the morphs that I should be moving" - | movedRect | - movedRect := self bounds encompass: hotspot x @ lastHotspot y. - ^ owner submorphs - select: [:m | movedRect - intersects: (Rectangle - left: m bounds left - right: m bounds right - top: m bounds top - bottom: m bounds top + 1)]! Item was removed: - ----- Method: BroomMorphDown>>drawOn: (in category 'drawing') ----- - drawOn: aCanvas - | halfWidth | - halfWidth := width + 1 // 2. - aCanvas line: bounds topCenter + (0@halfWidth) to: bounds bottomCenter + (0@halfWidth negated) width: width color: self color. - aCanvas line: bounds bottomLeft + (halfWidth @ halfWidth negated) to: bounds bottomRight + (halfWidth negated@halfWidth negated) width: width color: self color. - aCanvas line: self hotspot + (span negated @ (width * -2)) to: self hotspot + (span negated @ -1) color: self color. - aCanvas line: self hotspot + (span -1 @ (width * -2)) to: self hotspot + (span-1 @ -1) color: self color. - ! Item was removed: - ----- Method: BroomMorphDown>>hotspot: (in category 'accessing') ----- - hotspot: aPoint - | left right bottom newBounds | - left := aPoint x - span min: bounds left. - right := aPoint x + span max: bounds right. - bottom := aPoint y max: start y. - lastHotspot := hotspot. - hotspot := aPoint x @ bottom. - newBounds := Rectangle - left: left - right: right - top: bottom - bounds height - bottom: bottom. - self bounds: newBounds. - ! Item was removed: - ----- Method: BroomMorphDown>>positionMorph:originalBounds: (in category 'private') ----- - positionMorph: m originalBounds: b - m top: (self bottom max: b top)! Item was removed: - ----- Method: BroomMorphDown>>resetExtent (in category 'drawing') ----- - resetExtent - | newBounds | - newBounds := 0@0 extent: (2*span) @ (12 + width). - self bounds: (newBounds align: newBounds bottomCenter with: hotspot)! Item was removed: - BroomMorphRight subclass: #BroomMorphLeft - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-BroomMorphs-Base'! - - !BroomMorphLeft commentStamp: '<historical>' prior: 0! - I am a BroomMorph that pushes morphs left.! Item was removed: - ----- Method: BroomMorphLeft>>affectedMorphs (in category 'private') ----- - affectedMorphs - "Answer all the morphs that I should be moving" - | movedRect | - movedRect := self bounds encompass: lastHotspot x @ hotspot y. - ^ owner submorphs - select: [:m | movedRect - intersects: (Rectangle - left: m bounds right - 1 - right: m bounds right - top: m bounds top - bottom: m bounds bottom)]! Item was removed: - ----- Method: BroomMorphLeft>>drawOn: (in category 'drawing') ----- - drawOn: aCanvas - | halfWidth | - halfWidth := (width + 1 // 2). - aCanvas line: bounds leftCenter + (halfWidth@0) to: bounds rightCenter + (halfWidth negated @0) width: width color: self color. - aCanvas line: bounds topLeft + (halfWidth @ halfWidth) to: bounds bottomLeft + (halfWidth @halfWidth negated) width: width color: self color. - aCanvas line: self hotspot + (width * 2 @ (span negated)) to: self hotspot + (1 @ (span negated)) color: self color. - aCanvas line: self hotspot + (width * 2 @ (span-1)) to: self hotspot + (1 @ (span-1)) color: self color. - ! Item was removed: - ----- Method: BroomMorphLeft>>hotspot: (in category 'accessing') ----- - hotspot: aPoint - | newBounds top bottom left | - top := aPoint y - span min: bounds top. - bottom := aPoint y + span max: bounds bottom. - left := aPoint x min: start x. - lastHotspot := hotspot. - hotspot := left @ aPoint y. - newBounds := Rectangle - left: left - right: left + bounds width - top: top - bottom: bottom. - self bounds: newBounds! Item was removed: - ----- Method: BroomMorphLeft>>positionMorph:originalBounds: (in category 'private') ----- - positionMorph: m originalBounds: b - m right: (self left min: b right)! Item was removed: - ----- Method: BroomMorphLeft>>resetExtent (in category 'drawing') ----- - resetExtent - | newBounds | - newBounds := 0@0 extent: (12 + width) @ (2*span). - self bounds: (newBounds align: newBounds leftCenter with: hotspot)! Item was removed: - BroomMorph subclass: #BroomMorphRight - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-BroomMorphs-Base'! - - !BroomMorphRight commentStamp: '<historical>' prior: 0! - I am a BroomMorph that pushes morphs right.! Item was removed: - ----- Method: BroomMorphRight>>affectedMorphs (in category 'private') ----- - affectedMorphs - "Answer all the morphs that I should be moving" - | movedRect | - movedRect := self bounds encompass: lastHotspot x @ hotspot y. - ^ owner submorphs - select: [:m | movedRect - intersects: (Rectangle - left: m bounds left - right: m bounds left + 1 - top: m bounds top - bottom: m bounds bottom)]! Item was removed: - ----- Method: BroomMorphRight>>drawOn: (in category 'drawing') ----- - drawOn: aCanvas - | halfWidth | - halfWidth := width + 1 // 2. - aCanvas line: bounds leftCenter + (halfWidth@0) to: bounds rightCenter + (halfWidth negated @0) width: width color: self color. - aCanvas line: bounds topRight + (halfWidth negated @ halfWidth) to: bounds bottomRight + (halfWidth negated@halfWidth negated) width: width color: self color. - aCanvas line: self hotspot + (width * -2 @ (span negated)) to: self hotspot + (-1 @ (span negated)) color: self color. - aCanvas line: self hotspot + (width * -2 @ (span-1)) to: self hotspot + (-1 @ (span-1)) color: self color. - ! Item was removed: - ----- Method: BroomMorphRight>>hotspot: (in category 'accessing') ----- - hotspot: aPoint - | newBounds top bottom right | - top := aPoint y - span min: bounds top. - bottom := aPoint y + span max: bounds bottom. - right := aPoint x max: start x. - lastHotspot := hotspot. - hotspot := right @ aPoint y. - newBounds := Rectangle - left: right - bounds width - right: right - top: top - bottom: bottom. - self bounds: newBounds! Item was removed: - ----- Method: BroomMorphRight>>positionMorph:originalBounds: (in category 'private') ----- - positionMorph: m originalBounds: b - m left: (self right max: b left)! Item was removed: - ----- Method: BroomMorphRight>>resetExtent (in category 'accessing') ----- - resetExtent - | newBounds | - newBounds := 0@0 extent: (12 + width) @ (2*span). - self bounds: (newBounds align: newBounds rightCenter with: hotspot)! Item was removed: - BroomMorphDown subclass: #BroomMorphUp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-BroomMorphs-Base'! - - !BroomMorphUp commentStamp: '<historical>' prior: 0! - I am a BroomMorph that pushes morphs up.! Item was removed: - ----- Method: BroomMorphUp>>affectedMorphs (in category 'private') ----- - affectedMorphs - "Answer all the morphs that I should be moving" - | movedRect | - movedRect := self bounds encompass: hotspot x @ lastHotspot y. - ^ owner submorphs - select: [:m | movedRect - intersects: (Rectangle - left: m bounds left - right: m bounds right - top: m bounds bottom - 1 - bottom: m bounds bottom)]! Item was removed: - ----- Method: BroomMorphUp>>drawOn: (in category 'drawing') ----- - drawOn: aCanvas - | halfWidth | - halfWidth := width + 1 // 2. - aCanvas line: bounds topCenter + (0@halfWidth) to: bounds bottomCenter + (0@halfWidth negated) width: width color: self color. - aCanvas line: bounds topLeft + (halfWidth @ halfWidth) to: bounds topRight + ((halfWidth) negated@halfWidth) width: width color: self color. - aCanvas line: self hotspot + (span negated @ (width * 2)) to: self hotspot + (span negated @ 1) color: self color. - aCanvas line: self hotspot + (span -1 @ (width * 2)) to: self hotspot + (span -1 @ 1) color: self color. - ! Item was removed: - ----- Method: BroomMorphUp>>hotspot: (in category 'accessing') ----- - hotspot: aPoint - | left right newBounds top | - left := aPoint x - span min: bounds left. - right := aPoint x + span max: bounds right. - top := aPoint y min: start y. - lastHotspot := hotspot. - hotspot := aPoint x @ top. - newBounds := Rectangle - left: left - right: right - top: top - bottom: top + bounds height. - self bounds: newBounds! Item was removed: - ----- Method: BroomMorphUp>>positionMorph:originalBounds: (in category 'private') ----- - positionMorph: m originalBounds: b - m bottom: (self top min: b bottom)! Item was removed: - ----- Method: BroomMorphUp>>resetExtent (in category 'drawing') ----- - resetExtent - | newBounds | - newBounds := 0@0 extent: (2*span) @ (12 + width). - self bounds: (newBounds align: newBounds topCenter with: hotspot)! Item was removed: - BroomMorphDown subclass: #CenterBroomMorphDown - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-BroomMorphs-Base'! Item was removed: - ----- Method: CenterBroomMorphDown>>affectedMorphs (in category 'private') ----- - affectedMorphs - "Answer all the morphs that I should be moving" - | movedRect | - movedRect := self bounds encompass: hotspot x @ lastHotspot y. - ^ owner submorphs - select: [:m | movedRect - intersects: (Rectangle - left: m bounds left - right: m bounds right - top: m bounds center y - 1 - bottom: m bounds center y + 1)]! Item was removed: - ----- Method: CenterBroomMorphDown>>positionMorph:originalBounds: (in category 'private') ----- - positionMorph: m originalBounds: b - m center: m center x @ (self bottom max: b center y)! Item was removed: - BroomMorphLeft subclass: #CenterBroomMorphLeft - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-BroomMorphs-Base'! Item was removed: - ----- Method: CenterBroomMorphLeft>>affectedMorphs (in category 'private') ----- - affectedMorphs - "Answer all the morphs that I should be moving" - | movedRect | - movedRect := self bounds encompass: lastHotspot x @ hotspot y. - ^ owner submorphs - select: [:m | movedRect - intersects: (Rectangle - left: m bounds center x - 1 - right: m bounds center x + 1 - top: m bounds top - bottom: m bounds bottom)]! Item was removed: - ----- Method: CenterBroomMorphLeft>>positionMorph:originalBounds: (in category 'private') ----- - positionMorph: m originalBounds: b - m center: (self left min: b center x) @ m center y! Item was removed: - BroomMorphRight subclass: #CenterBroomMorphRight - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-BroomMorphs-Base'! Item was removed: - ----- Method: CenterBroomMorphRight>>affectedMorphs (in category 'private') ----- - affectedMorphs - "Answer all the morphs that I should be moving" - | movedRect | - movedRect := self bounds encompass: lastHotspot x @ hotspot y. - ^ owner submorphs - select: [:m | movedRect - intersects: (Rectangle - left: m bounds center x - 1 - right: m bounds center x + 1 - top: m bounds top - bottom: m bounds bottom)]! Item was removed: - ----- Method: CenterBroomMorphRight>>positionMorph:originalBounds: (in category 'private') ----- - positionMorph: m originalBounds: b - m center: (self right max: b center x) @ m center y! Item was removed: - BroomMorphUp subclass: #CenterBroomMorphUp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-BroomMorphs-Base'! Item was removed: - ----- Method: CenterBroomMorphUp>>affectedMorphs (in category 'private') ----- - affectedMorphs - "Answer all the morphs that I should be moving" - | movedRect | - movedRect := self bounds encompass: hotspot x @ lastHotspot y. - ^ owner submorphs - select: [:m | movedRect - intersects: (Rectangle - left: m bounds left - right: m bounds right - top: m bounds center y - 1 - bottom: m bounds center y + 1)]! Item was removed: - ----- Method: CenterBroomMorphUp>>positionMorph:originalBounds: (in category 'private') ----- - positionMorph: m originalBounds: b - m center: m center x @ (self top min: b center y)! Item was removed: - BroomMorph subclass: #NCBroomMorph - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-BroomMorphs-Connectors'! - - !NCBroomMorph commentStamp: '<historical>' prior: 0! - This is a BroomMorph that won't move labels or connectors.! Item was removed: - ----- Method: NCBroomMorph class>>descriptionForPartsBin (in category 'parts bin') ----- - descriptionForPartsBin - ^ self partName: 'Connector Broom' translatedNoop - categories: {'Connectors' translatedNoop} - documentation: 'A broom to align shapes with' translatedNoop! Item was removed: - ----- Method: NCBroomMorph class>>newInHand (in category 'instance creation') ----- - newInHand - self new openInHand! Item was removed: - ----- Method: NCBroomMorph>>basicClass (in category 'initialization') ----- - basicClass - ^NCBroomMorph! Item was removed: - ----- Method: NCBroomMorph>>resetFilter (in category 'initialization') ----- - resetFilter - - self filter: [ :m | m isConnector not and: [ m isConstraint not ] ].!

2 1

The Trunk: System-mt.1231.mcz
by commits＠source.squeak.org 01 May '21

01 May '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1231.mcz ==================== Summary ==================== Name: System-mt.1231 Author: mt Time: 29 April 2021, 11:03:42.969891 am UUID: af06a9e1-6280-0649-820c-f6c89ef25640 Ancestors: System-mt.1230 Removes autogenerated pref accessors, which are now under "*autogenerated - ...". =============== Diff against System-mt.1230 =============== Item was removed: - ----- Method: Preferences class>>alwaysShowConnectionVocabulary (in category 'standard queries') ----- - alwaysShowConnectionVocabulary - ^ self - valueOfFlag: #alwaysShowConnectionVocabulary - ifAbsent: [false]! Item was removed: - ----- Method: Preferences class>>useSmartLabels (in category 'standard queries') ----- - useSmartLabels - ^ self - valueOfFlag: #useSmartLabels - ifAbsent: [false]!

2 1

The Trunk: Tests-nice.459.mcz
by commits＠source.squeak.org 01 May '21

01 May '21

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.459.mcz ==================== Summary ==================== Name: Tests-nice.459 Author: nice Time: 29 April 2021, 10:30:03.551961 pm UUID: 67799656-9640-e447-b665-6f74573e3716 Ancestors: Tests-nice.458 For some reason, ImageSegmentTest>>testContextsShouldBeWritableToaFile interact badly with progress bar, resulting in a context that cannotReturn: Workaround by temporarily suppressing progress. =============== Diff against Tests-nice.458 =============== Item was changed: ----- Method: ImageSegmentTest>>testContextsShouldBeWritableToaFile (in category 'tests') ----- testContextsShouldBeWritableToaFile "This should not throw an exception" + [NativeImageSegment new - NativeImageSegment new copyFromRoots: {thisContext. thisContext copyStack} sizeHint: 100; extract; writeToFile: 'ContextChain'; + yourself] on: ProgressInitiationException do: [:e | e resumeSuppressingProgress] - yourself "TODO: write assertions showing that something meaningful actually happened." "TODO: bring them back in again"!

3 2

The Trunk: Tools-mt.1054.mcz
by commits＠source.squeak.org 01 May '21

01 May '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1054.mcz ==================== Summary ==================== Name: Tools-mt.1054 Author: mt Time: 1 May 2021, 12:06:08.609299 pm UUID: 9da21c77-f717-ab4c-b024-42dfbe629f2e Ancestors: Tools-mt.1053 Adds preference and means to embed a transcript in workspaces. Thanks to Jaromir (jar) for the idea! The preference is disabled by default. =============== Diff against Tools-mt.1053 =============== Item was changed: StringHolder subclass: #Workspace instanceVariableNames: 'bindings acceptDroppedMorphs acceptAction mustDeclareVariables shouldStyle environment' + classVariableNames: 'DeclareVariablesAutomatically EmbedTranscript LookupPools ShouldStyle' - classVariableNames: 'DeclareVariablesAutomatically LookupPools ShouldStyle' poolDictionaries: '' category: 'Tools-Base'! !Workspace commentStamp: 'fbs 6/2/2012 20:46' prior: 0! A Workspace is a text area plus a lot of support for executable code. It is a great place to execute top-level commands to compute something useful, and it is a great place to develop bits of a program before those bits get put into class methods. To open a new workspace, execute: Workspace open A workspace can have its own variables, called "workspace variables", to hold intermediate results. For example, if you type into a workspace "x := 5" and do-it, then later you could type in "y := x * 2" and y would become 10. Additionally, in Morphic, a workspace can gain access to morphs that are on the screen. If acceptDroppedMorphs is turned on, then whenever a morph is dropped on the workspace, a variable will be created which references that morph. This functionality is toggled with the window-wide menu of a workspace. The instance variables of this class are: bindings - holds the workspace variables for this workspace acceptDroppedMorphs - whether dropped morphs should create new variables! Item was added: + ----- Method: Workspace class>>embedTranscript (in category 'preferences') ----- + embedTranscript + <preference: 'Embed a Transcript in Workspace' + category: 'browsing' + description: 'If true, new workspaces will open with an embedded Transcript.' + type: #Boolean> + ^ EmbedTranscript ifNil: [ false ]! Item was added: + ----- Method: Workspace class>>embedTranscript: (in category 'preferences') ----- + embedTranscript: aBoolean + + EmbedTranscript := aBoolean.! Item was added: + ----- Method: Workspace>>buildTranscriptWith: (in category 'toolbuilder') ----- + buildTranscriptWith: builder + + | textSpec | + textSpec := builder pluggableTextSpec new. + textSpec + model: Transcript; + menu: #codePaneMenu:shifted:. + ^ textSpec! Item was added: + ----- Method: Workspace>>buildWith: (in category 'toolbuilder') ----- + buildWith: builder + + ^ self class embedTranscript + ifTrue: [self buildWorkspaceTranscriptWith: builder] + ifFalse: [super buildWith: builder]! Item was added: + ----- Method: Workspace>>buildWorkspaceTranscriptWith: (in category 'toolbuilder') ----- + buildWorkspaceTranscriptWith: builder + + | windowSpec | + windowSpec := self buildWindowWith: builder specs: { + (0.0 @ 0.0 corner: 1.0 @ 0.6) -> [self buildCodePaneWith: builder]. + (0.0 @ 0.6 corner: 1.0 @ 1.0) -> [self buildTranscriptWith: builder]. + }. + ^builder build: windowSpec!

3 2

The Trunk: MorphicTests-nice.75.mcz
by commits＠source.squeak.org 01 May '21

01 May '21

Nicolas Cellier uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-nice.75.mcz ==================== Summary ==================== Name: MorphicTests-nice.75 Author: nice Time: 14 April 2021, 7:14:06.997889 pm UUID: d87c50dd-4e44-5242-9120-37e0452ca781 Ancestors: MorphicTests-eem.74 Fix loss of useRetractableScrollBars preference =============== Diff against MorphicTests-eem.74 =============== Item was changed: ----- Method: TableLayoutTest>>setUp (in category 'running') ----- setUp super setUp. - reset := { ([:enable | [self useRetractableScrollBars: enable]] value: self useRetractableScrollBars) + }. + self useRetractableScrollBars: false! - in: [:block | self useRetractableScrollBars: false]. - }.!

3 4

Jump to page: