TK-Fileload from last Directory

HPW · Post by **HPW** » Thu Sep 23, 2004 11:04 am

A little modification in newlisp-tk.tcl allows the Fileopen-Dialog to open in the lastLoadedFile-directory by adding a '-initialdir $lastLoadedFile'

Code: Select all

proc LoadFile {} {

	global statusText FileTypeList lastLoadedFile remoteFlag

	if {$remoteFlag == 0 } {
		set spec [tk_getOpenFile -title "Load a newLISP source file" \
			-filetypes $FileTypeList -initialdir $lastLoadedFile]
	} else { FileDialog "load" "Load a newLISP source file" . ; return }
		

	if { $spec == "" } { return }

	set cd [file dirname $spec]

        NewlispEvaluate "(silent (load \"$spec\") (change-dir \"$cd\"))"

        set lastLoadedFile $spec
	set statusText "Loaded file $spec"
	}

Maybe a matter of personal taste, but I find it annoying that it always go back to c:\newlisp.

Lutz · Post by **Lutz** » Thu Sep 23, 2004 12:43 pm

Thanks, I will put this in a next version

Lutz

HPW · Post by **HPW** » Wed Oct 06, 2004 9:15 am

8.2.1 still on tk 1.17 without -initialdir $lastLoadedFile!
;-)

Lutz · Post by **Lutz** » Wed Oct 06, 2004 12:36 pm

just got it in now for 1.18

Lutz