[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