Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Bernd Paysan
bigforth
Commits
b770aedb
Commit
b770aedb
authored
Aug 13, 2012
by
bp
Browse files
Fixed typos
git-svn-id:
https://forth-ev.de/repos/bigforth@2494
3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent
c989b8e1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Makefile.in
View file @
b770aedb
...
...
@@ -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
View file @
b770aedb
...
...
@@ -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 "
2
dup
type
cr
[
defined
]
read
-
png
[
IF
]
s
" .png"
suffix
?
IF
read
-
png
EXIT
THEN
[
THEN
]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment