Commit b770aedb authored Aug 13, 2012 by bp

Fixed typos

git-svn-id: https://forth-ev.de/repos/bigforth@2494 3b8d8251-53f3-0310-8f3b-fd1cb8370982

parent c989b8e1

Makefile.in

+2 −2

Original line number	Diff line number	Diff line
		@@ -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

pixmap.fs

+1 −0

Original line number	Diff line number	Diff line
		@@ -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]