<div dir="ltr"><div>Cool</div><div><br></div><div>Best,</div><div>Karl<br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Tue, Jun 9, 2020 at 3:48 PM <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Marcel Taeumel uploaded a new version of Tools to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Tools-mt.971.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/Tools-mt.971.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Tools-mt.971<br>
Author: mt<br>
Time: 9 June 2020, 3:48:35.364373 pm<br>
UUID: 229a24af-36d4-ef41-bb06-07b7ffeb9486<br>
Ancestors: Tools-mt.970<br>
<br>
Adds an inspector for forms with a "pixels" field that embeds the form as special font to see the pixels in the value pane. I think that there is no alpha support in FormSetFont ...<br>
<br>
=============== Diff against Tools-mt.970 ===============<br>
<br>
Item was added:<br>
+ ----- Method: Form>>inspectorClass (in category '*Tools-Inspector') -----<br>
+ inspectorClass<br>
+ <br>
+       ^ FormInspector!<br>
<br>
Item was added:<br>
+ Inspector subclass: #FormInspector<br>
+       instanceVariableNames: ''<br>
+       classVariableNames: ''<br>
+       poolDictionaries: ''<br>
+       category: 'Tools-Inspector'!<br>
<br>
Item was added:<br>
+ ----- Method: FormInspector>>embedForm:inText: (in category 'support') -----<br>
+ embedForm: aForm inText: stringOrText<br>
+ <br>
+       ^ stringOrText asText, String cr,<br>
+               (Text string: ' ' attribute:<br>
+                       (TextFontReference toFont: <br>
+                               (FormSetFont new<br>
+                                       fromFormArray: (Array with: (aForm copy offset: 0@0))<br>
+                                       asciiStart: Character space asInteger<br>
+                                       ascent: aForm height)))!<br>
<br>
Item was added:<br>
+ ----- Method: FormInspector>>fieldPixels (in category 'fields') -----<br>
+ fieldPixels<br>
+ <br>
+       ^ (self newFieldForType: #misc key: #extent)<br>
+               name: 'pixels' translated; emphasizeName;<br>
+               shouldPrintValueAsIs: true;<br>
+               valueGetter: [:form | self embedForm: form inText: form printString];<br>
+               yourself!<br>
<br>
Item was added:<br>
+ ----- Method: FormInspector>>streamBaseFieldsOn: (in category 'fields - streaming') -----<br>
+ streamBaseFieldsOn: aStream<br>
+ <br>
+       super streamBaseFieldsOn: aStream.<br>
+       aStream nextPut: self fieldPixels.!<br>
<br>
<br>
</blockquote></div>