-
Notifications
You must be signed in to change notification settings - Fork 1
/
info.g
183 lines (122 loc) · 2.78 KB
/
info.g
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
//genesis
//
// $Id: info.g 1.4.2.1.2.1.1.2 Thu, 04 Apr 2002 12:46:38 +0200 hugo $
//
//////////////////////////////////////////////////////////////////////////////
//'
//' Purkinje tutorial
//'
//' (C) 1998-2002 BBF-UIA
//'
//' see our site at http://www.bbf.uia.ac.be/ for more information regarding
//' the Purkinje cell and genesis simulation software.
//'
//'
//' functional ideas ... Erik De Schutter, [email protected]
//' genesis coding ..... Hugo Cornelis, [email protected]
//'
//' general feedback ... Reinoud Maex, Erik De Schutter
//'
//////////////////////////////////////////////////////////////////////////////
// info.g : help/credits functionality
int include_info
if ( {include_info} == 0 )
include_info = 1
///
/// SH: InfoHelp
///
/// DE: Show help
///
function InfoHelp
//- show the help form
xshow /info/help
end
///
/// SH: InfoHelpCreate
///
/// PA: parent: parent to create help form in (ending in '/')
///
/// DE: Create help widgets
///
function InfoHelpCreate(parent)
str parent
//- create a form for help
create xform {parent}help \
-xgeom 200 \
-ygeom 0 \
-wgeom 600 \
-hgeom 800
//- make created form current element
pushe {parent}help
//- create title label
create xlabel heading \
-label "Purkinje tutorial help"
//- create a button for closing the window
create xbutton close \
-ygeom 0:parent.bottom \
-title "Close" \
-script "xhide "{parent}"help"
//- create text widget for help
create xtext help \
-ygeom 0:heading.bottom \
-hgeom 0:close.top \
-filename "help.txt"
//- go to previous current element
pope
end
///
/// SH: InfoCredits
///
/// DE: Show the credits
///
function InfoCredits
//- show the credits form
xshow /info/credits
end
///
/// SH: InfoCreditsCreate
///
/// PA: parent: parent to create credits form in (ending in '/')
///
/// DE: Create credits widgets
///
function InfoCreditsCreate(parent)
str parent
//- create a form for the credits
create xform {parent}credits \
-xgeom 200 \
-ygeom 330 \
-wgeom 450 \
-hgeom 230
//- make created form current element
pushe {parent}credits
//- create title label
create xlabel heading \
-label "Genesis script credits"
//- create a button for closing the window
create xbutton close \
-ygeom 0:parent.bottom \
-title "Close" \
-script "xhide "{parent}"credits"
//- create text widget for credits
create xtext credits \
-ygeom 0:heading.bottom \
-hgeom 0:close.top \
-filename "credits.txt"
//- go to previous current element
pope
end
///
/// SH: InfoCreate
///
/// DE: Create help and credits widgets
///
function InfoCreate
//- create parent element for all information
create neutral /info
//- create widgets for help
InfoHelpCreate /info/
//- create widgets for credits
InfoCreditsCreate /info/
end
end