On Tue, 8 Apr 1997, Rick Macdonald wrote:
> o If you are editing a function, and double click or choose "Edit" on
> the same funciton in the function window, Poof! The edits that you
> had made are gone and the function is reverted back to where it
> started from.
Here's a diff that fixes this bug:
diff -c -r1.3 proc.tcl
*** proc.tcl 1997/04/08 03:17:51 1.3
--- proc.tcl 1997/04/09 04:03:03
***************
*** 23,28 ****
--- 23,31 ----
proc vTclWindow(post).vTcl.proc {args} {
global vTcl
+ if {$vTcl(proc,[lindex $args 0],chg) != 0} {
+ return
+ }
set base [lindex $args 0]
set iproc [lindex $args 1]
set iargs [lindex $args 2]
***************
*** 204,214 ****
-side right
}
- proc vTclWindow(pre).vTcl.proc {args} {
- global vTcl
- set vTcl(proc,[lindex $args 0],chg) 0
- }
-
proc vTclWindow.vTcl.proc {args} {
global vTcl
set base "[lindex $args 0]"
--- 207,212 ----
***************
*** 216,221 ****
--- 214,220 ----
if {[winfo exists $base]} {
wm deiconify $base; return
}
+ set vTcl(proc,[lindex $args 0],chg) 0
toplevel $base -class vTcl
wm transient $base .vTcl
wm focusmodel $base passive
-stewart-
