/[geocaml]/geocaml/src/geoxml.tcl
ViewVC logotype

Diff of /geocaml/src/geoxml.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by gmariano, Wed Sep 10 10:32:15 2003 UTC revision 1.4 by gmariano, Wed Sep 10 19:26:28 2003 UTC
# Line 1  Line 1 
1  # $Id$  # $Id$
2    
3  # Evaluation récusrive de GeOXML  # Evaluation récursive de GeOXML
4  # Petit exemple  # Petit exemple
5    
6    
# Line 54  proc GeoXML { args } { Line 54  proc GeoXML { args } {
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
# Line 70  set cw $cw.start Line 70  set cw $cw.start
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

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26