Commit b770aedb authored by bp's avatar bp

Fixed typos

git-svn-id: https://forth-ev.de/repos/bigforth@2494 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent c989b8e1
......@@ -61,9 +61,9 @@ XSRC = startx.fs minos.fs oof.fb x11.fs xpm.fs locals.fs editor.fs \
resources.fs minos-float.fs convert-m.sh float.fb theseus*.fs \
win32.fs win32ex.fs w95style.fs
BUILDSRC = configure.in config.sub config.guess Makefile.in install-sh
EXTRAS = gpl-about.m menu.fs adjust.m adjust-path.m fft.fb complex.fb fileop.fb
EXTRAS = gpl-about.m menu.fs adjust.m adjust-path.fs fft.fb complex.fb fileop.fb
SRC = $(SOURCE) $(KERNSRC) $(SYSSRC) $(XCSRC) $(XSRC) $(BUILDSRC) $(XINI) $(XINI:%=%.in) $(INI) $(INI:%=%.in) $(EXTRAS)
MINIICONS = bigforth/icons/{dot-dir,dotdot-dir,script,dir,file,sym,NOTE,INFO,WARNING,FATAL,QUESTION,ERROR,NONE}.png
MINIICONS = bigforth/icons/{dot-dir,dotdot-dir,script,dir,file,sym,INFO,WARNING,FATAL,QUESTION,ERROR,NONE}.png
all: build ok
......
......@@ -421,6 +421,7 @@ Variable icon-base
IF nip nip true ELSE drop false THEN ;
: (read-icon ( addr u -- pixmap1 pixmap2 w h )
\ ." try read icon " 2dup type cr
[defined] read-png [IF]
s" .png" suffix? IF read-png EXIT THEN
[THEN]
......
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