source: sans/Dev/trunk/NCNR_User_Procedures/SANS_Analysis/Models/TestProcs_v40.ipf @ 325

Last change on this file since 325 was 325, checked in by ajj, 15 years ago

Adding SANS Analysis Models to new Dev tree

File size: 613 bytes
Line 
1#pragma rtGlobals=1             // Use modern global access method.
2
3
4Function MakePanel()
5
6        NewPanel/N=TestPanel
7        Button button_OK, title="OK"
8        Button button_OK, proc=OK_Button_Proc
9
10        Print "In MakePanel()"
11        Print GetDataFolder(1)
12       
13        PauseForUser TestPanel
14end
15
16
17Function OK_Button_Proc(ctrlName) : ButtonControl
18        String ctrlName
19       
20        DoWindow/K TestPanel
21End
22
23Function TestPFU()
24        SetDataFolder root:
25        NewDataFolder/O/S testfolder
26       
27        Print "In TestPFU()"
28        Print GetDataFolder(1)
29        Print "Calling MakePanel()"
30        MakePanel()
31        Print "After MakePanel() and PauseForUser"
32        Print GetDataFolder(1)
33
34        KillDataFolder root:testfolder
35end
Note: See TracBrowser for help on using the repository browser.