Re: Undo problems.

[Stewart Allen]

On Wed, 12 Feb 1997 [EMAIL PROTECTED] wrote:

> Hello,
>      First,  vtcl is great.
>   
>   I just grabbed v 1.08 of vtcl.  I'm on HPUX.   wish4.2.
> 
>    I 
> 
> Make a top level.
> Add a frame.
> Add a canvas in the frame.
> Do an undo to get   rid  of the Canvas.
> 
> Next I get a continuing stream of error messages saying
> that the  ' bad  window path name' 

 Thanks for the bug report. I've tracked it down and squashed it.
 Instead of waiting for 1.09, I'll probably put out an interim
 release (1.08p1) after the first week of bug fixes.

 For those of you that do diffs, here it is:


*** widget.tcl  1997/02/11 22:21:15     1.1.1.1
--- widget.tcl  1997/02/13 02:58:00     1.2
***************
*** 94,99 ****
--- 94,100 ----
  
  proc vTcl:active_widget {target} {
      global vTcl
+     if {$target == ""} {return}
      if {$vTcl(w,widget) != "$target"} {
          vTcl:select_widget $target
          vTcl:attrbar_color $target
***************
*** 445,457 ****
      if {$type != "toplevel"} {
          append do "$vTcl(w,def_mgr) $new_widg $vTcl($vTcl(w,def_mgr),insert);"
      }
!     append do "vTcl:setup_bind_tree $new_widg"
      if {$undo == ""} {
!         set undo "destroy $new_widg"
      }
      vTcl:push_action $do $undo
      update idletasks
-     vTcl:active_widget $new_widg
      set vTcl(mgrs,update) yes
      return $new_widg
  }
--- 446,458 ----
      if {$type != "toplevel"} {
          append do "$vTcl(w,def_mgr) $new_widg $vTcl($vTcl(w,def_mgr),insert);"
      }
!     append do "vTcl:setup_bind_tree $new_widg; "
!     append do "vTcl:active_widget $new_widg; "
      if {$undo == ""} {
!         set undo "destroy $new_widg; vTcl:active_widget [list $vTcl(w,widget)];"
      }
      vTcl:push_action $do $undo
      update idletasks
      set vTcl(mgrs,update) yes
      return $new_widg
  }


 -stewart-