| # | Line 148 | Line 148 | proc load_vars {f {vl all}} { # load RIF variables | |
|---|---|---|
| 148 | } | |
| 149 | if {"$vl" == "all" && ! [chksave]} {return 0} | |
| 150 | set curmess {Please wait...} | |
| 151 | < | update idletasks |
| 151 | > | update |
| 152 | if [catch {exec rad -n -w -e $f >& /usr/tmp/ro[pid]}] { | |
| 153 | set curmess [exec cat /usr/tmp/ro[pid]] | |
| 154 | exec rm -f /usr/tmp/ro[pid] | |
| # | Line 273 | Line 273 | proc newnew f { # create a new RIF | |
| 273 | proc do_file w { | |
| 274 | global rifname readonly rif_glob curfile curpat | |
| 275 | if {"$w" == "done"} { | |
| 276 | + | cd [file dirname $rifname] |
| 277 | set rif_glob $curpat | |
| 278 | return | |
| 279 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |