Skip to content

gforth
gforth
Commit 6be09154 authored by Bernd Paysan's avatar Bernd Paysan
Browse files
Options

Minor MINOS2 fixes

parent 84e9a47c
Pipeline #1112 failed with stage
    in 8 minutes and 32 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 3 additions and 4 deletions
    minos2/gl-helper.fs
    View file @ 6be09154
    ......@@ -108,8 +108,7 @@ Variable configs
    Variable numconfigs
    Variable eglformat
    : ??gl ... ." gl: " glGetError . ." o: " o hex.
    fdepth IF cr ." F:" f.s THEN ; ' ??gl is printdebugdata
    : ??gl ... ." gl: " glGetError . ." o: " o hex. ; ' ??gl is printdebugdata
    [IFDEF] android
    : win app window @ ;
    ......@@ -760,7 +759,7 @@ require soil-texture.fs
    ext-tex: media-tex
    [THEN]
    1 sfloats buffer: color%
    1 sfloats buffer: color% 0.5e color% sf!
    1 sfloats buffer: gain% 1.0e gain% sf!
    1 sfloats buffer: ambient% 1.0e ambient% sf!
    1 sfloats buffer: saturate% 1.0e saturate% sf!
    ......
    minos2/widgets.fs
    View file @ 6be09154
    ......@@ -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<> or
    startx rw I childs[] $[] @ .split to startx
    0e { f: ow }
    ?dup-IF
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment