0010  REM Newton Jabber Setup Copyright (c) 2000 Eric M. Schne
ck, Inc
0020  LET appSpec={goto:'endProgram,title:"Newt Jabber Setup"}
0030  window app,appSpec,"APP"
0040  show app
0050  widgetdef Layout_0:={txtMyID:{widgetType:"text",order:0,vi
ewB
Class:81,viewBounds:{left:81,top:42,right:202,bottom:59},viB
ewFlags:33553920,viewFormat:12625,viewJustify:0,viewLineSpaB
cing:16,text:"",viewFont:12289,tabs:[20,40,60,80,120,140,16B
0,180]},lblID:{widgetType:"title",order:1,viewBounds:{left:B
13,top:38,right:40,bottom:58},viewJustify:0,viewFont:{familB
y:'espy,face:1,size:10},viewFlags:1,text:"ID:",viewFormat:0B
},txtPassword:{widgetType:"text",order:2,viewClass:81,viewBB
ounds:{left:82,top:70,right:204,bottom:87},viewFlags:335539B
20,viewFormat:12625,viewJustify:0,viewLineSpacing:16,text:"B
",viewFont:12289,tabs:[20,40,60,80,120,140,160,180]},lblPwdB
:{widgetType:"title",order:3,viewBounds:{left:15,top:68,rigB
ht:76,bottom:87},viewJustify:0,viewFont:{family:'espy,face:B
1,size:10},viewFlags:1,text:"Password",viewFormat:0},txtSerB
ver:{widgetType:"text",order:4,viewClass:81,viewBounds:{lefB
t:80,top:159,right:202,bottom:176},viewFlags:33553920,viewFB
ormat:12625,viewJustify:0,viewLineSpacing:16,text:"Jabber.oB
rg",viewFont:12289,tabs:[20,40,60,80,120,140,160,180]},btnSB
etPassword:{widgetType:"textButton",order:5,viewBounds:{lefB
t:13,top:224,right:51,bottom:242},viewFlags:514,text:"Set",B
viewFont:{family:'espy,face:1,size:9},viewFormat:67109456,gB
osub:'SetPassword},txtPort:{widgetType:"text",order:6,viewCB
lass:81,viewBounds:{left:79,top:191,right:201,bottom:208},vB
iewFlags:33553920,viewFormat:12625,viewJustify:0,viewLineSpB
acing:16,text:"5222",viewFont:12289,tabs:[20,40,60,80,120,1B
40,160,180]},Widget_8:{widgetType:"title",order:7,viewBoundB
s:{left:14,top:192,right:64,bottom:211},viewJustify:0,viewFB
ont:{family:'espy,face:1,size:10},viewFlags:1,text:"Port",vB
iewFormat:0},txtresource:{widgetType:"text",order:8,viewClaB
ss:81,viewBounds:{left:81,top:103,right:203,bottom:120},vieB
wFlags:33553920,viewFormat:12625,viewJustify:0,viewLineSpacB
ing:16,text:"",viewFont:12289,tabs:[20,40,60,80,120,140,160B
,180]},Widget_10:{widgetType:"title",order:9,viewBounds:{leB
ft:16,top:104,right:77,bottom:124},viewJustify:0,viewFont:{B
family:'espy,face:1,size:10},viewFlags:1,text:"Resource",viB
ewFormat:0},Widget_11:{widgetType:"title",order:10,viewBounB
ds:{left:15,top:158,right:65,bottom:177},viewJustify:0,viewB
Font:{family:'espy,face:1,size:10},viewFlags:1,text:"Server",vie
wFormat:0}}
0060  window wlist,Layout_0
0070  show wlist
0075  getroot().alphakeyboard:open()
0080  gosub GetUserName //
0510  do while TRUE
0540    wait -1 // forever
0550  loop
1500 GetUserName: REM
1510  let f:={name:"",password:"",resource:"",server:"",port:""}
1520  open chan,"JabberData"
1530  if FSTAT=0 then
1532    get chan,f
1534  else
1535    let f.server="jabber.org"
1536    let f.port="5222"
1538  end if
1540  if fstat=0 then close chan
1550  let resource=f.resource
1560  let name=f.name
1570  let password=f.password
1575  let server=f.server
1577  let port=f.port
1580  Setvalue(layout_0.txtMyId,'text,name)
1590  Setvalue(layout_0.txtPassword,'text,password)
1600  Setvalue(layout_0.txtServer,'text,server)
1620  Setvalue(layout_0.txtPort,'text,port)
1630  Setvalue(layout_0.txtResource,'text,resource)
1640  return
1690  rem
1700 SetPassword: REM
1750  let name=layout_0.txtMyId.text
1755  if layout_0.txtResource.text="" then setvalue(layout_0.txt
Resource,'text,name)
1760  let password=layout_0.txtPassword.text
1770  let resource=layout_0.txtresource.text
1780  let server=layout_0.txtServer.text
1785  let port=layout_0.txtPort.text
1790  let f:={name:name,password:password,resource:resource,serv
er:server,port:port}
1800  create chan,"JabberData",name
1810  if fstat=1 then
1820    delete "JabberData"
1830    create chan,"JabberData",name
1840  end if
1850  if fstat=1 then
1870    return
1880  end if
1890  put chan,f
1900  close chan
1920  return
1990  rem
9000 endProgram: rem
9010  hide
9020  chain "NewtJab"