Commits

Anonymous committed f4f67e7

Changed 'console-print-left' to 'console-print' for compatibility with latest SVN libtcod.

  • Participants
  • Parent commits 158162d

Comments (0)

Files changed (1)

 	 (console-set-foreground-colour (window-console win) (colour fg)))
      (if bg
 	 (console-set-background-colour (window-console win) (colour bg)))
-     (console-print-left (window-console win) winx winy :set
-			 (make-coloured-string str :win win))
+     (console-print (window-console win) winx winy 
+                    (make-coloured-string str :win win))
      (if fg
 	 (console-set-foreground-colour (window-console win)
 					(colour (window-foreground win))))
 	 (console-set-background-colour (window-console win)
 					(colour (window-background win)))))
     (t
-     (console-print-left (window-console win) winx winy :set
-			 (make-coloured-string str :win win)))))
+     (console-print (window-console win) winx winy
+                    (make-coloured-string str :win win)))))
 
 
 
   (declare (string fmt))
   (console-rect *root* 0 (1- (console-get-height *root*))
 		(console-get-width *root*) 1 t :set)
-  (console-print-left *root* 0 (1- (console-get-height *root*))
-	 :set (format nil "~vA" (console-get-width *root*)
-		      (apply #'format nil fmt args))))
+  (console-print *root* 0 (1- (console-get-height *root*))
+                 (format nil "~vA" (console-get-width *root*)
+                         (apply #'format nil fmt args))))
 
 
 ;;;===========================================================================
   
 (defmethod draw-string-at :after ((win <Dialog-Window>) str winx winy &key
 				  &allow-other-keys)
-  (console-print-left (dialog-console win) winx winy :set
-		      (make-coloured-string str :dialog? t :win win)))
+  (console-print (dialog-console win) winx winy
+                 (make-coloured-string str :dialog? t :win win)))
 
 
 (defmethod send-to-window ((win <Dialog-Window>) (data (eql :hover))