source:
branches/sandbox/single.tcl
@
1212
| Last change on this file since 1212 was 1014, checked in by toby, 10 years ago | |
|---|---|
| File size: 316 bytes | |
| Rev | Line | |
|---|---|---|
| [1014] | 1 | # file for overall single crystal panel |
| 2 | proc MakeSinglePane {} { ;# called to create the panel intially | |
| 3 | label $::expgui(singFrame).l -text "Single Crystal Parameters" | |
| 4 | grid $::expgui(singFrame).l -column 1 -row 1 | |
| 5 | ResizeNotebook | |
| 6 | } | |
| 7 | ||
| 8 | proc DisplaySingle {} { ;# called each time the panel is raised | |
| 9 | ||
| 10 | } |
Note: See TracBrowser
for help on using the repository browser.
