Changeset 1150 for branches/sandbox/expgui
- Timestamp:
- Jul 6, 2011 3:35:40 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/sandbox/expgui
r1131 r1150 3307 3307 DisplayHistogram \ 3308 3308 1 expgui3.html ""} 3309 {singFrame Single \3310 "source [file join $expgui(scriptdir) single.tcl]; MakeSinglePane" \3311 DisplaySingle \3312 1 expguiSing.html ""}3313 3309 {fracFrame Scaling \ 3314 3310 MakeScalingPane \ … … 3336 3332 0 expgui7.html ODF} 3337 3333 } 3334 3335 # future expansion: single crystal panel goes here -- if present 3336 catch { 3337 source [file join $expgui(scriptdir) single.tcl] 3338 set expgui(notebookpagelist) [linsert $expgui(notebookpagelist) 3 \ 3339 {singFrame Single \ 3340 "MakeSinglePane" \ 3341 DisplaySingle \ 3342 1 expguiSing.html ""}] 3343 } err 3344 3338 3345 3339 3346 pack [NoteBook .n -bd 2] -expand yes -fill both
Note: See TracChangeset
for help on using the changeset viewer.