source:
branches/sandbox/single.tcl
@
1103
| Last change on this file since 1103 was 1014, checked in by toby, 15 years ago | |
|---|---|
| File size: 316 bytes | |
| Line | |
|---|---|
| 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.
