Turbo Toolbox/Turbo_Toolbox.iso/sharew/dobject/dir.do

Text File | 1991-07-25 | 154 b | 8 lines

/*
    demonstrate the String::dir() method
*/
w = new(Window,1,7,7," Select File ",5,5,10,40);
s= dir("","*.do");
remove(w);
? "your choice was ",s;