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 |
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
|