Form of depth 8 does not look so good in 32 bit depth.

Best,
Karl

On Tue, Jun 9, 2020 at 5:30 PM karl ramberg <karlramberg at gmail.com> wrote:

> Cool
>
> Best,
> Karl
>
> On Tue, Jun 9, 2020 at 3:48 PM <commits at source.squeak.org> wrote:
>
>> Marcel Taeumel uploaded a new version of Tools to project The Trunk:
>> http://source.squeak.org/trunk/Tools-mt.971.mcz
>>
>> ==================== Summary ====================
>>
>> Name: Tools-mt.971
>> Author: mt
>> Time: 9 June 2020, 3:48:35.364373 pm
>> UUID: 229a24af-36d4-ef41-bb06-07b7ffeb9486
>> Ancestors: Tools-mt.970
>>
>> 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 ...
>>
>> =============== Diff against Tools-mt.970 ===============
>>
>> Item was added:
>> + ----- Method: Form>>inspectorClass (in category '*Tools-Inspector')
>> -----
>> + inspectorClass
>> +
>> +       ^ FormInspector!
>>
>> Item was added:
>> + Inspector subclass: #FormInspector
>> +       instanceVariableNames: ''
>> +       classVariableNames: ''
>> +       poolDictionaries: ''
>> +       category: 'Tools-Inspector'!
>>
>> Item was added:
>> + ----- Method: FormInspector>>embedForm:inText: (in category 'support')
>> -----
>> + embedForm: aForm inText: stringOrText
>> +
>> +       ^ stringOrText asText, String cr,
>> +               (Text string: ' ' attribute:
>> +                       (TextFontReference toFont:
>> +                               (FormSetFont new
>> +                                       fromFormArray: (Array with:
>> (aForm copy offset: 0 at 0))
>> +                                       asciiStart: Character space
>> asInteger
>> +                                       ascent: aForm height)))!
>>
>> Item was added:
>> + ----- Method: FormInspector>>fieldPixels (in category 'fields') -----
>> + fieldPixels
>> +
>> +       ^ (self newFieldForType: #misc key: #extent)
>> +               name: 'pixels' translated; emphasizeName;
>> +               shouldPrintValueAsIs: true;
>> +               valueGetter: [:form | self embedForm: form inText: form
>> printString];
>> +               yourself!
>>
>> Item was added:
>> + ----- Method: FormInspector>>streamBaseFieldsOn: (in category 'fields -
>> streaming') -----
>> + streamBaseFieldsOn: aStream
>> +
>> +       super streamBaseFieldsOn: aStream.
>> +       aStream nextPut: self fieldPixels.!
>>
>>
>>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20200610/824db5e4/attachment-0001.html>