Display2: update

	modified:   bin/wish/Display2/Display2Init.wish
	modified:   bin/wish/Display2/tclIndex
	modified:   src/Tools/Integration/Display2/src/wish/Display2Init.wish

diff --git a/bin/wish/Display2/Display2Init.wish b/bin/wish/Display2/Display2Init.wish
index 0f7db00..7f45c6b 100755 (executable)
--- a/bin/wish/Display2/Display2Init.wish
+++ b/bin/wish/Display2/Display2Init.wish
@@ -225,6 +225,11 @@ proc display2InitVar {} {
 }
 
 proc display2InitVarSet  { filename } {
+       if [ file isdirectory "~/.Eos/ ] {
+               #
+       } else {
+               file mkdir "~/.Eos"     
+       }
        set fpt [ open $filename a ]
 
 puts $fpt {

diff --git a/bin/wish/Display2/tclIndex b/bin/wish/Display2/tclIndex
index 8fd9302..003cb8b 100644 (file)
--- a/bin/wish/Display2/tclIndex
+++ b/bin/wish/Display2/tclIndex
@@ -33,6 +33,9 @@ set auto_index(roiLineInfoFrameCreate) [list source [file join $dir Display2Info
 set auto_index(roiSplineInfoFrameCreate) [list source [file join $dir Display2InfoROI.wish]]
 set auto_index(roiRectangleInfoFrameCreate) [list source [file join $dir Display2InfoROI.wish]]
 set auto_index(roiAnalysisFrameCreate) [list source [file join $dir Display2InfoROI.wish]]
+set auto_index(display2SetVar) [list source [file join $dir Display2Init.wish]]
+set auto_index(display2InitVar) [list source [file join $dir Display2Init.wish]]
+set auto_index(display2InitVarSet) [list source [file join $dir Display2Init.wish]]
 set auto_index(display2Init) [list source [file join $dir Display2Init.wish]]
 set auto_index(display2MenuSet) [list source [file join $dir Display2Menu.wish]]
 set auto_index(menuFileCreate) [list source [file join $dir Display2Menu.wish]]

diff --git a/src/Tools/Integration/Display2/src/wish/Display2Init.wish b/src/Tools/Integration/Display2/src/wish/Display2Init.wish
index 0f7db00..7f45c6b 100755 (executable)
--- a/src/Tools/Integration/Display2/src/wish/Display2Init.wish
+++ b/src/Tools/Integration/Display2/src/wish/Display2Init.wish
@@ -225,6 +225,11 @@ proc display2InitVar {} {
 }
 
 proc display2InitVarSet  { filename } {
+       if [ file isdirectory "~/.Eos/ ] {
+               #
+       } else {
+               file mkdir "~/.Eos"     
+       }
        set fpt [ open $filename a ]
 
 puts $fpt {