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/20200609/ada42e8a/attachment.html>