Squeak-dev April 2021

squeak-dev@lists.squeakfoundation.org

33 participants
393 discussions

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: 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

The Inbox: Morphic-ct.1586.mcz
by commits＠source.squeak.org 01 May '21

01 May '21

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1586.mcz ==================== Summary ==================== Name: Morphic-ct.1586 Author: ct Time: 10 November 2019, 4:06:17.228559 pm UUID: d752eb23-2116-0945-b043-aff08fed94fd Ancestors: Morphic-mt.1584 Proposal: Style printIt results as a pluggable link that can be clicked to inspect the result. To enable this behavior, this commit also extends #insertAndSelect:at: to allow for inserting both strings and texts. =============== Diff against Morphic-mt.1584 =============== Item was changed: ----- Method: PluggableTextMorph>>printIt (in category 'menu commands') ----- printIt | oldEditor | textMorph editor selectFrom: selectionInterval first to: selectionInterval last; model: model. "For, eg, evaluateSelection" textMorph handleEdit: [(oldEditor := textMorph editor) evaluateSelectionAndDo: [:result | selectionInterval := oldEditor selectionInterval. textMorph installEditorToReplace: oldEditor. + textMorph handleEdit: [ oldEditor afterSelectionInsertAndSelect: + (oldEditor printTextFor: result)]. - textMorph handleEdit: [oldEditor afterSelectionInsertAndSelect: result printString]. selectionInterval := oldEditor selectionInterval. textMorph editor selectFrom: selectionInterval first to: selectionInterval last. self scrollSelectionIntoView]]! Item was changed: ----- Method: TextEditor>>afterSelectionInsertAndSelect: (in category 'new selection') ----- + afterSelectionInsertAndSelect: aStringOrText - afterSelectionInsertAndSelect: aString + self insertAndSelect: aStringOrText at: self stopIndex ! - self insertAndSelect: aString at: self stopIndex ! Item was changed: ----- Method: TextEditor>>insertAndSelect:at: (in category 'new selection') ----- + insertAndSelect: aStringOrText at: anInteger - insertAndSelect: aString at: anInteger + aStringOrText isString ifTrue: [ + ^ self + insertAndSelect: (Text string: aStringOrText attributes: emphasisHere) + at: anInteger]. - self closeTypeIn. + self closeTypeIn. self selectInvisiblyFrom: anInteger to: anInteger - 1. self openTypeIn. self replace: self selectionInterval + with: (Text string: ' ' attributes: emphasisHere), aStringOrText - with: (Text string: (' ', aString) attributes: emphasisHere) and: []. - self closeTypeIn.! Item was changed: ----- Method: TextEditor>>printIt (in category 'do-its') ----- printIt self evaluateSelectionAndDo: [:result | (model respondsTo: #printIt:result:) ifTrue: [model perform: #printIt:result: with: self selection with: result] + ifFalse: [self afterSelectionInsertAndSelect: (self printTextFor: result)]]! - ifFalse: [self afterSelectionInsertAndSelect: result printString]]! Item was added: + ----- Method: TextEditor>>printTextFor: (in category 'do-its') ----- + printTextFor: anObject + + ^ Text + string: anObject printString + attributes: {PluggableTextAttribute evalBlock: [anObject inspect]}!

8 34

Dictionary >> #at:ifAbsentPut:ifPresentPut:
by Thiede, Christoph 01 May '21

01 May '21

Hi all, recently I stumbled upon an extension method for Dictionary which *might* fit well into the Trunk: Dictionary >> #at: key ifAbsentPut: startBlock ifPresentPut: nextBlock "(c) 2020 Basti Kruck und Marcel Taeumel. :-)" (self includesKey: key) ifFalse: [ ^ self at: key put: startBlock value]. ^ self at: key put: (nextBlock value: (self at: key)) See https://github.com/hpi-swa/vivide/blob/c4ac5ea562bd563358d52ee41c149a3fbcff…. Usage: counter := counters at: key ifAbsentPut: [0] ifPresentPut: [:i | i + 1] What do you think, should we copy this into the Trunk? Or is it just fine to do something like this instead at the sender side: counter := counters at: key put: (counters at: key ifAbsent: [0] ifPresent: [:i | i + 1]) <http://www.hpi.de/> Also, I'm not sure about the order of arguments. Best, Christoph

4 4

The Trunk: KernelTests-nice.403.mcz
by commits＠source.squeak.org 30 Apr '21

30 Apr '21

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.403.mcz ==================== Summary ==================== Name: KernelTests-nice.403 Author: nice Time: 30 April 2021, 10:07:18.128533 pm UUID: 6c2a630e-15b7-461c-8bdc-86190918cc71 Ancestors: KernelTests-nice.402 Add two tests for isDenormal and isFinite =============== Diff against KernelTests-nice.402 =============== Item was added: + ----- Method: FloatTest>>testIsDenormal (in category 'tests - characterization') ----- + testIsDenormal + self assert: Float fminNormalized predecessor isDenormal. + self assert: Float fminDenormalized isDenormal. + self assert: Float fminDenormalized negated isDenormal. + + self deny: Float fminNormalized isDenormal. + self deny: 0.0 isDenormal. + self deny: 1.0 isDenormal. + self deny: Float fmax isDenormal. + self deny: Float infinity isDenormal. + self deny: Float negativeInfinity isDenormal. + self deny: Float nan isDenormal.! Item was added: + ----- Method: FloatTest>>testIsFinite (in category 'tests - characterization') ----- + testIsFinite + self assert: Float fminDenormalized isFinite. + self assert: 0.0 isFinite. + self assert: Float pi negated isFinite. + self assert: Float fmax isFinite. + + self deny: Float infinity isFinite. + self deny: Float negativeInfinity isFinite. + self deny: Float nan isFinite.!

1 0

The Trunk: Kernel-nice.1397.mcz
by commits＠source.squeak.org 30 Apr '21

30 Apr '21

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1397.mcz ==================== Summary ==================== Name: Kernel-nice.1397 Author: nice Time: 30 April 2021, 9:48:57.972338 pm UUID: df20ab21-bba8-4919-b4a1-d2c7a6c6e8de Ancestors: Kernel-mt.1396, Kernel-jar.1395 merge Kernel-jar.1395 (fix outer) =============== Diff against Kernel-mt.1396 =============== Item was changed: ----- Method: Exception>>outer (in category 'handling') ----- outer "Evaluate the enclosing exception action and return to here instead of signal if it resumes (see #resumeUnchecked:)." + | prevOuterContext currHandlerContext | - | prevOuterContext | self isResumable ifTrue: [ + currHandlerContext := handlerContext. prevOuterContext := outerContext. outerContext := thisContext contextTag. ]. self pass. ! Item was changed: ----- Method: Exception>>resumeUnchecked: (in category 'handling') ----- resumeUnchecked: resumptionValue "Return resumptionValue as the value of #signal, unless this was called after an #outer message, then return resumptionValue as the value of #outer." | ctxt | outerContext ifNil: [ signalContext return: resumptionValue ] ifNotNil: [ ctxt := outerContext. outerContext := ctxt tempAt: 1. "prevOuterContext in #outer" + handlerContext := ctxt tempAt: 2. "currHandlerContext in #outer" ctxt return: resumptionValue ]. !

1 0

The Trunk: Kernel-jar.1395.mcz
by commits＠source.squeak.org 30 Apr '21

30 Apr '21

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-jar.1395.mcz ==================== Summary ==================== Name: Kernel-jar.1395 Author: jar Time: 30 April 2021, 12:25:17.561362 am UUID: 0f589a20-6b8e-a94b-9dbc-9b3f91c84ce8 Ancestors: Kernel-nice.1394 Fix a bug in Exception>>#outer causing a return to an incorrect handler context. Explanation in: http://forum.world.st/A-bug-in-Exception-gt-gt-outer-causing-a-return-to-an… =============== Diff against Kernel-nice.1394 =============== Item was changed: ----- Method: Exception>>outer (in category 'handling') ----- outer "Evaluate the enclosing exception action and return to here instead of signal if it resumes (see #resumeUnchecked:)." + | prevOuterContext currHandlerContext | - | prevOuterContext | self isResumable ifTrue: [ + currHandlerContext := handlerContext. prevOuterContext := outerContext. outerContext := thisContext contextTag. ]. self pass. ! Item was changed: ----- Method: Exception>>resumeUnchecked: (in category 'handling') ----- resumeUnchecked: resumptionValue "Return resumptionValue as the value of #signal, unless this was called after an #outer message, then return resumptionValue as the value of #outer." | ctxt | outerContext ifNil: [ signalContext return: resumptionValue ] ifNotNil: [ ctxt := outerContext. outerContext := ctxt tempAt: 1. "prevOuterContext in #outer" + handlerContext := ctxt tempAt: 2. "currHandlerContext in #outer" ctxt return: resumptionValue ]. !

1 0

The Trunk: Tests-nice.460.mcz
by commits＠source.squeak.org 30 Apr '21

30 Apr '21

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.460.mcz ==================== Summary ==================== Name: Tests-nice.460 Author: nice Time: 30 April 2021, 9:36:50.260749 pm UUID: 2996ccbb-9955-4399-ace4-4a61c14fc0d0 Ancestors: Tests-nice.459 Integrate test from Jaromir showing the expected behavior of outer. Thanks Jaromir. See https://source.squeak.org/treated/Tests-jar.454.diff https://source.squeak.org/treated/Tests-jar.455.diff https://source.squeak.org/treated/Tests-jar.456.diff =============== Diff against Tests-nice.459 =============== Item was added: + ----- Method: ExceptionTester>>doubleOuterTestResults (in category 'signaledException results') ----- + doubleOuterTestResults + + ^OrderedCollection new + add: self doSomethingString; + add: self doYetAnotherThingString; + add: self doSomethingElseString; + yourself! Item was added: + ----- Method: ExceptionTester>>simpleOuterDefaultReturnTest (in category 'signaledException tests') ----- + simpleOuterDefaultReturnTest + "uses #resume" + + [[self doSomething. + MyTestNotification signal. + "self doSomethingElse" + self doSomethingExceptional] + on: MyTestNotification + do: [:ex | ex outer]. self doSomethingElse] + on: MyTestNotification + do: [:ex | self doYetAnotherThing. ex resume]! Item was added: + ----- Method: ExceptionTester>>simpleOuterDefaultReturnTestResults (in category 'signaledException results') ----- + simpleOuterDefaultReturnTestResults + + ^OrderedCollection new + add: self doSomethingString; + add: self doYetAnotherThingString; + add: self doSomethingElseString; + yourself! Item was added: + ----- Method: ExceptionTester>>simpleOuterReturnTest (in category 'signaledException tests') ----- + simpleOuterReturnTest + "uses #resume" + + [[self doSomething. + MyTestNotification signal. + "self doSomethingElse" + self doSomethingExceptional] + on: MyTestNotification + do: [:ex | ex outer. ex return]. self doSomethingElse] + on: MyTestNotification + do: [:ex | self doYetAnotherThing. ex resume]! Item was added: + ----- Method: ExceptionTester>>simpleOuterReturnTestResults (in category 'signaledException results') ----- + simpleOuterReturnTestResults + + ^OrderedCollection new + add: self doSomethingString; + add: self doYetAnotherThingString; + add: self doSomethingElseString; + yourself! Item was added: + ----- Method: ExceptionTests>>testDoubleOuterDoubleResumeTest (in category 'tests - ExceptionTester') ----- + testDoubleOuterDoubleResumeTest + + | path | + path := ''. + [path := path, '1'. + [path := path, '2'. + [1/0] on: ZeroDivide do: [:ex | ex outer. path := path, '5'. ex return]. + path := path, '6' + ] on: ZeroDivide do: [:ex | ex outer. path := path, '4'. ex resume]. + path := path, '7' + ] on: ZeroDivide do: [:ex | path := path, '3'. ex resume]. + self assert: path = '1234567'! Item was added: + ----- Method: ExceptionTests>>testDoubleOuterTest (in category 'tests - ExceptionTester') ----- + testDoubleOuterTest + self assertSuccess: (ExceptionTester new runTest: #doubleOuterTest ) ! Item was added: + ----- Method: ExceptionTests>>testSimpleOuterReturn (in category 'tests - ExceptionTester') ----- + testSimpleOuterReturn + self assertSuccess: (ExceptionTester new runTest: #simpleOuterReturnTest ) !

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
40
Older →

Jump to page: