[contraband-cvs] CVS: contraband print.lisp,1.6,1.7
Status: Pre-Alpha
Brought to you by:
stig
|
From: Stig E S. <st...@us...> - 2003-06-05 14:05:10
|
Update of /cvsroot/contraband/contraband
In directory sc8-pr-cvs1:/tmp/cvs-serv31392/variants/contraband
Modified Files:
print.lisp
Log Message:
changed return-value of print-text
Index: print.lisp
===================================================================
RCS file: /cvsroot/contraband/contraband/print.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** print.lisp 3 Jun 2003 11:07:28 -0000 1.6
--- print.lisp 5 Jun 2003 14:03:02 -0000 1.7
***************
*** 25,29 ****
(put-coloured-str! title-attr "======" title-col (1+ title-row))
! (let ((row (+ title-row 3)))
(loop for x being the hash-values of (variant.quests var-obj)
do
--- 25,30 ----
(put-coloured-str! title-attr "======" title-col (1+ title-row))
! (let ((row (+ title-row 3))
! (dummy-col 9))
(loop for x being the hash-values of (variant.quests var-obj)
do
***************
*** 31,35 ****
(not (quest.parent x)))
(put-coloured-str! title-attr (quest.title x) title-col (incf row))
! (setf row (print-text! title-col (incf row) +term-green+ (quest.desc x) :end-col 45))
(when (stringp (quest.step x))
--- 32,37 ----
(not (quest.parent x)))
(put-coloured-str! title-attr (quest.title x) title-col (incf row))
! (multiple-value-setq (dummy-col row)
! (print-text! title-col (incf row) +term-green+ (quest.desc x) :end-col 45))
(when (stringp (quest.step x))
***************
*** 37,41 ****
(when (eq (quest.state q) :active)
(put-coloured-str! title-attr (quest.title q) (+ 2 title-col) (incf row))
! (setf row (print-text! (+ 2 title-col) (incf row) +term-green+ (quest.desc q) :end-col 45)))))
(incf row)
--- 39,46 ----
(when (eq (quest.state q) :active)
(put-coloured-str! title-attr (quest.title q) (+ 2 title-col) (incf row))
! (multiple-value-setq (dummy-col row)
! (print-text! (+ 2 title-col) (incf row) +term-green+ (quest.desc q) :end-col 45))
!
! )))
(incf row)
|