Skip to content

Commit 1c04106

Browse files
t-bt-b
committed
remove trailing whitespace and normalize EOLs to LF
1 parent 47e6119 commit 1c04106

9 files changed

Lines changed: 1567 additions & 1567 deletions

‎procedures/CodeBrowser.ipf‎

Lines changed: 539 additions & 539 deletions
Large diffs are not rendered by default.

‎procedures/CodeBrowser_gui.ipf‎

Lines changed: 312 additions & 312 deletions
Large diffs are not rendered by default.

‎procedures/CodeBrowser_hooks.ipf‎

Lines changed: 74 additions & 74 deletions
Original file line numberDiff line numberDiff line change
@@ -1,74 +1,74 @@
1-
#pragma rtGlobals=3
2-
#pragma version=1.0
3-
#pragma IgorVersion = 6.3.0
4-
#pragma IndependentModule=CodeBrowserModule
5-
6-
// This file was created by () byte physics Thomas Braun, support@byte-physics.de
7-
// (c) 2013
8-
9-
static Function IgorStartOrNewHook(igorApplicationNameStr)
10-
string igorApplicationNameStr
11-
12-
setHooksAndUpdate()
13-
return 0
14-
End
15-
16-
static Function IgorQuitHook(igorApplicationNameStr)
17-
string igorApplicationNameStr
18-
19-
preparePanelClose()
20-
return 0
21-
End
22-
23-
static Function IgorBeforeNewHook(igorApplicationNameStr)
24-
string igorApplicationNameStr
25-
26-
preparePanelClose()
27-
return 0
28-
End
29-
30-
Function setHooksAndUpdate()
31-
Execute/Q "SetIgorOption IndependentModuleDev=1"
32-
33-
// prevent multiple hooks of the same function
34-
SetIgorHook/K AfterCompiledHook=updatePanel
35-
36-
SetIgorHook AfterCompiledHook=updatePanel
37-
debugprint("SetIgorHook AfterCompiledHook: " + S_info)
38-
updatePanel()
39-
End
40-
41-
// Prepare for panel closing, must be called before the panel is killed or the experiment closed
42-
Function preparePanelClose()
43-
SetIgorHook/K AfterCompiledHook=updatePanel
44-
debugprint("SetIgorHook AfterCompiledHook: " + S_info)
45-
46-
DoWindow $GetPanel()
47-
if(V_flag == 0)
48-
return 0
49-
endif
50-
51-
// save panel coordinates to disk
52-
STRUCT CodeBrowserPrefs prefs
53-
FillPackagePrefsStruct(prefs)
54-
SavePackagePrefsToDisk(prefs)
55-
End
56-
57-
Function panelHook(s)
58-
STRUCT WMWinHookStruct &s
59-
60-
Variable hookResult = 0
61-
62-
switch(s.eventCode)
63-
case 2: // kill
64-
preparePanelClose()
65-
hookResult = 1
66-
break
67-
case 6: // resize
68-
resizePanel()
69-
hookResult = 1
70-
break
71-
endswitch
72-
73-
return hookResult // 0 if nothing done, else 1
74-
End
1+
#pragma rtGlobals=3
2+
#pragma version=1.0
3+
#pragma IgorVersion = 6.3.0
4+
#pragma IndependentModule=CodeBrowserModule
5+
6+
// This file was created by () byte physics Thomas Braun, support@byte-physics.de
7+
// (c) 2013
8+
9+
static Function IgorStartOrNewHook(igorApplicationNameStr)
10+
string igorApplicationNameStr
11+
12+
setHooksAndUpdate()
13+
return 0
14+
End
15+
16+
static Function IgorQuitHook(igorApplicationNameStr)
17+
string igorApplicationNameStr
18+
19+
preparePanelClose()
20+
return 0
21+
End
22+
23+
static Function IgorBeforeNewHook(igorApplicationNameStr)
24+
string igorApplicationNameStr
25+
26+
preparePanelClose()
27+
return 0
28+
End
29+
30+
Function setHooksAndUpdate()
31+
Execute/Q "SetIgorOption IndependentModuleDev=1"
32+
33+
// prevent multiple hooks of the same function
34+
SetIgorHook/K AfterCompiledHook=updatePanel
35+
36+
SetIgorHook AfterCompiledHook=updatePanel
37+
debugprint("SetIgorHook AfterCompiledHook: " + S_info)
38+
updatePanel()
39+
End
40+
41+
// Prepare for panel closing, must be called before the panel is killed or the experiment closed
42+
Function preparePanelClose()
43+
SetIgorHook/K AfterCompiledHook=updatePanel
44+
debugprint("SetIgorHook AfterCompiledHook: " + S_info)
45+
46+
DoWindow $GetPanel()
47+
if(V_flag == 0)
48+
return 0
49+
endif
50+
51+
// save panel coordinates to disk
52+
STRUCT CodeBrowserPrefs prefs
53+
FillPackagePrefsStruct(prefs)
54+
SavePackagePrefsToDisk(prefs)
55+
End
56+
57+
Function panelHook(s)
58+
STRUCT WMWinHookStruct &s
59+
60+
Variable hookResult = 0
61+
62+
switch(s.eventCode)
63+
case 2: // kill
64+
preparePanelClose()
65+
hookResult = 1
66+
break
67+
case 6: // resize
68+
resizePanel()
69+
hookResult = 1
70+
break
71+
endswitch
72+
73+
return hookResult // 0 if nothing done, else 1
74+
End

‎procedures/CodeBrowser_preferences.ipf‎

Lines changed: 90 additions & 90 deletions
Original file line numberDiff line numberDiff line change
@@ -1,90 +1,90 @@
1-
#pragma rtGlobals=3
2-
#pragma version=1.0
3-
#pragma IgorVersion = 6.3.0
4-
#pragma IndependentModule=CodeBrowserModule
5-
6-
// This file was created by () byte physics Thomas Braun, support@byte-physics.de
7-
// (c) 2013
8-
9-
static Constant kPrefsVersion = 100
10-
static StrConstant kPackageName = "CodeBrowser"
11-
static StrConstant kPrefsFileName = "CodeBrowser.bin"
12-
static Constant kPrefsRecordID = 0
13-
14-
Structure CodeBrowserPrefs
15-
uint32 version // Preferences structure version number. 100 means 1.00.
16-
double panelCoords[4] // left, top, right, bottom
17-
uint32 reserved[100] // Reserved for future use
18-
EndStructure
19-
20-
// DefaultPackagePrefsStruct(prefs)
21-
// Sets prefs structure to default values.
22-
static Function DefaultPackagePrefsStruct(prefs)
23-
STRUCT CodeBrowserPrefs &prefs
24-
25-
prefs.version = kPrefsVersion
26-
27-
STRUCT RECT dims
28-
GetScreenDimensions(dims)
29-
prefs.panelCoords[0] = dims.left + 0.7 * dims.right
30-
prefs.panelCoords[1] = dims.top + 35
31-
prefs.panelCoords[2] = 0.95 * dims.right
32-
prefs.panelCoords[3] = 0.90 * dims.bottom
33-
34-
Variable i
35-
for(i=0; i<100; i+=1)
36-
prefs.reserved[i] = 0
37-
endfor
38-
End
39-
40-
// Fill package prefs structures to match state of panel.
41-
static Function SyncPackagePrefsStruct(prefs)
42-
STRUCT CodeBrowserPrefs &prefs
43-
44-
// Panel does exists. Set prefs to match panel settings.
45-
prefs.version = kPrefsVersion
46-
47-
GetWindow $GetPanel() wsize
48-
// NewPanel uses device coordinates. We therefore need to scale from
49-
// points (returned by GetWindow) to device units for windows created
50-
// by NewPanel.
51-
Variable scale = ScreenResolution / 72
52-
prefs.panelCoords[0] = V_left * scale
53-
prefs.panelCoords[1] = V_top * scale
54-
prefs.panelCoords[2] = V_right * scale
55-
prefs.panelCoords[3] = V_bottom * scale
56-
End
57-
58-
// InitPackagePrefsStruct(prefs)
59-
// Sets prefs structures to match state of panel or to default values if panel does not exist.
60-
Function FillPackagePrefsStruct(prefs)
61-
STRUCT CodeBrowserPrefs &prefs
62-
63-
DoWindow $GetPanel()
64-
if (V_flag == 0)
65-
// Panel does not exist. Set prefs struct to default.
66-
DefaultPackagePrefsStruct(prefs)
67-
else
68-
// Panel does exists. Sync prefs struct to match panel state.
69-
SyncPackagePrefsStruct(prefs)
70-
endif
71-
End
72-
73-
Function LoadPackagePrefsFromDisk(prefs)
74-
STRUCT CodeBrowserPrefs &prefs
75-
76-
// This loads preferences from disk if they exist on disk.
77-
LoadPackagePreferences kPackageName, kPrefsFileName, kPrefsRecordID, prefs
78-
79-
// If error or prefs not found or not valid, initialize them.
80-
if (V_flag!=0 || V_bytesRead==0 || prefs.version!=kPrefsVersion)
81-
FillPackagePrefsStruct(prefs) // Set based on panel if it exists or set to default values.
82-
SavePackagePrefsToDisk(prefs) // Create initial prefs record.
83-
endif
84-
End
85-
86-
Function SavePackagePrefsToDisk(prefs)
87-
STRUCT CodeBrowserPrefs &prefs
88-
89-
SavePackagePreferences kPackageName, kPrefsFileName, kPrefsRecordID, prefs
90-
End
1+
#pragma rtGlobals=3
2+
#pragma version=1.0
3+
#pragma IgorVersion = 6.3.0
4+
#pragma IndependentModule=CodeBrowserModule
5+
6+
// This file was created by () byte physics Thomas Braun, support@byte-physics.de
7+
// (c) 2013
8+
9+
static Constant kPrefsVersion = 100
10+
static StrConstant kPackageName = "CodeBrowser"
11+
static StrConstant kPrefsFileName = "CodeBrowser.bin"
12+
static Constant kPrefsRecordID = 0
13+
14+
Structure CodeBrowserPrefs
15+
uint32 version // Preferences structure version number. 100 means 1.00.
16+
double panelCoords[4] // left, top, right, bottom
17+
uint32 reserved[100] // Reserved for future use
18+
EndStructure
19+
20+
// DefaultPackagePrefsStruct(prefs)
21+
// Sets prefs structure to default values.
22+
static Function DefaultPackagePrefsStruct(prefs)
23+
STRUCT CodeBrowserPrefs &prefs
24+
25+
prefs.version = kPrefsVersion
26+
27+
STRUCT RECT dims
28+
GetScreenDimensions(dims)
29+
prefs.panelCoords[0] = dims.left + 0.7 * dims.right
30+
prefs.panelCoords[1] = dims.top + 35
31+
prefs.panelCoords[2] = 0.95 * dims.right
32+
prefs.panelCoords[3] = 0.90 * dims.bottom
33+
34+
Variable i
35+
for(i=0; i<100; i+=1)
36+
prefs.reserved[i] = 0
37+
endfor
38+
End
39+
40+
// Fill package prefs structures to match state of panel.
41+
static Function SyncPackagePrefsStruct(prefs)
42+
STRUCT CodeBrowserPrefs &prefs
43+
44+
// Panel does exists. Set prefs to match panel settings.
45+
prefs.version = kPrefsVersion
46+
47+
GetWindow $GetPanel() wsize
48+
// NewPanel uses device coordinates. We therefore need to scale from
49+
// points (returned by GetWindow) to device units for windows created
50+
// by NewPanel.
51+
Variable scale = ScreenResolution / 72
52+
prefs.panelCoords[0] = V_left * scale
53+
prefs.panelCoords[1] = V_top * scale
54+
prefs.panelCoords[2] = V_right * scale
55+
prefs.panelCoords[3] = V_bottom * scale
56+
End
57+
58+
// InitPackagePrefsStruct(prefs)
59+
// Sets prefs structures to match state of panel or to default values if panel does not exist.
60+
Function FillPackagePrefsStruct(prefs)
61+
STRUCT CodeBrowserPrefs &prefs
62+
63+
DoWindow $GetPanel()
64+
if (V_flag == 0)
65+
// Panel does not exist. Set prefs struct to default.
66+
DefaultPackagePrefsStruct(prefs)
67+
else
68+
// Panel does exists. Sync prefs struct to match panel state.
69+
SyncPackagePrefsStruct(prefs)
70+
endif
71+
End
72+
73+
Function LoadPackagePrefsFromDisk(prefs)
74+
STRUCT CodeBrowserPrefs &prefs
75+
76+
// This loads preferences from disk if they exist on disk.
77+
LoadPackagePreferences kPackageName, kPrefsFileName, kPrefsRecordID, prefs
78+
79+
// If error or prefs not found or not valid, initialize them.
80+
if (V_flag!=0 || V_bytesRead==0 || prefs.version!=kPrefsVersion)
81+
FillPackagePrefsStruct(prefs) // Set based on panel if it exists or set to default values.
82+
SavePackagePrefsToDisk(prefs) // Create initial prefs record.
83+
endif
84+
End
85+
86+
Function SavePackagePrefsToDisk(prefs)
87+
STRUCT CodeBrowserPrefs &prefs
88+
89+
SavePackagePreferences kPackageName, kPrefsFileName, kPrefsRecordID, prefs
90+
End

0 commit comments

Comments
 (0)