1 |
# $Id$ |
# $Id$ |
2 |
|
|
3 |
# Evaluation récusrive de GeOXML |
# Evaluation récursive de GeOXML |
4 |
# Petit exemple |
# Petit exemple |
5 |
|
|
6 |
|
|
54 |
|
|
55 |
|
|
56 |
proc GeoXmlFileSelect { } { |
proc GeoXmlFileSelect { } { |
57 |
set f [tk_getOpenFile -title "Sélectionner un fichier" -initialdir ../exemple] |
set f [tk_getOpenFile -title "Sélectionner un fichier" -initialdir ../exemple] |
58 |
} |
} |
59 |
|
|
60 |
set cw .top |
set cw .top |
70 |
|
|
71 |
set f [GeoXmlFileSelect] |
set f [GeoXmlFileSelect] |
72 |
|
|
73 |
debug [read [open [file rootname $f]]] |
#debug [read [open [file rootname $f]]] |
74 |
debug [read [open $f]] |
#debug [read [open $f]] |
75 |
|
|
76 |
set xslsheet ../xsl/geo2tcl.xsl |
set xslsheet ../xsl/geo2tcl.xsl |
77 |
catch { eval "exec xsltproc $xslsheet $f > test.tcl " } xslerror |
catch { eval "exec xsltproc $xslsheet $f > test.tcl " } xslerror |