src/DrawResources/OCAFDemo.tcl

   1 # Copyright (c) 1999-2012 OPEN CASCADE SAS
   2 #
   3 # The content of this file is subject to the Open CASCADE Technology Public
   4 # License Version 6.5 (the "License"). You may not use the content of this file
   5 # except in compliance with the License. Please obtain a copy of the License
   6 # at http://www.opencascade.org and read it completely before using this file.
   7 #
   8 # The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
   9 # main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  10 #
  11 # The Original Code and all software distributed under the License is
  12 # distributed on an "AS IS" basis, without warranty of any kind, and the
  13 # Initial Developer hereby disclaims all such warranties, including without
  14 # limitation, any warranties of merchantability, fitness for a particular
  15 # purpose or non-infringement. Please see the License for the specific terms
  16 # and conditions governing the rights and limitations under the License.
  17
  18 # first , Opening Document write on Unix
  19 puts "First , Opening Document write on Unix "
  20 set Data [file join $env(CASROOT) src TCAF]
  21
  22 set DocName [file join ${Data} FileUnix.std]
  23 if [ file exists ${DocName}  ] {
  24
  25     Open ${DocName} Unix
  26     DumpDocument Unix
  27 } else {
  28     puts "  ${DocName} does not exist "
  29 }
  30
  31 # first , Opening Document write on WindowsNT
  32 puts ""
  33 puts "now , Opening Document write on WindowsNT "
  34 puts ""
  35
  36 set DocName [file join ${Data} FileWNT.std]
  37 puts "trying to Open : ${DocName}  "
  38 if  [ file exists  ${DocName} ] {
  39     catch {  Open ${DocName} WNT } filesta
  40     if { ${filesta} == "" } {
  41         DumpDocument WNT
  42     } else {
  43         puts " Problem when trying to read ${DocName}  ==> $filesta "
  44     }
  45 } else {
  46     puts "  ${DocName} does not exist "
  47 }
  48 puts "List the Document in the Session :"
  49 ListDocuments
  50
  51 puts ""
  52 puts "now , We create  new Document "
  53 puts ""
  54 NewDocument New MDTV-Standard
  55 UndoLimit New 5
  56 NewCommand New
  57
  58 Label   New  0:20
  59 SetReal New  0:20 .12345
  60
  61
  62 set newName /tmp/New.std
  63 if { [info exists env(TEMP)] } {
  64     set newName $env(TEMP)/New.std
  65 }
  66 SaveAs New  ${newName}
  67 puts " "
  68 puts "List the Document in the Session :"
  69 ListDocuments
  70 puts " "
  71 puts "We close it"
  72 Close  New
  73 puts "List the Document in the Session :"
  74 ListDocuments
  75
  76 puts "Verify if the new Document is saved : ${newName} "
  77 if   [file exists ${newName}] {
  78    puts " ... exists : Yes "
  79    puts " ... size   : [file size ${newName}]"
  80
  81    puts " "
  82    puts " We try to read it :"
  83    Open ${newName} ReadDoc
  84    DumpDocument ReadDoc
  85     puts "List the Document in the Session :"
  86     ListDocuments
  87
  88 }  else {
  89    puts " ... exists : No "
  90 }
  91 puts " "
  92 puts " "
  93 puts "end "