Version 10: Fixed a bug with text brushes and ctrl-leftmouse.

Author: Charles Campbell

autoload/DrawIt.vim

@@ -1,10 +1,10 @@
-" DrawIt.vim: a simple way to draw things in Vim -- just put this file in
+" DrawIt.vim: a simple way to draw things in Vim
 "
-" Maintainer:	Charles E. Campbell, Jr.  ([email protected])
-" Authors:	Charles E. Campbell, Jr. ([email protected] - NOSPAM)
+" Maintainer:	Charles E. Campbell, Jr.
+" Authors:	Charles E. Campbell, Jr. <[email protected]> - NOSPAM
 "   		Sylvain Viart ([email protected])
-" Version:	9
-" Date:		Oct 10, 2007
+" Version:	10
+" Date:		Jun 12, 2008
 "
 " Quick Setup: {{{1
 "              tar -oxvf DrawIt.tar
@@ -49,7 +49,7 @@ set cpo&vim
 if !exists("s:saveposn_count")
  let s:saveposn_count= 0
 endif
-let g:loaded_DrawIt= "v9"
+let g:loaded_DrawIt= "v10"
 "DechoTabOn
 
 " =====================================================================
@@ -1573,6 +1573,9 @@ fun! s:CLeftStart()
   if s:cleft_height < 0
    let s:cleft_height= -s:cleft_height
   endif
+  if exists("s:cleft_oldblock")
+   unlet s:cleft_oldblock
+  endif
 "  call Decho("blocksize: ".s:cleft_height."x".s:cleft_width)
   noremap <silent> <c-leftdrag>    :<c-u>call <SID>CLeftDrag()<cr>
   noremap <silent> <c-leftrelease> <leftmouse>:<c-u>call <SID>CLeftRelease()<cr>
@@ -1592,10 +1595,6 @@ fun! s:CLeftDrag()
 "   call Decho("draw prior contents<".s:cleft_oldblock.">")
    exe 'let @'.b:drawit_brush.'=s:cleft_oldblock'
    call s:PutBlock(b:drawit_brush,1)
-  else
-   " first move; put blanks where text had been
-"   call Decho("first move, put blanks where text was")
-   norm! gvr 
   endif
 
   " move cursor to <leftmouse> position
@@ -1613,6 +1612,7 @@ fun! s:CLeftDrag()
    exe "silent! norm! \<c-v>".s:cleft_height.'j"'.b:drawit_brush.'y'
   endif
   exe "let s:cleft_oldblock= @".b:drawit_brush
+"  call Decho("s:cleft_oldblock=@".b:drawit_brush)
 "  call Decho("cleft_height=".s:cleft_height." cleft_width=".s:cleft_width)
 "  call Decho("save contents<".s:cleft_oldblock.">")
 

doc/DrawIt.txt

@@ -1,4 +1,4 @@
-*drawit.txt*	The DrawIt Tool				Sep 14, 2007
+*drawit.txt*	The DrawIt Tool				Jun 12, 2008
 
 Authors:  Charles E. Campbell, Jr.  <[email protected]> {{{1
           Sylvain Viart             <[email protected]>
@@ -353,6 +353,8 @@ DRAWIT MODES						*drawit-modes* {{{2
 ==============================================================================
 4. History						*drawit-history* {{{1
 
+	10 Jun 12, 2008	* Fixed a bug with ctrl-leftmouse (which was leaving
+			  a space in the original selected text)
 	9 Sep 14, 2007 * Johann-Guenter Simon fixed a bug with s:DrawErase();
 	                 it called SetDrawIt() and that call hadn't been 
 			 updated to account for the new b:di_ellipse

plugin/DrawItPlugin.vim

@@ -5,8 +5,8 @@
 "             You may also use visual-block mode to select endpoints and
 "             draw lines, arrows, and ellipses.
 "
-" Date:			Jul 18, 2006
-" Maintainer:	Charles E. Campbell, Jr.  ([email protected])
+" Date:			May 20, 2008
+" Maintainer:	Charles E. Campbell, Jr.  <[email protected]>
 " Copyright:    Copyright (C) 1999-2005 Charles E. Campbell, Jr. {{{1
 "               Permission is hereby granted to use and distribute this code,
 "               with or without modifications, provided that this copyright
@@ -31,7 +31,7 @@
 if &cp || exists("g:loaded_DrawItPlugin")
  finish
 endif
-let g:loaded_DrawItPlugin = 1
+let g:loaded_DrawItPlugin = "v10"
 let s:keepcpo             = &cpo
 set cpo&vim