picolisp

commit 4bd984370ff2a4826a233d6817ddd20e948a44eb
parent c7c5b0fad9be9a7d168bc4df77936697d3756c67
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon,  9 May 2011 19:15:39 +0200

Global vs. local invocation
Diffstat:
M
app/gui.l
 | 
4
++--
M
app/lib.l
 | 
6
+++---

2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/app/gui.l b/app/gui.l
@@ -1,4 +1,4 @@
-# 06may11abu
+# 09may11abu
 # (c) Software Lab. Alexander Burger
 
 ### GUI ###
@@ -29,7 +29,7 @@
    (and (app) (setq *Menu 3))
    (menu "PicoLisp App"
       (<h2> NIL "PicoLisp App")
-      (<img> "img/7fach.gif" "7fach Logo")
+      (<img> "@img/7fach.gif" "7fach Logo")
       (----)
       (form NIL
          (gui '(+Init +Map +TextField)
diff --git a/app/lib.l b/app/lib.l
@@ -1,11 +1,11 @@
-# 08jun10abu
+# 09may11abu
 # (c) Software Lab. Alexander Burger
 
 ### PDF-Print ###
 (dm (ps> . +Ord) ()
    (a4 (pack "Order" (: nr)))
    (font (12 . "Helvetica"))
-   (eps "img/7fach.eps" 340 150 75)
+   (eps "@img/7fach.eps" 340 150 75)
    (window 380 120 120 30
       (font (21 . "Times-Roman") (ps ,"Order" 0)) )
    (brief NIL 8 "7fach GmbH, Bawaria"
@@ -39,7 +39,7 @@
             (down 12)
             (font 9 (ps (text ,"Continued on page @1" (inc 'Page))))
             (page T)
-            (eps "img/7fach.eps" 340 150 75)
+            (eps "@img/7fach.eps" 340 150 75)
             (down 40)
             (font 9 (ps (text ,"Page @1" Page)))
             (down 80)