[climacs-cvs] CVS update: climacs/slidemacs-gui.lisp

Brian Mastenbrook bmastenbrook at common-lisp.net
Sun Jun 5 23:27:46 UTC 2005


Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv11003

Modified Files:
	slidemacs-gui.lisp 
Log Message:
Sorry for the very fine-grained commits: I'm trying to synchronize my trees between two machines right now. Add a space before the title to offset it a bit from the exact left side of the buffer

Date: Mon Jun  6 01:27:45 2005
Author: bmastenbrook

Index: climacs/slidemacs-gui.lisp
diff -u climacs/slidemacs-gui.lisp:1.3 climacs/slidemacs-gui.lisp:1.4
--- climacs/slidemacs-gui.lisp:1.3	Mon Jun  6 01:26:18 2005
+++ climacs/slidemacs-gui.lisp	Mon Jun  6 01:27:45 2005
@@ -64,6 +64,7 @@
     (loop repeat 2 do (terpri pane))))
 
 (defmethod display-parse-tree ((entity slidemacs-bullet) (syntax slidemacs-gui-syntax) pane)
+  (stream-increment-cursor-position pane (space-width pane) 0)
   (with-text-style (pane '(:serif :roman 48))
     (with-slots (point) pane
       (if (and (mark>= point (start-offset entity))




More information about the Climacs-cvs mailing list