update for latest cvs

diff --git a/Readme.txt b/Readme.txt
index 02c4a809a19e18da0dcd65c6bd1e98327319e7b2..c7c2756a69770f5e0f950e84ac735186304cd4f0 100644 (file)
--- a/Readme.txt
+++ b/Readme.txt
@@ -14,7 +14,7 @@ Since 8.4 is still in alpha, the APIs on which this extension depends may of
 course change.  If that happens, it will of course require changes to this
 extension, until the point at which 8.4 goes final, when only
 backwards-compatible changes should occur.  Currently it requires a version
-of Tcl 8.4a4 or newer from September 5th 2001 or newer (if it compiles
+of Tcl 8.4a4 or newer from September 7th 2001 or newer (if it compiles
 without warning, you should be fine).
 
 Using this extension, the editor Alphatk can actually auto-mount, view and
@@ -24,8 +24,8 @@ do things like:
 
     file copy ftp://ftp.foo.com/pub/readme.txt .
 
-With 'tkhtml', writing a web-browser in Tcl should be pretty trivial with
-this extension.    
+With 'tkhtml' and this extension, writing a web-browser in Tcl should be 
+pretty trivial.
 
 None of the vfs's included are 100% complete or optimal yet, so if only for
 that reason, code contributions are very welcome.  Many of them still

diff --git a/generic/vfs.c b/generic/vfs.c
index b41fc78aa7f157d1d4f171421747106051f4b4f0..4df5ac3f89e4ca3d18924e2a5b0ee259432d98fa 100644 (file)
--- a/generic/vfs.c
+++ b/generic/vfs.c
@@ -241,11 +241,11 @@ VfsFilesystemObjCmd(dummy, interp, objc, objv)
     int index;
 
     static char *optionStrings[] = {
-       "info", "mount", "unmount", 
+       "info", "mount", "unmount", "volumeschanged", 
        NULL
     };
     enum options {
-       VFS_INFO, VFS_MOUNT, VFS_UNMOUNT
+       VFS_INFO, VFS_MOUNT, VFS_UNMOUNT, VFS_VOLUMESCHANGED,
     };
 
     if (objc < 2) {
@@ -276,6 +276,7 @@ VfsFilesystemObjCmd(dummy, interp, objc, objv)
                              TCL_LEAVE_ERR_MSG | TCL_GLOBAL_ONLY) == NULL) {
                return TCL_ERROR;
            }
+           Tcl_FSMountsChanged(&vfsFilesystem);
            break;
        }
        case VFS_INFO: {
@@ -322,8 +323,18 @@ VfsFilesystemObjCmd(dummy, interp, objc, objv)
            path = Tcl_FSGetNormalizedPath(interp, objv[2]);
            res = Tcl_UnsetVar2(vfsInterp, "vfs::mount", Tcl_GetString(path), 
                                TCL_LEAVE_ERR_MSG | TCL_GLOBAL_ONLY);
+           if (res == TCL_OK) {
+               Tcl_FSMountsChanged(&vfsFilesystem);
+           }
            return res;
        }
+       case VFS_VOLUMESCHANGED: {
+           if (objc > 2) {
+               Tcl_WrongNumArgs(interp, 2, objv, NULL);
+               return TCL_ERROR;
+           }
+           Tcl_FSMountsChanged(&vfsFilesystem);
+       }
     }
     return TCL_OK;
 }