Verified Commit c7f6b39b authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Small fix for presentation

parent d3be86d7

minos2/md-viewer.fs

+2 −2
Original line number Diff line number Diff line
@@ -253,13 +253,13 @@ previous 
    fn$ @ album-imgs[] >stack

    1 imgs# +! ;



66 Value maxcols#



: wh>glue ( w h w% h% o:glue -- ) { f: w% f: h% }

    2dup dpy-h @ s>f fm/ h% f* dpy-w @ s>f fm/ w% f* fmin

    \ not bigger than x% of screen

    fdup fm* vglue-c df!  fm* hglue-c df! ;



66 Value maxcols#



: default-imgwh% ( -- w h )

    dpy-w @ s>f font-size# maxcols# fm* f/ 1/f 100% fmin 100% ;

minos2/widgets.fs

+1 −1
Original line number Diff line number Diff line
@@ -1108,7 +1108,7 @@ glue*2 >o 1glue f2* hglue-c glue! 0glue f2* dglue-c glue! 1glue f2* vglue-c glue 
    hbox new { newbox }

    act ?dup-IF  .clone newbox .!act  THEN

    childs# start floor f>s U+DO

	firstflag newbox .childs[] $[]# 0<> or

	firstflag newbox .childs[] $[]# 0= and

	startx rw I childs[] $[] @ .split to startx

	0e { f: ow }

	?dup-IF