Commit b770aedb authored by bp's avatar bp

Fixed typos

git-svn-id: 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 float.fb theseus*.fs \
win32.fs win32ex.fs w95style.fs
BUILDSRC = config.sub config.guess 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
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
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment