Changeset 23f300d in tol for tolbase/lib/toltk/tolpkg.tcl
- Timestamp:
- Feb 1, 2012, 7:45:19 PM (15 years ago)
- Branches:
- 1941-docker-image-to-test, devel, master
- Children:
- e70625a
- Parents:
- 2a670e5
- File:
-
- 1 edited
-
tolbase/lib/toltk/tolpkg.tcl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
tolbase/lib/toltk/tolpkg.tcl
r2a670e5 r23f300d 32 32 33 33 proc ::TolPkg::BackupPackage { p {delete 0}} { 34 # backup is not working, some problem has being reported on Windows 7 35 return 1 34 36 set path [ GetPkgDirectory $p ] 35 37 if { [ file exists $path ] } { … … 44 46 45 47 proc ::TolPkg::RestoreBackup { p { delete 0 } } { 48 # backup is not working, some problem has being reported on Windows 7 49 return 1 46 50 set path [ GetPkgDirectory $p ] 47 51 set bak "${path}.bak" … … 55 59 56 60 proc ::TolPkg::DeleteBackup { p } { 61 # backup is not working, some problem has being reported on Windows 7 62 return 1 57 63 set path [ GetPkgDirectory $p ] 58 64 set bak "${path}.bak"
Note: See TracChangeset
for help on using the changeset viewer.
