Changeset 7 for trunk/tcl/scripts
- Timestamp:
- Mar 25, 2005, 8:22:06 AM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tcl/scripts/library.tcl
r6 r7 57 57 } 58 58 59 # otherwise, try to open the file and create its LibraryObj 60 set fid [::open $fname r] 61 set info [read $fid] 62 close $fid 59 if {[regexp {^<\?[Xx][Mm][Ll]} $fname]} { 60 set info $fname 61 } else { 62 # otherwise, try to open the file and create its LibraryObj 63 set fid [::open $fname r] 64 set info [read $fid] 65 close $fid 66 } 63 67 64 68 set obj [Rappture::LibraryObj ::#auto $info]
Note: See TracChangeset
for help on using the changeset viewer.