Advertisement
GrahamC

get-values.r

Apr 15th, 2014
1,116
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. rebol []
  2.  
  3. user-data: func [ fields [block!]
  4.     /local bl
  5. ][
  6.     bl: copy []
  7.     foreach field fields [
  8.         append bl field
  9.         append bl get-face do field
  10.     ]
  11.     bl 
  12. ]
  13.  
  14. view layout [
  15.         text "name" vname: field
  16.         text "edate" vdate: field
  17.         text "etime" vtime: field
  18.         text "income" vinc: field
  19.        
  20.         button "validate" [
  21.             probe user-data [ vname vdate vtime vinc ]
  22.         ]
  23. ]
Advertisement
RAW Paste Data Copied
Advertisement