home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / libplugin / libgui.tcl < prev    next >
Encoding:
Text File  |  2000-11-02  |  634 b   |  22 lines
  1.  
  2. namespace eval ::libgui:: {}
  3.  
  4. proc ::libgui::createXuiFromFile {filename} {
  5.     if ![file exists $filename] {
  6.     error "File '$filename' does not exists while trying to create XUI"
  7.     }
  8.     set f [open $filename]
  9.     set domDoc [dom::DOMImplementation    parse [read $f]]
  10.     set doc [::globalXuiBuilder renderDocument $domDoc]
  11.     dom::DOMImplementation destroy $domDoc
  12.     close $f          
  13.     return $doc
  14. }
  15.  
  16. proc ::libgui::createXuiFromText {text} {
  17.     set domDoc [dom::DOMImplementation    parse "<bla>$text</bla>"]
  18.     set doc [::globalXuiBuilder renderDocument $domDoc]
  19.     dom::DOMImplementation destroy $domDoc
  20.     return $doc
  21. }
  22.