add edge style and border properties for group, list, label, edit, and subform

[sloorush]

No description provided.

[sloorush]

@cursork, not sure if we would want to make a util function for edge styles to not have to write the same code multiple times.

[sloorush]

Closes:

• closes Group: Implement EdgeStyle #381
• closes Border is not supported on multiple components #410

[cursork]

We can definitely move the function for getting the edge style somewhere shared.

When we're together, we can decide on the best styling. I created a little test using a dfn to swap ⎕WC and eWC and we'll need some styling tweaks. Can be done whilst getting the edge style definition in one place.

Function:

 EdgeStylesXWC;styles;spacing;ypos;nm;F;title

⍝ Called as: xWC←{⍺ ⎕WC ⍵} ⋄ EdgeStylesXWC ⋄ xWC←{⍺ eWC ⍵} ⋄ EdgeStylesXWC

 (F←'F',⍕?100)#.xWC'Form'(title←'EdgeStyle Demo. xWC=',∊⎕CR'#.xWC')(50 50)(750 900)('Coord' 'Pixel')

 (F,'.TITLEFNT')#.xWC'Font' 'Segoe UI'('Size' 18)('Weight' 700)
 (F,'.TITLE')#.xWC'Label'title(10 10)(30 880)('FontObj' 'F1.TITLEFNT')
 styles←'Ridge' 'Groove' 'Recess' 'Plinth' 'Shadow' 'None'
 spacing ypos←105 100

 :For i :In ⍳≢styles
     nm←(F,'.E'),(⍕i),'Lbl' ⋄ nm #.xWC'Label'((i⊃styles),':')(ypos+10,10+spacing×i-1)(20 90)
     nm←(F,'.E'),⍕i ⋄ nm #.xWC'Edit' 'Sample Text'(ypos+50,10+spacing×i-1)(25 90)('EdgeStyle'(i⊃styles))
 :EndFor

[sloorush]

@cursork, sounds good! The demo looks nice. We can check out the styling when we are pairing.

[sloorush]

Todo:

• Plinth to be changed to 1px
• Shadow styling to be made same as ⎕WC
• We will ignore recess
• Move all the functions to a standard place