Check-in [54488cc3f0]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:A bit more work on widgets
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 54488cc3f0133548df7e453d46120e5627689555
User & Date: bernd 2014-03-23 22:58:02
Context
2014-04-01
20:23
Destdir depends on where it is called check-in: 7aa55ededf user: bernd tags: trunk
2014-03-23
22:58
A bit more work on widgets check-in: 54488cc3f0 user: bernd tags: trunk
16:25
A bit more work on widgets check-in: 5bd0eda37c user: bernd tags: trunk
Changes

Changes to gles2/widgets.fs.

267
268
269
270
271
272
273
274


275
276
277
278
279
280
281
282
283
284

\ add glues up for hboxes

: hglue-step { gp ga rd rg rx -- gp ga rd' rg' rx' }
    gp ga  rx x !
    hglue@ g3>2 { xmin xa }
    rg xa + gp ga */ rd - dup rd + rg xa +
    rot xmin + ;



\ add glues up for vboxes

: vglue-step { gp ga rd rg ry td sd ad -- gp ga rd' rg' ry' td' sd' ad' }
    gp ga baseglue
    vglue@ td sd ad glue+ glue* g3>2 { ymin ya }
    rg ya + gp ga */ rd - dup rd + rg ya +
    rot ymin +  dup ry !  dglue@ ;

previous previous previous set-current







|
>
>










267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286

\ add glues up for hboxes

: hglue-step { gp ga rd rg rx -- gp ga rd' rg' rx' }
    gp ga  rx x !
    hglue@ g3>2 { xmin xa }
    rg xa + gp ga */ rd - dup rd + rg xa +
    rot xmin +  dup x @ - w ! ;

: hbox-resize { x h d -- x h d } x y @ w @ h d resize  x h d ;

\ add glues up for vboxes

: vglue-step { gp ga rd rg ry td sd ad -- gp ga rd' rg' ry' td' sd' ad' }
    gp ga baseglue
    vglue@ td sd ad glue+ glue* g3>2 { ymin ya }
    rg ya + gp ga */ rd - dup rd + rg ya +
    rot ymin +  dup ry !  dglue@ ;

previous previous previous set-current

Changes to widgets.fs.

267
268
269
270
271
272
273
274


275
276
277
278
279
280
281
282
283
284

\ add glues up for hboxes

: hglue-step { gp ga rd rg rx -- gp ga rd' rg' rx' }
    gp ga  rx x !
    hglue@ g3>2 { xmin xa }
    rg xa + gp ga */ rd - dup rd + rg xa +
    rot xmin + ;



\ add glues up for vboxes

: vglue-step { gp ga rd rg ry td sd ad -- gp ga rd' rg' ry' td' sd' ad' }
    gp ga baseglue
    vglue@ td sd ad glue+ glue* g3>2 { ymin ya }
    rg ya + gp ga */ rd - dup rd + rg ya +
    rot ymin +  dup ry !  dglue@ ;

previous previous previous set-current







|
>
>










267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286

\ add glues up for hboxes

: hglue-step { gp ga rd rg rx -- gp ga rd' rg' rx' }
    gp ga  rx x !
    hglue@ g3>2 { xmin xa }
    rg xa + gp ga */ rd - dup rd + rg xa +
    rot xmin +  dup x @ - w ! ;

: hbox-resize { x h d -- x h d } x y @ w @ h d resize  x h d ;

\ add glues up for vboxes

: vglue-step { gp ga rd rg ry td sd ad -- gp ga rd' rg' ry' td' sd' ad' }
    gp ga baseglue
    vglue@ td sd ad glue+ glue* g3>2 { ymin ya }
    rg ya + gp ga */ rd - dup rd + rg ya +
    rot ymin +  dup ry !  dglue@ ;

previous previous previous set-current