The new version 1.08 contains a slight bug wrt keeping track of the
directory to use especially with Tcl8.0a1/2; my fix is included here as
a zipped patch and text. The cd to dir method is probably wrong, but
it's easy. An alternative would be to have a global set of vars
vTcl(filedlg,dir) vTcl(filedlg,ext) etc and these would have to be
initialised & written to the recovery file.
[ Section: 1/1 File: vt108.diz Encoder: Turnpike Version 3.02 ]
begin 644 vt108.diz
M'XL("%@1!C,``'9T,3`X+F1I9@#-5$M/VT`0/CM2_L.P\J$)V=!U4@BY5K6$
MA,JA2#TD%C+>#5G8V):]CD&5_WOW88O8<9%Z`#&'T>[,?#NOSZ9\LP&<1;"7
MF$R_+LX$OS_;<,&F,A*-<=NR#@?C\;@WWKDM&/CL'@@!;[8DWI(L@%Q>7@P'
M&./^UQP_XQ8S-QBR],YKS+@M-J]'+B:>-P-K@:X\L9?)L]$O1I=&;ROX<Q@<
MIBF+*22%3`L)*&<2]K>1^.+R$;C-:1VC!E,-!R?F$(4RVK;?TF#=#*P2]6@-
M_W[ST[_SKZY_C*`,#J-5OAQ<$^_:](?>2"0YLVX[,MOM'-09?VRW3@=5=QY1
M6*-56M)@C2J#.?GHN=!_49:*AW[6UHY^XM;._^5N`VO3=[98DC?I._,F\V]'
MY,U+KN?G[A+*VE/48N9W9&W/6#[=/3!YHR)]?<>4;<)"2/8L69SS)`8SF77#
MXZY@'G/)0V$7H"_Z%'1S5EU#'NY["NXK[9>*?.?2<,N0,5ED<4.:GAXJ8"+O
M5/^;QS0I(=\J-=6,G7;AY0XDEZJ45S<@UYB0I8I>\?G1%_MI5DQY!O8+1I]J
MOP=UM7>^,EJ&7*A!F[](FB6/+)(3[1BAX.TVU.44'.?U_V7?4^GB<*=WIZ\H
3,&%:G#[BO`=7_@(,,;"!>P<`````
`
end
sum -r/size 22745/738 section (from "begin" to "end")
sum -r/size 45468/514 entire input file
diff -rc vt-1.08/lib/file.tcl vt-1.08h/lib/file.tcl
*** vt-1.08/lib/file.tcl Tue Feb 11 23:12:18 1997
--- vt-1.08h/lib/file.tcl Fri Feb 14 23:11:26 1997
***************
*** 217,223 ****
key,x key,y key,w key,h} {
append output "set vTcl($i) $vTcl($i)\n"
}
! catch {
set file [open $vTcl(CONF_FILE) w]
puts $file $output
close $file
--- 217,224 ----
key,x key,y key,w key,h} {
append output "set vTcl($i) $vTcl($i)\n"
}
! append output "catch {cd \"[pwd]\"}\n"
! catch {
set file [open $vTcl(CONF_FILE) w]
puts $file $output
close $file
diff -rc vt-1.08/lib/filedlg.tcl vt-1.08h/lib/filedlg.tcl
*** vt-1.08/lib/filedlg.tcl Tue Feb 11 23:12:18 1997
--- vt-1.08h/lib/filedlg.tcl Fri Feb 14 23:38:16 1997
***************
*** 32,45 ****
switch $mode {
open {
set file [tk_getOpenFile -defaultextension .tcl \
! -initialfile $initfile]
}
save {
set file [tk_getSaveFile -defaultextension .tcl \
! -initialfile $initfile]
}
- return $file
}
} else {
Window show .vTcl.file
wm title .vTcl.file "$title"
--- 32,46 ----
switch $mode {
open {
set file [tk_getOpenFile -defaultextension .tcl \
! -initialdir "[pwd]"]
}
save {
set file [tk_getSaveFile -defaultextension .tcl \
! -initialdir "[pwd]" -initialfile [file tail
"$vTcl(project,file)"]]
}
}
+ catch {cd [file dirname "$file"]}
+ return $file
} else {
Window show .vTcl.file
wm title .vTcl.file "$title"
--
Robin Becker
