'fm' qWC 'Form' ('Posn' 10 10)('Size' 300 400)
'fm' qWS 'Caption' 'Welcome Slide from qWC'
'fm.txt' qWC 'Edit'('Style' 'Single')('Posn' 100 20)('Size' 25 250)('Text' 'Welcome to this talk, but remember its a prototype')
⍝
⍝ Now to change the text
⍝
'fm.txt' qWS 'Text' 'Now I have your attention.....Lets start'
⍝   
⍝ Now let's try moving the form around
⍝ 
'fm' qWS 'Posn' 80 80
'fm' qWS 'Posn' 80 5
'fm' qWS 'Posn' 5 5
⍝
⍝ and resizing it
⍝
'fm' qWS 'Size' 150 500
'fm' qWS ('Posn' 20 20)('Size' 300 400)
⍝
⍝ Code to omit properties exists...
⍝ ...But is not yet implemented
⍝ 
User←#.WS.GetUser 1              
User.fm.Posn ← 100 30  ⍝ For the Modernists
User.fm.(Posn Size)←(10 10)(300 400)
User.fm.txt.Text←'All these assignments are examples of databinding'
⍝
⍝ DataBinding and DataContexts
⍝
⍝ User. will not be in a future release of qWC
⍝ 
⍝ and the Server will send back a greeting
⍝
User.fm.txt.Text  
'fm.txt' qWG 'Text' ⍝ For the traditionalists
⍝
⍝ Lets add a button
⍝
PressOk←{'Pressed Ok ',⍵}
'fm.btn' qWC 'Button' ('Style' 'Push') ('Posn' 250 25) ('Size' 25 50)
'fm.btn' qWS 'Caption' 'Press Me'
'fm.btn' qWS 'Event' 'Select' 'PressOk'
⍝
⍝ Now We'll try multi User




