Changeset 1150 for branches/sandbox/expgui

Timestamp:

Jul 6, 2011 3:35:40 PM (10 years ago)

Author:

toby

Message:

update documentation

File:

• branches/sandbox/expgui (modified) (2 diffs)

branches/sandbox/expgui

@@ -3307 +3307 @@
             DisplayHistogram \
             1  expgui3.html ""}
-    {singFrame   Single \
-            "source  [file join $expgui(scriptdir) single.tcl]; MakeSinglePane" \
-            DisplaySingle \
-            1  expguiSing.html ""}
     {fracFrame    Scaling \
             MakeScalingPane \
@@ -3336 +3332 @@
             0  expgui7.html ODF}
 }
+
+# future expansion: single crystal panel goes here -- if present
+catch {
+   source  [file join $expgui(scriptdir) single.tcl]
+   set expgui(notebookpagelist) [linsert $expgui(notebookpagelist) 3 \
+       {singFrame   Single \
+       "MakeSinglePane" \
+       DisplaySingle \
+       1  expguiSing.html ""}]
+} err
+
 
 pack [NoteBook .n -bd 2] -expand yes -fill both