Searched refs:dirName (Results 1 - 6 of 6) sorted by relevance
| /ast/src/lib/libtk/library/demos/ |
| H A D | image2.tcl | 16 global dirName
19 foreach i [lsort [glob [file join $dirName *]]] {
34 global dirName
36 set file [file join $dirName [$w.f.list get @$x,$y]]
57 set dirName [file join $tk_library demos images]
58 entry $w.dirName -width 30 -textvariable dirName
59 bind $w.dirName <Return> "loadDir $w"
63 pack $w.dirLabel $w.dirName $w.spacer1 $w.fileLabel $w.f -side top -anchor w
|
| /ast/src/lib/libtksh/tcl/ |
| H A D | tclUnixFile.c | 158 TclChdir(interp, dirName)
160 char *dirName; /* Path to new working directory. */
166 if (chdir(dirName) != 0) {
169 dirName, "\": ", Tcl_PosixError(interp), (char *) NULL);
668 char *dirName, *patternEnd = tail;
687 dirName = ".";
689 dirName = dirPtr->string;
691 if ((stat(dirName, &statBuf) != 0) || !S_ISDIR(statBuf.st_mode)) {
710 d = opendir(dirName);
|
| H A D | tclGlob.c | 75 char *openBrace, *closeBrace, *name, *dirName;
89 dirName = ".";
91 dirName = dir;
93 if ((stat(dirName, &statBuf) != 0) || !S_ISDIR(statBuf.st_mode)) {
177 d = opendir(dirName);
181 dirName, "\": ", Tcl_PosixError(interp), (char *) NULL);
74 char *openBrace, *closeBrace, *name, *dirName; local
|
| H A D | tclCmdAH.c | 275 char *dirName;
281 " dirName\"", (char *) NULL);
286 dirName = argv[1];
288 dirName = "~";
290 dirName = Tcl_TranslateFileName(interp, dirName, &buffer);
291 if (dirName == NULL) {
294 result = TclChdir(interp, dirName);
271 char *dirName; local
|
| H A D | tclCmdMZ.c | 72 char *dirName;
80 dirName = TclGetCwd(interp);
81 if (dirName == NULL) {
84 interp->result = dirName;
71 char *dirName; local
|
| /ast/src/lib/libtksh/include/ |
| H A D | tkshlib.h | 216 EXTERN int TclChdir(Tcl_Interp *interp, char *dirName);
|
Completed in 20 milliseconds