source: tags/ms_r16q3/lib/inputMasks/test.mask

Last change on this file was 467, checked in by westram, 22 years ago

* empty log message *

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.1 KB
Line 
1ARB-Input-Mask
2# This is a simple user-mask example.
3
4# What to edit
5@ITEMTYPE=Species
6
7# Title of the user-mask-window
8@TITLE=Test mask (global)
9
10# Spacing in window
11@X_SPACING=5
12@Y_SPACING=3
13
14# Show edit/reload button
15@EDIT=1
16
17
18# ---------------------------
19# The definition of the mask:
20
21@MASK_BEGIN
22
23    GLOBAL(MY_NAME,"Insert your name here")
24    GLOBAL(MY_INITIALS,"??")
25    LOCAL(LOC_VALUE,"Insert a value here")
26
27#    ID(OOPS)
28
29    TEXT("Switch to..") CHANGEMASK("Expert","expert.mask") \
30        OPENMASK("Basic fields","basic_fields.mask") \
31
32    NEW_SECTION()
33    TEXT("You are editing") SELF()
34
35    NEW_SECTION()
36
37    SCRIPT(S_CHECKSUM,"sequence|\"ARB_\";checksum(exclude=.-n;toupper)")
38    SHOW(     "Current checksum ",S_CHECKSUM,20)
39    TEXTFIELD("Stored checksum  ","seqcheck",20) ID(CHECK) ASSIGN(CHECK,S_CHECKSUM,"Store current")
40
41    NUMFIELD( "number (-10..10)", "number", 3, -10, 10)
42    NEW_SECTION()
43
44    TEXTFIELD(   "Name (Fullname)",  "full_name" ,63  )
45
46    NEW_SECTION()
47
48    TEXT("Publications:")
49
50    TEXTFIELD(   "Author  ",  "author" ,  30  ) ID(AUTHOR) ASSIGN(AUTHOR,MY_NAME,"Me!") \
51        OPENMASK("Edit user info","userInfo.mask")
52    TEXTFIELD(   "Title   ",  "title" ,  70  )
53    TEXTFIELD(   "Journal ",  "journal" ,  70  )
54
55    NEW_SECTION()
56
57    TEXTFIELD(   "Remark  ",  "remark" ,  70  )
58    TEXTFIELD(   "Remark2 ",  "remark2" ,  70  )
59
60    NEW_SECTION()
61
62    CHECKBOX(    "checked?",  "mbi/checked", 0)
63    RADIO(       "Species class: ", "class", 1, y,        \
64                "other", "", \
65                "artificial",       "artificial-value",        \
66                "real",             "real-value" )     TEXTFIELD("", "class", 30)
67
68    GLOBAL(DEF_PARTIAL_SEQ,"1")
69    RADIO ("Partial sequence", "partial_seq", 2, x, "yes","1","no","0") ID(PARTIAL_SEQ) \
70        ASSIGN(PARTIAL_SEQ,DEF_PARTIAL_SEQ,"Default") \
71        ASSIGN(DEF_PARTIAL_SEQ,PARTIAL_SEQ,"Set as default")
72
73    NEW_SECTION()
74
75    TEXT("Some tests:")
76    SHOW("My name     ",MY_NAME,30)
77    SHOW("My initials ",MY_INITIALS,5)
78    SHOW("Local value ",LOC_VALUE,30)
79    SHOW("Author (ID) ",AUTHOR,30)
80
81@MASK_END
Note: See TracBrowser for help on using the repository browser.