src/DrawResources/DrawDefault

   1 set tcl_interactive 1
   2 set tcl_precision 17
   3
   4 if [info exists library] {
   5   source [file join $library init.tcl]
   6 }
   7 set dir ""
   8 if { [info exists env(DRAWHOME) ] } {
   9   set dir $env(DRAWHOME)
  10 } else {
  11   if { [info exists env(CASROOT) ] } {
  12     set dir [file join $env(CASROOT) src DrawResources]
  13   } else {
  14     puts " CASROOT is Mandatory to Run OpenCascade"
  15   }
  16 }
  17
  18 # san - 02/08/2002 - In Tcl8.3 it is no longer necessary to load Tix explicitly on WNT
  19 #if { [info exists env(STATION)] } {
  20 #  if { $env(STATION) == "wnt" } {
  21 #    load tix8183.dll Tix
  22 #  }
  23 #}
  24
  25 if { [file exist  $dir] } {
  26   source [file join $dir StandardCommands.tcl]
  27   source [file join $dir StandardViews.tcl]
  28   source [file join $dir Geometry.tcl]
  29
  30   set stationname $tcl_platform(platform)
  31   if [info exists tk_version] {
  32     source [file join $dir DrawTK.tcl]
  33     # setup the icon for main window
  34     if { ${stationname} == "windows" } {
  35       wm iconbitmap . -default [file join $dir lamp.ico]
  36     }
  37   }
  38
  39   if { [ file readable [ file join $dir DrawAppliInit ] ] } {
  40     source [file join $dir DrawAppliInit ]
  41   }
  42 }