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: |
54488cc3f0133548df7e453d46120e56 |
User & Date: | bernd 2014-03-23 22:58:02.625 |
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 | \ 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 + | | > > | 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 | \ 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 + |
︙ | ︙ |
Changes to widgets.fs.
︙ | ︙ | |||
267 268 269 270 271 272 273 | \ 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 + | | > > | 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 | \ 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 + |
︙ | ︙ |