'From etoys2.2 of 27 September 2007 [latest update: #1747] on 2 November 2007 at 11:36:45 am'! "Change Set: narrowCursor2-tak Date: 2 November 2007 Author: Takashi Yamamiya Fixed transparent color of the cursor to use alpha pre-multiplied. https://dev.laptop.org/ticket/2813. "! !CursorWithAlpha class methodsFor: 'constants' stamp: 'tak 11/2/2007 11:05'! olpcNormal "self olpcNormal show" ^self constants at: #olpcNormal ifAbsentPut: [ | cursor stream form | Constants ifNil: [Constants := Dictionary new]. cursor := CursorWithAlpha extent: 27@43 depth: 32. cursor offset: -2@-1. form := (PNGReadWriter on: (Base64MimeConverter mimeDecodeToBytes: 'iVBORw0KGgoAAAANSUhEUgAAABsAAAArCAYAAACJrvP4AAAABmJLR0QA/wD/AP+gvaeTAAAA CXBIWXMAAAsTAAALEwEAmpwYAAAAB3RJTUUH1wsCES4S+2zOjgAABZ1JREFUWMO1l11sU2UY x//vOe1Z29OvrVvL2PiQTVg7PoToyNBIYoAlSIgRdzFI3OBOnEbEeLNEbyBEE+VGgkQTMkwU pjFpBRGMEeVCYjDZF8MLFmRhDgWyQdeuPe3p34u9rdvoRkvGSf55enH6/s7/fZ/3fZ4XkA/J VszTQzKvpr7A+QIWCpsX4FwwBYAyBcYbN260AyiT0qQeD4wkb968ufdxwOwA7Lk5bG3NAU+f Pn0IwCKpgqEFwwBMAw4MDOybT5gOQJ8KmwkMh8MfFOOwKJgQKiHEIzssCmax2Oj2VFMI5ZEc FgWzajorAiF6S5c+ACzEYVEwrcTFhdVPM7DwKZb6aopyOBtoVpjN5uWSZRvpq6hjeSDEMl9t wQ6LhtkdPtbWbWW5v54ltlJWBOoLdlg0THf6GVrdzMqqZ2h3BGizl7PcHyxoDeeCKfkWWCgq NE2HRXPAYtWhqBrGx+9AUSxwuivReeIE2traAADBYPDjcDjcDiAAICCE0IQQeRMnL0wRKixW B6xWHVbNCYvFAUVYEYuNQggVul6Bzs7/gdu3b393YGDglYedLHlhEApU1TIJ1FxQLXYoqgYh FEzExwAI2OzeacBCHCqznAEgCSEdqpYSKKoVQlEBAInEfQCAVXOgs7OzYId5YcxkYKYNMGNC CAuEUCGgQEBACAGQMJJRAIBqKZkGnM2hEMKeH0YTqVQMmUwaYAZgBkQGnHFKpIw4QEIoakEO 88IyGROGEYNpGkibCZimAWbSAE2QGTCHJUzTmKwTEA84jEQirwMolTJn2dRlXLZ8C6uWPM/y wDp6SldQd1axxFZGi1WnolgJoeTK0aRE3vI0ODj4ppxSTUgYSI4DgBACJTYP/AtWIpmMI5GI wUxPQAhC131IpxPQdQ093Rfh9XgKahMuXbrU0djYeNiSP0FMpIwYUkYc6dQ4VtavwK1/00in EyBNRKNxnDlzHrt2NiMajd6+d+/enZljqKo6OW26PhEKhV4aHBz8Ka8zq9UBt3cRjGQMdXXL cP5cBAcPHcOpU2EYqTjSqTiCdctw8deziEajt91u91sAkpKTkHFCxmEZh/InCDNIpxKor1+O 8+fC8Ho92N22A0KxQBEqhFDR3/8nLl78DS6Xq6KjoyNYyHTm39TMIBSqxdnvv4XX6wUAhII1 qA89CaEoEGJSX37VBQBoaWl5DsAtqT6pXqmbUsm82bh27TqOjo6RJHt6en45fvz4MZL8+puz rFq8nv4Fq1jqq6HLXZV7b/fu3TsAPAtgsVS5lC6lPABbs2YNR0dHSZK9vb0XADSHQqHWZDI5 TpKhlZvor1zNMl8tXZ5qHjz4IUmyu7v7cwCNACqkVADqnPVsBqgFQDOA5v7+/p9J8r33P8rB 3J5qBkPrSJITExN/FwKb1qSS5LVr134AsFlqPYD1e/bseZkkh4aG5TROwhx6OcOR0yTJrq6u wwBCUtlxZ4dJ0AszYQA23L179w+SfLW1Pbdmdkc5N2/eSpIcGRnpfRgsd7FIJBJfTFnYrNxS 1VevXt1HkmfO/Ehv2RN0uStpd/iolbh4/fpfJMkDBw7sAtCQ/V9eWDwe/0Su36wwANWxWGyE JFet3kCnawHt9jJqmpP73n6Hk9M89N1csEIbTCcA55UrVz4lySNHPqPu9NNm89Kq6fT5/CRJ wzCiALYAqJTKJYpS7K3y6NGjEQDYubMZmYwJt8eFN9r34vLl3wEAsVjsn/m4yKlSlWNjYydJ srund9oFcnh4uH///v2vAWgCUCOVa/EeCRaJRDYZhhElyWQyOd7X13dh27Zte+WebCoYVuja NTU1NZ48ebKtoaHhRQAbZVI0AAhKZSt09iMVMRcsb5cnhFP+XCqjb0ZJicp4S8b72SEfBZZN KoeM2d4wLWNKRkOOYz6kb3w8z39U3YwFF7ukGAAAAABJRU5ErkJggg==' readStream) readStream) nextImage. cursor bits: form bits. "Transparent color should be 16r00000000 instead of 16r00FFFFFF" 1 to: cursor bits size do: [:i | (cursor bits at: i) = 16rFFFFFF ifTrue: [cursor bits at: i put: 0]]. cursor]! ! "Postscript: " CursorWithAlpha constants removeKey: #olpcNormal ifAbsent: []. HandMorph initializeCursorForm. !