rem ' edit.txt
locale$=stbl("!LOCALE","es_AR")
rem ----------------------------------------------------------------------
use java.util.Arrays
use java.util.Locale
use java.text.DecimalFormatSymbols
locale$=stbl("!LOCALE","es_AR")
locale!=fnlocale!(locale$)
def fnLocale!(temp!)
temp! = Arrays.asList(temp!.split("_",3))
switch temp!.size()
  case 3; tempLocale! = new Locale(temp!.get(0),temp!.get(1),temp!.get(2)); break
  case 2; tempLocale! = new Locale(temp!.get(0),temp!.get(1)); break
  case 1; tempLocale! = new Locale(temp!.get(0)); break
  case default; tempLocale! = Locale.getDefault(); break
swend
return tempLocale!
fnend
dfs! = new DecimalFormatSymbols(locale!)
opts$ = opts
opts$(3,1) = ior(opts$(3,1),$02$)
opts$(5,1) = Character.toString(dfs!.getGroupingSeparator())
opts$(6,1) = Character.toString(dfs!.getMonetaryDecimalSeparator())
setopts opts$
mask$ = "###,###,###-"
rem ----------------------------------------------------------------------
begin
sysgui = unt
open (sysgui)"X0"
print (sysgui)'scale'(1,1)
sysgui! = bbjapi().getSysGui()
rem ' BBjWindow
window! = sysgui!.addWindow(0,0,300,335,"Edit Controls",$00090003$,$02400400$)
rem ' Spinner List
list! = bbjapi().makeVector()
list$ = ""
restore 0
while 1
  dread item$,end=*break
  list!.add(item$)
  list$ = list$ + item$ + $0a$
wend
rem ' BBjInputE
mask$="XXX-000-AAA-aaa--ZZZ-zzz-UUU"
control! = window!.addInputE(101,10,10,125,25,$0000$,mask$," ",0,"","")
control!.setToolTipText("BBjInputE mask="+mask$)
rem ' BBjInputESpinner
control! = window!.addInputESpinner(102,145,10,145,25,list!)
control!.setToolTipText("BBjInputESpinner")
rem ' BBjInputN
mask$="###,###,###.##CR"
control! = window!.addInputN(103,10,40,125,25,$0000$,mask$,$00$,-123,-123)
control!.setToolTipText("BBjInputN mask="+mask$)
rem ' BBjInputNSpinner
mask$="-###,###,###.##"
control! = window!.addInputNSpinner(104,145,40,145,25,$0000$,mask$,$00$,0,0)
control!.setToolTipText("BBjInputNSpinner mask="+mask$)
rem ' BBjInputD
rem locale$ = stbl("!LOCALE","de_DE")
control! = window!.addInputD(105,10,70,125,25,$0000$,"",$00$,0,0)
control!.setToolTipText("BBjInputD locale="+stbl("!LOCALE")+" mask="+control!.getMask())
rem ' BBjInputDSpinner
control! = window!.addInputDSpinner(106,145,70,145,25,$0000$,"",$00$,0,0)
control!.setToolTipText("BBjInputDSpinner locale="+stbl("!LOCALE")+" mask="+control!.getMask())
rem ' BBjEditBox
control! = window!.addEditBox(107,10,100,125,25,"EditBox",$0000$)
control!.setToolTipText("BBjEditBox")
rem ' BBjEditBoxSpinner
control! = window!.addEditBoxSpinner(108,145,100,145,25,list!)
control!.setToolTipText("BBjEditBoxSpinner")
rem ' BBjEditBox (Password)
control! = window!.addEditBox(109,10,130,125,25,"xyzzy",$0400$)
control!.setToolTipText("BBjEditBox (Password)")
rem ' BBjListEdit
control! = window!.addListEdit(110,145,130,145,145,list$)
control!.setFieldHeight(25)
control!.setToolTipText("BBjListEdit")
rem ' BBjCEdit
control! = window!.addCEdit(111,10,160,280,130,list$,$0104$)
control!.setToolTipText("BBjCEdit")
rem ' Editable
control! = window!.addCheckBox(112,10,300,125,25,"Editable",$0004$)
control!.setToolTipText("Make all text fields editable")
rem ' Enabled
control! = window!.addCheckBox(113,145,300,125,25,"Enabled",$0004$)
control!.setToolTipText("Enable all text fields")
rem ' Events
dim event$:tmpl(sysgui),generic$:noticetpl(0,0)
e = 0
repeat
  readrecord(sysgui,siz=10)event$
  if event.code$="t" then continue; rem ' *** need to filter this! ***
  e = e + 1, e! = sysgui!.getLastEvent(), e$ = e!.toString(), e$ = e$(1,pos("@"=e$)-1)
  print str(e)," ",e$," code=",event.code$," context=",str(event.context)," id=",str(event.id)," flags=",str(event.flags)," x=",str(event.x)," y=",str(event.y)
  if event.code$="x" then print " Spin text: ",e!.getText()
  if event.code$="N" then gosub notify
  if event.code$="c" and event.id=112 then gosub editable
  if event.code$="c" and event.id=113 then gosub enabled
until event.code$="X"
release
editable:
  for id=101 to 111
    window!.getControl(id).setEditable(event.flags)
  next id
return
enabled:
  for id=101 to 111
    window!.getControl(id).setEnabled(event.flags)
  next id
return
notify:
  generic$ = notice(sysgui,event.x)
  dim notice$:noticetpl(generic.objtype,event.flags)
  notice$ = generic$
  fields = pos($0a$=fattr(notice$,""),1,0)
  dim field$:"name["+str(fields)+"]:c(1*)"
  let field$=fattr(notice$,"")
  for field=1 to fields
    name$ = field.name$[field]
    info$ = fattr(notice$,name$,$$)
    print " ",name$,"=",
    if asc(info$)=1 then print field(notice$,name$), else print str(nfield(notice$,name$)),
  next field
  print ""
return
keypress:
  e! = sysgui!.getLastEvent()
  x$ = x$+iff(e!.isAltDown(),"ALT ","")
  x$ = x$+iff(e!.isCmdDown(),"CMD ","")
  x$ = x$+iff(e!.isControlDown(),"CTRL ","")
  x$ = x$+iff(e!.isShiftDown(),"SHIFT ","")
  x$ = x$+" char="+Character.toString(e!.getKeyChar())+" "+str(e!.getKeyChar())+" code="+str(e!.getKeyCode())
  gosub event
return
rem ---------- List data ----------
data "Afghanistan"
data "Aland Islands"
data "Albania"
data "Algeria"
data "American Samoa"
data "Andorra"
data "Angola"
data "Anguilla"
data "Antigua and Barbuda"
data "Argentina"
data "Armenia"
data "Aruba"
data "Australia"
data "Austria"
data "Azerbaijan"
data "Bahamas"
data "Bahrain"
data "Bangladesh"
data "Barbados"
data "Belarus"
data "Belgium"
data "Belize"
data "Benin"
data "Bermuda"
data "Bhutan"
data "Bolivia"
data "Bosnia and Herzegovina"
data "Botswana"
data "Bouvet Island"
data "Brazil"
data "British Indian Ocean Territory"
data "Brunei Darussalam"
data "Bulgaria"
data "Burkina Faso"
data "Burundi"
data "Cambodia"
data "Cameroon"
data "Canada"
data "Cape Verde"
data "Cayman Islands"
data "Central African Republic"
data "Chad"
data "Chile"
data "China"
data "Christmas Island"
data "Cocos (Keeling) Islands"
data "Colombia"
data "Comoros"
data "Congo"
data "Congo, The Democratic Republic of the"
data "Cook Islands"
data "Costa Rica"
data "Cote d'Ivoire"
data "Croatia"
data "Cuba"
data "Cyprus"
data "Czech Republic"
data "Denmark"
data "Djibouti"
data "Dominica"
data "Dominican Republic"
data "Ecuador"
data "Egypt"
data "El Salvador"
data "Equatorial Guinea"
data "Eritrea"
data "Estonia"
data "Ethiopia"
data "Europe"
data "Falkland Islands (Malvinas)"
data "Faroe Islands"
data "Fiji"
data "Finland"
data "France"
data "French Guiana"
data "French Polynesia"
data "French Southern Territories"
data "Gabon"
data "Gambia"
data "Georgia"
data "Germany"
data "Ghana"
data "Gibraltar"
data "Greece"
data "Greenland"
data "Grenada"
data "Guadeloupe"
data "Guam"
data "Guatemala"
data "Guernsey"
data "Guinea"
data "Guinea-Bissau"
data "Guyana"
data "Haiti"
data "Heard Island and McDonald Islands"
data "Holy See (Vatican City State)"
data "Honduras"
data "Hong Kong"
data "Hungary"
data "Iceland"
data "India"
data "Indonesia"
data "Iran, Islamic Republic of"
data "Iraq"
data "Ireland"
data "Isle of Man"
data "Israel"
data "Italy"
data "Jamaica"
data "Japan"
data "Jersey"
data "Jordan"
data "Kazakhstan"
data "Kenya"
data "Kiribati"
data "Korea, Democratic People's Republic of"
data "Korea, Republic of"
data "Kuwait"
data "Kyrgyzstan"
data "Lao People's Democratic Republic"
data "Latvia"
data "Lebanon"
data "Lesotho"
data "Liberia"
data "Libyan Arab Jamahiriya"
data "Liechtenstein"
data "Lithuania"
data "Luxembourg"
data "Macao"
data "Macedonia"
data "Madagascar"
data "Malawi"
data "Malaysia"
data "Maldives"
data "Mali"
data "Malta"
data "Marshall Islands"
data "Martinique"
data "Mauritania"
data "Mauritius"
data "Mayotte"
data "Mexico"
data "Micronesia, Federated States of"
data "Moldova, Republic of"
data "Monaco"
data "Mongolia"
data "Montenegro"
data "Montserrat"
data "Morocco"
data "Mozambique"
data "Myanmar"
data "Namibia"
data "Nauru"
data "Nepal"
data "Netherlands"
data "Netherlands Antilles"
data "New Caledonia"
data "New Zealand"
data "Nicaragua"
data "Niger"
data "Nigeria"
data "Niue"
data "Norfolk Island"
data "Northern Mariana Islands"
data "Norway"
data "Oman"
data "Pakistan"
data "Palau"
data "Palestinian Territory"
data "Panama"
data "Papua New Guinea"
data "Paraguay"
data "Peru"
data "Philippines"
data "Pitcairn"
data "Poland"
data "Portugal"
data "Puerto Rico"
data "Qatar"
data "Reunion"
data "Romania"
data "Russian Federation"
data "Rwanda"
data "Saint Helena"
data "Saint Kitts and Nevis"
data "Saint Lucia"
data "Saint Pierre and Miquelon"
data "Saint Vincent and the Grenadines"
data "Samoa"
data "San Marino"
data "Sao Tome and Principe"
data "Saudi Arabia"
data "Senegal"
data "Serbia"
data "Seychelles"
data "Sierra Leone"
data "Singapore"
data "Slovakia"
data "Slovenia"
data "Solomon Islands"
data "Somalia"
data "South Africa"
data "South Georgia and the South Sandwich Islands"
data "Spain"
data "Sri Lanka"
data "Sudan"
data "Suriname"
data "Svalbard and Jan Mayen"
data "Swaziland"
data "Sweden"
data "Switzerland"
data "Syrian Arab Republic"
data "Taiwan"
data "Tajikistan"
data "Tanzania, United Republic of"
data "Thailand"
data "Timor-Leste"
data "Togo"
data "Tokelau"
data "Tonga"
data "Trinidad and Tobago"
data "Tunisia"
data "Turkey"
data "Turkmenistan"
data "Turks and Caicos Islands"
data "Tuvalu"
data "Uganda"
data "Ukraine"
data "United Arab Emirates"
data "United Kingdom"
data "United States"
data "United States Minor Outlying Islands"
data "Uruguay"
data "Uzbekistan"
data "Vanuatu"
data "Venezuela"
data "Vietnam"
data "Virgin Islands, British"
data "Virgin Islands, U.S."
data "Wallis and Futuna"
data "Western Sahara"
data "Yemen"
data "Zambia"
data "Zimbabwe"