ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/Development/ray/src/util/getfile3.6.tcl
(Generate patch)

Comparing ray/src/util/getfile3.6.tcl (file contents):
Revision 2.5 by greg, Fri Oct 28 20:14:43 1994 UTC vs.
Revision 2.9 by greg, Mon Jul 24 13:31:22 1995 UTC

# Line 23 | Line 23 | proc getfile args {            # get filename interactively
23          set dograb 0
24          set curdir .
25          set curpat *
26 +        set curfile {}
27          set transient 1
28          # Get options
29          while {[llength $args]} {
# Line 60 | Line 61 | proc getfile args {            # get filename interactively
61          # Create widgets
62          catch {destroy $w}
63          if $topwin {
64 <                toplevel $w -geometry 400x410
64 >                toplevel $w -width 400 -height 410
65                  wm title $w "File Picker"
66                  wm iconname $w "Files"
67                  wm minsize $w 400 300
68          } else {
69 <                frame $w -geometry 400x410
69 >                frame $w -width 400 -height 410
70                  pack $w
71          }
72          if $dograb { grab $w }
# Line 160 | Line 161 | proc getfile args {            # get filename interactively
161  
162   proc update_dir w {                     # Update working directory
163          global curdir curpat
164 <        if {"$curpat" == ""} {
164 >        if {"$curpat" == {}} {
165                  set curpat *
166          }
167          if {"$curdir" == {}} {set curdir {~}}
# Line 172 | Line 173 | proc update_dir w {                    # Update working directory
173                  $w.de config -foreground $oldcol
174          }
175          set curdir [pwd]
176 +        set offset [expr [string length $curdir] - 32]
177 +        if {$offset > 0} {
178 +                $w.de view [expr $offset + \
179 +                        [string first / [string range $curdir $offset end]] \
180 +                                + 1]
181 +        }
182          $w.fm.fl delete 0 end
183          set ls ../
184 <        foreach f [glob *] {
184 >        foreach f [glob -nocomplain *] {
185                  if [file isdirectory $f] {
186                          lappend ls $f/
187                  }
# Line 188 | Line 195 | proc update_dir w {                    # Update working directory
195   }
196  
197  
198 < proc set_curfile {w {sp ""}} {          # change current file selection
198 > proc set_curfile {w {sp {}}} {          # change current file selection
199          global curdir curfile
200          set f [$w.fm.fl get [$w.fm.fl curselection]]
201          if [string match */ $f] {
# Line 196 | Line 203 | proc set_curfile {w {sp ""}} {         # change current file
203                  update_dir $w
204          } else {
205                  set curfile $f
206 <                if {"$sp" > ""} {
206 >                if {"$sp" != {}} {
207                          $sp $curdir/$curfile
208                  }
209          }
# Line 205 | Line 212 | proc set_curfile {w {sp ""}} {         # change current file
212  
213   proc chk_select w {                     # check if current selection is file
214          set s [$w.fm.fl curselection]
215 <        if {"$s" > "" && [file isfile [$w.fm.fl get $s]]} {
215 >        if {"$s" != {} && [file isfile [$w.fm.fl get $s]]} {
216                  $w.vi configure -state normal
217          } else {
218                  $w.vi configure -state disabled

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)