[Cuis-dev] Box Morph video - PadWorkSpace.st

[Hannes Hirzel]

P.S.

Removed duplicated code


labelMorph := LabelMorph new
   borderWidth: 2;
   borderColor: Color red;
   color: Color cyan;
   padding: 0.

imageMorph := ImageMorph new
    borderWidth: 6;
    borderColor: Color green;
    padding: 0.

layoutMorph := LayoutMorph newColumn
     borderWidth: 2;
     borderColor: Color yellow;
     padding: 0;
     separation: 0;
     addMorph: labelMorph;
     addMorph: imageMorph;
     scaleBy: 3;
     openInWorld.


labelMorph padding: 4.

labelMorph padding: 6.

labelMorph padding: 8.

layoutMorph padding:0; morphExtent: layoutMorph minimumExtent.

layoutMorph separation: 3.

LayoutMorph exampleEdgesColumn.
LayoutMorph exampleEdgesRow.




On 12/11/2024 4:02 pm, H. Hirzel wrote:
> Hello
>
> I was watching the Box Morph video (Sep 2024, link is on 
> https://cuis.st/community) with interest.
>
> I like that padding works similar to CSS.
>
> Below is the workspace code used for the demo four your convenience in 
> case you need it.
>
> Regards
> Hannes
>
> ----------------------------------------------
> File: PadWorkSpace.st
> ----------------------------------------------
>
>
>
> labelMorph := LabelMorph new
>   borderWidth: 2;
>   borderColor: Color red;
>   color: Color cyan;
>   padding: 0.
>
> imageMorph := ImageMorph new
>    borderWidth: 6;
>    borderColor: Color green;
>    padding: 0.
>
> layoutMorph := LayoutMorph new
>     borderWidth: 2;
>     borderColor: Color yellow;
>     padding: 0;
>     separation: 0;
>     addMorph: labelMorph;
>     addMorph: imageMorph;
>     scaleBy: 3;
>     openInWorld.
>
> labelMorph := LabelMorph newColumn
>   borderWidth: 2;
>   borderColor: Color red;
>   color: Color cyan;
>   padding: 0.
>
> imageMorph := ImageMorph new
>    borderWidth: 6;
>    borderColor: Color green;
>    padding: 0.
>
> layoutMorph := LayoutMorph new
>     borderWidth: 2;
>     borderColor: Color yellow;
>     padding: 0;
>     separation: 0;
>     addMorph: labelMorph;
>     addMorph: imageMorph;
>     scaleBy: 3;
>     openInWorld.
>
>
> labelMorph := LabelMorph new
>   borderWidth: 2;
>   borderColor: Color red;
>   color: Color cyan;
>   padding: 0.
>
> imageMorph := ImageMorph new
>    borderWidth: 6;
>    borderColor: Color green;
>    padding: 0.
>
> layoutMorph := LayoutMorph newColumn
>     borderWidth: 2;
>     borderColor: Color yellow;
>     padding: 0;
>     separation: 0;
>     addMorph: labelMorph;
>     addMorph: imageMorph;
>     scaleBy: 3;
>     openInWorld.
>
> labelMorph padding: 4.
>
> labelMorph padding: 6.
>
> labelMorph padding: 8.
>
> layoutMorph padding:0; morphExtent: layoutMorph minimumExtent.
>
> layoutMorph padding:0; morphExtent: layoutMorph minimumExtent.
>
> layoutMorph separation: 3.
>
> LayoutMorph exampleEdgesColumn.
> LayoutMorph exampleEdgesRow.
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.cuis.st/mailman/archives/cuis-dev/attachments/20241112/f1ddb11c/attachment.htm>