[squeak-dev] The Trunk: MorphicExtras-nice.140.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Dec 14 01:00:23 UTC 2013


Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-nice.140.mcz

==================== Summary ====================

Name: MorphicExtras-nice.140
Author: nice
Time: 14 December 2013, 1:59:33.372 am
UUID: f1620131-e267-46a1-ac91-3b47fb7b5ae8
Ancestors: MorphicExtras-nice.139

PaintBoxMorph re-engineering: rebuild color picker images programmatically

=============== Diff against MorphicExtras-nice.139 ===============

Item was changed:
  ----- Method: PaintBoxMorph class>>colorMemoryImage (in category 'resources') -----
  colorMemoryImage
+ 	^self imageLibrary at: #colorMemoryImage ifAbsentPut:
+ 		[| offset chart spec fillStyle colorMemoryImage |
+ 		offset := 7 at 6.
+ 		chart := self colorChart.
+ 		colorMemoryImage := Form extent: chart extent+(offset*2) depth: chart depth.
+ 		spec := #(
+ 			(1.00 #(0.4 0.6 0.8))
+ 			(0.67 #(0.6 0.6 0.8))
+ 			(0.33 #(0.6 0.8 0.8))
+ 			(0.00 #(0.6 0.8 0.9))).
+ 		fillStyle := GradientFillStyle ramp: (spec collect: [:e | e first -> (Color fromRgbTriplet: e second)]).
+ 		fillStyle origin: 0@(colorMemoryImage extent y //2); direction: colorMemoryImage extent x @0.
+ 
+ 		(colorMemoryImage getCanvas copyOrigin: 0 at 0 clipRect: (0 at 0 extent: colorMemoryImage extent))
+ 			fillRectangle: (0 at 0 extent: colorMemoryImage extent) fillStyle: fillStyle;
+ 			frameAndFillRectangle: (0 at 0 extent: colorMemoryImage extent) fillColor: Color transparent borderWidth: 1 borderColor: Color black.
+ 		colorMemoryImage copy: (0 at 0 extent: chart extent) from: chart to: offset rule: Form over.
+ 		colorMemoryImage]!
- 	^self imageLibrary at: #colorMemoryImage ifAbsentPut: [Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes:
- 		'iVBORw0KGgoAAAANSUhEUgAAAIYAAABlCAYAAACIqZu9AAAABHNCSVQFBQUBSsjp7wAAJ7ZJREFUeF7l3CF8o1q7tvElkUgkEolEIpFI5JJIJBKJRCKRSCQSiUQikUgkbs5F8jRZTZO0nbbv9+2p+L+zd/fvnGnD1RsSmiqlrD+/3+/3Fv9Tj+Pv9/+z2vjzg7Tx52f4Wv/+MP5TUdwGMv5MGIffH8YvWI3fH8a/HsK9fx7fj6L+/WH8/sW4PY18w6lkv/HyCe2//+r8H/fJMK6BHP993/df7198HP4ijOuE/f4wfn8YRhT/zcUwJ/Lexz/zf3fv35/9t/f+jn9sMfb/XBi3//zo4H70Y7f/fz763/7RMP67i/H/Mox/4VTi/4vXGL8/jN9/jfHhMP5X1xi/7FnJ/vuflfzjz7S+dI3x+/3+F7h+/+sYv38x/r1rjN/vf32NsW2ft/+c7a/tP2f7O/uP4et9x9cXY90M633bO/a/t71jfWh7x/73tifWx7Yn9i/Z3vjmMO4sxrLesZytD2wP7B+3PbA+sFysD2wP7B+3PbDesVytD2x37J+23cE3xvrcXy6GcfE5r2J5bZnfWm9sd+zv2+5Ybyx3zITx1npju2N/33ZjvWN5a5lfW+/Ybuwfst2xXnxzGK/jOIdhBjHf99lAPhHFe0HMD30mkC9GYcYwP/YskM/HcT+Il2/ibwpjfHN9cTmVTAQxzYbptfnGYlgNm2F/bDOshuXGbJjemA2LYb2xGfb7thurYTHMN6bXZsNiWA3bjf2hzbDeWE6W5bmvv44xzmIyjGeTYTYshtWwGfa3NsNqWAyzYTKMF5NhNiyG1bCJ/b7NsBoWw2yYxHg1GWaxGFbDZtgf2gyrWAzzd4dx51nJQBTDJEbDwCcgJsMsFsMqNsP+1mZYxWKYxWQYxXAyGibDLBbDKjbD/tYmVsMiZsMkRsNAGIZJzIZFrIZN7HdthlUshvlknp/7+rOSfhKjGM6G/moUk5jFYljFJva3NrGKxTCLSYyGQfTEcTYaJjGLRayGTeyvbYZVLGI2TGIUw9XQn41iErNhEavYDPsbm1gNi5jF9N1h3FmM2yBO+quPxnEbxvbxMB5FcQ3i1m0g78XxThi3USwfiKK/+koc74fxNoofCGN/+3S1I4puEL3oznoxiFFMYhaLWMUm9qtNrGIRs5jEKAbRi+6iF4MYxSRmsYgVm9hf28QqFjGLSYyCILpedFe9GMSIScxiEavYxP7GJlaxCKLoJsF1F08MnvmLxbi5+GwH0YtOtHwCoscgRjGJWSxYxSb2q02sYhEzJjGKQfToRHvRoReDGMWEWSxiFRv21zZBFO0iZjGJURBF24tOtIQhejGIEZOYxSJWbGJ/gyjaVSxiFkTRjiffHMadH+1riKLpBUE0rWj4BNCJHoMYxYRZLGLFJvarTaxYxCwmjGIQPTrRioYwzjrRYxAjJjGLBavYxH5FFM0qFkEUzSRGQRRNLzrBQWwa4hAdejFgFJOYsYhVbNjfIIxmFUTRzGIS4+mYjRy/Z77+dLXuBVHUreBgNvVZi070GMSIScxYxCo27FebWLGIGZMYMYgenWjRiJo4asI469CLQfB1EcbZjEWs2MR+RRj1KoiinsVkPF5EUfeiE0RRN2dNTRiiQy8GjGLCLBasYsP+yiaIol7ELIiCA3v27WGMb1/guhdFXZ99NI7ZiONJGKsRxmyEMRphPI7ixbM4RiOO2YjjnTAWI4zJCGMwwriNor66F8dgxDEZcSxGHB8P43UUxzH7ocUwTiUVUVStIIqKA1lVZzUa0aJDLwaMmMSMRazYsF9tWMWCGZMYMaAXHVo0okZ1UaNBKzr0GMSICbNYsIoN+xVhVIRRLYIwKqKoRkEUFVFUnSCKiiiqWlQ8jqJBi070GDCKCbNYsGIT+8UmCKMiimoWhFERRTUInq3xOtMzX38doySMkihKoiiJoqxEySeAGo1o0aHHIEZMmLGIFRv2qw0rFjFjwohB9OjQigY1KpQnlajRoEUnegwYxYQZC1axYT/bBGGURFHOgjBKHpuSKMpeEEVJFGUjiKLkQJYlcaAWDVp06MWAEZOYsWDFJvYLoihXQRglUZSTIIySKMr+dMx+KAxjMQqiKIiiqAVRFBzMsjirUKNBKzr0GDBiEjMWrNiwX21YsWAWE0YM6NGJFg1qVChFQRwFYZzVaNCiQy8GjJgwYxErNuxnmyCMgjAKoiiIohgFYRREURBFQRRFI4iiIIqCA1kUxIEKNRrRokOPAaOYMGPBik3sF4RRrIIwCsIoiKIgimIQhFHwFJ7XmJ75+m33UxTN6yiK4uxRHGYYZhyfCOMlitswbqOoLlG8KG/CuI3jNoz582G8RHEbxk0UL27jeAnjNo7bMNaHYbxEcRvGOYrjm/mbw7izGDlR5ESRE0VOFDkHMs/PCpSoUKMRLTr0GDBiwowFKzbsVxtWLJgxYcSAHh1a0aBGhRIF8osCJSrUaNCiQy8GjJgwY8GKDfsZUeREkS+CMHLCyHlscsLIiSInipwocqLIiSKvBGHkHMg8JwxRokKNBi069BgwYsIsFqzYsF8QRk4YOWHkRJETRT4KwsgJIyeMvP3JxZBrjIwoMqLISkEYGQczy/gEUKBEhRoNWnToMWDEhBkLVmxiP9uwYsGMCSMG9OjQokGNCiUK5MguchQoUaFGgxYdegwYMWHGghUb9jPCyAgjI4qMKDKiyEZBGBlhZISREUZGGBlhZESREUVGFBkHMsuIAwVKVKjRoEUnegwYMWHGghUb9gvCyAgjI4yMMDLCyIgiI4qMKDKiyDj1Z7y+wyvTz3x9MVLCSAkjJYqUKFKiSDmYacongBwFSlSo0aBFhx4DRkyYsWDFhv1sw4oFMyaMGNCjQ4sGNSoUyEV6kiFHgRIVajRo0aHHgBETZixYsWE/I4yUMFLCSAkjJYyUxyUlipQoUqJIiSIlipQoUqJIiSIlipQoUg5kmhIHchQoUaFGgxYdegwYMWHGghUb9gvCSAkjJYyUMFLCSAkjJYyUMFLCSAkj/fYw7lxjaKLQRKGJQhOFJgrNwUw1YSBHgRIVajRo0aHHgBETZixYsWHXRKGJQhOFJgpNFJooNFFootBEoYlCE4UmCk0UmrXQhKGJQvMdrjmY+o8mDk0cmjg0cWji0MShiUMThyYOTRyaODRxaMLQhKEJQxOGJgxNFCeEoQlDE4YmDE0YmsdGE4YmDE0YmjA0YWjC0IShCUMThiYKzYHUmjiQIUeBEjUatOjQY8CICTMWrNiwXxCGJgxNGJowNGFowtCEoYlCE4Xm1K95jYdbFs98fTFehSFRaH32LI4fCuNxFC/MON4LYzTi+EQYz6LI3w+jehDH58Iwo+j/V2EY1xgJUSREkbAWCWEkhJFwQJOETwApMhQoUaFGgxYdeoyYMGPBig17QhgJYSSEkRBGQhgJYSSEkRBFQhQJUSSsRUIYCWEkhJEQRkIUCQcy+ZNcpMiQo0CJCjUadOgxYMSEGQs27GeEkRBGQhgJYSSEkRBFwlokhJEQRkIYCWEkhJEQRUIUCVEkRJFwIJOEOJAiQ44CJWo0aNGhx4ARMxas2LBfEEZCGAlrkRBGQhgJYSSEkRBGQhgJp/6k+okwbm6ixYQRE0VMFDFRxEQRc0DjmE8AKTLkKFCiQoMWHXoMmDBjwYoNe0wYMWHEhBETRkwYMVHErEVMGDFhxIQRE0ZMFDFRxEQRsxYxYcSEEf+JTxJopMiQo0SFGg1adBgwYsKMBSv2M8KICSMmjJgoYh6TmDBiwogJIyaMmChioohZi5gwYsKICSMmipgDGcfEAY0UOQqUqFCjQYceA0ZMmLFiw35BGDFrERNGTBgxYcSEERNGTBQxaxETRswrwtzkfOYvfhj45iZaxFpEhBERRkQUEVFEHNAoIgxopMhQoESFGg069BgwYsaCFRv2iDAiwogIIyKMiLWICCMijIgwIsKIiCJiLSLCiAgjIoqIKCKiiPgOjziY0Z+IOCLiiIgjIoyIMCJWIyKOiDgiwogIIyKMiNWICCMijIgwIsKICCMiihPCiAgjYi0iwoh4bCLCiAgjIoqItYgIIyKMiDAiooiIImItIsKIOJBRRBxIkCJDjgIVajRo0WHAiAkzVmzYLwgjIoyIMCLCiAgjIoqItYgIIyKMiDCi8rvCeHKNERJGSBQhaxESRkgUIQc0CikTCTQy5ChQoUaDFj0GjJiwYMWGPSSMkDBCwggJIySMkDBCwgiJImQtQsIICSMkipC1CAkjJIyQKEKiCDmY4Z+QOELiCAkjZDVC4giJIySMkDBCViMkjpAwQsIIWY2QMELCCAkjJIyQKE4IIySMkDBCwgh5TELCCFmLkDBCwggJIySKkLUICSMkipAoQtYiJIwwJAwk0EiRo0CJCg1adOgxYsKMBRv2C04jIWGEhBESRshahIQREkZIGCFRhFwThtwq4CbnM98QRi5hHFEkEkZ49hLHEUYqcRxhlBLHSxjdTRjz4zAmI4zOCOOIojTCOKLQEsY5ihdHGInE8RJGIXG8hNEaYYwfD6M3wjiiqCSMI4rMCOOIIjqHERlxHGFkEsdLGPVNGMOHwxhvwmiMMIrvCuPe+0okjIAoAtYiIIyAKALWIuCABgGfAGIk0MiQo0SFGi069BgxYcaKDXtAGAFhBIQREEZAGAFrERBGQBgBaxEQRkAYAVEErEVAGAFRBKxFQBjBn+AkRIQYGikyFChRoUGLDgNGTFiwYj8jjIDri4AwAsIIWIuAMALCCFiLgDACwghYi4AwAsIIiCJgLQKiCDiQQUAciJBAI0WOAiVqNOjQY8CEGQs27BeEERBGQBgBYQSEERBGwFoEhBEQRsA1YVD8DxbDJwyfMHzWwicMnyh8DqjvEwYixNBIkaNAiRoNOvQYMGHGig27Txg+YficRnzC8AnDJwyfMHzWwicMnzB81sInDJ8ofNbCJwyfKHy+w/0//kmAEDESaGTIUaJCjRYdBoyYsGDFhv2PTxg+YfiE4ROGTxg+YfishU8YPmH4rIVPGD5R+KyFTxg+a+EThs+B9H3iQIQYCVJkKFCiQoMWPQaMmLFgw35BGD5h+JxGfMLwCcNnLXzC8InCZy18wvC5XVBVT339BS6PKDzWwiMKj7XwCMPjgHoeZSJEjAQpMhQoUaFBix4DJsxYsWH3CMMjDI8wPMLwOI14hOERhkcYHmF4rIVHGB5r4RGGRxQea+ERhsd3uMfB9P54xOERh8dqeMThEYbHaniE4bEaHnF4hOGxGh5heJxOPMLwCMMjDI8wPMLwCMMjDI8wPMLweEw8wvBYC48wPMLwWAuPMDzWwiMMjyg81sIjDI+18AjD84gDISIk0MiQo0SFGi06DBgxY8GK/YIwPMLwCMMjDI+18AjDIwyPMDzC8Lgm9L49jDuL4RKGy1q4hOEShctauBxQz6VMhIiQQCNDjhIVGrToMWDEjAUbdpcwXMJwCcMlDJcwXMJwOY24hOGyFi5huKyFSxgua+EShksULmvhEoXLwXT/uMThEobLariE4bIaLmG4rIZLGC5huIThEoZLGC5huKyGSxgu1xkuYbiE4RKGSxguYbiE4fJ4uIThEoZLGC5r4RKGy1q4hOGyFi5huEThshYuUbh8h7suYSBAhBgaKXIUqFCjRYceIyYsWLFfEIZLGC5huIThEoZLGC6nEZcwXNbCJQyX+0hl+dTX37vqagkjkjD8cxiue44jkDBiCSOVMAoJo5Ywuo+FMUoYnYRRSxiFhJFKGLGEEUgY7oUvYUQShpYwcgmjkjDaj4UxSRi9hNFIGKWEkUkYiYQRShjeOQxP4ggljETCyCSMUsJoPhzGLGEMEkYrYVQSRv6dYTxZDIcwHNbCIQyHtXCIwuGAOg5hwEeICAlSZChQokaDDgNGzFiwYXcIw+HC0yEMhzAcwnAIwyEMhzAc1sIhDIe1cAjDYS0cwnBYC4coHNbC+eOcuPAQIEQMjRQ5ClSo0aLHgAkzVmzY/zg8I3EIwyEMh8fDIQyHMBzCcFgLhzAc1sIhDIe1cAjDYS0cwnBYC4cD6TjEAR8BIsTQyJCjRIUGLXqMmLBgxX5BGA5hOIThEIZDGA5hOIThEIbDWjiE4aQ/FYZxjWGzFjZh2KyFzVrYhGFzQG2bMuEjQIQYGhlylKjQoEOPETMWbNhtwrAJwyYMmzBswrAJw+Y0YhOGTRg2a2EThs1a2IRhsxY2a2EThs13uM3BtP/YxGEThs1q2IRhsxo2q2EThs1q2IRhsxo2YdiEYXM6sQnD5jrDJgybMGzCsAnDJgybMGzCsHlcbMKwOY3YhGEThk0YNmHYrIVNGDZrYROFzVrYrIVNGLZNHPAQIEQMjRQ5ClRo0KLHgAkLVuwXhGEThk0YNmHYnEZswrA5jdiEYROGzZMFmzvPRfHU118StwjDYi0s1sIiDIu1sDig9rEmx8Xp8ZT2eL3jePn8uOl23Ko/fsDn+Omv44eJj/emHG9cOt7ueLx7/vjVCsdv6jl+v9fxy98swrAIwyIMizAsri8swrAIw+I0YhGGRRgWa8EXgxghAnhwYMMiDovVsIjDYjUswrBYDYvVsAjDYjUswrAIw+J0YhGGRRgWYViEYRGGRRgWYViEYRGGRRgW1xcWYViEYXEasQjD4jRisRYWYVishcVaWIRhsRYWYVh8h1sWYcCFjxAREqTIUKBCjRY9BkxYsGI/4VVPizAswrAIwyIMizAswrAIw+I0YhGGRRiW/q4w7r0kLtcYirVQrIUiDMVaKNZCEYaliAMufISIkCBFhgIVarToMWLCgg27IgxFGIoLT0UYijAUpxFFGIowFKcRRRiKMBRroVgLRRiKtVCshSIMxcFUfxRxKFZDEYZiNRSroQhDEYZiNRRhKMJQnE4UYSjCUJxOFGEowlCEoQhDHb/VjjAUYSjCUIShCEMRhiIMxVoowlCEoVgLRRiKMBRroQhDsRbKPh4/VgMuPASIEEMjQ4ESNVp0GDBhxor9hDAUYSjCUFx4KsJQhKE4jSjCUIShOI0oniwo/ROLcXONoSIJg7VQroRxfFzCcOAhkDBiaCOM8iaM4eNh1EYYGbQRRgBPwrBPUbyEYcM1woiQGGEUT8JYHofR3YSRG2FwGlGhhMFaKNZCWecwLDgSho/QCCNFboTRfCqM3giD04gqjDC485znT/1AGPbjMMKbMHIjjAadhHGsxoz1HMaKWcIY0BlhlLIWL2HEnwojMMI4ViMzwuDVP64zzmEMmCQMVmOTMHiqqkZZiyMMri9UZYSR3oThfzyMxAjjWI3KCKPHKGEs2C5h8FRVTUYYrazFSxjZT4dxPZVshLFxGtkIYyOMjTC208f5TieMjTA2wtgIYyOMjTA2wtg4nWyEsRHGxulkI4yNMDZWYyOMjdXYWI2N1VgwY0SPDg0qlMiRQiNGiAAeHNhQJ3xRXNAqngYrXjxTvOSuuIOruL2vNsLYCGPjQdk4nWyEsbEaG6uxEcbGg7KxGhthrKzGggkDerSoUaFAjhQJuB2uQvjw4MA6fmUi1ytw4MJHiAgJUmQoUKFGix4DJixYsbEWG2uxEcbGaWRjLTbC2Ahj4zSyEcZGGBunkY0wsix76su/H2MljJUwVsJYCWMljPX0cb7TCWMljJUwVq4zVsJYCWPlOmMljJXVWDmdrISxshorp5OVMFZWYyWMldVYWY0FEwb0aFGjQoEcKRLECBHAgwMb6oIwVsLglVXF/RjF7X21EsZKGCunk5UwVsJYWY2VMFZWY2U1Vr7eldVYWY3jl5fNGDGgQ4saJQpkSJEgAje4FC9ZK15rUDytVNbxC9C4mIUDFz4CREigkaFAiRoNOgwYMWPBylqsRLGyFitrsRLGymlkZS1Wwlg5jayEsRLGynXhN4fx9ibawmlkIYyFC8+FMBbCWE4f54ASxkIYC2EshLEQxsJ1xkIYC2EshLEQxsJqLISxsBoLq7EQx8JqLISxsBozRgzo0KJGiQIZUiSIEcKHBwc21AVh8OKZWghjIQxu8auFMBZOJwthLISxcDpZCGNhNRbCWFiNhdVYCGNhNY7fUTVhRI8ODSqUyJFBI0EEbm4p7mMoXplUDqzj91wthLEQxkIY3ItBgAgxNDLkKFGhQYseIyYsJzMmDOjRokaFAjlSaMQ/sRivTyUzYcyEMRPGTBgzYcynj3NAeWYyE8ZMGDNhzIQxE8ZMGDOnk5kwZk4nM2HMrMZMGDOrMRPGzGrMrMZMHBNG9GjRoEKJHBk0EkQI4cODAxvqgjB4ZVVxP0ZxF1dxi1/NhDETxkwYMw/KTBgzqzETxsxqzIQxsxozD8xMHMdvnJkwoEOLGhUK5EihESMCdzyVD16ZVLwIpazjt9bwFBg2XPgIECGGRoocBSrUaNFhwIj5YkSPDg1qlCiQIUWC+E+apk99eTE+FIYrYQQSRixhpBJGIWHUEkYnYYznMI4oBnQSRi1hFBJGKmHEHw7DkTB8CSOSMLSEkUsYlYTRShjDOYwjihG9hNFIGKWEkUkYiYQRfiwMT8IIJYxEwsgkjFLCaCSMXsKYTlFMGCSMVsKoJIxcwtASRvTdYbx9w9FEGBPXFxNhTDxVnQhjOn2c73TCmAhjIoyJMCbCmAhjIoyJ1ZgIY2I1JsKYWI2JMCZWYyKOidWYiGNiNUb06NCgRokCGVJoxIgQwIcLBzbUBWFMhMFdXMUtfjURxkQYE6sxEcbEgzIRxsRqTIQxsRoTYUysxkQcEw/O8RtnBvRo0aBCiRwZUiSIESIAdz0V9zEUr0wq6/itNRNhTITBvRh4CBAiQgKNDDlKVGjQosOAERNrMRHGxFpMhDGxFhNhTKzFRBgTYUyEMRHGRBha66e+/IM6I2sxEsZIGCNhjIQxnj7OASWMkTBGwhg5nYyEMXI6GQljJIyR1RgJY2Q1RsIYWY2ROEbCGFmNkTBGVmNAhxYNKpTIkSFFghghAvhw4cCCuiAM7seokTBGwhg5nYyEMRLGyAMyEsbIaoyEMbIaI3GMrMZIHCNhjKzG8bX36NDieMAqFMiRQSNBhBABuBWuuOupbFjH48crqrDhwoOPEBESaKTIUaBCjQYdeownA3q0aFCjRIEMKTRifFsYj1/HGAhjIIyBMAbCGAhjIIoTwhgIYyCMgTAGwhgIY2A1BsIYCGNgNQbCGFiNgTgGwhhYjYEwBlZjII4eHRrUqFAgRwaNBBFCBPDgwoEFdUEY3KxT3MlVA2EMhDGwGgNhDJxOBh6UgTAGVmMgjIEwBlZjIIyB1RiI4/g1AT1aNKhRokCGFBoxIoTw4YG7nor7GMo6ftUAL7fDhgMPPkJEiKGRIkOBEhUatOgwnPTo0KJGhRI5MqRIEOPbw3j7gzo9YfSE0XN90RNGTxg9UZwQRs8zk54wesLoOZ30hNETRs9q9ITRE0bPavSE0RNGz2r0xNGzGj1x9MTRoUWDCiUKZEihESNCiAAeXDiwoC4IoyeMnjB6wugJoyeMntXoCaPnQelZjZ4welajJ46eMHpWoyeO4w2/hw4talQokSNDigQxIgTw4YFb4cqGdbxxuCeMnjC4iwsPPgJEiJEgRYYcBSrUaNChv2jRoEaJAjkyaCSIEf5JkuSpL1x87kYY3sfDCIwwEonjCCOXOF7CaCQOI4pawjiiyI0wkpsw/A+H4d2EERthZBLHEUYlcRxhdNcoGgnjiKKQMI4otBFGeBOG87EwQiMMLXG8hFFKHEcY7SWOTsI4oqiMMI4oUiOM6KfCeH3bvWMtOsLoCKMjjI4wOqI4IYyOMDrC6AijI4yOMDpWoyOMjjA6wuhYjY44OsLoWI2OODri6AijYzVaNKhQokCOFBoJYkQI4MODCxsW1AVfWEcYHWF0hNGxGh1hdITREUbHg9IRR0cYHWF0rEZHHB1hdKxGRxzHm34b1KhQIkeGFBoJIoQI4MOFA26HK+t44zB3b2HDgQsfAUJEiKGRIkOOEhVqNGjREUXHWnSE0RFFRxQda9ERRkcYHVF0rEVHGB1hxHH81Jdf+WwJoyWMljBawmgJoyWKE8JoCaPlOqMljJYwWsJoCaNlNVriaAmjJYyWMFpWoyWOljhawmhZjZY4GtSoUCBHhhQaCSKECODDgwsbFtQFX1hLGC1htITREkbLarTE0fKAtITREkbLarTE0RJGSxgtq9ESR0scx1v4GlQoUSBHhhQJYkQIEcCDCwc2rONtgC1htITREkZLGC2r0RJGSxgtYbSE0bIaLXG0hNESRstqtMTREkdLHC2P9aFBjQolCmRIoZEgRoTgu8N4e6+kIYyGMBrCaAijOX1MnRFGQxgNYTSsRkMcDWE0hNEQRkMYDavREEdDHA1hNITREEbDajTE0RBHjQolCuTIoJEgRoQQAXy4cGDDgrrgC2s4nTSE0RBGQxgNYTSE0bAaDQ9KQxgNYTSE0bAaDXE0xNEQR0Mcxzu1alQokSNDCo0EMSKE8OHBhQMb1vFur4YwGsJoCKMhjIYwGlajIY6GMBrCaAijIYyG1WiIoyGOhjgawmgIo+GxflGhRIEcGVJoJIgQIvj5xagJoyaMmjBq1qI+fUydEUZNGDVh1IRRE0bNatTEURNGTRg1YdSEURNGzWrUxFETR00cNXHUxFGhRIEcGVJoJIgRIYQPDy4c2LCgLvjCasKoWY2aMGrCqAmjJoyaMGoelJrVqImjJo6aOGriqAmjJozjPReHCiUK5MiQQiNGhBABfHhw4cCGdbx3oyaMmjBqwqgJoyaMmjBqwqhZjZo4auKoiaMmjJowasKoCaNmNWriqHmsX1QoUSBDCo0EMSKECP5EUfTUl1/5vEbhfC6M8J043gnjXhTBp8Nwb+J4FkZxjeNZFMnPhaGfxmFGkf+vwxjfvI5REUZFGBVhVIRRnT6mzgijIoyKMCrCqAijIoyKMCrCqAijIoyKMCrCqAijIoyKMCpWoyKOijhKFMiRIYVGghgRQgTw4cGFAxsW1AVfWEUYFWFUhFERRkUYFWFUrEbFg1IRR0UcFXFUxFERR0UcFXFUxHG876JEgRwZUmgkiBEhRAAfHlw4sGEd7904s2DDgQsPPgKEiBAjgUaKHIWoTkoUyJEhhUaCGBFCBPD/hGH41JevMUrCKAmjJIySMMrTx9QZYZSEURJGSRglYZS+II6SOEriKImjJI6SOEriKImjJI6SOEriKJAjQwqNBDEiESKADw8uHNiwoC74wkrCKAmjJIySMErCKAmj5AEpCaMkjJIwSsIoCaPMBHGUxHH8FHWBHBlSaCSIESFEAB8eXDiwYQl1ZsGGAxcefAQIESFGAo0UGXIUKC8K5MiQQiNBjAghAvxIGK+vMQrCKAijIIyCMIrTx9QZYRSEUTiCOAriKAijIIyCMArCKAijIIyCMIpUEEdBHAVx5CJDCo0EMSKECODDgysc2LCgLvjCCsIoCKMgjIIwCl8QR8GDUhBHQRwFcRTEURBHQRgFYRw/D3nIkSGFRiJiRAgRwIcHFw5sWMfPVF5ZsOHAhQcfAUJEiEUCjRQZchQXOTKk0EgQI0IoAnxbGI9/P8aHwrCfhPEojpcw8udRPArjJYr3wzDjuBfGnTheorgN4zaKL4ZxLw4zjNdx3IviNoxzFMcxC4LgqS/fK8mJIieKMxvHx9SZJQgjJ4ycMHLCyH1BHDlh5ISRE0aeCOLIiSMnjpwwMqTQSESMCCEC+MKDCwc2LKEu+MJyWxBHThg5YeSEkQeCOHLiyIkjJ4xcC+LIiSPLz1JoJIhFhBABfHjChQMb1vEzlVcWbDhwhQcfAUJEIkYCjRSZyIkiJ4ozjQQxIoQigI//QRgZYWREkRHF2fExdWYJwsgII3MFcWSEkRFGFgriyIgjSwRxZMSREUcKLRLEiBCKAD484cKBDUuoC76wzBaEkRFG5gniyHhQMsLIIkEcGXFkhJGlgjhSaCQiRoQQgfDhwYUjbFjHT0hdWbDhCBcefAQiRIRYJNBIkZ2kQiNBLCKECOAL74/v+099+V5JShgpYaREcXZ8TF0RRkoYqSMIIyWM1BfEkRJGGgniSAkj1YI4tEgQIxIhAvjCgysc2LCEurAEYaSEkbqCMFIekDQQxJESRhoL4kiJ4/ghloNGImJECEUAH55w4Qgb1vGDMFcWbOHAhSd8BAhFhBiJ0EgvNBLEIkKIQPjwTsfsB8J4vRiav0QThiYKffr3g7oiDE0Y2hGEoT1BGDoQxKEjQRyaOLS+ShCLCCEC4cMTLhxhw4J6xRKEoR1BGJowtC8IQ4eCOHQsiOO4JX1IRIxIhAiEDw+ucGAL67itfWXBFg5c4cEXAUJEIkYi9EWCWHBrnSjOAvjCOx2zbw7j7W33cxQfCMM2wnCNMHwjjNAI4yWO5H4UoRGFb0ThGlF8LoxPxPHRKDwjinfCsIwwHCMMzwjjeRzPogiMKM5heJ731JcXIyGKhCjOLKGuCCOxhSMII/GEL4gjCUUkiCMhjFhECEUAX3jChSNsYUG9YglbEEbiCk8QRhKIUBBHEgviiBGJEIHwhQdXOMKGJdSVJWw4whUefBGIEJGIRUIQZ5Hg1jpBnPnwhHvyA2G8vsaICSMmirPj39VrliCM2BGu8IQviCMORSSIIxKhCIQPT7jCETYsod7gi4tt4QhX8KDEvghEKCJBHJEIEQhfeMIVDmxhCXVlCVs4woUnfBGIEJGILyKEIhC+8OAK54/ruk/95esY18WI+EsioohO/3xQr1nCFo5whSd8QRxRKKKrUATChydc4QhbWEK9YQlbEEbkCk/4IhChiM5CEQhfeMIVjrCFJdSVJWzhCFd4wheBCEV0EYpA+MITrvi2MB7/oE5IFGeWUK9ZwhaOwRWe8EUgwqtA+MIzuMIRtrCEesMStnCEKzzhi8AQXgXCF55whSNsYRnUa5awhSNc4QlfBCJ8IxC+8IQrnJMfCGP/uzDuxeF+II7gcRTuB6L4WBjP4rgTSPCJKO6FoT4exrM4XgdyG8TjKI7j5TjOU18+lQT8JcHpzxfqLUvYBke4Bk/4BsLwDZ5wDY6wDZZQd1kGWzgG1+AJ30AcvvAMrnAMtrAM6i3LYAvH4ArP4IvgxDd4Blc4hm8L4/Fi+Pwl/unPg7rPMtgGx+AaPOFfeQZXOAbbYBnUQ5bBFo7BNXgG/8wzuAbHYBssg3rLMtgGx+AaPIN/4Rlcg2OwT2z7uS//PIb3irrPumEbHIN7w3vNNTgG22DdUA9ZBvuGY3AN3mvuDcdgGyyDeswy2Abnhmvw3nANjsF+5ZvDePvzGO6Fes66Yd9wDO5jjsG+Yd1Q77IM9g3nhnufc8O+Yd1Qj1k37BvODfch54Z9w/qJMF7/PMaHw/hIHLeBOG9juBfE30VxG8ajQO5E4vxFEO9E8SiOjwTi3I3hfhAvLOu5L/88hnOiPs56wL7DubIfsO5Qn2bdYT/gnNkPWA+oj7MesB9wLuwHrDe+KYzHL4nbHOy/Yj1hP2Y9ob7Eeod9n/UO9fesd9gPWe9QcoCf+1IYv9+/650wxt/vv6A2/vwE/Um/P4z/WgxmFOP3xvD7w/iX4viBtfj9Yfz+xfj9YfxnY/iLtdB3/vwUXV/D+P1+v1v/B1yLW2tkIRCNAAAAAElFTkSuQmCC' readStream)]!

Item was changed:
  ----- Method: PaintBoxMorph class>>colorMemoryThinImage (in category 'resources') -----
  colorMemoryThinImage
+ 	^self imageLibrary at: #colorMemoryThinImage ifAbsentPut:
+ 		[| offset chart spec fillStyle thinImage |
+ 		offset := 7 at 6.
+ 		chart := self colorChart.
+ 		thinImage := Form extent: 42 at 101 depth: chart depth.
+ 		spec := #(
+ 			(1.00 #(0.4 0.6 0.8))
+ 			(0.67 #(0.6 0.6 0.8))
+ 			(0.33 #(0.6 0.8 0.8))
+ 			(0.00 #(0.6 0.8 0.9))).
+ 		fillStyle := GradientFillStyle ramp: (spec collect: [:e | e first -> (Color fromRgbTriplet: e second)]).
+ 		fillStyle origin: 0@(thinImage extent y //2); direction: thinImage extent x @0.
+ 		(thinImage getCanvas copyOrigin: 0 at 0 clipRect: (0 at 0 extent: thinImage extent))
+ 			fillRectangle: (0 at 0 extent: thinImage extent) fillStyle: fillStyle;
+ 			frameAndFillRectangle: (0 at 0 extent: thinImage extent) fillColor: Color transparent borderWidth: 1 borderColor: Color black.
+ 		thinImage copy: (chart extent x - thinImage extent x + (2*offset x)@0 corner: chart extent x @ (chart extent y min: thinImage extent y - (2 * offset y))) from: chart to: offset rule: Form over.
+ 		thinImage]!
- 	^self imageLibrary at: #colorMemoryThinImage ifAbsentPut: [Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes:
- 		'iVBORw0KGgoAAAANSUhEUgAAACoAAABlCAYAAAA7zXHiAAAABHNCSVQFBQUBSsjp7wAABq5JREFUeF7l3CGUolwYgGGi0Wg0GolGI5FIJBKJRKKRSDQaiUTijUQikXgjjf+VucsAouMVxdl/w7uze+ac3ed89woI4xqGsWr+jvglFvVE4nZx7+uDub2vOpmu25imeQv6B1XfRo7B4j3QFjsNFW+d6guh9f1Jxnd+L35Gxq+dqHjpRN2ZU31ojy796p6GuveW/gt8+X5d14t0G/rjRH81VPyNE61/O/T3TNQky7L+/T367+/R/8dx9PNnpn9/j37qVS/r53oR9IHjaP0roD9MtHfAr2qN5HfL7NFaEyqvew9UTLxfUktf1j8kp1v8elQbWX21+Ku+qG8kJ6q+W/w4mtc3kqOqYYtPVBtZfrXMRUlvj/Ln62SvalTZJqXU6omJihnQcinoxGVeVk8kVVWvslexBHQ00ZtIeRO5AFRcH/DTepTsValKVdFVVZVW80+hN6FjZB+aLwXtTTSpR0lVpSpVhSpvW36i53qUVFWqUlWo8rayLLXSvB6duMy7C51G1mfxMujjEz3Vo0CeKlWpKlQgT6LtzdCJV/3D0HwALYpCq/kTjeteUlWpQMaFKlcBjbN3Qyf26E1oOQEVHTTPc63mTzSqe0kV0KhUgYxyFcgoa1sI2tujx7qXVAE9liqgR5BHoQJ6TBvB36HT/IuSu9BiBM3eDZ1+bHP5vgwBdoEMKxXQEGSYq4CGIMO0LcsyrWbv0cegYgRNPgANAHYBDUAGpQpoADQAGWQqoEHSpGmq1Yz39c9A03dD70zUB9gF1Afqg/QLFVAfqA/UB+kndG6SJNFq9gH/PjS/CT2f9Zo/UQ9gF1APqAfUA+qB9EB6IL1UBdR7JdR97N6TdAF2AXWBukBdoC5QF6gL1AXpgnTPdGpOJ72eeGg7muiT0DiOtZr9LlQ6ALuAOkAdoA5QB6gD1AHqAHWAOkCdRaDDU+jj0G9k7cRNFEVazTiFqj1qA+wCagO1gdpAbZA2SJtp2kBtoDZQO26Ox6NW81/1k9ALMv9lUAtgF1ALqAXUAmoBtYBaQC2gFlALqBU1YRhq9eSrvrf0B4BdQA8s+wHoAegB6AHoAegB6AHkIaaoCYJAq9n3Rx+DXpDnAdT3fa1m3x+Ve4BdLPse6B7oHuge6J5p7oHuge6B7oHuj43neVrNuD9aPwDNJqBRC3VdV6v5EzUBdgE1gZpATaAmUBOoCdQEajJNE6j5duj1DYjbUDGCnnrQsHEcR6sH7z3duXDeAewCugO6A7oDugO6A7pjmjugO6C7I4WNbdtazT+OakGjDnqZhE7zL5y3ALuAboFu2Z9boFugW5Z9C3QLdAt0C3QbNIfDQasZLya1RzcAu4BugG6AboBugG6AboBuWPYN0A3QTdDs93ut5l/m3YWmE9CwhV7+AZ3mn5nWALuAroGuga6BroGuga5Z9jXQNdNcA137zW6302r2vadvqNSCbrdbrTQvSq4nWq1AtgFdAV3xil8BXbE/V0BXLPsK6IplXwFdBeQ3m81Gq9lnpuegXrNer7V68lzfm6gBsg2oAdQAagA1gBpADaAGy24ANVh2A6jhNavVSqvZe/Q+NJmA+i30zT9Jdv3m7gKVHbRUUNGDnhT0uAT09v3REqBsq4jH20xTApUsuwQqgUqgEqhk2SVQabhLTHS4Ry/QqoMWCpop6FlBo89DC4BVW0k8NWaaFdCKaVZAK6ZZAa1Y9gpoxbJXy0CH5/oLtOyguYKmCnr6JHQ40Rxg2VYQD2OZZgm0ZJol0BJoybKXQEuWvQRaGs5SPz8qBtCigwoFTXrQSEGDJaHXExUAi7aceMbJNAugBdCCaRZAC6ZZAC2AFix7sQx0uEcFwLyLJ3JAc5A508yB5kwzB5oDzZlmDjR/H1RcvbH7M9EM4BdWKGjSg0Y9qN+D2kt8+mZ4wM8AiraMeCIHVAAVTFMAFUAF0xRABVABVLwU+uDVUwoyG0AvyFMPGo6gzjuht5c+BZi18diQaWZAM6AZyIxpZkAzoBnQjGlmQLNPTDQBmQ6gF2Q8gl6Q3pLQ6+vRBGDaxtM4ppkCTYGmQFOQKdNMgaZAU6ApyNSwljqOfh+eziCTAfQP8jgBdZaEDq9HTwCTNh4bMs0EaAI0AZoATUAmIBOmmQBNgCYvhN659zQ8PJ0AnrtOFNGRQgrIJ49ccsgma/lTaAzw1CHjB6AWHT4B5RFgV0wRhRSQTx655JBNFi0MffXnl5/7SLD7843cu7hbn2V+4Qes5000XvYT4Q9dOP/iiU4cpuLnp+nO/Y8A3Ph7j/4N/QdYRkMKIZ4OKgAAAABJRU5ErkJggg==' readStream)]!

Item was changed:
  ----- Method: PaintBoxMorph class>>useLargeColorPicker: (in category 'preferences') -----
  useLargeColorPicker: aBoolean
+ 	UseLargeColorPicker = aBoolean
+ 		ifFalse:
+ 			[ColorChart := nil.
+ 			ImageLibrary ifNotNil: [ImageLibrary
+ 				removeKey: #colorMemoryImage ifAbsent: [];
+ 				removeKey: #colorMemoryThinImage ifAbsent: []]].
- 	UseLargeColorPicker = aBoolean ifFalse: [ColorChart := nil].
  	UseLargeColorPicker := aBoolean!



More information about the Squeak-dev mailing list