picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mapp/gui.l | 4++--
Mapp/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)