source: sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/TestProcs_v40.ipf @ 252

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

Renaming files with _v40 - see trac ticket #108

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.