Packages April 2021

packages@lists.squeakfoundation.org

1 participants
226 discussions

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

29 Apr '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 ] ].!

1 0

The Trunk: EToys-mt.444.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.444.mcz ==================== Summary ==================== Name: EToys-mt.444 Author: mt Time: 29 April 2021, 10:46:11.228891 am UUID: d8b044dd-8964-a049-996c-dd8018ecc043 Ancestors: EToys-mt.443 Moves some Connectors preferences and #boundsSignatureHash to "Connectors" project. Not needed in eToys. Complements Morphic-mt.1765 =============== Diff against EToys-mt.443 =============== Item was changed: ----- Method: HighlightMorph>>step (in category 'stepping') ----- step + (target isNil or: [lastHash = (lastHash := target boundsInWorld hash)]) - (target isNil or: [lastHash = (lastHash := target boundsSignatureHash)]) ifTrue: [self incrementStepTime] ifFalse: [stepTime := self minimumStepTime]. target notNil ifTrue: [ target isInWorld ifFalse: [^self delete]. self bounds: target bounds]! Item was removed: - ----- Method: Morph>>boundsSignatureHash (in category '*Etoys') ----- - boundsSignatureHash - "Answer a hash value that can be used to see if I've moved or been changed significantly" - ^self boundsInWorld hash - ! Item was removed: - ----- Method: Preferences class>>chooseConnectorsLabelFont (in category '*Etoys-Squeakland-fonts') ----- - chooseConnectorsLabelFont - "present a menu with the possible fonts for etoy textual code" - - self - chooseFontWithPrompt: 'Choose the connectors label font' translated - andSendTo: self - withSelector: #setConnectorsLabelFont: - highlight: self connectorsLabelFont! Item was removed: - ----- Method: Preferences class>>connectorsLabelFont (in category '*Etoys-Squeakland-fonts') ----- - connectorsLabelFont - "Answer the font to use in the etoy environment to view textual code." - - ^ (UserInterfaceTheme current get: #connectorsLabelFont) - ifNil: [TextStyle defaultFont]! Item was changed: ----- Method: SpeechBubbleMorph>>step (in category 'stepping') ----- step + (target isNil or: [lastHash = (lastHash := target boundsInWorld hash)]) - (target isNil or: [lastHash = (lastHash := target boundsSignatureHash)]) ifTrue: [self incrementStepTime] ifFalse: [stepTime := self minimumStepTime]. target notNil ifTrue: [ target isInWorld ifFalse: [^self delete]. self positionMyselfAccordingToTarget]. "This will keep the correct extent if the graphic changed" self msgMorph notNil ifTrue: [ (self balloon fullBounds containsRect: self msgMorph fullBounds) ifFalse: [self extent: 1@1]] !

1 0

The Trunk: Morphic-mt.1765.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1765.mcz ==================== Summary ==================== Name: Morphic-mt.1765 Author: mt Time: 29 April 2021, 10:43:58.612891 am UUID: 33804a11-9924-af48-a156-b2796a328878 Ancestors: Morphic-mt.1764 Extract #boundsSignatureHash to "Connectors" project. Etoys does not really need it. =============== Diff against Morphic-mt.1764 =============== Item was removed: - ----- Method: PolygonMorph>>boundsSignatureHash (in category 'attachments') ----- - boundsSignatureHash - ^(vertices - (self positionInWorld)) hash - !

1 0

The Trunk: EToys-mt.443.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.443.mcz ==================== Summary ==================== Name: EToys-mt.443 Author: mt Time: 29 April 2021, 10:33:50.941891 am UUID: f09386ec-8bb6-4f4b-b3f7-72760b3f6e78 Ancestors: EToys-mt.442 Complements Morphic-mt.1764 =============== Diff against EToys-mt.442 =============== Item was removed: - ----- Method: Morph>>isButton (in category '*Etoys-Squeakland-testing') ----- - isButton - - ^ false! Item was removed: - ----- Method: SimpleButtonMorph>>isButton (in category '*Etoys-Squeakland-testing') ----- - isButton - - ^ true! Item was removed: - ----- Method: ThreePhaseButtonMorph>>isButton (in category '*Etoys-Squeakland-testing') ----- - isButton - - ^ true. - !

1 0

The Trunk: MorphicExtras-mt.296.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.296.mcz ==================== Summary ==================== Name: MorphicExtras-mt.296 Author: mt Time: 29 April 2021, 10:27:58.055338 am UUID: a00d87c2-20a9-6041-9829-8600de5c06a7 Ancestors: MorphicExtras-mt.295 Complements Morphic-mt.1764 =============== Diff against MorphicExtras-mt.295 =============== Item was added: + ----- Method: StringButtonMorph>>isButton (in category 'classification') ----- + isButton + + ^ true!

1 0

The Trunk: ToolBuilder-Morphic-mt.275.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.275.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.275 Author: mt Time: 29 April 2021, 10:27:13.467338 am UUID: 31457269-9d9d-8d45-a393-882acbe56fc4 Ancestors: ToolBuilder-Morphic-mt.274 Complements Morphic-mt.1764 =============== Diff against ToolBuilder-Morphic-mt.274 =============== Item was added: + ----- Method: PluggableCheckBoxMorph>>isButton (in category 'classification') ----- + isButton + + ^ true!

1 0

The Trunk: Morphic-mt.1764.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1764.mcz ==================== Summary ==================== Name: Morphic-mt.1764 Author: mt Time: 29 April 2021, 10:25:06.452338 am UUID: 0d4946b3-9ccb-1740-a7b1-e7baf16e42bf Ancestors: Morphic-mt.1763 For better compatibility between the projects "Connectors" and "Etoys", extract the #isButton classification. See comment in Morph >> #isButton. =============== Diff against Morphic-mt.1763 =============== Item was added: + ----- Method: Morph>>isButton (in category 'classification') ----- + isButton + "Answers whether this morph acts like a button, which usually entails a mouse-click handler. Originally used in the projects 'Connectors' and 'Etoys', receivers that claim to be a button need to answer to #actionSelector as well." + + ^ false! Item was added: + ----- Method: PluggableButtonMorph>>isButton (in category 'classification') ----- + isButton + + ^ true! Item was added: + ----- Method: SimpleButtonMorph>>isButton (in category 'classification') ----- + isButton + + ^ true! Item was added: + ----- Method: ThreePhaseButtonMorph>>isButton (in category 'classification') ----- + isButton + + ^ true + !

1 0

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

28 Apr '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. !

1 0

The Trunk: Morphic-mt.1763.mcz
by commits＠source.squeak.org 28 Apr '21

28 Apr '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1763.mcz ==================== Summary ==================== Name: Morphic-mt.1763 Author: mt Time: 28 April 2021, 9:31:14.313168 am UUID: 33370f53-b3b0-0b4a-8333-fe869808b435 Ancestors: Morphic-mt.1762 Fixes hpi-dpi bug for windows opened via #openModal: such as the FontChooserTool. The windows had the wrong extent. =============== Diff against Morphic-mt.1762 =============== Item was changed: ----- Method: Morph>>openModal: (in category 'polymorph') ----- openModal: aSystemWindow "Open the given window locking the receiver until it is dismissed. Answer the system window. Restore the original keyboard focus when closed." + | hand priorFocus mySysWin | + mySysWin := self isSystemWindow + ifTrue: [ self ] + ifFalse: [ (self ownerThatIsA: SystemWindow) ifNil: [ self ] ]. + hand := self currentHand. + priorFocus := hand keyboardFocus. + [ mySysWin modalLockTo: aSystemWindow. + ToolBuilder default runModal: aSystemWindow openAsIs ] + ensure: + [ mySysWin modalUnlockFrom: aSystemWindow. + hand newKeyboardFocus: priorFocus ]. - |area mySysWin keyboardFocus| - keyboardFocus := self activeHand keyboardFocus. - mySysWin := self isSystemWindow ifTrue: [self] ifFalse: [self ownerThatIsA: SystemWindow]. - mySysWin ifNil: [mySysWin := self]. - mySysWin modalLockTo: aSystemWindow. - area := RealEstateAgent maximumUsableArea. - aSystemWindow extent: aSystemWindow initialExtent. - aSystemWindow position = (0@0) - ifTrue: [aSystemWindow - position: self activeHand position - (aSystemWindow extent // 2)]. - aSystemWindow - bounds: (aSystemWindow bounds translatedToBeWithin: area). - [ToolBuilder default runModal: aSystemWindow openAsIs] - ensure: [mySysWin modalUnlockFrom: aSystemWindow. - self activeHand newKeyboardFocus: keyboardFocus]. ^aSystemWindow!

1 0

The Trunk: Morphic-mt.1762.mcz
by commits＠source.squeak.org 28 Apr '21

28 Apr '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1762.mcz ==================== Summary ==================== Name: Morphic-mt.1762 Author: mt Time: 28 April 2021, 9:04:35.649168 am UUID: 19ccb34e-5e3b-0e4d-a61f-bc953107aaf2 Ancestors: Morphic-mt.1761 Until the discussion is resolved, do not apply a list of exceptions for the "interactive print-it" feature/preference. See http://forum.world.st/The-Inbox-Morphic-ct-1586-mcz-tp5106774p5129065.html =============== Diff against Morphic-mt.1761 =============== Item was changed: ----- Method: TextEditor>>printItTextFor: (in category 'do-its') ----- printItTextFor: anObject + self flag: #todo. "mt: Maybe reserve highlights for non-primitive structures only? Maybe skip ByteString, ByteSymbol, Number, Boolean, UndefinedObject? See discussion here: http://forum.world.st/The-Inbox-Morphic-ct-1586-mcz-tp5106774p5129065.html" + + ^ self class interactivePrintIt - ^ (self class interactivePrintIt and: [(anObject isString or: [anObject isNumber]) not]) ifFalse: [anObject printString] ifTrue: [Text string: anObject printString attribute: (TextInspectIt on: anObject)]!

1 0

← Newer
1
2
3
4
5
6
7
...
23
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2021