/[gcl]/gcl/gcl-tk/tkl.lisp
ViewVC logotype

Diff of /gcl/gcl-tk/tkl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by mjthomas, Thu May 12 13:23:19 2005 UTC revision 1.6 by camm, Fri Oct 14 14:45:28 2005 UTC
# Line 1236  Line 1236 
1236           (funcall (car funs) string)))))           (funcall (car funs) string)))))
1237    
1238  ;;convert "2c" into screen units or points or something...  ;;convert "2c" into screen units or points or something...
     ))  
1239    
1240  ;; If loc is suitable for handing to setf,  then  ;; If loc is suitable for handing to setf,  then
1241  ;; (setf loc (coerce-result val type)  ;; (setf loc (coerce-result val type)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26