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
|
### Copyright (C) 1996 Rasmus Ingemann Hansen
### This program is free software; you can redistribute it and/or modify
### it under the terms of the GNU General Public License as published by
### the Free Software Foundation; either version 2 of the License, or
### (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
### GNU General Public License for more details.
###
### You should have received a copy of the GNU General Public License
### along with this program; if not, write to the Free Software
### Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
proc navigation {} {
# Menues / Main menu / Navigation
Desc "Navigation in the Main menu"
ShortDesc "Navigation in Menu menu"
### Navigation ###
Header head4 -text "Navigation" \
-background gray \
-help ""
CheckBox actionMenuCheckBox44 \
-text "When using page commands (+, -, Next, Prev) change current index pointer" \
-help ""
Line line11
CheckBox actionMenuCheckBox33 \
-text "You are running on a HP terminal"
Label label00 \
-text ""
CheckBox actionMenuCheckBox3 \
-text "and want to use (Home, Prev, Next, etc.)" \
-help ""
CheckBox actionMenuCheckBox4 \
-text "and want softkeys available? (keypads=ON too)" \
-help ""
Frame frame1 -entries {actionMenuCheckBox3 actionMenuCheckBox4} \
-orient top
Frame frame2 -entries {actionMenuCheckBox33 label00} \
-orient top
Frame frame3 -entries {frame2 frame1} \
-orient left
################################ Change ################################
Change {
if {$actionMenuCheckBox33==1} {
Enable frame1
} {
Disable frame1
}
}
############################## Init / Save ##############################
Init {
}
Save {
print "\n# when using the page commands (+,-,NEXT,PREV) change current msg pointer?"
if {$actionMenuCheckBox44==0} {
print "###movepage = OFF"
} else {
print "movepage = ON"
}
print "\n# are we running on an HP terminal and want HOME, PREV, NEXT, etc...?"
if {$actionMenuCheckBox3!=0 && $actionMenuCheckBox33!=0} {
print "keypad = ON"
} else {
print "###keypad = OFF"
}
print "\n# are we running on an HP terminal and want softkeys available too?"
if {$actionMenuCheckBox4!=0 && $actionMenuCheckBox33!=0} {
print "softkeys = ON"
} else {
print "###softkeys = OFF"
}
}
}
|
