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
|
ARB-Input-Mask
# This is a simple user-mask example.
# What to edit
@ITEMTYPE=Species
# Title of the user-mask-window
@TITLE=Test mask (global)
# Spacing in window
@X_SPACING=5
@Y_SPACING=3
# Show edit/reload button
@EDIT=1
# ---------------------------
# The definition of the mask:
@MASK_BEGIN
GLOBAL(MY_NAME,"Insert your name here")
GLOBAL(MY_INITIALS,"??")
LOCAL(LOC_VALUE,"Insert a value here")
# ID(OOPS)
TEXT("Switch to..") CHANGEMASK("Expert","expert.mask") \
OPENMASK("Basic fields","basic_fields.mask") \
NEW_SECTION()
TEXT("You are editing") SELF()
NEW_SECTION()
SCRIPT(S_CHECKSUM,"sequence|\"ARB_\";checksum(exclude=.-n;toupper)")
SHOW( "Current checksum ",S_CHECKSUM,20)
TEXTFIELD("Stored checksum ","seqcheck",20) ID(CHECK) ASSIGN(CHECK,S_CHECKSUM,"Store current")
NUMFIELD( "number (-10..10)", "number", 3, -10, 10)
NEW_SECTION()
TEXTFIELD( "Name (Fullname)", "full_name" ,63 )
NEW_SECTION()
TEXT("Publications:")
TEXTFIELD( "Author ", "author" , 30 ) ID(AUTHOR) ASSIGN(AUTHOR,MY_NAME,"Me!") \
OPENMASK("Edit user info","userInfo.mask")
TEXTFIELD( "Title ", "title" , 70 )
TEXTFIELD( "Journal ", "journal" , 70 )
NEW_SECTION()
TEXTFIELD( "Remark ", "remark" , 70 )
TEXTFIELD( "Remark2 ", "remark2" , 70 )
NEW_SECTION()
CHECKBOX( "checked?", "mbi/checked", 0)
RADIO( "Species class: ", "class", 1, y, \
"other", "", \
"artificial", "artificial-value", \
"real", "real-value" ) TEXTFIELD("", "class", 30)
GLOBAL(DEF_PARTIAL_SEQ,"1")
RADIO ("Partial sequence", "partial_seq", 2, x, "yes","1","no","0") ID(PARTIAL_SEQ) \
ASSIGN(PARTIAL_SEQ,DEF_PARTIAL_SEQ,"Default") \
ASSIGN(DEF_PARTIAL_SEQ,PARTIAL_SEQ,"Set as default")
NEW_SECTION()
TEXT("Some tests:")
SHOW("My name ",MY_NAME,30)
SHOW("My initials ",MY_INITIALS,5)
SHOW("Local value ",LOC_VALUE,30)
SHOW("Author (ID) ",AUTHOR,30)
@MASK_END
|
