#!/usr/bin/wish
package require wylib

set fname /tmp/test

while {[sfile::dia "Select your file:" -dest fname] != {}} {
    puts "fname:$fname"
}
